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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

أما بعد السلام

عندي سؤال عن التحكم بمخرجات السريال وإعادة تحويلها
المشروع عبار عن ارسال أوامر مشفره عبر السيريال
عن طريق السريال بورت رقم 1
يقوم بارسالها واستقبال الكود بتشفير مختلف
ومن ثم تخزينها
ما اريده هو بدلا من تخزين تلك البيانات اريد ارسالها عن طريق
السريال بورت رقم 2

*تم الحل*

الكود المستخدم

كود :

'''serialport2 = sp2 

Private Sub ReceivedText(ByVal [data] As String) 

        If Me.Label1.InvokeRequired Then

            Dim x As New SetTextCallback(AddressOf ReceivedText)

            Me.Invoke(x, New Object() {(data)})

        Else

            Me.Label1.Text = [text] 'to take data from serialport1 to label1

            SP2.Write(Label1.Text) 'for take data from label1 to serialport2

        End If

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

mohamedallams

mohamedallams