برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex
كاتب الموضوع
رسالة
موضوع: برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex الخميس 24 سبتمبر 2009, 7:58 am
الكود:
Private Function BaseConv(intNumber, intBase) 'Specification: Base 2 (Bin), Base 8 (Oct), Base 16 (Hex) Dim intOffset As Integer Dim strConv As String intOffset = 55
Do Until intNumber = 0 If intNumber Mod intBase < 10 Then strConv = intNumber Mod intBase & strConv Else strConv = Chr(intNumber Mod intBase + intOffset) & strConv End If intNumber = (intNumber - intNumber Mod intBase) / intBase Loop BaseConv = strConv End Function
Private Sub Form_Load() MsgBox (BaseConv(13, 2)) End Sub
توقيــع العضو فيــرو
موضوع: رد: برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex الجمعة 04 ديسمبر 2009, 8:57 pm
شكرا على البرنامج
توقيــع العضو وردة هيت
برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex