منتديات كركوك تايمز

منتديات كركوك تايمز
 
الرئيسيةس .و .جالتسجيلدخول
أفضل 10 أعضاء في هذا المنتدى
فيــرو - 3141
 
شميران كركوكي - 2120
 
Rasti - 1769
 
zoba - 1578
 
كــاردينيــا - 1350
 
دمعة حزن - 579
 
A.O.J - 538
 
Aramos - 497
 
ديدار - 410
 
دانيار كوردى - 404
 
المواضيع الأخيرة
» استضافة مجانية مع دومين .com مجاني مدى الحياة
الخميس 10 ديسمبر 2015, 4:36 pm من طرف hayderaltimimi

» ليلى والخمسين حرامي .. بقلمي
الإثنين 09 نوفمبر 2015, 7:19 pm من طرف حجي تمساح

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:56 pm من طرف فيــرو

» شل c99 مع الشرح بالفيديو
الأربعاء 04 سبتمبر 2013, 4:52 pm من طرف فيــرو

» ثغرة XSS
الثلاثاء 27 أغسطس 2013, 5:20 pm من طرف فيــرو

» موقع يقدم اخر الثغرات
السبت 24 أغسطس 2013, 7:04 am من طرف فيــرو

» ثغرة جديدة
السبت 24 أغسطس 2013, 7:01 am من طرف فيــرو

» برنامج الهجوم على المواقع
السبت 24 أغسطس 2013, 4:57 am من طرف فيــرو

عداد الزوار

hit counter

شاطر | 
 

 برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
فيــرو
مؤســـس منتديـــات كركوك تايمزمؤســـس منتديـــات كركوك تايمز
avatar
بيانات العضو
الجنس : ذكر
عدد المساهمات : 3141
نقاط : 42628
تاريخ التسجيل : 20/09/2009
العمر : 28

مُساهمةموضوع: برنامج مهم جداا ..... تحويل الرقم العشري الي 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
توقيــع العضو فيــرو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://xp10.ahlamontada.com
وردة هيت
عضو مميزعضو مميز
avatar
بيانات العضو
الجنس : انثى
عدد المساهمات : 106
نقاط : 14435
تاريخ التسجيل : 03/12/2009
العمر : 28

مُساهمةموضوع: رد: برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex   الجمعة 04 ديسمبر 2009, 8:57 pm

شكرا على البرنامج
توقيــع العضو وردة هيت


الرجوع الى أعلى الصفحة اذهب الى الأسفل
 

برنامج مهم جداا ..... تحويل الرقم العشري الي Bin, Oct, Hex

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات كركوك تايمز :: منتديات الكومبيوتر و الانترنيت :: منتدى لغات البرمجة-
a
انتقل الى: