تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار كيف ارسال ascii SerialPort1
#1
السلام عليكم ورحمة الله

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

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

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

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

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

?A\r

   

افيدوني بارك الله فيكم
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
اخي الكريم اعرض الكود لنراه وهل حاولت ونتج اخطاء
الرد
تم الشكر بواسطة: dubai.eig
#3
(26-04-20, 11:33 PM)aljzazy كتب : اخي الكريم اعرض الكود لنراه وهل حاولت ونتج اخطاء

هذا الكود

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

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

PHP كود :
  Private Sub Button2_Click(sender As System.ObjectAs System.EventArgsHandles Button2.Click

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

        SerialPort1.Write(arr10arr1.Length)



 
   End Sub 


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

بخصاية ال ASCII

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


PHP كود :
Private Sub SerialPort1_DataReceived(sender As System.ObjectAs System.IO.Ports.SerialDataReceivedEventArgsHandles SerialPort1.DataReceived
        Dim bytes 
As Integer SerialPort1.BytesToRead
        Dim comBuffer
(bytes 1) As Byte
        SerialPort1
.Read(comBuffer0bytes)
 
       str ByteToHex(comBuffer) & vbLf
        MsgBox
(str)
 
   End Sub 


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

بارك الله فيكم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم