تبدیل اعداد مبناهای مختلف ( 16 و 10 و 5 و 7 و 2 و..) به هم در ویژوال بیسیک

[iceboy67]

برنامه ای بنویسید تا عددی از مبنای 10 را به مبنای 16 ببرد.

 

[saalek110]

یک تکست باکس و یک باتون به فرم بیافزایید و کد زیر را به پنجره کد بیافزایید:

Private Sub Command1_Click()
Text1.Text = Hex(Text1.Text)
End Sub

 

[iceboy67]

درخواست برنامه تبدیل اعداد مبنای 10 به 2 در ویژوال بیسیک

برنامه ای بنویسید تا عددی از مبنای 10 را به 2 ببرد.

 

[armin_mx]

کد:

Dim x(4) As Integer
s = InputBox("")
Cls
Do While s >= 1
i = i + 1
x(i) = s Mod 2
s = s \ 2
Loop
For i = 4 To 1 Step -1
Print x(i);
Next

 

[armin_mx]

به نظر من یکمی هم خودت رو سوالا فکر کن شاید جوابش رو تونستی حل کنی؟؟

 

[armin_mx]

10 به 7

Dim x(10) As Integer
s = InputBox("")
Cls

While s >= 6
i = i + 1
x(i) = s Mod 7
s = s \ 7
Wend

x(i + 1) = s

For j = i + 1 To 1 Step -1
Print x(j);
Next

 

[panderosa]

barname tabdile 8va 2 be 10 lotfan

 

[the_king]

Private Function [B]TextToDecimal[/B](ByVal Text As String, ByVal Base As Long) As Currency
    Dim Pos As Long, Value As Currency
    For Pos = 1 To Len(Text)
        Value = InStr(1, "0123456789ABCDEF", Mid(Text, Pos, 1), vbTextCompare) - 1
        TextToDecimal = TextToDecimal + Value * (CCur(Base) ^ (Len(Text) - Pos))
    Next
End Function

Private Function [B]DecimalToText[/B](ByVal Number As Currency, ByVal Base As Long) As String
    Dim Value As Long
    Do
        Value = Number Mod Base
        Number = Number \ Base
        DecimalToText = Mid("0123456789ABCDEF", Value + 1, 1) & DecimalToText
    Loop Until Number = 0
End Function

Private Function [B]ConvertBase[/B](ByVal Text As String, ByVal FromBase As Long, ByVal ToBase As Long) As String
    ConvertBase = DecimalToText(TextToDecimal(Text, FromBase), ToBase)
End Function

تابع TextToDecimal یک عددی را از هر مبنایی به مبنای 10 تبدیل می کند.
تابع DecimalToText یک عددی را از مبنای 10 به هر مبنایی تبدیل می کند.
تابع ConvertBase با استفاده از دو تابع قبلی هر عددی را از هر مبنایی به هر مبنای دیگری تبدیل می کند.

 

[safeiran]

پروژه ويژوال بيسيك

با عرض سلام خدمت بر و بچه هاي خوب مجيد آنلاين
من يك برنامه اي مي خواهم بنويسم كه يك عدد دهدهي را بگيرد و آنرا تبديل به باينري كند و فقط رقم آخر آنرا براي من چاپ كند از دوستان مي خواهم كه كمك كنند متشكرم