Lixobô

'*************************************************
'* Programa Lixobô.bas
'* Desenvolvido por Márcio José Soares
'* Revista Mecatrônica Fácil
'*************************************************
'
'*************************************************
'* Controla robô Lixobô
'* 3 servos: 1 de rotação e 2 de posição
'* servos para posicionamento de antena parabólica
'*************************************************
'
'*************************************************
'* Presente display serial Symphony
'* operando a 9600,N,8,1
'* ligado diretamente a PD1
'*************************************************
'
'*************************************************
'* Para usar display serial Tato
'* operando a 4800,N,8,1
'* ligado diretamente a PD1
'* alterar valor em $baud para 4800
'* As funções de controle do display
'* também deverão ser alteradas, de acordo
'* com os comandos presentes no manual do
'* LCD da Tato Equipamentos Eletrônicos
'*
'* Obs: Lcd's seriais que com velocidade de 2400
'* não podem ser utilizados neste projeto
'*************************************************
'
'
'*************************************************
'* cristal presente no Fast Basic e Step 2K - 10MHz
'*************************************************
$baud = 9600
$crystal = 10000000
$noramclear

'*************************************************
'* declaração de subrotinas e variáveis
'*************************************************
'* subrotinas
'*************************************************
'
'
Declare Sub Apaga_disp()
Declare Sub Atampa()
Declare Sub Centro()
Declare Sub Desvia_robo(byval Dir As Byte)
Declare Sub Ftampa()
Declare Sub Imp_comando(byval C As Byte)
Declare Sub Msg_lixo()
Declare Sub Msg_obst()
Declare Sub Msg_pronto()
Declare Sub Para()
Declare Sub Pfrente()

'*************************************************
'* variáveis
'*************************************************
Dim I As Byte
Dim J As Integer