Visualizza wikitesto di Accesso alle Porte Seriali

Possiamo accedere alle ''Porte Seriali'' <SUP>&#091;[[#Note|nota 1]]&#093;</sup> 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'' "  <SUP>&#091;[[#Note|nota 2]]&#093;</sup>.
<BR>Possiamo leggere i dati provenienti dalla porta mediante due modalità:
* direttamente dal relativo file-device, ad esempio, "''/dev/ttyUSB1'' ";
* mediante l'apposita classe "''SerialPort''".

==Mediante lettura diretta dal corrispondente file-device==
Per il seguente esempio è necessario attivare anche il componente "gb.desktop", ed aver installato il programma "x-term": 
 Private fl As File
 
 
 Public Sub Button1_Click()
 
 <FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>
  If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
 <FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>
    Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
 <FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>
    Repeat
      Wait 0.01
    Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"
  Endif
 
 <FONT color=gray>' ''In alternativa all'algoritmo precedente, si potrà utilizzare il seguente codice per impostare il setUID e consentire l'apertura del file protetto:''
  '''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>
 
 <FONT color=gray>' ''...o ancor più facilmente:''
  '''Shell "echo</font> <FONT color=darkgreen>''MIA_PASSWORD''</font> <FONT color=gray>| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait'''</font>
 
 <FONT color=gray>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>
  fl = Open "/dev/ttyUSB1" For Read Watch
 
 End
 
 
 Public Sub File_Read()
 
  Dim s As String
 
  While Not Eof(fl)
 <FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>
    Line Input #fl, s
 <FONT color=gray>' ''...e li mostriamo in console:''</font>
    Print s
  Wend
 
 End


==Lettura mediante la Classe ''SerialPort''==
La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe "SerialPort" attivando il componente <FONT color=#B22222>gb.net</font>.
 Private SerialPort1 As SerialPort
 
 
 Public Sub Button1_Click()
 
  SerialPort1 = New SerialPort As "portaseriale"
 
 <FONT color=gray>' ''Facciamo in modo da poter inserire la password di root per impostare il setUID e consentire l'apertura del file protetto:''</font>
  Shell "echo '<FONT color=darkgreen>''MIA_PASSWORD''</font>' | sudo -S chmod 4777 '/dev/ttyUSB1'" Wait
 
  With SerialPort1
    .PortName = "/dev/ttyUSB1"
    .Speed = 19200
    .Parity = 0
    .DataBits = 8
    .StopBits = 1
    .FlowControl = 0
    .Open
  End With
 
 End
 
 
 Public Sub portaseriale_Read()
 
  Dim s As String
 
 <FONT color=gray>' ''Legge i dati dalla porta....''</font>
  Read #SerialPort1, s, Lof(SerialPort1)
 
 <FONT color=gray>' ''...e li mostra in console:''</font>
  Print s
 
 End
 
 
 Public Sub Form_Close()
 
  If SerialPort1.Status = Net.Active Then SerialPort1.Close
 
 End

====Altri codici esemplificativi====
Gli utenti iscritti al Forum [https://www.gambas-it.org/smf/ www.gambas-it.org] possono scaricare anche altri due programmi ben più complessi:
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5570   <SUP>&#091;[[#Note|nota 3]]&#093;</sup>
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5575   <SUP>&#091;[[#Note|nota 4]]&#093;</sup>



=Note=
[1] Vedere anche questa pagina: [[Approfondimento_sull'accesso_alle_porte_USB|Approfondimento sull'accesso alle porte USB]]

[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"

[3] Il codice è stato realizzato dall'utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=1089 kicco]'' "

[4] Il codice è stato realizzato dall'utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=576 astragalo]'' ".



=Approfondimenti in internet=
* http://www.cmrr.umn.edu/~strupp/serial.html
* http://www.tldp.org/HOWTO/Serial-HOWTO.html