O pretvaranju brojeva je vec bilo puno price pa potrazi malo na forumu.
Nisam primetio da je neko dao program za pretvaranje iz jedne u drugu osnovu pa evo jednog na brzinu. Zbog duzine programa nema nikakvih provera ispravnosti unetih podataka, ali moze da posluzi.
Code:
Public Function rr() As Integer
Dim st1, st2, st3 As String
Dim raz, cif, os1, os2 As Byte
Dim ceo, Broj As Double
os1 = Val(InputBox("Osnova broja "))
st1 = UCase(InputBox("Unesi broj "))
os2 = Val(InputBox("Osnova u koju se konvertuje "))
Broj = 0
raz = Asc("A") - Asc("9") - 1
st3 = st1
Do
Broj = Broj * os1
cif = AscB(st1) - Asc("0")
If cif > 9 Then
cif = cif - raz
End If
Broj = Broj + cif
st1 = Mid(st1, 2)
Loop Until st1 = ""
st2 = ""
Do
cif = Broj Mod os2
If cif > 9 Then
st2 = Chr(cif + Asc("0") + raz) + st2
Else
st2 = Chr(cif + Asc("0")) + st2
End If
Broj = Int(Broj / os2)
Loop Until Broj = 0
MsgBox "Osnova (" & Str(os1) & " ) = " & st3 & Chr(13) & "Osnova (" & Str(os2) & " ) = " & st2
End Function