مساعدة لبرنامج التحويل الى النظام الثنائي

أخي لم أفهم ما هي المشكلة ! :\

السلام عليكم؛

الحل باستخدام الـ While loop سيكون أجدى، الكود التالي سيفي بالغرض. إذا كنت فاهم مبدأ التحويل إلى binary فسوف لن تجد أي صعوبة في فهمه:

dim Number as integer

dim bin as integer

'Number = text1.text...

while( Number <> 0 )

bin = bin * 10

bin = bin + Number mod 2

Number = Number/2

wend

msgBox bin

تحياتي

أعتذر هنالك خطأ :wacko:

الكود كالتالي:

dim num as double

dim bin as double

dim pass as double

'Initialize..

pass = 1

bin = 0

num = text1.text

while ( num <> 0 )

bin = bin + (num mod 2) * pass

pass = pass*10

num = fix(num/2)

wend

msgbox bin