24-07-17, 12:45 PM
rs232
السلام عليكم اخواني عملت برنامج بالاكسيس يرتبط البرنامج بجهاز خارجي من خلال الكوم بورت
بعد تشغيل البرنامج الداتا تنقل الى البرنامج غير انها تكون مشفرة علما ان الكود امكتوب في الفورم الرئيسي هو كالتالي فاين المشكلة وبارك الله فيكم
If MSComm0.PortOpen Then MSComm0.PortOpen = False
MSComm0.Settings = "1200,N,8,1"
MSComm0.PortOpen = True
MSComm0.InputLen = 0
MSComm0.RThreshold = 1
End Sub
Private Sub MSComm0_OnComm()
Dim Buffer As String
If MSComm0.CommEvent = 2 Then
Buffer = Buffer & MSComm0.Input & Chr(10)
text1.Text = Buffer
End If
mscommm0 هي6 microsoft comm control من ضمن مكتبة mscomm32.ocx
السلام عليكم اخواني عملت برنامج بالاكسيس يرتبط البرنامج بجهاز خارجي من خلال الكوم بورت
بعد تشغيل البرنامج الداتا تنقل الى البرنامج غير انها تكون مشفرة علما ان الكود امكتوب في الفورم الرئيسي هو كالتالي فاين المشكلة وبارك الله فيكم
If MSComm0.PortOpen Then MSComm0.PortOpen = False
MSComm0.Settings = "1200,N,8,1"
MSComm0.PortOpen = True
MSComm0.InputLen = 0
MSComm0.RThreshold = 1
End Sub
Private Sub MSComm0_OnComm()
Dim Buffer As String
If MSComm0.CommEvent = 2 Then
Buffer = Buffer & MSComm0.Input & Chr(10)
text1.Text = Buffer
End If
mscommm0 هي6 microsoft comm control من ضمن مكتبة mscomm32.ocx