Un sofisticato CONTROLLER Radio & voice-Cw Beacon

 Codice VB per programmare il PIC correttamente#chip 16f628,4
#config XT_OSC
DIR PORTA.0 OUT
DIR PORTA.2 OUT
CONT=0
LISTEN:
CONT=0
SET PORTA.0 OFF
SET PORTA.2 OFF
IF PORTA.1 OFF THEN GOTO TIMER
GOTO LISTEN
TIMER:
WAIT 2 SEC
FOR LOOPCOUTER=0 TO 5
IF PORTA.1 OFF THEN WAIT 2 SEC
IF PORTA.1 OFF THEN LET CONT=CONT+1
NEXT
IF CONT=1 THEN GOTO PULSE
IF CONT=2 THEN GOTO CHANNEL
GOTO LISTEN
PULSE:
WAIT 10 SEC
SET PORTA.0 ON
WAIT 1 SEC
GOTO LISTEN
CHANNEL:
WAIT 3 SEC
SET PORTA.2 ON
WAIT 10  MSEC
GOTO LISTEN

sequenza fotografica
guardalo in funzione

<-indietro                     Prj done (eng.)                        menu->