Disegna una linea seguendo i comandi delle frecce
- Up, avanti
- Down, indietro
- Left, a sinistra
- Right, a destra
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
GraphicsWindow.KeyDown=Passo Turtle.Show() Turtle.Speed=9 distanza=50 Sub Passo tasto=GraphicsWindow.LastKey If tasto="Up" Then Turtle.Move(distanza) ElseIf tasto="Left" Then Turtle.TurnLeft() ElseIf tasto="Right" Then Turtle.TurnRight() ElseIf tasto="Down" Then Turtle.Move(-distanza) EndIf EndSub |