[وادي العوضي]

استاذي الفاضل Taha Okla السلام عليكم ورحمة الله وبركاته
اولا شكرا جزيلا لسرعة الرد بارك الله فيك وجزاك الله خيرا
ثانيا الكود الموجود في التايمر زائد انا وضعته فيه وهو اصلا غير موجود في البرنامج لكني بعد ان يأست من ان اثبت القراءة في الشاشة السوداء
لجات الى وضع تايمر ووضع الكود داخله ارجو من حضرتك مسح التايمر مع الكود الموجود فيه وايجاد حل في الكود الموجود في اداة الاتصال

Private Sub MSComm1_OnComm()
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©
cut = Mid(c, i, 1)
If (IsNumeric(cut)) Or (cut = ".") Then
c1 = c1 & cut
End If
Next i
Label5.Caption = Val(c1)
'Loop
End If
End If
'MSComm1.InBufferCount = 0

End Sub