مشاهده نسخه کامل
: bermoda_khatar69
31-12-2009, 18:29
با سلام
این کد یه برنامه هستش که عدد رو از کاربر می گیره و به باینری تبدیل می کنه حالا من می خوام یه کاری بکنم که یع دکمه دیگه اضافه کنم و عدد رو به مینای 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
خیلی ممنون میشم اگر کسی کمک کنه
این کد یه برنامه هستش که عدد رو از کاربر می گیره و به باینری تبدیل می کنه حالا من می خوام یه کاری بکنم که یع دکمه دیگه اضافه کنم و عدد رو به مینای 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
خیلی ممنون میشم اگر کسی کمک کنه