[aksaazza]

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