[Motaz Alnuweiri]

(21-05-14, 10:36 PM)محمديات كتب : اما بالنسبه واجهتني مشكله في الكود هذا لا ادري لماذا وشكرا لك

هذا حل لمشكلتك

كود :

Dim Find As Byte() = {&HFF, &HFF, &H10}

If IsArraysEqual(Find, {&HFF, &HFF, &H10}) Then
    MsgBox("الحالة الأولى")
ElseIf IsArraysEqual(Find, {&H5E, &H5, &H64}) Then
    MsgBox("الحالة الثانية")
Else
    MsgBox("الحالة الثالثة")
End If

وهذا الكود المستخدم للتحقق من أن المصفوفتين متساويتين

كود :

Function IsArraysEqual(ByVal ArrayA As Byte(), ByVal ArrayB As Byte()) As Boolean
    If ArrayA.Length <> ArrayB.Length Then
        Return False
    Else
        Dim Counter As Integer = 0
        For I As Integer = 0 To ArrayA.Length - 1
            If ArrayA(I) = ArrayB(I) Then
                Counter += 1
            Else
                Exit For
            End If
        Next

        Return (Counter = ArrayA.Length)
    End If
End Function