(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
file.txt (الحجم : 83 بايت / التحميلات : 8)
