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

PCBA

OurPCB

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
Private Policy Cookie Policy Termini e Condizioni