Differenze tra le versioni di "Accesso alle Porte Seriali"

Da Gambas-it.org - Wikipedia.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 11: Riga 11:
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
  <FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>
 
  <FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>
−
    If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
+
  If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
 
  <FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>
 
  <FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>
−
      Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
+
    Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
 
  <FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>
 
  <FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>
−
       Do
+
    Repeat
−
        Wait 0.01
+
       Wait 0.01
−
      Loop Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"
+
    Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"
−
    Endif
+
  Endif
 
   
 
   
−
  <FONT color=gray>' ''In alternativa all'algoritmo precedente,''
+
  <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:''
−
' ''si potrà utilizzare il seguente codice per impostare il setUID''
+
  '''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>
−
' ''e consentire l'apertura del file protetto:''
 
−
    '''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>
 
 
   
 
   
 
  <FONT color=gray>' ''...o ancor più facilmente:''
 
  <FONT color=gray>' ''...o ancor più facilmente:''
−
    '''Shell "echo < ''mia_password'' > | sudo -S chmod 4777 '/dev/ttyUSB1'" Wait'''</font>
+
  '''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>
 
  <FONT color=gray>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>
−
    fl = Open "/dev/ttyUSB1" For Read Watch
+
  fl = Open "/dev/ttyUSB1" For Read Watch
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub File_Read()
+
  Public Sub File_Read()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
 
   
 
   
−
    While Not Eof(fl)
+
  While Not Eof(fl)
 
  <FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>
 
  <FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>
−
      Line Input #fl, s
+
    Line Input #fl, s
 
  <FONT color=gray>' ''...e li mostriamo in console:''</font>
 
  <FONT color=gray>' ''...e li mostriamo in console:''</font>
−
      Print s
+
    Print s
−
    Wend
+
  Wend
 
   
 
   
−
  '''End'''
+
  End
  
  
−
==Lettura mediante la classe ''SerialPort''==
+
==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>.
 
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
 
  Private SerialPort1 As SerialPort
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
−
  SerialPort1 = New SerialPort As "portaseriale"
+
  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
 
   
 
   
−
<FONT color=gray>' ''Facciamo in modo da poter inserire la password di root''
+
   With SerialPort1
−
' ''per impostare il setUID e consentire l'apertura del file protetto:''</font>
+
    .PortName = "/dev/ttyUSB1"
−
    Shell "echo '<FONT color=gray>''mia_password''</font>' | sudo -S chmod 4777 '/dev/ttyUSB1'" Wait
+
    .Speed = 19200
−
    
+
    .Parity = 0
−
    With SerialPort1
+
    .DataBits = 8
−
      .PortName = "/dev/ttyUSB1"
+
    .StopBits = 1
−
      .Speed = 19200
+
    .FlowControl = 0
−
      .Parity = 0
+
    .Open
−
      .DataBits = 8
+
  End With
−
      .StopBits = 1
 
−
      .FlowControl = 0
 
−
      .Open
 
−
    End With
 
 
   
 
   
−
  '''End'''
+
End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub portaseriale_Read()
+
  Public Sub portaseriale_Read()
 
   
 
   
 
   Dim s As String
 
   Dim s As String
 
   
 
   
 
  <FONT color=gray>' ''Legge i dati dalla porta....''</font>
 
  <FONT color=gray>' ''Legge i dati dalla porta....''</font>
−
        Read #SerialPort1, s, Lof(SerialPort1)
+
  Read #SerialPort1, s, Lof(SerialPort1)
 
   
 
   
 
  <FONT color=gray>' ''...e li mostra in console:''</font>
 
  <FONT color=gray>' ''...e li mostra in console:''</font>
−
        Print s
+
  Print s
 
   
 
   
−
  '''End'''
+
  End
 
   
 
   
 
   
 
   
−
  '''Public''' Sub Form_Close()
+
  Public Sub Form_Close()
−
 
 
−
  If SerialPort1.Status = Net.Active Then SerialPort1.Close
 
−
 
 
−
'''End'''
 
−
 
 
−
Mostriamo, di seguito, un altro codice <SUP>&#091;[[#Note|nota 3]]&#093;</sup> più complesso che possiede alcune funzioni capaci di inviare richieste cicliche e di dare risposte a seconda dei dati giunti dalla seriale, nonché di conteggiare richieste e risposte.
 
−
Private SPort As SerialPort
 
−
Private Timer1 As Timer
 
−
Private ChkDTR As CheckBox
 
−
Private ChkRTS As CheckBox
 
−
Private ChkCTS As CheckBox
 
−
Private ChkDCD As CheckBox
 
−
Private ChkDSR As CheckBox
 
−
Private ChkRNG As CheckBox
 
−
Private TextLabel1 As TextLabel
 
−
Private TextLabel2 As TextLabel
 
−
Private TextLabel3 As TextLabel
 
−
Private TextLabel4 As TextLabel
 
−
Private TextLabel5 As TextLabel
 
−
Private Label1 As Label
 
−
Private TxtPort As TextBox
 
−
Private CmbSpeed As ComboBox
 
−
Private CmbParity As ComboBox
 
−
Private CmbData As ComboBox
 
−
Private CmbStop As ComboBox
 
−
Private Button1 As Button
 
−
Private ComboBox1 As ComboBox
 
−
Private Esci As Button
 
−
Private Separator1 As Separator
 
−
Private CicloCheck As CheckBox
 
−
Private SERIALE As TextLabel
 
−
Private Label3 As Label
 
−
Private CheckBox1 As CheckBox
 
−
Private TEMPO As TextBox
 
−
Private Label2 As Label
 
−
Private TxtSend As TextBox
 
−
Private TextLabel6 As TextLabel
 
−
Private RUN_COUNT As TextLabel
 
−
Private RUN As Button
 
−
Private TextArea1 As TextArea
 
−
Private COMPARA_BOX As CheckBox
 
−
Private VALORE_COMPARA As TextBox
 
−
Private NUMERO_CARATTERI As ComboBox
 
−
Private Separator2 As Separator
 
−
Private RISPONDI As CheckBox
 
−
Private RISPOSTA As TextBox
 
−
Private Label4 As Label
 
−
Private COMP_OK As TextLabel
 
−
Private RISPOSTE_OK As Label
 
−
Private RISP_OK As TextLabel
 
 
   
 
   
 +
  If SerialPort1.Status = Net.Active Then SerialPort1.Close
 
   
 
   
−
  '''Public''' Sub _new()
+
  End
−
 
+
 
−
  With Me
+
====Altri codici esemplificativi====
−
    .AutoResize = True
+
Gli utenti iscritti al Forum [https://www.gambas-it.org/smf/ www.gambas-it.org] possono scaricare anche altri due programmi ben più complessi:
−
    .Expand = True
+
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5570   <SUP>&#091;[[#Note|nota 3]]&#093;</sup>
−
    .Center
+
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5575   <SUP>&#091;[[#Note|nota 4]]&#093;</sup>
−
    .H = 560
 
−
    .W = 500
 
−
    .Text = "Serial Port Exended"
 
−
  End With
 
−
  With SPort = New SerialPort As "SPort"
 
−
    .DataBits = .Bits8
 
−
    .FlowControl = .Hardware
 
−
    .Parity = .None
 
−
    .Speed = 192000
 
−
    .StopBits = .Bits1
 
−
  End With
 
−
  Timer1 = New Timer
 
−
  With ChkDTR = New CheckBox(Me) As "ChkDTR"
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 7
 
−
    .Text = "DTR"
 
−
  End With
 
−
  With ChkRTS = New CheckBox(Me) As "ChkRTS"
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 28
 
−
    .Text = "RTS"
 
−
  End With
 
−
  With ChkCTS = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 49
 
−
    .Text = "CTS"
 
−
  End With
 
−
  With ChkDCD = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 70
 
−
    .Text = "DCD"
 
−
  End With
 
−
  With ChkDSR = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 91
 
−
    .Text = "DSR"
 
−
  End With
 
−
  With ChkRNG = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 76
 
−
    .X = 330
 
−
    .Y = 112
 
−
    .Text = "RNG"
 
−
  End With
 
−
  With TextLabel1 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 146
 
−
    .X = 63
 
−
    .Y = 7
 
−
    .Alignment = Align.Left
 
−
    .Text = "Port Name :"
 
−
  End With
 
−
  With TextLabel2 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 146
 
−
    .X = 63
 
−
    .Y = 35
 
−
    .Alignment = Align.Left
 
−
    .Text = "Speed :"
 
−
  End With
 
−
  With TextLabel3 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 146
 
−
    .X = 63
 
−
    .Y = 63
 
−
    .Alignment = Align.Left
 
−
    .Text = "Parity :"
 
−
  End With
 
−
  With TextLabel4 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 146
 
−
    .X = 63
 
−
    .Y = 91
 
−
    .Alignment = Align.Left
 
−
    .Text = "Data Bits :"
 
−
  End With
 
−
  With TextLabel5 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 146
 
−
    .X = 63
 
−
    .Y = 119
 
−
    .Alignment = Align.Left
 
−
    .Text = "Stop Bits :"
 
−
  End With
 
−
  With Label1 = New Label(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 77
 
−
    .Y = 175
 
−
    .Alignment = Align.Left
 
−
    .Text = "Flow control :"
 
−
  End With
 
−
  With TxtPort = New TextBox(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 7
 
−
    .Alignment = Align.Center
 
−
    .Text = "/dev/ttyUSB0"
 
−
  End With
 
−
  With CmbSpeed = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 35
 
−
    .List = ["1200", "2400", "4800", "9600", "19200", "38400", "57600", "112000"]
 
−
    .ReadOnly = True
 
−
  End With
 
−
  With CmbParity = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 63
 
−
    .List = ["None", "Even", "Odd"]
 
−
    .ReadOnly = True
 
−
    .Text = .List[0]
 
−
  End With
 
−
  With CmbData = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 91
 
−
    .List = ["8", "7", "6", "5"]
 
−
    .ReadOnly = True
 
−
    .Text = .List[0]
 
−
  End With
 
−
  With CmbStop = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 119
 
−
    .List = ["1", "2"]
 
−
    .ReadOnly = True
 
−
    .Text = .List[0]
 
−
  End With
 
−
  With Button1 = New Button(Me) As "Open"
 
−
    .H = 28
 
−
    .W = 105
 
−
    .X = 217
 
−
    .Y = 147
 
−
    .Text = "&Open"
 
−
    .Tooltip = "Apre la comunicazione"
 
−
  End With
 
−
  With ComboBox1 = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 140
 
−
    .X = 182
 
−
    .Y = 175
 
−
    .List = ["NONE", "CRTSCTS", "XON/XOFF", "CRTSCTS + XON/XOFF"]
 
−
    .ReadOnly = True
 
−
    .Text = .List[0]
 
−
  End With
 
−
  With Esci = New Button(Me) As "Esci"
 
−
    .H = 42
 
−
    .W = 42
 
−
    .X = 440
 
−
    .Y = 14
 
−
    .Picture = Picture["icon:/32/shutdown"]
 
−
    .Tooltip = "Esci"
 
−
  End With
 
−
  With Separator1 = New Separator(Me)
 
−
    .H = 14
 
−
    .W = Me.W
 
−
    .X = 0
 
−
    .Y = 202
 
−
  End With
 
−
  With CicloCheck = New CheckBox(Me)
 
−
    .H = 21
 
−
    .W = 21
 
−
    .X = 35
 
−
    .Y = 224
 
−
    .Tooltip = "Invia in maniera ciclica"
 
−
  End With
 
−
  With SERIALE = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 28
 
−
    .X = 63
 
−
    .Y = 217
 
−
    .Background = Color.Red
 
−
    .Border = Border.Plain
 
−
  End With
 
−
  With Label3 = New Label(Me)
 
−
    .H = 28
 
−
    .W = 49
 
−
    .X = 105
 
−
    .Y = 217
 
−
    .Text = "CICLO"
 
−
  End With
 
−
  With CheckBox1 = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 168
 
−
    .X = 182
 
−
    .Y = 217
 
−
    .Text = "LETTURA SERIALE"
 
−
    .Tooltip = "Attiva il monitoraggio della seriale"
 
−
    .Value = True
 
−
  End With
 
−
  With TEMPO = New TextBox(Me)
 
−
    .H = 28
 
−
    .W = 140
 
−
    .X = 63
 
−
    .Y = 245
 
−
    .Text = "50"
 
−
    .Tooltip = "Durata del ciclo X5"
 
−
  End With
 
−
  With Label2 = New Label(Me)
 
−
    .H = 28
 
−
    .W = 91
 
−
    .X = 210
 
−
    .Y = 245
 
−
    .Text = "TEMPO ms X 5"
 
−
  End With
 
−
  With TxtSend = New TextBox(Me)
 
−
    .H = 28
 
−
    .W = 140
 
−
    .X = 63
 
−
    .Y = 273
 
−
    .Text = "Comando da inviare"
 
−
  End With
 
−
  With TextLabel6 = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 70
 
−
    .X = 210
 
−
    .Y = 273
 
−
    .Alignment = Align.Left
 
−
    .Text = "COMANDO"
 
−
  End With
 
−
  With RUN_COUNT = New TextLabel(Me)
 
−
    .H = 28
 
−
    .W = 77
 
−
    .X = 287
 
−
    .Y = 273
 
−
    .Alignment = Align.Right
 
−
    .Background = &3F3FFF
 
−
    .Text = "0"
 
−
    .Tooltip = "Numero di comandi inviati, viene azzerato ad ogni invio manuale, per una statistica usare l'invio ciclico"
 
−
   End With
 
−
  With RUN = New Button(Me)
 
−
    .H = 28
 
−
    .W = 70
 
−
    .X = 372
 
−
    .Y = 273
 
−
    .AutoResize = True
 
−
    .Text = "RUN"
 
−
    .Tooltip = "Invia il comando"
 
−
  End With
 
−
  With TextArea1 = New TextArea(Me)
 
−
    .H = 174
 
−
    .W = 482
 
−
    .X = 7
 
−
    .Y = 308
 
−
    .Background = &FFFF9F
 
−
    .Tooltip = "Monitor dei dati ricevuti dalla seriale"
 
−
  End With
 
−
  With COMPARA_BOX = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 84
 
−
    .X = 14
 
−
    .Y = 490
 
−
    .Text = "COMPARA"
 
−
    .Tooltip = "Esegui la comparazione del dato ricevuto"
 
−
  End With
 
−
  With VALORE_COMPARA = New TextBox(Me)
 
−
    .H = 28
 
−
    .W = 70
 
−
    .X = 105
 
−
    .Y = 490
 
−
    .Tooltip = "Dato da usare per la comparazione"
 
−
  End With
 
−
  With NUMERO_CARATTERI = New ComboBox(Me)
 
−
    .H = 28
 
−
    .W = 42
 
−
    .X = 182
 
−
    .Y = 490
 
−
    .List = ["1", "2", "3", "4", "5", "6", "7", "8"]
 
−
    .Text = "0"
 
−
    .Tooltip = "Numero di caratteri ricevuti da analizzare nella comparazione partendo dalla fine della stringa"
 
−
  End With
 
−
  With Separator2 = New Separator(Me)
 
−
    .H = 70
 
−
    .W = 28
 
−
    .X = 238
 
−
    .Y = 483
 
−
  End With
 
−
  With RISPONDI = New CheckBox(Me)
 
−
    .H = 28
 
−
    .W = 90
 
−
    .X = 322
 
−
    .Y = 490
 
−
    .Text = "RISPONDI"
 
−
    .Tooltip = "Invia una risposta se il dato di comparazione viene soddisfatto"
 
−
  End With
 
−
  With RISPOSTA = New TextBox(Me)
 
−
    .H = 28
 
−
    .W = 70
 
−
    .X = 413
 
−
    .Y = 490
 
−
    .Tooltip = "dato inviato come risposta"
 
−
  End With
 
−
  With Label4 = New Label(Me)
 
−
    .H = 21
 
−
    .W = 106
 
−
    .X = 14
 
−
    .Y = 525
 
−
    .Background = &FFDF7F
 
−
    .Text = "COMPARAZ. OK"
 
−
  End With
 
−
  With COMP_OK = New TextLabel(Me)
 
−
    .H = 21
 
−
    .W = 56
 
−
    .X = 119
 
−
    .Y = 525
 
−
    .Alignment = Align.Right
 
−
    .Background = &FF8000
 
−
    .Text = "0"
 
−
    .Tooltip = "Numero di comparazioni corrette, viene azzerato ad ogni invio manuale, per una statistica usare l'invio ciclico"
 
−
  End With
 
−
  With RISPOSTE_OK = New Label(Me)
 
−
    .H = 21
 
−
    .W = 105
 
−
    .X = 322
 
−
    .Y = 525
 
−
    .Background = &FFDF7F
 
−
    .Text = "RISPOSTE OK"
 
−
  End With
 
−
  With RISP_OK = New TextLabel(Me)
 
−
    .H = 21
 
−
    .W = 56
 
−
    .X = 427
 
−
    .Y = 525
 
−
    .Alignment = Align.Right
 
−
    .Background = &FF8000
 
−
    .Text = "0"
 
−
    .Tooltip = "Numero di risposte inviate"
 
−
  End With
 
−
 
−
'''End'''
 
−
 
−
'''Public''' Sub Form_Close()
 
−
  If Sport.Status = Net.Active Then Close Sport
 
−
'''End'''
 
−
 
−
'''Private''' Sub Check_Status()
 
−
  ChkDSR.Value = Sport.DSR
 
−
  ChkDTR.Value = Sport.DTR
 
−
  ChkCTS.Value = Sport.CTS
 
−
  ChkRTS.Value = Sport.RTS
 
−
  ChkDCD.Value = Sport.DCD
 
−
  ChkRNG.Value = Sport.RNG
 
−
'''End''
 
