QBasic-Taban Hesaplama

[EcmeL]

QBasic
6'lık tabandan 10'luk tabana çeviren program.

CLS
Input "Rakamı Giriniz : ",R$
Input "Tabanı Giriniz : ", T
Input "Hangi tabana çevirilecek : ",T2
If T=16 Then
For W=1 to Len(R$)
Z=Val(mid$(R$,W,1))
Z$=(mid$(R$,W,1))
Select Case Z$
Case "A"
Z=10
Case "B"
z=11
Case "C"
Z=12
Case "D"
Z=13
Case "E"
Z= 14
Case "F"
Z= 15
End Select
B=Len(r$)
K=Z*T^(B-W)
Y=Y+K
Next W
End If
Print Y