22-05-14, 02:28 PM
(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