• Чтобы обнаруживать ошибки программ, программист должен иметь такой ум, которому доставляет удовольствие находить изъяны там, где, казалось бы, царят красота и совершенство.

Черепашка Logo

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()


Поделиться: