1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Dim Tampon As String
Tampon = ""
Instant = Now
Do
TimeOut = DateDiff("s", Instant, Now)
Loop Until MSComm1.InBufferCount >= 50 Or TimeOut > 10
Lecture = MSComm1.Input:
If TimeOut > 10 Then
MsgBox "Problème de delai :" + Chr$(13) + _
" Vérifiez que l'indicateur est bien " & UCase(Proto) & _
" et bien branché", vbExclamation: End
End If
70:
i = i + 1
Stabilite = Mid$(Lecture, i, 1)
If i > Len(Lecture) Then GoTo 90:
If Stabilite <> "P" Then GoTo 70
valeur = Mid$(Lecture, i + 1, 6)
Poids = valeur
Poids = valeur: GoTo 90 'Stop
'********************* S T 3 *******************
90
Text1 = Val(Poids)
EcritDansFichierIni "Affichage", "Poids ", Text1, App.Path & "\Poids.ini" |
Partager