Microsoft Small Basic содержит класс Turtle (Черепашка), который позволяет использовать систему команд графопостроителя, аналогичного реализованному в языке Logo. Перемещение черепашки может сопровождаться рисованием следа, что позволяет создавать изображения в графическом окне. В данном примере черепашка рисует слово «Hi!» («Привет!») около середины графического окна.
Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:
'Находим центр графического окна.
w = GraphicsWindow.Width / 2
h = GraphicsWindow.Height / 2
' Перемещаем черепашку в центр графического окна.
Turtle.Show()
Turtle.X = w
Turtle.Y = h
Turtle.Speed = 7 ' Задаём скорость перемещения
' Рисуем букву “H”
Turtle.Turn(180) ' Поворачиваем черепашку на указанный угол
Turtle.Move(40)
Turtle.MoveTo(w, h + 20)
Turtle.TurnRight()
Turtle.Move(20)
Turtle.MoveTo(w + 20, h)
Turtle.Angle = 180
Turtle.Move(40)
' Рисуем букву "i"
Turtle.X = w + 30
Turtle.Y = h
Turtle.PenUp()
Turtle.Move(10)
Turtle.PenDown() ' Теперь черепашка рисует, поскольку она двигается и перо опущено.
Turtle.Move(5)
Turtle.PenUp() ' Остановка рисования.
Turtle.Move(5)
Turtle.PenDown() ' Начало рисования
Turtle.Move(20)
' Рисуем "!"
Turtle.X = w + 40
Turtle.Y = h
Turtle.Move(30)
Turtle.PenUp()
Turtle.Move(5)
Turtle.PenDown()
Turtle.Move(5)
Turtle.Hide()
Поделиться: