Bardzo bym prosił o szybką odpowiedź. Oto co do tej pory sam zrobiłem:
Kod: Zaznacz cały
Public Function przeliczanie(n, x)
Dim a(0 To 10)
dl = Len(n)
For i = 1 To dl
a(1) = Mid(n, i, 1)
Select Case a(i)
Case "A"
a(i) = 10
Case "B"
a(i) = 11
Case "C"
a(i) = 12
Case "D"
a(i) = 13
Case "E"
a(i) = 14
Case "F"
a(i) = 15
End Select
If a(i) <= x Then
w = w & a(i)
Next i
y = a(0)
For i = 1 To dl
y = y * x + a(i)
Next i
MsgBox ("po zamianie " & n & " w systemie " & x & " na system dziesiętny otrzymujemy liczbę " & y)
GoTo Linia2
End If
MsgBox ("Podałeś złe wartości!")
GoTo Linia1
Linia1:
MsgBox ("Nim wpiszesz dane następnym razem zastanów się :D")
Linia2:
MsgBox ("Dziękuję :D")
End Function