السلام عليكم
ارجو مساعدتي في ربط جهازين عبر rs232 باستخدام MScomm
في الاساس الجهازين يتصلان ببعضهما مباشرة عبر rs232 من دزن كزمبيوتر لكني اريدهما ان يقومان بالاتصال بينهم باستخدام الكومبيوتر
اي : (( اوصل الجهاز الاول في port 1 والجهاذ الثاني في port 2 قيقوم البرنامج بربط الجهازين كانها موصولة مباشرة ببعضها فيؤسل الاوامر من port1 الى port2 وبالعكس ))
لقد قمت بعمل تجربة بسيطة لكن للاسف لم تنجح
هذا هو السورس كود :
Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "115200,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
With MSComm2
.CommPort = 2
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "115200,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
MSComm2.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim int2 As String
int2 = MSComm1.Input
MSComm1.Output = int2
End Sub
Private Sub MSComm2_OnComm()
Dim int1 As String
int1 = MSComm2.Input
MSComm2.Output = int1
End Sub