Arduino y medición de humedad de temperatura Visual Basic sobre RF (11 / 14 paso)

Paso 11: Por último, los datos en serie nos permite hacer nuestra parte identificación es necesaria a tiempo.

Dim str como Stringstr = "1"

SerialPort1.Write(str)

Dim receiveddata As Integer = SerialPort1.ReadLine()

Label7.Text = receiveddata

Si receiveddata < 0 entonces

ProgressBar1.Value = - receiveddata

Otra cosa

ProgressBar1.Value = receiveddata

End If

System.Threading.Thread.Sleep(500)

Dim receiveddata2 As Integer = SerialPort1.ReadLine()

Label8.Text = receiveddata2

ProgressBar2.Value = receiveddata2

System.Threading.Thread.Sleep(500)