منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] سوال حول convert bytes to string
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] سوال حول convert bytes to string
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#1
24-06-23, 12:54 AM
السلام عليكم

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

الكود عندي يرسل رمز لكمبيوتر السياره " 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 



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

وشكرا
البحث
الرد }}}
تم الشكر بواسطة:
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#2
24-06-23, 03:02 AM
وممكن حد يحل لي هذه المشكله

   

System.FormatException: 'Could not find any recognizable digits.'
البحث
الرد }}}
تم الشكر بواسطة:
joly غير متصل
عضو جديد
المشاركات : 7
المواضيع 0
الإنتساب : Jun 2023
السمعة : 0
الشكر: 3
تم شكره 5 مرات في 5 مشاركات
#3
24-06-23, 04:14 AM
(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 
البحث
الرد }}}
تم الشكر بواسطة: dubai.eig
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#4
24-06-23, 11:34 AM
شكرا لك

ولكن
(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

اريد كود التحويل وشكرا
البحث
الرد }}}
تم الشكر بواسطة: joly , joly
joly غير متصل
عضو جديد
المشاركات : 7
المواضيع 0
الإنتساب : Jun 2023
السمعة : 0
الشكر: 3
تم شكره 5 مرات في 5 مشاركات
#5
24-06-23, 07:15 PM (آخر تعديل لهذه المشاركة : 24-06-23, 07:50 PM {2} بواسطة 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) 
البحث
الرد }}}
تم الشكر بواسطة: dubai.eig
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#6
24-06-23, 08:06 PM
(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 

تسلم على الكود ولكن السؤال في الاستخدام هل ينفع يكون
UnicodeBytesToString(33 47 54)
؟


وشكرا لك
البحث
الرد }}}
تم الشكر بواسطة:
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#7
24-06-23, 08:22 PM (آخر تعديل لهذه المشاركة : 24-06-23, 08:25 PM {2} بواسطة 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: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 

هذا الي طلع

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 



.txt   file.txt (الحجم : 83 بايت / التحميلات : 8)
البحث
الرد }}}
تم الشكر بواسطة: joly
joly غير متصل
عضو جديد
المشاركات : 7
المواضيع 0
الإنتساب : Jun 2023
السمعة : 0
الشكر: 3
تم شكره 5 مرات في 5 مشاركات
#8
24-06-23, 08:29 PM
(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
لانها تمنع عنك معرفةالخطأ فتكون النتيجة خطأ وأنت لا تدري
فتقع في حرج مع رؤسائك

بالتوفيق
البحث
الرد }}}
تم الشكر بواسطة:
dubai.eig غير متصل
عضو نشيط
*
المشاركات : 538
المواضيع 183
الإنتساب : Mar 2016
السمعة : 20
الشكر: 639
تم شكره 265 مرات في 172 مشاركات
#9
24-06-23, 08:35 PM
(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

هل احتاج اغير شي او ازيد في رقم معين
البحث
الرد }}}
تم الشكر بواسطة:
joly غير متصل
عضو جديد
المشاركات : 7
المواضيع 0
الإنتساب : Jun 2023
السمعة : 0
الشكر: 3
تم شكره 5 مرات في 5 مشاركات
#10
24-06-23, 08:51 PM
(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

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

بعد تنفيذ كود قراءة الرد من الكمبيوتر في مشاركتي http://vb4arb.com/vb/showthread.php?tid=...#pid192887
أين ملف file.txt؟

ليكون الحل صحيحا
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التأكد من وجود أرقام فقط فى string heem1986 3 310 07-01-25, 01:37 AM
آخر رد: أبو خالد الشكري
  [SQL] سوال MOHAMMED ALZWI 2 302 05-09-24, 05:12 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] سوال على الحاسبة عفيف الاثوري 6 3,686 03-01-24, 04:24 PM
آخر رد: الخير19
  [VB.NET] سوال اريد عمل مشروع التخرج في الفجوال وsql server fadel775301@gmail.com 0 702 23-02-23, 01:53 AM
آخر رد: fadel775301@gmail.com
  سوال بخصوص ChartControl DOX.1 0 655 13-09-22, 06:56 PM
آخر رد: DOX.1
  Conversion from string "" to type 'Double' is not valid. حماده ممدوح البحيرى 13 2,206 22-07-22, 06:59 PM
آخر رد: أبو خالد الشكري
  [VB.NET] سوال بخصوص اداه JbsaPrintDataGridView.dll للطباعه jassim316 6 3,420 28-05-22, 09:44 PM
آخر رد: emtiaseil
  سوال مهم جدا remonmary 1 1,082 25-12-21, 04:05 AM
آخر رد: Taha Okla
Lightbulb سوال عن كرستال ريبورت ibra9009 0 895 03-12-21, 11:12 PM
آخر رد: ibra9009
  سوال عن اضافه كمبو بوكس الى الداتا جريد فيو alazhry 2 1,346 09-10-21, 06:45 PM
آخر رد: ahmed4

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


يقوم بقرائة الموضوع: