[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

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