Dezimal into beliebig

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

 

NForcer

Betreff: Dezimal into beliebig

BeitragSa, Nov 13, 2004 21:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Moin,
ich wollte hier mal mein kleinen Beitrag leisten, wird zwar niemals jemand brauche, aber egal.
Ich habe einfach mal einen algorithmus den wir in Informatik besprochen haben für BB geschrieben und noch einige kleinigkeiten hinzugefügt, sodass man auch in systeme mit einer Basis > 10 umwandeln kann

BlitzBasic: [AUSKLAPPEN]

;Graphics 1024,768,32,3
Global DezZahl% = Input(\"Geben sie eine beliebe Dezimalzahl ein: \")
Global Basis = Input(\"Basis des Zielsystems: \")
Global Ergebnis$
Global RestString$
Global Rest

Repeat
Rest = DezZahl Mod Basis ;mithilfe des \"Mod\" Befehles, wird der Rest ermittelt
RestString$ = Str$(Rest) ;Man muss den Rest erst in einen String umwandeln, da man sonst keine Buchstaben
;für die Systeme, mit der Basis mehr als 10 schreiben kann.
Buchstaben ; << Funktion zur Umwandlun von Zahlen > 10 in Buchstaben

DezZahl = DezZahl / Basis
Ergebnis$ = RestString + Ergebnis$

Until DezZahl = 0

Print Ergebnis$

WaitKey
End

Function Buchstaben()
If Rest = 10 Then RestString = \"A\"
If Rest = 11 Then RestString = \"B\"
If Rest = 12 Then RestString = \"C\"
If Rest = 13 Then RestString = \"D\"
If Rest = 14 Then RestString = \"E\"
If Rest = 15 Then RestString = \"F\"
If Rest = 16 Then RestString = \"G\"
If Rest = 17 Then RestString = \"H\"
If Rest = 18 Then RestString = \"I\"
If Rest = 19 Then RestString = \"J\"
If Rest = 20 Then RestString = \"K\"
If Rest = 21 Then RestString = \"L\"
If Rest = 22 Then RestString = \"M\"
If Rest = 23 Then RestString = \"N\"
If Rest = 24 Then RestString = \"O\"
If Rest = 25 Then RestString = \"P\"
If Rest = 26 Then RestString = \"Q\"
If Rest = 27 Then RestString = \"R\"
If Rest = 28 Then RestString = \"S\"
If Rest = 29 Then RestString = \"T\"
If Rest = 30 Then RestString = \"U\"
If Rest = 31 Then RestString = \"V\"
If Rest = 32 Then RestString = \"W\"
If Rest = 33 Then RestString = \"X\"
If Rest = 34 Then RestString = \"Y\"
If Rest = 35 Then RestString = \"Z\"
End Function


ihr könnt ja mal schreiben was ihr davon haltet.
Gibt sicherlich noch einfachere und bessere Lösungen, aber für den anfang sollte das reichen.
Ich hab zwar keine Ahnung wofür das jetzt gut sein soll, aber ihr könnts ja mal ausprobieren.
Viel Spass damit noch *g*
mfG NForcer

D2006

Administrator

Betreff: Re: Dezimal into beliebig

BeitragSo, Nov 14, 2004 1:09
Antworten mit Zitat
Benutzer-Profile anzeigen
NForcer hat Folgendes geschrieben:
BlitzBasic: [AUSKLAPPEN]

Function Buchstaben()
If Rest = 10 Then RestString = "A"
If Rest = 11 Then RestString = "B"
If Rest = 12 Then RestString = "C"
If Rest = 13 Then RestString = "D"
If Rest = 14 Then RestString = "E"
If Rest = 15 Then RestString = "F"
If Rest = 16 Then RestString = "G"
If Rest = 17 Then RestString = "H"
If Rest = 18 Then RestString = "I"
If Rest = 19 Then RestString = "J"
If Rest = 20 Then RestString = "K"
If Rest = 21 Then RestString = "L"
If Rest = 22 Then RestString = "M"
If Rest = 23 Then RestString = "N"
If Rest = 24 Then RestString = "O"
If Rest = 25 Then RestString = "P"
If Rest = 26 Then RestString = "Q"
If Rest = 27 Then RestString = "R"
If Rest = 28 Then RestString = "S"
If Rest = 29 Then RestString = "T"
If Rest = 30 Then RestString = "U"
If Rest = 31 Then RestString = "V"
If Rest = 32 Then RestString = "W"
If Rest = 33 Then RestString = "X"
If Rest = 34 Then RestString = "Y"
If Rest = 35 Then RestString = "Z"
End Function


das lässt sich auf jedenfall vereinfachen:

BlitzBasic: [AUSKLAPPEN]

Function Buchstaben()
If Rest >= 19 And Rest <=35 Then RestString = Chr$(55+Rest)
End Function


MfG
D2006
 

Sibitiger

BeitragDi, Nov 16, 2004 22:34
Antworten mit Zitat
Benutzer-Profile anzeigen
das Programm is doch auch ganz nützlich um zum Beispiel Spielstände für den user (zumindest für einen Ottonormaluser) unlesbar zu machen.Kann man nachher ja wieder laden und in einen dezimalwert umrechnen...

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group