20-10-16, 11:35 PM
السلام عليكم
عندي مشكلة في إستخدام السيريل بورت 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()
عندي مشكلة في إستخدام السيريل بورت 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()