Small Basic / Programação para iniciantes (Aula 11) - Turtle do Basic no Small Basic

Hoje aprenderemos o mais antigo e clássico passatempo dos programadores da família Basic.


Código usado em aula segue mais abaixo.



Código usado em aula:



GraphicsWindow.Title="Tartaruga"
GraphicsWindow.Width=300
GraphicsWindow.Height=200
GraphicsWindow.Show()

janela()

Sub janela
  
  Esq= Controls.AddButton("Esquerda",50,120)
  Cima=Controls.AddButton("Cima",120,120)
  Dire= Controls.AddButton("Direita",165,120)
  Menos= Controls.AddButton("-30º", 50,145)
  Baixo= Controls.AddButton("Baixo",120,145)
  Mais= Controls.AddButton("+30º",175,145)
  Reset= Controls.AddButton("Reiniciar",220,170)
  
  Turtle.Show()
  Turtle.X=150
  Turtle.y=100
  
EndSub

Controls.ButtonClicked= controle


Sub Controle
  tartaruga_x= Turtle.X
  tartaruga_y= Turtle.Y
  tartaruga_A= Turtle.Angle
 
  Botao=controls.LastClickedButton
  If Botao=Esq Then
    Turtle.TurnLeft()
    Turtle.Move(5)
    EndIf  
    If Botao=Cima Then
      Turtle.Move(10)
    EndIf
    If Botao= Baixo Then
      Turtle.Move(-10)
    EndIf
    If Botao=Dire Then
      Turtle.TurnRight()
      Turtle.Move(5)
    EndIf
    If Botao = Menos Then
      Turtle.Angle= Turtle.Angle - 30
    EndIf
    If Botao = Mais Then
      Turtle.Angle= Turtle.Angle + 30
    EndIf
    If Botao = Reset Then
      GraphicsWindow.Clear()
      janela()
  EndIf    
  EndSub

Abraços e até a próxima aula!