أمس قام الأخ ghost بإضافة سؤال جديد داخل موضوع أسئلة الإحماء لبداية مسابقات القسم؟ السؤال بإختصار يطلب منك عمل اله حاسبه شبيها بعملها مثل الأله FX82 TL لذا و اثناء عملى على المثال قمت بإضافة خاصية جديده عليه ألا و هى انظمة الاعداد المختلفه فيمكنك جمع رقم ثمانى على عشرى على سداسى عشرى على ثنائى و الناتج يظهر كما تختار بأى من الانظمه الأربعه.
عندما انتهيت من هذا المثال قررت وضع لكم الفئه المسئوله عن التحويلات من نظام لأخر و لقد اسميتها BaseConvertor
هذا هو شكلها بدون كود
Public Class BaseConvertor Public Shared Function DecToOct(ByVal sValue As String) As String Public Shared Function DecToHex(ByVal Value As String) As String Public Shared Function DecToBin(ByVal sValue As String, Optional ByVal AddSpace As Boolean = True, Optional ByVal FillZero As Boolean = True) As String Public Shared Function BinToDec(ByVal BinVal As String) As String Public Shared Function BinToOct(ByVal BinVal As String) As String Public Shared Function BinToHex(ByVal BinVal As String) As String Public Shared Function OctToDec(ByVal BinVal As String) As String Public Shared Function OctToHex(ByVal value As String) As String Public Shared Function OctToBin(ByVal OctVal As String, Optional ByVal AddSpace As Boolean = True, Optional ByVal FillZero As Boolean = True) As String Public Shared Function HexToDec(ByVal BinVal As String) As String Public Shared Function HexToOct(ByVal value As String) As String Public Shared Function HexToBin(ByVal HexVal As String, Optional ByVal AddSpace As Boolean = True, Optional ByVal FillZero As Boolean = True) As String Public Shared Function IsDec(ByVal value As String) As Boolean Public Shared Function IsHex(ByVal value As String) As Boolean Public Shared Function IsOct(ByVal value As String) As Boolean Public Shared Function IsBin(ByVal value As String) As Boolean End Class
طبعا توجد بعض الدوال الأخرى و لكنها Private يمكنك قرائتها كما تحب اما الأن فمع المثال التطبيقى.
هذه هى النسخه التنفيذيه فقط
و هذا هو الكود
و الله ولى التوفيق