Dezimal into beliebig

Übersicht

BlitzBasic

Codearchiv

	NForcer Betreff: Dezimal into beliebig	Sa, Nov 13, 2004 21:24 Antworten mit Zitat
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] [EINKLAPPEN] ;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

NForcer

Betreff: Dezimal into beliebig

Sa, Nov 13, 2004 21:24
Antworten mit Zitat

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	So, Nov 14, 2004 1:09 Antworten mit Zitat
NForcer hat Folgendes geschrieben: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] 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] [EINKLAPPEN] Function Buchstaben() If Rest >= 19 And Rest <=35 Then RestString = Chr$(55+Rest) End Function MfG D2006

D2006

Administrator

Betreff: Re: Dezimal into beliebig

So, Nov 14, 2004 1:09
Antworten mit Zitat

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	Di, Nov 16, 2004 22:34 Antworten mit Zitat
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...

Sibitiger

Di, Nov 16, 2004 22:34
Antworten mit Zitat

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...