Vai al contenuto

Disegnare un quadrato

Per 4 volte avanza di 100 pixel e gira a destra di 90°

39 - Disegnare un quadrato

Turtle.Move(175)
Turtle.TurnRight()
Turtle.Move(175)
Turtle.TurnRight()
Turtle.Move(175)
Turtle.TurnRight()
Turtle.Move(175)
Turtle.TurnRight()

For … To …

Ripete 4 volte le prime due istruzioni precedenti

For lato=1 To 4
   Turtle.Move(175)
   Turtle.TurnRight()
EndFor

Realizza la figura seguente

39 - Disegnare un quadrato

Aggiungi Turtle.Turn()

39 - Disegnare un quadrato

Aggiungi GraphicsWindow.PenSize

GraphicsWindow.Height=GraphicsWindow.Width

Turtle.Y    =GraphicsWindow.Height/2
Turtle.Speed=10

For quadrato=1 To 8
   GraphicsWindow.PenWidth=2*j
   For lato=1 To 4
      Turtle.Move(175)
      Turtle.TurnRight()
   EndFor
   Turtle.Turn(45)
EndFor

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.