Lixobô

Páginas: 4 (897 palavras) Publicado: 21 de março de 2012
'*************************************************
'* 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 para4800
'* 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 quecom velocidade de 2400
'* não podem ser utilizados neste projeto
'*************************************************
'
'
'*************************************************
'* cristal presente noFast Basic e Step 2K - 10MHz
'*************************************************
$baud = 9600
$crystal = 10000000
$noramclear

'*************************************************
'* declaraçãode 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 SubMsg_pronto()
Declare Sub Para()
Declare Sub Pfrente()

'*************************************************
'* variáveis
'*************************************************
Dim I As Byte
Dim J As Integer...
Ler documento completo

Por favor, assinar para o acesso.

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!