−
 
−
 
−
Private HACK As String
 
−
Private SC As Integer  <FONT Color=gray>' ''Controllo stabilità connessione''</font>
 
−
Private RC As Integer  <FONT Color=gray>' ''Conteggio invii RUN''</font>
 
−
Private NC As Integer  <FONT Color=gray>' ''Numero caratteri da comparare (da fine stringa)''</font>
 
−
 
−
'''Public''' Sub Open_Click()
 
−
  If Sport.Status = Net.Active Then
 
−
    Close Sport
 
−
    Button1.Text = "&Open"
 
−
  Else
 
−
<FONT Color=gray>' ''Parametri:''</font>
 
−
    Sport.PortName = TxtPort.Text
 
−
    Sport.Speed = CmbSpeed.Text
 
−
    Sport.Parity = CmbParity.Index
 
−
    Sport.DataBits = CmbData.Text
 
−
    Sport.StopBits = CmbStop.Text
 
−
    Sport.FlowControl = ComboBox1.Index
 
−
    Sport.Open()
 
−
    Check_Status()
 
−
    TextArea1.Text = "Port Opened : " & Sport.PortName & " Settings : " &
 
−
                    Sport.Speed & "," & Sport.Parity & "," & Sport.DataBits & "," &
 
−
                    Sport.StopBits & Chr(13) & Chr(10)
 
