2011-09: Intermediate
Use the Small Basic Turtle to draw a regular polygon with the number of sides selected by the user.
For example if the user enters 5 then the Turtle should draw a regular pentagon.
Utilizza la tartaruga di Small Basic per disegnare un poligono regolare con il numero di lati selezionato dall’utente.
Per esempio, se l’utente inserisce 5 allora la tartaruga dovrebbe disegnare un pentagono regolare.
Soluzione #1
Chiede il numero di lati nella finestra di testo
TextWindow.Write("Numero lati: ")
numero=TextWindow.ReadNumber()
'--------------------------------------------------
Turtle.x=400
Turtle.y=400
Turtle.TurnLeft()
'--------------------------------------------------
angolo=360/numero
lato =1000/numero
For ripeti=1 To numero
Turtle.Move(lato)
Turtle.Turn(angolo)
EndFor
Soluzione #2
Il numero di lati viene inserito in una casella di testo e il disegno parte dopo il clic sul pulsante
casella=Controls.AddTextBox(25, 25)
Controls.SetSize(casella, 25, 25)
Controls.AddButton("Disegna", 50, 25)
Controls.ButtonClicked=DisegnaPoligono
'---------------------------------------------------------------
Turtle.x=400
Turtle.y=400
Turtle.TurnLeft()
'---------------------------------------------------------------
Sub DisegnaPoligono
numero=Controls.GetTextBoxText(casella)
lato =1000/numero
angolo=360/numero
For ripeti=1 To numero
Turtle.Move(lato)
Turtle.Turn(angolo)
EndFor
EndSub