تبدیل مبنا ها در VB

[m_kasaeei]

سلام

دوستان کمک کنید

پروژه گفته بیارین گفتم مثلا چی گفت تبدیل مبنا ها

یه چیزی که مثلا تبدیل مبنا 8 به 16 -------- 2 به 10 ....... رو داشته باشه


لطفا کمک کنید تا شنبه باید تحویل بدم کسی میتونه برام بسازه یا سورس قرار بده ؟

[Armink36]

Private Sub Command1_Click()
Dim a As Long
Dim i As Long
Dim j As Integer
Dim b As Integer
Dim x As String
Dim z(100)
Dim rag As Integer
a = 0
i = Text1.Text
j = Text2.Text
k = Text3.Text
rag = Len(Str(i))
If j <> 10 Then
For b = 1 To rag
a = a + ((Right(Left(i, b), 1) * (j ^ (rag - b))))
Next b
Else
a = i
End If
If k = 10 Then
Text5.Text = a
Exit Sub
Else
For c = 1 To 100
z(c) = a Mod k
a = a \ k
If a < k Then
z(c + 1) = a
y = c + 1
Exit For
End If
Next c
For f = 1 To y
x = x + Str(z(f))
Next f
Text5.Text = StrReverse(x)
End If
End Sub

[Armink36]

اصلاح پست قبلی :

قبل از اجرای برنامه 4 تا textbox و یه دونه هم دکمه بزارید.
Text1=عدد ورودی
text2 =مبنا ی عدد ورودی
text3=مبنای عدد خروجی
text4 نداریم
text5 هم قابلیت تایپ نداره و فقط برای چاپ عدد خروجی است(Locked رو فعال کنید)