23-10-21, 04:52 AM
و عليكم السلام و رحمة الله و بركاته
أخي الكريم المفروض الخروج من الحلقة أو الاجراء عند تحقق الشرط
جرب تعديل الكود كالتالي
أخي الكريم المفروض الخروج من الحلقة أو الاجراء عند تحقق الشرط
جرب تعديل الكود كالتالي
كود :
Private Sub MSComm1_OnComm()
Dim c As Variant
If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
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
Label5.Caption = Val(c1)
Exit For
End If
Next i
End If
End If
'MSComm1.InBufferCount = 0
End Sub