problem bei sehr kleinem taschenrechner^^

Übersicht

BlitzBasic

Beginners-Corner

	Len Betreff: problem bei sehr kleinem taschenrechner^^	Fr, Dez 28, 2007 20:31 Antworten mit Zitat
wieso beendet das prog wenn ich ESC gedrückt hab erst anch 2-maligen enterdrückrrn oder zweimaligenm eingeben??? Code: [AUSKLAPPEN] [EINKLAPPEN] Global ergebnis, zahl1, zahl2 Repeat zahl1 = Input("erste zahl:") zahl2 = Input("zweite zahl:") ergebnis = zahl1 * zahl2 Cls Locate 1,1 Print "Das Ergebnis lautet " + ergebnis Until KeyHit (1) End

Len

Betreff: problem bei sehr kleinem taschenrechner^^

Fr, Dez 28, 2007 20:31
Antworten mit Zitat

wieso beendet das prog wenn ich ESC gedrückt hab erst anch 2-maligen enterdrückrrn oder zweimaligenm eingeben???

Code: [AUSKLAPPEN]

Global ergebnis, zahl1, zahl2

Repeat

zahl1 = Input("erste zahl:")
zahl2 = Input("zweite zahl:")
ergebnis = zahl1 * zahl2

Cls
Locate 1,1

Print "Das Ergebnis lautet " + ergebnis

Until KeyHit (1)

End

	mas93	Fr, Dez 28, 2007 20:32 Antworten mit Zitat
weil input dein Programm a nhält. Ein input wartet bis etwas eingegeben wurde und dann enter gedrückt wurde. Erst dann geht das Programm weiter mfg mas93
www.lpbase.de Meine Linkin Park Fanseite[Noch im Aufbau]

mas93

Fr, Dez 28, 2007 20:32
Antworten mit Zitat

weil input dein Programm a nhält.
Ein input wartet bis etwas eingegeben wurde und dann enter gedrückt wurde.
Erst dann geht das Programm weiter

mfg
mas93

www.lpbase.de
Meine Linkin Park Fanseite[Noch im Aufbau]

	The_Nici	Fr, Dez 28, 2007 20:42 Antworten mit Zitat
Du brauchst eine Eingaberoutine. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() While Not KeyHit(28) a=GetKey() If a<>0 Then b$=b$+Chr(a) Text 0,0,b$ Flip Cls Wend (Enthält kein Backspace)

The_Nici

Fr, Dez 28, 2007 20:42
Antworten mit Zitat

Du brauchst eine Eingaberoutine.
Code: [AUSKLAPPEN]

Graphics 800,600,0,2
SetBuffer BackBuffer()
While Not KeyHit(28)
a=GetKey()
If a<>0 Then b$=b$+Chr(a)
Text 0,0,b$
Flip
Cls
Wend

(Enthält kein Backspace)

	mabox	Sa, Dez 29, 2007 10:35 Antworten mit Zitat
Mit Bakspace sähe das so aus Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() While Not KeyHit(28) a=GetKey() If a<>0 Then b$=b$+Chr(a) If a = 8 Then b$ = Mid(b,1,Len(b)-2) EndIf Text 0,0,b$ Flip Cls Wend
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate www.mausoft.de.tl Dönerfresser Homepage

mabox

Sa, Dez 29, 2007 10:35
Antworten mit Zitat

Mit Bakspace sähe das so aus
Code: [AUSKLAPPEN]

Graphics 800,600,0,2
SetBuffer BackBuffer()
While Not KeyHit(28)
a=GetKey()
If a<>0 Then b$=b$+Chr(a)
If a = 8 Then
b$ = Mid(b,1,Len(b)-2)
EndIf
Text 0,0,b$
Flip
Cls
Wend

Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

	DAK	Di, Jan 01, 2008 22:53 Antworten mit Zitat
oder vll besser so Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() While Not KeyHit(28) a=GetKey() DebugLog a Select a Case 0 Case 27 Case 8 b$ = Left(b$, Len(b$)-1) Default b$=b$+Chr(a) End Select Text 0,0,b$ Flip Cls Wend weil sich damit leicher andere tasten mit spezialfunktionen (wie z.b. die backspace-taste) einfügen lassen... oder tasten die gar nix machen (Esc-Taste)
Gewinner der 6. und der 68. BlitzCodeCompo

DAK

Di, Jan 01, 2008 22:53
Antworten mit Zitat

oder vll besser so
Code: [AUSKLAPPEN]

Graphics 800,600,0,2
SetBuffer BackBuffer()
While Not KeyHit(28)
a=GetKey()
DebugLog a
Select a
Case 0
Case 27
Case 8
b$ = Left(b$, Len(b$)-1)
Default
b$=b$+Chr(a)
End Select
Text 0,0,b$
Flip
Cls
Wend

weil sich damit leicher andere tasten mit spezialfunktionen (wie z.b. die backspace-taste) einfügen lassen... oder tasten die gar nix machen (Esc-Taste)

Gewinner der 6. und der 68. BlitzCodeCompo