تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشکلة في إرسال serial port
#1
السلام عليكم
عندي مشكلة في إستخدام السيريل بورت 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()
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم