Vai al contenuto

Segue le frecce

Tag:

Disegna una linea seguendo i comandi delle frecce

  • Up, avanti
  • Down, indietro
  • Left, a sinistra
  • Right, a destra

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

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.