[ahmedabdelaliem]

السلام عليكم

اخي جرب الكود هكذا 

انا وضعت رقم ثابت في المتغير C

ولم يتغير الرقم 
المهم جرب وضع تايمر للقراءة

PHP كود :

Private Sub Timer2_Timer()
On Error Resume Next
Dim c As Variant
Dim n As Integer
'If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
MSComm1.InputLen = 1
'Do While MSComm1.Input = "0"
MSComm1.InputLen = 8
c = MSComm1.Input
c1 = ""
For i = 1 To Len(c)
cut = Mid(c, i, 1)
If (IsNumeric(cut)) Or (cut = ".") Then
c1 = c1 & cut
End If
Next i
Label5.Caption = Val(c1)
Timer2.Enabled = False

End If

End Sub 


بالتوفيق

---

الرجاء في حال استمرار المشكلة عمل فيديو لصعود الشاحنة وقراءة البرنامج للبيانات ورفعه

بالتوفيق