Robô 4x4 Controlado Por Wifi

Robô 4X4 Controlado Por Wfi

Teste de Bomba Eletrônica

Teste de Placa de relês

Acionamento de relês

                             Acionamento de reles sem fio.

Projeto completo feito em picbasic pro e Visual basic 6

@ DEVICE PIC16F628A, BOD_OFF                           
 @ DEVICE pic16F628A, WDT_OFF             
 @ DEVICE pic16F628A, PWRT_OFF            
 @ DEVICE pic16F628A, PROTECT_OFF        
 @ DEVICE pic16F628A, MCLR_OFF            
 @ DEVICE pic16F628A, XT_OSC 
 @ DEVICE PIC16F628A, LVP_OFF

 DEFINE OSC 4
 RELE VAR BYTE
 REL  VAR BYTE
 SYMBOL RX_IN = PORTA.0
 SYMBOL TX_OUT = PORTA.1
 TRISA = %01111111
 PORTA = %01111111
 TRISB = %11110000
 PORTB = %11110000
 RELE = 0
 REL  = 0
 SEROUT2 TX_OUT,84,["PLACA DE RELE OK"]
 PAUSE 500
PROG:
 SERin2 RX_IN,84,[WAIT("CESAR"),RELE,REL]
 IF RELE = "A" THEN RELE1 
 IF RELE = "B" THEN RELE2 
 IF RELE = "C" THEN RELE3 
 IF RELE = "D" THEN RELE4

GOTO PROG

RELE1:
 IF REL = 1 THEN LIGAR1
 LOW 0
 GOTO PROG

LIGAR1:
 HIGH 0
 GOTO PROG

RELE2:
 IF REL = 1 THEN LIGAR2
 LOW 1 
 GOTO PROG

LIGAR2:
 HIGH 1
 GOTO PROG

RELE3:
 IF REL = 1 THEN LIGAR3
 LOW 2
 GOTO PROG

LIGAR3:
 HIGH 2
 GOTO PROG

RELE4:
 IF REL = 1 THEN LIGAR4
 LOW 3
 GOTO PROG

LIGAR4
 HIGH 3
 GOTO PROG

 BAIXAR