کمک فوری در مورد تکمیل کردن یه برنامه

[bermoda_khatar69]

با سلام
این کد یه برنامه هستش که عدد رو از کاربر می گیره و به باینری تبدیل می کنه حالا من می خوام یه کاری بکنم که یع دکمه دیگه اضافه کنم و عدد رو به مینای 8 هم تبدیل کنه از عزیزان اگر کسی کد رو میدونه به من کمک کنه خیلی
حیاطیه

Private Sub Command1_Click()
Dim binary As Long
num = InputBox("enter numbe??", "get")
Do Until num = 0
binary = binary + (num Mod 2) * 10 ^ k
k = k + 1
num = num \ 2
Loop
Text1 = binary
End Sub

خیلی ممنون میشم اگر کسی کمک کنه

[TRACX]

فرمول تبدیل به مبنای 8 را بده تا برنامشه بدم

[MrGee]

دوست عزیز تابع oct این کار رو می کنه
شما فقط باید عدد رو بهش بدید.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید