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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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 |