Arduino en Visual Basic RF Over temperatuur vochtigheid meting (11 / 14 stap)

Stap 11: Tot slot de seriële data zal ons toelaten om ons deel doen identificatie is tijd nodig.

Dim str als Stringstr = "1"

SerialPort1.Write(str)

Dim receiveddata As Integer = SerialPort1.ReadLine()

Label7.Text = receiveddata

Als receiveddata < 0 Then

ProgressBar1.Value = - receiveddata

Anders

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)