Pular para o conteúdo principal

Postagem em destaque [permanente]

Dê sua opinião sobre o nosso conteúdo!

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!

Comentários

  1. Bacana seu Trabalho Ajudar as pessoas com essas ferramentas ta de parabéns mesmo consegui através das vídeo aulas de excel para iniciante aprender bem pelo menos básico eu já sei e muito importante a gente despertar o interesse em adquirir mais conhecimento.
    Mais uma vez Parabéns e quero dizer também que depois vou fazer uma doação para ajudar o blog e ajudar a você a continuar fazendo essas postagens ai bem legais pra ajudar a galera na internet é isso.
    Valeu.

    ResponderExcluir
  2. Amigo,
    Conseguiu achar o problema?

    If Botao = Reset Then
    GraphicsWindow.Clear()
    janela()
    EndIf

    Abraços

    ResponderExcluir
  3. Bom dia!
    Eu posso criar um programa de cadastro com small basic?

    Jeferson

    ResponderExcluir
  4. voce deveria ensinar como inserir imagens no small basic se tiver como né obg att

    ResponderExcluir

Postar um comentário

Postagens mais visitadas