Strings zu Int und Eingaberoutine

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	The_Nici Betreff: Strings zu Int und Eingaberoutine	Sa, Nov 24, 2007 11:19 Antworten mit Zitat
Guten Morgen, ich habe einen Euklidischen Algorithmus gemacht, nur so aus eigeninteresse, und ihn in eine Funktion gepackt. Geht ganz toll. Jetzt aber zum eigentlichen Problem: Beim Programm dazu sollte man per Eingaberoutine die Zahlen festlegen. Danach werden sie von Strings zu Int's gemacht, aber irgendwo da steckt der Fehler! Für euch mal der Code (ohne Funktion, da diese kein Problem darstellt): Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0 a=0 b$=0 zahleins$="" zahlzwei$="" one%=0 two%=0 derggt%=0 While Not KeyHit(Key_Enter) a=GetChar() b$=Chr(a) zahleins$=zahleins$+b$ DrawText "Zahl1="+zahleins$,0,0 Flip Cls Wend While Not KeyHit(Key_Enter) a=GetChar() b$=Chr(a) zahlzwei$=zahlzwei$+b$ DrawText "Zahl2="+zahlzwei$,0,12 Flip Cls Wend one%=Int(zahleins$) two%=Int(zahlzwei$) derggt=ggt(one%,two%) DrawText derggt,0,24 Flip FlushKeys() WaitKey() End Bin momentan ziemlich Ratlos und hoffe auf Hilfe, und nicht Gelächter.

The_Nici

Betreff: Strings zu Int und Eingaberoutine

Sa, Nov 24, 2007 11:19
Antworten mit Zitat

Guten Morgen,
ich habe einen Euklidischen Algorithmus gemacht, nur so aus eigeninteresse, und ihn in eine Funktion gepackt. Geht ganz toll.

Jetzt aber zum eigentlichen Problem:
Beim Programm dazu sollte man per Eingaberoutine die Zahlen festlegen. Danach werden sie von Strings zu Int's gemacht, aber irgendwo da steckt der Fehler!

Für euch mal der Code (ohne Funktion, da diese kein Problem darstellt):
Code: [AUSKLAPPEN]

Graphics 640,480,0

a=0
b$=0
zahleins$=""
zahlzwei$=""
one%=0
two%=0
derggt%=0

While Not KeyHit(Key_Enter)
a=GetChar()
b$=Chr(a)
zahleins$=zahleins$+b$
DrawText "Zahl1="+zahleins$,0,0
Flip
Cls
Wend
While Not KeyHit(Key_Enter)
a=GetChar()
b$=Chr(a)
zahlzwei$=zahlzwei$+b$
DrawText "Zahl2="+zahlzwei$,0,12
Flip
Cls
Wend

one%=Int(zahleins$)
two%=Int(zahlzwei$)

derggt=ggt(one%,two%)

DrawText derggt,0,24
Flip
FlushKeys()
WaitKey()
End

Bin momentan ziemlich Ratlos und hoffe auf Hilfe, und nicht Gelächter.

	#Reaper Newsposter	Sa, Nov 24, 2007 11:47 Antworten mit Zitat
Fehler gefunden Code: [AUSKLAPPEN] [EINKLAPPEN] While Not KeyHit(Key_Enter) a=GetChar() If a Then '<- b$=Chr(a) zahleins$=zahleins$+b$ EndIf DrawText "Zahl1="+zahleins$,0,0 Flip Cls Wend While Not KeyHit(Key_Enter) a=GetChar() If a Then '<- b$=Chr(a) zahlzwei$=zahlzwei$+b$ EndIf DrawText "Zahl2="+zahlzwei$,0,12 Flip Cls Wend Du hast immer, auch wenn nichts gedrückt wurde, eine 0-Char (kann man das so nennen?) an den String drangehängt, und das mochte Int() scheinbar nicht so sehr
AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!) Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

#Reaper

Newsposter

Sa, Nov 24, 2007 11:47
Antworten mit Zitat

Fehler gefunden Wink

Code: [AUSKLAPPEN]

While Not KeyHit(Key_Enter)
a=GetChar()
If a Then '<-
   b$=Chr(a)
   zahleins$=zahleins$+b$
EndIf
DrawText "Zahl1="+zahleins$,0,0
Flip
Cls
Wend
While Not KeyHit(Key_Enter)
a=GetChar()
If a Then '<-
   b$=Chr(a)
   zahlzwei$=zahlzwei$+b$
EndIf
DrawText "Zahl2="+zahlzwei$,0,12
Flip
Cls
Wend

Du hast immer, auch wenn nichts gedrückt wurde, eine 0-Char (kann man das so nennen?) an den String drangehängt, und das mochte Int() scheinbar nicht so sehr Wink

AMD Athlon 64 3500+, ATI AX800 Pro/TD, 2048 MB DRR 400 von Infineon, ♥RIP♥ (2005 - Juli 2015 -> sic!)
Blitz3D, BlitzMax, MaxGUI, Monkey X; Win7

	The_Nici	Sa, Nov 24, 2007 12:07 Antworten mit Zitat
mmh, danke, hätt ich auch selber draufkommen können.

The_Nici

Sa, Nov 24, 2007 12:07
Antworten mit Zitat

mmh, danke, hätt ich auch selber draufkommen können. Very Happy

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

Nach Oben

BlitzBasic Portal

Strings zu Int und Eingaberoutine

The_Nici

Betreff: Strings zu Int und Eingaberoutine

#Reaper

The_Nici