[dubai.eig]

شكرا لك

ولكن

(24-06-23, 04:14 AM)joly كتب :

(24-06-23, 12:54 AM)dubai.eig كتب : السلام عليكم

لديه مشروع قراءة وتعديل رقم شاصي السيارات

الكود عندي يرسل رمز لكمبيوتر السياره " 0902 " 
ومن ثم يكون الرد من الكمبيوتر ما هو رقم الشاصي

الرد  يكون bytes 

0902
014 
0: 49 02 01 33 47 54 
1: 4E 39 39 45 46 30 4B  
2: 47 32 32 38 34 39 34  

واذا اغير من 
bytes 
الي
string 

يطلغ لي الرقم كامل
3GTN99EF0KG228494


ولكن مع الكود الموجود عندي يطلع فقط نص الارقام

N99EF0K

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click
        On Error Resume Next
        Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")
        If inPort = "" Then Exit Sub
        For i = 0 To 3
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 19 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 36 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 59 + i * 3, 2), 16))
        Next

        TextVID.Text = txt
        rtb()
    End Sub


   Private Sub rtb()
        buf = 0
        buf = rtb1.Text + inPort
        rtb1.Text = buf
    End Sub 


ان شاءالله احصل على حسل بارك الله فيكم 

وشكرا

تعديل

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click
        On Error Resume Next
        Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")
        If inPort = "" Then Exit Sub
        For i = 0 To 2
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 21 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 33 + i * 3, 2), 16))
        Next
        For i = 0 To 6
            txt &= ChrW(Convert.ToInt32(Mid(inPort, 58 + i * 3, 2), 16))
        Next

        TextVID.Text = txt
        rtb()
    End Sub


   Private Sub rtb()
        buf = 0
        buf = rtb1.Text + inPort
        rtb1.Text = buf
    End Sub 


شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

والي طلع بعد التعديل
N99EF0G22849

ولكن السؤال الان كيف احول الارقام
bytes
47 32 32 38 34 39 34


الي
string
G228494

اريد كود التحويل وشكرا