[Motaz Alnuweiri]

(23-05-14, 11:02 AM)محمديات كتب : 1- بالنسبه لل crc وجدت برنامج يقوم بعمله بالطريقة الصحيحه ويكتب ال crc المناسب للملف والملف يعمل بطريقه صحيحه انا رفعت البرنامج لمعرفة نوع ال crc او الطريقة التي يتبعها في حساب ال crc او على الأقل طريقة دمجه داخل برنامجي ليعمل في الخلفية ويعدل ال crc

والله أنا ما عندي خبرة بالـ Ckeck Sum وأنواع التشفير

بالنسبة للتحويل لـ Hex يوجد طريقتين:

كود :

1- Conversion.Hex(Value)
2- Value.ToString("X")

مثال

كود :

'الطريقة الأولى
TextBox2.Text = Conversion.Hex(Buffer(Index + 0))

'الطريقة الثانية
TextBox3.Text = Buffer(Index + 1).ToString("X")

أما بخصوص إظهار مصفوفة البايت بالمقلوب يمكنك استخدام هذا الكود

كود :

''' <summary>
''' تحويل مصفوفة البايت لنص
''' </summary>
''' <param name="Array">المصفوفة</param>
''' <param name="Reverse">اخراج الناتج بشكل مقلوب</param>
''' <param name="Hex">اظهار الناتج بالـ Hex</param>
''' <returns>قيمة المصفوفة علي شكل نص</returns>
Function ByteArrayToString(ByVal Array As Byte(), ByVal Reverse As Boolean, Optional ByVal Hex As Boolean = True) As String
    Dim Result As String = String.Empty

    If Reverse Then
        For I As Integer = Array.Length - 1 To 0 Step -1
            Result += If(Hex, Array(I).ToString("X"), Array(I).ToString())
        Next
    Else
        For I As Integer = 0 To Array.Length - 1
            Result += If(Hex, Array(I).ToString("X"), Array(I).ToString())
        Next
    End If

    Return Result
End Function

تطبيق للكود

كود :

TextBox2.Text = ByteArrayToString(Find, True)

(23-05-14, 11:02 AM)محمديات كتب : مع امكانية عمل swap بالضغط على زر وليكن مثلا لنقل مربع ازرق مكان مربع ازرق اخر في نفس الملف

ممكن توضيح أكثر، وهل سيتم التعديل على القيم قبل عمل swap لها ولا سوف تبقى كما هي؟