Alcuni suggerimenti su come programmare i device ad Infrarossi (IrDa).
- Include esempio scritto in Embedded Visual Basic 3.0 (Windows Ce 3.0) -
(C) 2002 Berardi Michele
http://web.tiscali.it/mberardi
I device ad infrarossi sono connessi al BCR (un device seriale).
Il BCR non può inviare messaggi alle periferiche irda circa la
velocità di comunicazione, quindi bisogna settare a priori su
entrambe le periferiche irda la stessa velocità di comunicazione.
I valori di default di solito sono 9600,N,8,1.
I device Irda hanno bisogno di una corrente di 12 milliampere
proveniente dal BCR, o in alternativa da una batteria o alimentatore
esterno.
La connessione avviente di solito tramite un connettore seriale
9 pin femmina, il quale prende l'alimentazione dai pin di handshaking.
Per testare la comunicazione Irda usando un PC dotato di porta Irda,
si può utilizzare un semplice emulatore di terminale sul pc settando
come parametri di comunicazione 9600,N,8,1 ed ovviamente selezionando
la porta seriale assegna all'Irda
(la porta deve essere correttamente
installata e funzionante sul sistema).
Se si vuole scrivere un'applicativo per la comunicazione IrDa,
si ricordi di settare alti(true per il VB) i valori DTR e RTS
nelle proprietà dell'Oggetto COM, altrimenti la comunicazione
può non avvenire per mancanza di energia,
inoltre per l'oggetto COM in questione bisogna settare le proprietà
Rthreshold = 1 e Strheshold = 0.
esempio di codice visual basic:
| ' ' creare un'oggetto com e settarlo come descritto sopra ' assegnadogli la porta Irda (di solito COM4) ' Option
Explicit Private
Sub Ricevi(dati) testoricevuto.SelStart = Len(testoricevuto.Text) testoricevuto.SelText = dati End Sub
Private Sub InviaTesto_Click() Comm1.Output = testoricevuto.Text End
Sub Private
Sub Comm1_OnComm() If
Comm1.CommEvent = 2 Then Call Ricevi(Comm1.Input) End
Sub Private
Sub Form_Load() If
Not Comm1.PortOpen Then Comm1.PortOpen = True End Sub |
Berardi
Michele
Senior Developer
"customize your opportunities!"
Mobile: +39 347
319 2000
Tel: +39 (0)881
61 12 17
E-Mail(S):
mfxaub@tin.it
Web:
http://web.tiscalinet.it/mberardi