Esercizi Con la turtle di Small Basic

Turtle.Speed = 5 ' Imposta la velocità della tartaruga Turtle.PenDown() ' Abbassa la penna per disegnare For i = 1 To 4 Turtle.Move(100) ' Muove la tartaruga in avanti di 100 pixel Turtle.Turn(90) ' Gira la tartaruga di 90 gradi a destra EndFor  
     
Turtle.Speed = 5
Turtle.PenDown()
For i = 1 To 3
Turtle.Move(100)
Turtle.Turn(120)
EndFor		  
     
Turtle.Speed = 10
Turtle.PenDown()
For i = 1 To 360
Turtle.Move(1)
Turtle.Turn(1)
EndFor		  
     
Turtle.Speed = 10 Turtle.PenDown() For i = 1 To 100 Turtle.Move(i) Turtle.Turn(20) EndFor  
     
Turtle.Speed = 7
Turtle.PenDown()
Turtle.Move(50) ' Disegna una linea
Turtle.Turn(45) ' Gira di 45 gradi
Turtle.PenUp() ' Alza la penna
Turtle.Move(30) ' Sposta la tartaruga senza disegnare
Turtle.PenDown() ' Abbassa la penna
Turtle.Move(70) ' Disegna un'altra lin		  
     
Turtle.Speed = 5
Turtle.PenDown()
For i = 1 To 5
Turtle.Move(100)
Turtle.Turn(144)
EndFor		  
      
GraphicsWindow.BackgroundColor = "LightBlue"  
GraphicsWindow.BrushColor = "Red"  
GraphicsWindow.DrawEllipse(100, 100, 200, 200)

 

  
     

GraphicsWindow.BackgroundColor = "White"

GraphicsWindow.BrushColor = "Green"

GraphicsWindow.FillRectangle(50, 50, 150, 150)

  
     
GraphicsWindow.BackgroundColor = "Yellow" GraphicsWindow.PenColor = "Blue" GraphicsWindow.DrawLine(50, 50, 200, 200)  
     

GraphicsWindow

    
     

BackgroundColor

GraphicsWindow.BackgroundColor

Restituisce o imposta il colore di sfondo della finestra Grafica.

GraphicsWindow.BackgroundColor = "red"

  
     

BrushColor

GraphicsWindow.BrushColor

Ottiene o imposta il colore del pennello usato per riempire figure geometriche disegnate nellla finestra Grafica.

GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FillRectangle(10,10,50,50)

  
     

CanResize

GraphicsWindow.CanResize

Specifica se la finestra Grafica può essere ridimensionata dall'utente o meno.

GraphicsWindow.canresize = "falae"

  
     

PenWidth

GraphicsWindow.PenWidth

Ottiene o imposta la larghezza della penna utilizzata per disegnare le forme geometriche all'interno della finestra Grafica.

GraphicsWindow.PenWidth = 5
GraphicsWindow.DrawLine(10,10,100,100)
GraphicsWindow.PenWidth = 10
GraphicsWindow.DrawLine(50,50,100,100)

  
     

PenColor

GraphicsWindow.PenColor

Restituisce o imposta il colore della penna utilizzata per disegnare forme nella finestra Grafica.

GraphicsWindow.PenWidth = 5
GraphicsWindow.PenColor = "red"
GraphicsWindow.DrawLine(10,10,100,100)
GraphicsWindow.PenWidth = 10
GraphicsWindow.PenColor = "green"
GraphicsWindow.DrawLine(50,50,100,100)

  
     

FontName

GraphicsWindow.FontName

Restituisce o imposta il nome del Font da utilizzare per disegnare testo nella finestra Grafica.

GraphicsWindow.FontSize = 30
GraphicsWindow.Fontname = "Arial"
GraphicsWindow.DrawBoundText(10,10,200,"sono io....")
GraphicsWindow.FontName = "Helvetica"
GraphicsWindow.DrawBoundText(50,50,200,"Io sono colui...")

In questo caso i 2 caratteri sono uguali ?

  
     

FontSize

GraphicsWindow.FontSize

Restituisce o imposta la dimensione del Font da utilizzare per disegnare testo nella finestra Grafic

GraphicsWindow.FontSize = 30
GraphicsWindow.Fontname = "Arial"
GraphicsWindow.DrawBoundText(10,10,200,"sono io....")
GraphicsWindow.FontSize = 50
GraphicsWindow.DrawBoundText(50,50,200,"Io sono colui...")

  
   

 FontBold

GraphicsWindow.FontBold

Ottiene o imposta il grassetto nel font utilizzato per disegnare testo nella finestra Grafica.

GraphicsWindow.FontSize = 30
GraphicsWindow.Fontname = "Arial"
GraphicsWindow.FontBold = "true"
GraphicsWindow.DrawBoundText(10,10,200,"sono io....")
   

FontItalic

GraphicsWindow.FontItalic

Ottiene o imposta il corsivo nel font utilizzato per disegnare testo nella finestra Grafica.

GraphicsWindow.FontSize = 30
GraphicsWindow.Fontname = "Arial"
GraphicsWindow.FontItalic = "true"
GraphicsWindow.DrawBoundText(10,10,200,"sono io....")
   

Title

GraphicsWindow.Title

Ottiene o imposta il titolo della finestra Grafica.

GraphicsWindow.Fontname = "Arial"
GraphicsWindow.title = "Operazione Spartacus...."