[dubai.eig]

(25-06-23, 02:48 AM)joly كتب :

(24-06-23, 10:53 PM)dubai.eig كتب : قمت بارساله استاذي في المشاركه الماضيه

ستاقوم بارساله من جديد




هذا الملف ويعطيك العافيه

عذرا لم انتبه للملف 


دالة مبرمجة قديما لدينا في العمل وتعتمد على ReadLine وليس ReadTo قمت بتعديلها قليلا
الرقم 3 في Substring(3) هو لتجاوز الثلاث بايتات ‪ 49 01 02

PHP كود :

   Private Sub ButtonVID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVID.Click
        TextVID.Text = StringDataReceived("0902").Substring(3)
        rtb()
    End Sub

    Private Function StringDataReceived(command As String) As String
        Dim tmp As String = String.Empty
        sp1.Write(command & vbCr)
        Dim line As String = sp1.ReadLine.Trim : inPort &= line & vbCr
        If line.Equals(command) Then
            line = sp1.ReadLine().Trim : inPort &= line & vbCr
            Dim length = Val("&h" & line)
            Do
                line = sp1.ReadLine().Trim : inPort &= line & vbCr
                If line.Contains(":") Then line = line.Split(":")(1).Trim
                tmp &= String.Concat((From x In line.Split(" ") Select Chr("&h" & x)))
                If tmp.Length = length Then Exit Do
            Loop
        End If
        Return tmp
    End Function

    Private Sub rtb()
        rtb1.AppendText(inPort & vbCr)
    End Sub 


VID الصحيح VIN وهي اختصار Vehicle Identification Number

سؤال: ما نوع وموديل وصورة جهاز فحص السيارات؟

يعطيك العافيه

صحيح VID الصحيح VIN

قمت بتجربة الكود ولكن يتم معلق لا يستجيب فترة طويله 

انا المشروع الي اقوم به هو اضهار رقم vin 
ومن ثم الخطوه الثانيه تغيير الرقم الي رقم اخر 

اعمل علي السيارات الامريكيه gmc  

هذا الهدف من المشروع حاليا

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


شكرا لوقتك صديقي