[dubai.eig]

(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 


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

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