Differenze tra le versioni di "Ricevere dati da Arduino"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Mostriamo un esempio pratico per ricevere dei dati da Arduino. E' necessario attivare il Componente ''gb.net'' . In particolare Arduino invierà un valore progressivamente in...")
 
Riga 30: Riga 30:
 
    
 
    
 
   With SerialPort1 = New SerialPort As "portaseriale"
 
   With SerialPort1 = New SerialPort As "portaseriale"
     .PortName = "/dev/ttyUSB0"                        <FONT Color=gray>' ''Questa porta seriale o quella corretta''</font>
+
     .PortName = "/dev/ttyUSB0"                        <FONT Color=gray>' ''Questa porta seriale o quella disponibile''</font>
 
     .Speed = 9600
 
     .Speed = 9600
 
     .Parity = 0
 
     .Parity = 0

Versione delle 09:59, 20 nov 2015

Mostriamo un esempio pratico per ricevere dei dati da Arduino. E' necessario attivare il Componente gb.net .

In particolare Arduino invierà un valore progressivamente incrementato con il ciclo previsto dal suo codice, che qui mostriamo:

int val;


void setup() {                
 
  Serial.begin(9600);
 
}


void loop() {

 Serial.write(val);   // Invia il valore contenuto nella variabile "val"
 
 delay(300);          // Resta in attesa per ms 300
 
 ++val;               // Incrementa il valore contenuto nella variabile "val"

}


Il codice presente nell'applicativo Gambas sarà invece il seguente:

Private SerialPort1 As SerialPort


Public Sub Button1_Click()
 
  With SerialPort1 = New SerialPort As "portaseriale"
    .PortName = "/dev/ttyUSB0"                         ' Questa porta seriale o quella disponibile
    .Speed = 9600
    .Parity = 0
    .DataBits = 8
    .StopBits = 1
    .FlowControl = 0
    .Open
  End With
  
End


Public Sub portaseriale_Read()
 
 Dim b As Byte
 
  Read #SerialPort1, b
 
  ValueBox1.Value = b
 
End


Public Sub Form_Close()

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

End