1
Programmazione (Gambas 2) / Re: Lettura dati da seriale Arduino
« il: 09 Dicembre 2014, 14:02:30 »
ok ci sono riuscito grazie mille
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
DHT.read11(dht_dpin);
if (readtoserial=='t'){
Serial.print("Umidità = ");
Serial.print(DHT.humidity);
Serial.print("% ");
Serial.print("temperatura = ");
Serial.print(DHT.temperature);
Serial.println("C ");
}
Public Sub Button1_Click()
Dim VarRandom As Integer
VarRandom = Rnd(0, 100)
TextBox1.Text = VarRandom
TextArea1.Text = TextArea1.Text & TextBox1.Text
Public Sub _new()
End
Public Sub Form_Open()
StatoBtnSeriale.Background = Color.Red
End
Public Sub AccendiBottone_Click()
If SerialPort1.Status == Net.Active
StatoBottone.Text = "ON"
StatoBottone.Background = Color.Green
Write #SerialPort1, "1"
Else
Message("porta seriale non abilitata")
Endif
End
Public Sub SpegniBottone_Click()
If SerialPort1.Status == Net.Active
StatoBottone.Text = "OFF"
StatoBottone.Background = Color.Red
Write #SerialPort1, "0"
Else
Message("porta seriale non abilitata")
Endif
End
Public Sub AvvioSeriale_Click()
If SerialPort1.Status == Net.Inactive
SerialPort1.Open
StatoBtnSeriale.Background = Color.Green
StatoBottone.Enabled = True
StatoBtnSeriale.text = "Enabled9600Baud"
Else
AvvioSeriale.Enabled = False
Endif
End
Public Sub SerialPort1_Read()
End
Public Sub StatoBtnSeriale_Click()
End
cannot open serialport (5)
Public Sub Form_Open()
StatoSeriale.Background = Color.Red
SerialPort1.Open
End
Public Sub AccendiBottone_Click()
StatoBottone.Text = "ON"
StatoBottone.Background = Color.Green
SerialPort1.Write = "1"
End
Public Sub SpegniBottone_Click()
StatoBottone.Text = "OFF"
StatoBottone.Background = Color.Red
SerialPort1.Write = "0"
End
Public Sub AvvioSeriale_Click()
StatoSeriale.Background = Color.Green
StatoBottone.Enabled = True
End