منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
عندي مشكلة في إستخدام السيريل بورت 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()