+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم التحكم (http://vb4arb.com/vb/forumdisplay.php?fid=62)
+--- قسم : قسم ربط الكمبيوتر بالعالم الخارجي (http://vb4arb.com/vb/forumdisplay.php?fid=63)
+--- الموضوع : مشکلة في إرسال serial port (/showthread.php?tid=17732)
مشکلة في إرسال serial port - sdbalushi - 20-10-16
السلام عليكم
عندي مشكلة في إستخدام السيريل بورت serial port ، أريد أرسل رسالة نصية من جهاز الكمبيوتر إلى جهاز مودم ثم إلى مودم آخر يستلم الرسالة ثم إلى الكمبيوتر الآخر ، و لكن لما أرسل لما أرسل الرسالة يستلمها الجهاز الآخر ناقصة ، و كلما زاد حجم الرسالة لا يستلمها كاملة ، للعلم أنا أستخدم CTS /RTS زائد ال Handshake .
للتوضيح:
من: إلى:
كمبيوتر (أ) --------مودم 1------------------------------------------------------------مودم2---------كمبيوتر (ب)
الكود المستخدم هو التالي:
Dim send As String = textbox1.text
frmMain.SerialPort1.RtsEnable = True
frmMain.SerialPort1.Handshake = IO.Ports.Handshake.RequestToSend
frmMain.txtTransmit.Text = ""
frmMain.txtTransmit.Text = send
frmMain.SerialPort1.Write(frmMain.txtTransmit.Text & vbCr)
If frmMain.SerialPort1.DsrHolding = True Then
frmMain.dsr.BackColor = Color.Green
Else
frmMain.dsr.BackColor = Color.Red
End If
If frmMain.SerialPort1.CtsHolding = True Then frmMain.cts.BackColor = Color.Green Else frmMain.cts.BackColor = Color.Red
If frmMain.SerialPort1.CtsHolding = True Then frmMain.tx.BackColor = Color.Green Else frmMain.tx.BackColor = Color.Red
If frmMain.SerialPort1.CDHolding = True Then frmMain.dcd.BackColor = Color.Green Else frmMain.dcd.BackColor = Color.Red
If R = True Then frmMain.ri.BackColor = Color.Green Else frmMain.ri.BackColor = Color.Red
frmMain.Timer3.Start()
frmMain.Timer4.Start()