Etape 11 : Enfin, les données sérielles vont nous permettre de faire notre part identification est nécessaire à l’heure.
Dim str As Stringstr = « 1 »
SerialPort1.Write(str)
Dim receiveddata As Integer = SerialPort1.ReadLine()
Label7.Text = receiveddata
Si receiveddata < 0 Then
ProgressBar1.Value = - receiveddata
D’autre
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)