Differenze tra le versioni di "Accesso alle Porte Seriali"

Da Gambas-it.org - Wikipedia.
Riga 97: Riga 97:
 
  '''End'''
 
  '''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.
+
====Altri codici esemplificativi====
−
Private SPort As SerialPort
+
E' possibile scaricare anche altri due programmi ben più complessi:
−
Private Timer1 As Timer
+
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5570   <SUP>&#091;[[#Note|nota 3]]&#093;</sup>
−
Private ChkDTR As CheckBox
+
* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5575   <SUP>&#091;[[#Note|nota 4]]&#093;</sup>
−
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
 
−
 
−
 
−
'''Public''' Sub _new()
 
−
 
 
−
  With Me
 
−
    .AutoResize = True
 
−
    .Expand = True
 
−
    .Center
 
−
    .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 109:
 
[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 dal utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=1089 kicco]'' "
 +
 
 +
[4] Il codice è stato realizzato dal utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=576 astragalo]'' ".
  
  

Versione delle 19:34, 2 dic 2021

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:
     Do
       Wait 0.01
     Loop 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

E' possibile 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 dal utente "kicco "

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


Approfondimenti in internet

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