[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