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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  Data type mismatch in criteria expression. ahmedgamal 4 156 18-09-17, 05:18 AM
آخر رد: ahmedgamal
  السيريال نامبر(serial number) للقرص الصلب (hard disk) مبرمج مصرى 10 380 28-06-17, 11:45 AM
آخر رد: sendbad100
  نصيحة ....اريد ان استاجر server ارفع عليه ال Data base khaled12345 6 219 08-06-17, 04:24 AM
آخر رد: khaled12345
  [سؤال] Data type mismatch in criteria alma_fandi 4 138 12-05-17, 04:28 AM
آخر رد: alma_fandi
  [VB.NET] مشكلة بسيطة في الداتا تايب data type أتمنى المساعدة asadtaif 2 202 19-03-17, 05:37 PM
آخر رد: thevirus
  A Problem that i can't fix salahmax12 1 187 07-03-17, 01:59 AM
آخر رد: محمد كريّم
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 267 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 293 11-01-17, 02:13 AM
آخر رد: مساعدة
Wink data of file ddemed 5 349 22-12-16, 09:25 PM
آخر رد: silverlight
  حفظ اعدادات serial port بعد اغلاق الفورم فى vb net riad21 8 663 19-10-16, 06:17 PM
آخر رد: silverlight

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


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