Microsoft Small Basic класс фигуры позволяет выполнять разные операции с различными фигурами в графическом окне. Вы можете создавать новые фигуры, такие как эллипсы, изображения, линии, прямоугольники, треугольники. Эти фигуры можно перемещать, вращать, масштабировать и т.п.
Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:
ellipse = Shapes.AddEllipse(50, 30)
image = Shapes.AddImage(Flickr.GetRandomPicture("cat"))
PauseProgram() ' Приостанавливаем программу после каждого действия, чтобы увидеть то, что получается.
Shapes.Move(image, 200, 300)
PauseProgram()
line = Shapes.AddLine(0, 100, 20, 120)
PauseProgram()
rectangle = Shapes.AddRectangle(50, 30)
PauseProgram()
triangle = Shapes.AddTriangle(0, 0, 0, 30, 30, 0)
PauseProgram()
Shapes.Animate(ellipse, 100, 100, 2000)
PauseProgram()
GraphicsWindow.Title = "Левая координата линии: " + Shapes.GetLeft(line)
PauseProgram()
GraphicsWindow.Title = "Верхняя координата эллипса: " + Shapes.GetTop(ellipse)
PauseProgram()
Shapes.HideShape(triangle)
PauseProgram()
Shapes.Move(rectangle, 100, 10)
PauseProgram()
Shapes.Remove(line)
PauseProgram()
Shapes.Rotate(rectangle, 45)
PauseProgram()
Shapes.SetOpacity(rectangle, 50)
PauseProgram()
Shapes.ShowShape(triangle)
PauseProgram()
Shapes.Zoom(ellipse, 3, 5)
GraphicsWindow.ShowMessage("Готово!", "Завершение")
Sub PauseProgram
Program.Delay(2000) ' Приостановка программы на 2 секунды (2000 миллисекунд)
EndSub
Поделиться: