ultimo aggiornamento 2 dicembre 2012


 

Per il collaudo di un link tra due radiomodem si pu realizzare il seguente progetto, questo formato da:

Per il funzionamento occorre caricare i rispettivi programmi sulle due schede di controllo.
Una volta in esecuzione premendo il tasto presente sulla scheda della trasmittente si potr  verificare sul LCD della stazione ricevente i messaggi "
Accendi rel" o "Spegni rel", se non viene rilevato il segnale viene mostrato "Link fallito".
Il programma pu essere completato eventualmente collegando effettivamente il modulo rel, ma questo programma ha per il momento il solo scopo di verificare il funzionamento del link tramite radiomodem.

homotix

PCBONLINE

Assemblaggio stazione trasmittente

Assemblaggio stazione ricevente

Programma per stazione trasmittente

' {$STAMP BS2}
' {$PBASIC 2.5}
' Gandolfo Adriano -
' Programma Prova - TX
' P0 TX
' P14 RX
' WIZ-903-A4 (9600,8,n,1) valori di default
'************************************
TXport    CON 0 'Porta TX
RXport    CON 14 'Porta RX
Baud      CON 84 '9600, 8 bit, no parity, 1 bit stop
Btn        CON 2 'PS = pulsante sulla scheda
btnWrk   AR Byte 'Stato del pulsante su scheda
'************************************

Main:
BUTTON Btn, 0, 100, 0, btnWrk, 0, spegni
BUTTON Btn, 0, 100, 0, btnWrk, 1, accendi
accendi:
SEROUT TXport, baud, ["A",CR,LF]
BUTTON Btn, 0, 100, 0, btnWrk, 1, main
GOTO accendi
spegni:
SEROUT TXport, baud, ["S",CR,LF]
BUTTON Btn, 0, 100, 0, btnWrk, 0, main
GOTO spegni

Programma per stazione ricevente

' {$STAMP BS2sx}
' {$PBASIC 2.5}
' Gandolfo Adriano -
' Programma prova RX
' P0 TX
' P14 RX
' WIZ-903-A4 (9600,8,n,1) valori di default
'*************************************
TXport  CON 0 'Porta TX Radiomodem
RXport  CON 4 'Porta RX Radiomodem
SO       CON 12 'Porta LCD
Baud    CON 240 '9600, 8 bit, no parity, 1 bit stop
'*************************************
SEROUT SO, Baud, ["&$"] 'Cancellazione LCD
PAUSE 500

SEROUT SO, Baud, ["1Comando remoto #$"] 'Messaggio iniziale
PAUSE 100

ricezione:
SERIN RXport, baud, 1000 , ERRORERADIO,[WAIT ("A")]
SEROUT SO, Baud, ["2Accendi rele' #$"] 'Segnale accensione relè
PAUSE 100
SERIN RXport, baud, 1000 , ERRORERADIO,[WAIT ("S")]
SEROUT SO, Baud, ["2Spegni rele' #$"] 'Segnale spegnimento relè
PAUSE 100
GOTO ricezione

ERRORERADIO:
SEROUT SO, Baud, ["2Link fallito #$"]
GOTO ricezione

 

Elenco revisioni
02/12/2013 Aggiornato pagina
24/11/2008 Emissione preliminare