(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 


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

وشكرا

(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 


(24-06-23, 11:34 AM)dubai.eig كتب : شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

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

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


الي
string
G228494

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

(24-06-23, 07:05 PM)سعود كتب : ماذا عن الدالتين التاليتين؟:

PHP كود :

Private Function UnicodeStringToBytes(
    ByVal str As String) As Byte()

        Return System.Text.Encoding.Unicode.GetBytes(str)
    End Function

    Private Function UnicodeBytesToString(
    ByVal bytes() As Byte) As String

        Return System.Text.Encoding.Unicode.GetString(bytes)
    End Function 


(24-06-23, 07:15 PM)joly كتب :

(24-06-23, 11:34 AM)dubai.eig كتب : شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

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

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


الي
string
G228494

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

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 


بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34"
Dim a As New System.Text.StringBuilder
For Each p As String In b.Split(" ")
    a.Append(Chr(Convert.ToInt32(p, 16)))
Next
Dim s = a.ToString
MsgBox(s) 


(24-06-23, 08:11 PM)joly كتب : نفذ هذا الكود لحفظ الرد من الكمبيوتر كما هو في ملف ثم ارفق الملف file.txt لان الحل يعتمد على الرد الصحيح

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 


(24-06-23, 08:22 PM)dubai.eig كتب :

(24-06-23, 07:15 PM)joly كتب :

(24-06-23, 11:34 AM)dubai.eig كتب : شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

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

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


الي
string
G228494

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

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 


بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34"
Dim a As New System.Text.StringBuilder
For Each p As String In b.Split(" ")
    a.Append(Chr(Convert.ToInt32(p, 16)))
Next
Dim s = a.ToString
MsgBox(s) 


شكرا لك عزيزي

الحمدالله ضبط معاي


قمت بتغيير الكود التالي

كود :

       If inPort = "" Then Exit Sub
       For i = 0 To 2
           txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + 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

بهذا الكود

كود :

       Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")

        ''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 


        getvin1 = After(inPort, "0:")

        getvin2 = After(inPort, "1:")

        getvin3 = After(inPort, "2:")

        vin1 = getvin1.Substring(9, 10).Trim

        vin2 = getvin2.Substring(0, 22).Trim

        vin3 = getvin3.Substring(0, 22).Trim

        Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3
        Dim a As New System.Text.StringBuilder
        For Each p As String In b.Split(" ")
            a.Append(Chr(Convert.ToInt32(p, 16)))
        Next



        Dim s = a.ToString
        MsgBox(s)

واشتغل معاي وطلع الرقم كامل 

ولكن عند الغاء تفعيل 

كود :

On Error Resume Next

يطلع لي مسج غلط



ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله 

اشكرك شكرا على وقتك ومجهودك 

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا


شكرا

(24-06-23, 08:29 PM)joly كتب :

(24-06-23, 08:22 PM)dubai.eig كتب :

(24-06-23, 07:15 PM)joly كتب :

(24-06-23, 11:34 AM)dubai.eig كتب : شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

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

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


الي
string
G228494

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

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 


بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34"
Dim a As New System.Text.StringBuilder
For Each p As String In b.Split(" ")
    a.Append(Chr(Convert.ToInt32(p, 16)))
Next
Dim s = a.ToString
MsgBox(s) 


شكرا لك عزيزي

الحمدالله ضبط معاي


قمت بتغيير الكود التالي

كود :

       If inPort = "" Then Exit Sub
       For i = 0 To 2
           txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + 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

بهذا الكود

كود :

       Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")

        ''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 


        getvin1 = After(inPort, "0:")

        getvin2 = After(inPort, "1:")

        getvin3 = After(inPort, "2:")

        vin1 = getvin1.Substring(9, 10).Trim

        vin2 = getvin2.Substring(0, 22).Trim

        vin3 = getvin3.Substring(0, 22).Trim

        Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3
        Dim a As New System.Text.StringBuilder
        For Each p As String In b.Split(" ")
            a.Append(Chr(Convert.ToInt32(p, 16)))
        Next



        Dim s = a.ToString
        MsgBox(s)

واشتغل معاي وطلع الرقم كامل 

ولكن عند الغاء تفعيل 

كود :

On Error Resume Next

يطلع لي مسج غلط



ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله 

اشكرك شكرا على وقتك ومجهودك 

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا


شكرا

اذا كنت تعتمد هذا المشروع في العمل (في الوظيفة)
فاحذر من من استخدام On Error Resume Next
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق

(24-06-23, 08:35 PM)dubai.eig كتب :

(24-06-23, 08:29 PM)joly كتب :

(24-06-23, 08:22 PM)dubai.eig كتب :

(24-06-23, 07:15 PM)joly كتب :

(24-06-23, 11:34 AM)dubai.eig كتب : شكرا لك
ولكن لازالت الارقام ناقصه

المفروض
3GTN99EF0KG228494

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

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


الي
string
G228494

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

انا طلع عندي 3GTN99EF0KG228494
لكن يمكن النص غير مطابق مع النص الحقيقي عندك
نفذ هذا الكود لحفظ الرد كما هو في ملف ثم ارفق الملف file.txt

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    sp1.Write("0902" & vbCr)
    Dim r = sp1.ReadTo(">")
    IO.File.WriteAllText("file.txt", r)
End Sub 


بالنسبه للسؤال الثاني
هذا كود التحويل على اساس string وطلع عندي G228494

PHP كود :

Dim b = "47 32 32 38 34 39 34"
Dim a As New System.Text.StringBuilder
For Each p As String In b.Split(" ")
    a.Append(Chr(Convert.ToInt32(p, 16)))
Next
Dim s = a.ToString
MsgBox(s) 


شكرا لك عزيزي

الحمدالله ضبط معاي


قمت بتغيير الكود التالي

كود :

       If inPort = "" Then Exit Sub
       For i = 0 To 2
           txt &= ChrW(Convert.ToInt32(Mid(inPort, 30 + 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

بهذا الكود

كود :

       Dim abData() As Byte
        Dim Str As String

        Dim txt As String = ""
        sp1.Write("0902" & vbCr)
        inPort = sp1.ReadTo(">")

        ''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 


        getvin1 = After(inPort, "0:")

        getvin2 = After(inPort, "1:")

        getvin3 = After(inPort, "2:")

        vin1 = getvin1.Substring(9, 10).Trim

        vin2 = getvin2.Substring(0, 22).Trim

        vin3 = getvin3.Substring(0, 22).Trim

        Dim b = vin1 & Space(8) & vin2 & Space(8) & vin3
        Dim a As New System.Text.StringBuilder
        For Each p As String In b.Split(" ")
            a.Append(Chr(Convert.ToInt32(p, 16)))
        Next



        Dim s = a.ToString
        MsgBox(s)

واشتغل معاي وطلع الرقم كامل 

ولكن عند الغاء تفعيل 

كود :

On Error Resume Next

يطلع لي مسج غلط



ولكن مع تفعيل

كود :

On Error Resume Next

لا يوجد اي غلط ويطلع معاي الرقم الحمدالله 

اشكرك شكرا على وقتك ومجهودك 

الان احاول اشتغل على الكتابه في حالت اريد تغيير رقم الشاصي الى رقم ثاني واذا واجهتني اي مشكله ساكتبها هنا


شكرا

اذا كنت تعتمد هذا المشروع في العمل (في الوظيفة)
فاحذر من من استخدام On Error Resume Next
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق

كلامك صحيح

ولكن لماذا طلع لي هذا الغلط

PHP كود :

System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: startIndex' 


out of range

هل احتاج اغير شي او ازيد في رقم معين