+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] * تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها (/showthread.php?tid=42319)
* تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها - mohamedallams - 30-08-22
أما بعد السلام
عندي سؤال عن التحكم بمخرجات السريال وإعادة تحويلها
المشروع عبار عن ارسال أوامر مشفره عبر السيريال
عن طريق السريال بورت رقم 1
يقوم بارسالها واستقبال الكود بتشفير مختلف
ومن ثم تخزينها
ما اريده هو بدلا من تخزين تلك البيانات اريد ارسالها عن طريق
السريال بورت رقم 2
المشروع عبار عن ارسال أوامر مشفره عبر السيريال
عن طريق السريال بورت رقم 1
يقوم بارسالها واستقبال الكود بتشفير مختلف
ومن ثم تخزينها
ما اريده هو بدلا من تخزين تلك البيانات اريد ارسالها عن طريق
السريال بورت رقم 2
RE: التحكم بمخرجات السريال بورت واعادة تحويلها - mohamedallams - 30-08-22
*تم الحل*
الكود المستخدم
كود :
'''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