−
    Button1.Text = "&Close"
 
−
    RC = 0
 
−
    SC = 0
 
−
    RUN_COUNT.Text = "0"
 
−
    COMP_OK.Text = "0"
 
−
    RISP_OK.Text = "0"
 
−
  Endif
 
−
  Catch
 
−
    Message.Info("Errore apertura seriale , verificare porta")
 
−
'''End'''
 
−
 
−
'''Public''' Sub SPort_Read()
 
−
 
−
  Dim s As String
 
−
 
 
−
  Read #Sport, s, Lof(Sport)
 
−
  If CheckBox1.Value = True Then TextArea1.Text = TextArea1.Text & s
 
−
    
 
−
<FONT Color=gray>'***************************************** ANALISI STRINGA ***************************************</font>
 
−
 
−
<FONT Color=gray>' COMPARAZIONE</font>
 
−
  If COMPARA_BOX.Value = True Then
 
−
    NC = NUMERO_CARATTERI.Text
 
−
    If Right$(TextArea1.Text, (NC)) = VALORE_COMPARA.Text Then
 
−
      SC = SC + 1
 
−
      COMP_OK.Text = SC
 
−
      If COMP_OK.Text = 300 Then TextArea1.Text = ""
 
−
    Endif
 
−
  Endif
 
