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

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

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

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

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

PHP كود :

 SerialPort1.Write("?A\r") 

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

?A\r

[attachment=24567]

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

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

(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 

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

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

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

dubai.eig

aljzazy

dubai.eig