[joly]

(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؟

ليكون الحل صحيحا