−
 
−
<FONT Color=gray>' RISPOSTA</font>
 
−
  If RISPONDI.Value = True Then
 
−
    NC = NUMERO_CARATTERI.Text
 
−
    If Right$(TextArea1.Text, (NC)) = VALORE_COMPARA.Text Then
 
−
      Print #Sport, RISPOSTA.Text;
 
−
      SC = SC + 1
 
−
      RISP_OK.Text = SC
 
−
      If RISP_OK.Text = 300 Then TextArea1.Text = ""
 
−
    Endif
 
−
  Endif
 
−
 
−
'''End'''
 
−
 
−
'''Public''' Sub RUN_Click()
 
−
 
−
  Dim T As Integer
 
−
 
−
  If CicloCheck.Value Then
 
−
    If RUN.Text = "RUN" Then
 
−
      RUN.Text = "STOP"
 
−
    Else
 
−
      RUN.Text = "RUN"
 
−
    Endif
 
−
  Endif
 
−
  RC = 0
 
−
  SC = 0
 
−
  T = TEMPO.Text
 
−
  If CicloCheck.Value = True Then
 
−
    Timer1.Delay = TEMPO.Text
 
−
    If Timer1.Enabled Then
 
−
      Timer1.Enabled = False
 
−
    Else
 
−
      Timer1.Enabled = True
 
−
    Endif
 
−
  Else
 
−
    Print #Sport, TxtSend.Text;
 
−
  Endif
 
−
  Catch
 
−
    Message("Apri la porta!")
 
−
 
−
'''End'''
 
−
 
−
'''Public''' Sub ChkDTR_Click()
 
−
  Sport.DTR = ChkDTR.Value
 
−
  Check_Status
 
−
'''End'''
 
−
 
−
'''Public''' Sub ChkRTS_Click()
 
−
  Sport.RTS = ChkRTS.Value
 
−
  Check_Status
 
−
'''End'''
 
−
 
−
'''Public''' Sub ComboBox1_Click()
 
−
  Sport.FlowControl = ComboBox1.Index
 
−
'''End'''
 
−
 
−
'''Public''' Sub Form_Open()
 
−
  cmbSpeed.Index = cmbSpeed.Find("9600")
 
−
'''End'''
 
−
 
−
 
−
Private  C As Integer
 
−
Private IND As Integer
 
−
 
−
'''Public''' Sub Timer1_Timer()
 
−
 
−
  If Sport.Status = Net.Inactive Then
 
−
    Message("Apri la porta!")
 
−
    RUN.Text = "RUN"
 
−
    Timer1.Enabled = False
 
−
  Else
 
−
    If IND < 33 Then IND = 33
 
