Differenze tra le versioni di "Accesso alle Porte Seriali"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Possiamo accedere alle ''Porte Seriali'' aprendo e leggendo direttamentre i dati provenienti dai relativi file-device. Poniamo l'esempio di avere una penna USB per la connessione ad ...) |
|||
| Riga 3: | Riga 3: | ||
Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: ''/dev/ttyUSB0'' e ''/dev/ttyUSB1''. Andremo a leggere direttamente dal file-device ''/dev/ttyUSB1'', come segue: | Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: ''/dev/ttyUSB0'' e ''/dev/ttyUSB1''. Andremo a leggere direttamente dal file-device ''/dev/ttyUSB1'', come segue: | ||
| + | '''Private''' fl As File | ||
| + | |||
| + | |||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Versione delle 16:05, 13 set 2012
Possiamo accedere alle Porte Seriali aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.
Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: /dev/ttyUSB0 e /dev/ttyUSB1. Andremo a leggere direttamente dal file-device /dev/ttyUSB1, come segue:
Private fl As File
Public Sub Button1_Click()
' Facciamo in modo da poter inserire la password di root
' per impostare il setUID e consentire l'apertura del file protetto:
Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait
' Apriamo il file-device aggiungendo la parola chiave "Watch":
fl = Open "/dev/ttyUSB1" For Read Watch
End
Public Sub File_Read()
Dim s As String
While Not Eof(fl)
' Leggiamo i dati provenienti dal file-device...:
Line Input #fl, s
' ...e li mostriamo in console:
Print s
Wend
End
