rs232 الربط بالاكسيس من خلال

[aksaazza]

السلام عليكم اخواني عملت برنامج بالاكسيس يرتبط البرنامج بجهاز خارجي من خلال الكوم بورت rs232 بعد تشغيل البرنامج الداتا تنقل الى البرنامج غير انها تكون مشفرة علما ان الكود امكتوب في الفورم الرئيسي هو كالتالي فاين المشكلة وبارك الله فيكم
If MSComm0.PortOpen Then MSComm0.PortOpen = False
MSComm0.Settings = "9600,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

 

تم تعديل يوليو 24, 2017 بواسطه aksaazza