−
    If C = 5 Then
 
−
      If IND = 62 Then
 
−
        IND = 33
 
−
        TextArea1.Clear
 
−
      Else
 
−
        IND = IND + 1
 
−
      Endif
 
−
      Print #Sport, TxtSend.Text;
 
−
      C = 0
 
−
      RC = RC + 1
 
−
      RUN_COUNT.Text = RC
 
−
    Else
 
−
      C = C + 1
 
−
    Endif
 
−
    SERIALE.Text = C
 
−
  Endif
 
−
 
−
'''End'''
 
−
 
−
'''Public''' Sub Esci_Click()
 
−
  If Button1.Text = "&Close" Then Open_Click
 
−
  Me.Close
 
−
'''End'''
 
  
  
Riga 667: Riga 105:
 
[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"
 
[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"
  
−
[3] Il codice è stato realizzato dal utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=576 astragalo]'' ".
+
[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]'' ".
  
  

Versione attuale delle 09:01, 4 dic 2023

Possiamo accedere alle Porte Seriali [nota 1] 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 " [nota 2].
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()

' Se il file non possiede i più ampi permessi...
 If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
' ...allora modificheremo in quel senso i permessi del file:
   Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
' Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:
   Repeat
     Wait 0.01
   Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"
 Endif

' 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

' ...o ancor più facilmente:
 Shell "echo MIA_PASSWORD | sudo -S 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


Lettura mediante la Classe SerialPort

La lettura della Porta Seriale portà avvenire anche mediante l'uso della Classe "SerialPort" attivando il componente gb.net. 

Private SerialPort1 As SerialPort


Public Sub Button1_Click()

 SerialPort1 = New SerialPort As "portaseriale"

' Facciamo in modo da poter inserire la password di root per impostare il setUID e consentire l'apertura del file protetto:
 Shell "echo 'MIA_PASSWORD' | 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

' Legge i dati dalla porta....
 Read #SerialPort1, s, Lof(SerialPort1)

' ...e li mostra in console:
 Print s

End


Public Sub Form_Close()

 If SerialPort1.Status = Net.Active Then SerialPort1.Close

End

Altri codici esemplificativi

Gli utenti iscritti al Forum www.gambas-it.org possono scaricare anche altri due programmi ben più complessi:


Note

[1] Vedere anche questa pagina: Approfondimento sull'accesso alle porte USB

[2] In tali altri casi il file-device creato può essere: "/dev/ttyACM0"

[3] Il codice è stato realizzato dall'utente "kicco "

[4] Il codice è stato realizzato dall'utente "astragalo ".


Approfondimenti in internet

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Accesso_alle_Porte_Seriali&oldid=35638"