[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)