منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار كيف ارسال ascii SerialPort1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار كيف ارسال ascii SerialPort1 (/showthread.php?tid=34474)

استفسار كيف ارسال ascii SerialPort1 - dubai.eig - 26-04-20

السلام عليكم ورحمة الله

اريد ارسال رمز عن طريق SerialPort1  بخاصيه ascii  

واستقبال الرد عن طريق خاصيه HEX

حاولت عدة طرق بس ما فاد

PHP كود :
 SerialPort1.Write("?A\r") 

الرمز الي اريد ارسله هو

?A\r

[attachment=24567]

افيدوني بارك الله فيكم

RE: استفسار كيف ارسال ascii SerialPort1 - aljzazy - 26-04-20

اخي الكريم اعرض الكود لنراه وهل حاولت ونتج اخطاء

RE: استفسار كيف ارسال ascii SerialPort1 - dubai.eig - 27-04-20

(26-04-20, 11:33 PM)aljzazy كتب : اخي الكريم اعرض الكود لنراه وهل حاولت ونتج اخطاء

هذا الكود

بعد ما اقوم بالاتصال ب SerialPort1

هنا امر ارسال الكود

PHP كود :
  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

  Dim arr1 As Byte() = System.Text.Encoding.ASCII.GetBytes("?A\r")

        SerialPort1.Write(arr1, 0, arr1.Length)



    End Sub 


اريد ارسل هذه الكلمه 
كود :
?A\r

بخصاية ال ASCII

ومن ثم احصل رد من SerialPort1


PHP كود :
Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Dim bytes As Integer = SerialPort1.BytesToRead
        Dim comBuffer(bytes - 1) As Byte
        SerialPort1.Read(comBuffer, 0, bytes)
        str = ByteToHex(comBuffer) & vbLf
        MsgBox(str)
    End Sub 


ولاكن ما يرسل الكود وما احصل الرد

بارك الله فيكم