السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
اذا امكن تحويل هذا الكود البرمجي المعمول VB6 الى VBA 2003 مع فائق الشكر والاحترام
وهذا هو الكود بالفيجوال بيسك6 في المرفقات
Private Sub Command1_Click()MSComm1.PortOpen = False
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim c As Variant
If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
MSComm1.InputLen = 8
c = MSComm1.Input
Label1.Caption = c
'Text1.Text = Label1
MSComm1.InBufferCount = 0
End If
End If
End Sub