Visualizza wikitesto di Inviare dati ad Arduino

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

In particolare il programma Gambas invierà ad Arduino dei valori mediante uno ''Slider'', il cui valore massimo è posto a 255 ed il minimo a zero. Arduino accenderà un diodo-led, posto sui piedini ''gnd'' ed 11, la cui intensità di luminescenza sarà determinata dal valore inviato mediante lo ''Slider'' da Gambas.


Il codice presente in Arduino sarà dunque il seguente:
 int led = 11;
 byte SerialIn;
 
 
 void setup() {                
  
  Serial.begin(57600);
  
 }
 
 
 void loop() {
   
   if (Serial.available() > 0) {
    
     SerialIn = Serial.read();       <FONT Color=gray>// Legge il valore ricevuta da Gambas</font>
     
     Serial.println(SerialIn, DEC);  <FONT Color=gray>// Scrive in rappresentazione decimale nel "monitor seriale" il valore ricevuto da Gambas</font>
     
     analogWrite(led, SerialIn);     <FONT Color=gray>// Assegna alla varibile "led", per modificare l'intensità di luminescenza del led, il valore ricevuto da Gambas</font>
     
   }  
   
 }


Il codice presente nell'applicativo Gambas sarà invece il seguente:
 Private SerialPort1 As SerialPort
 
 
 '''Public''' Sub Button1_Click()
   
   With Slider1
     .MinValue = 0
     .MaxValue = 255
   End With
   
   With SerialPort1 = New SerialPort
     .PortName = "/dev/ttyUSB0"        <FONT Color=gray>' ''Questa porta seriale o quella disponibile''</font>
     .Speed = 57600
     .Parity = 0
     .DataBits = 8
     .StopBits = 1
     .FlowControl = 0
     .Open
   End With
   
 '''End'''
 
 
 '''Public''' Sub Slider1_Change()
   
   Write #SerialPort1, CByte(Slider1.Value) As Byte
   
   ValueBox1.Value = Slider1.Value
    
 '''End'''
 
 
 '''Public''' Sub Form_Close()
 
   If SerialPort1.Status = Net.Active Then SerialPort1.Close
 
 '''End'''