homelibri

ESEMPI DI CODICE

Si trova nel libro : Small Basic Il meroviglioso mondo di small Basic in Amazon : https://www.amazon.it/dp/B0D9YQWLCJ

Stella Alpina

Stella alpina di Francesco Panerai

  GraphicsWindow.Height = 500

  GraphicsWindow.Width = 500

  GraphicsWindow.PenColor ="purple"

  Turtle.Show()

  Turtle.Speed = 8

  Turtle.X = 250

  Turtle.Y = 250

  For i = 0 to 400 step 5

  Turtle.Move(i)

  Turtle.Turn(100)

  Turtle.Turn(100)

  EndFor

  Turtle.turn(360)

  Turtle.Hide()

ESEMPI DI CODICE:

Si trova Nel Libro : small basic Oltre la siepe. componenti per small basic costruiti in small basic in Amazon ; https://www.amazon.it/dp/B0DCNZL2D6

testoinserito



x = 100

  y = 100

  w = 20

h = 20


stato1 = "true"

  Nome_font = "Arial"

  Grandezza_font = 14

  Colore_font = 14

  Testo_inserito = "prova"


GraphicsWindow.PenColor = Colore_font

  GraphicsWindow.FontName = Nome_font

  GraphicsWindow.FontSize = Grandezza_font

  GraphicsWindow.MouseDown = OnMouseDown


TestoADestra = Controls.addtextbox (120,100)

  Controls.TextTyped = reinserisci_testo

  Controls.SetTextBoxText(testoadestra,Testo_inserito)


Sub reinserisci_testo

  Controls.SetTextBoxText(testoadestra,Testo_inserito)

  EndSub


if STATO1 = "false" then

  GraphicsWindow.PenColor = "black"

  GraphicsWindow.BrushColor = "white"

  GraphicsWindow.FillRectangle(100,100,20,20)

  GraphicsWindow.DrawRectangle(100,100,20,20)

  endif

  If stato1 = "true" Then

  GraphicsWindow.PenColor = "black"

  GraphicsWindow.BrushColor = "red"

  GraphicsWindow.FillRectangle(100,100,20,20)

  GraphicsWindow.DrawRectangle(100,100,20,20)

  EndIf


Sub onmousedown

  

  X2= GraphicsWindow.MouseX

  y2 =GraphicsWindow.MouseY

  

  GraphicsWindow.DrawBoundText(10,10,100,"OK")

  

  If x < X2 And y < y2 And X2 > x and y2 > y And stato1 = "false" Then

  GraphicsWindow.PenColor = "black"

  GraphicsWindow.BrushColor= "red"

  GraphicsWindow.FillRectangle(100,100,20,20)

  GraphicsWindow.DrawRectangle(100,100,20,20)

  stato1 = "true"

  Else

  GraphicsWindow.PenColor = "Black" 

  GraphicsWindow.BrushColor = "white"

  GraphicsWindow.FillRectangle(100,100,20,20)

  stato1 = "false"

  EndIf

EndSub

 

In questo caso si e costruita una textbox. Gli indicatori di posizione e grandezza della textbox si sono messi perchè si devono effettuare delle operazioni su di essi

ma se il risultato di un confronto è sempre lo stesso è meglio mettere il valore originale della variabile perchè il compilatore di Small Basic fa' male tale operazioni ( x ,y ,w,h ).

Essendo il label una casella di testo si puo' aggiungere codice per la verifica della attivazione o meno di una parte del codice. Se no la casella ti testo puo' essere sostituita da un rettangolo con il colore dello sfondo

e una scitta sopra ( vedi nello stesso libro la "LABEL".