Small Basic / Programação para iniciantes (Aula 10) - Controles no Small Basic

Aprenderemos a adicionar mais controles e a diferencia-los no código de programação do Small Basic. Daremos mais botões de comando, caixa de texto e texto em janela gráfica.

Código utilizado em aula logo abaixo!



Código utilizado:

GraphicsWindow.Width=300

GraphicsWindow.Height=200
GraphicsWindow.Show()

Criarjanela()

Sub Criarjanela

  fator1= Controls.AddTextBox(10,70)

  Controls.SetSize(fator1,40,40)
  fator2= Controls.AddTextBox(100,70)
  Controls.SetSize(fator2,40,40)
  igual= Controls.AddTextBox(170,70)
  Controls.SetSize(igual,40,40)

  GraphicsWindow.FontSize=20

  GraphicsWindow.DrawBoundText(150,70,100,"=")
  Mais = Controls.AddButton("+", 70,70)
  limpar = Controls.AddButton("Limpar", 200,150)
 

EndSub

Controls.ButtonClicked=clique

Sub Clique

  total= Controls.GetTextBoxText(fator1) + Controls.GetTextBoxText(fator2)
  Ultimoclique= Controls.LastClickedButton
  If Ultimoclique=Mais Then
    Controls.SetTextBoxText(igual,total)
  Else
    Controls.SetTextBoxText(igual,"")
    Controls.SetTextBoxText(fator1,"")
    Controls.SetTextBoxText(fator2,"")
  EndIf
EndSub

Até a próxima aula!