Input prob

Übersicht

BlitzBasic

Beginners-Corner

	Sir Dan Betreff: Input prob	Mo, Mai 23, 2005 17:41 Antworten mit Zitat
Hallo, wie schon im titel steht, hab ich ein prob mit einer simplen input routine. aus irgend einen grund ist der return wert immer ´0´. Ich bitte um hilfe. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function in(intext$,posx,posy) Local wtext$,w Repeat w = GetKey() If w <> 0 wtext$ = wtext$ + Chr$(w) Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\") Until w = 13 Return wtext$ End Function Hier die abfrage BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] inp$ = in(\"Gib was ein\",50,50) Text(50,50,inp$)
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Betreff: Input prob

Mo, Mai 23, 2005 17:41
Antworten mit Zitat

Hallo,

wie schon im titel steht, hab ich ein prob mit einer simplen input routine.
aus irgend einen grund ist der return wert immer ´0´. Ich bitte um hilfe.

BlitzBasic: [AUSKLAPPEN]

Function in(intext$,posx,posy)
Local wtext$,w 
Repeat 
 w = GetKey()
 If w <> 0 wtext$ = wtext$ + Chr$(w)
 Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\")
Until w = 13
Return wtext$
End Function

Hier die abfrage
BlitzBasic: [AUSKLAPPEN]


inp$ = in(\"Gib was ein\",50,50)
Text(50,50,inp$)

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	BladeRunner Moderator	Mo, Mai 23, 2005 17:44 Antworten mit Zitat
Rückgabetyp der Funktion beachten! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function in$(bla,blub) EDIT: Meine Syntax ausgebessert. Ich verlerne wohl das Schreiben
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Mai 23, 2005 17:44
Antworten mit Zitat

Rückgabetyp der Funktion beachten!
BlitzBasic: [AUSKLAPPEN]

Function in$(bla,blub)

EDIT: Meine Syntax ausgebessert. Ich verlerne wohl das Schreiben

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

Zuletzt bearbeitet von BladeRunner am Mo, Mai 23, 2005 17:46, insgesamt einmal bearbeitet

	frigi	Mo, Mai 23, 2005 17:44 Antworten mit Zitat
Die Rückgabe ist auf Integer eingestellt. Mach daraus Code: [AUSKLAPPEN] [EINKLAPPEN] Function in$(intext$,posx,posy) . EDIT: Bisschen zu spät.....
frigi.designdevil.de

frigi

Mo, Mai 23, 2005 17:44
Antworten mit Zitat

Die Rückgabe ist auf Integer eingestellt.
Mach daraus

Code: [AUSKLAPPEN]

Function in$(intext$,posx,posy)

.

EDIT: Bisschen zu spät.....

frigi.designdevil.de

	Sir Dan	Mo, Mai 23, 2005 17:51 Antworten mit Zitat
Danke, jetzt geht es
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, Mai 23, 2005 17:51
Antworten mit Zitat

Danke, jetzt geht es Very Happy

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	Sir Dan	Mo, Mai 23, 2005 20:52 Antworten mit Zitat
Und schon habe ich ein neues Prob.: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] d$ = in(\"Gib was ein\",50,50) Text(234,123,\"Input : \" + d$) WaitKey() Function in$(intext$,posx,posy) Local wtext$,w Repeat w = GetKey() If w <> 0 If w <> 13 wtext$ = wtext$ + Chr$(w) If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1) Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\") Until w = 13 Return wtext$ End Function
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, Mai 23, 2005 20:52
Antworten mit Zitat

Und schon habe ich ein neues Prob.:
BlitzBasic: [AUSKLAPPEN]

d$ = in(\"Gib was ein\",50,50)
Text(234,123,\"Input : \" + d$)
WaitKey()

Function in$(intext$,posx,posy)
Local wtext$,w 
Repeat 
 w = GetKey()
 If w <> 0 If w <> 13 wtext$ = wtext$ + Chr$(w)
 If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1)
 Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\")
Until w = 13
Return wtext$
End Function

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Zuletzt bearbeitet von Sir Dan am Mo, Mai 23, 2005 21:36, insgesamt einmal bearbeitet

	BladeRunner Moderator	Mo, Mai 23, 2005 21:33 Antworten mit Zitat
mit nie endendwollender Geduld Welches da wäre, Bürger ?
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Mai 23, 2005 21:33
Antworten mit Zitat

*mit nie endendwollender Geduld*
Welches da wäre, Bürger ?

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Sir Dan	Mo, Mai 23, 2005 21:36 Antworten mit Zitat
Entschuldigung Das prob ist, dass die (ich glaube die heißt backspace) taste nicht funzt. d.h. ich kann kein text zurücknehmen.
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, Mai 23, 2005 21:36
Antworten mit Zitat

Entschuldigung Embarassed

Das prob ist, dass die (ich glaube die heißt backspace) taste nicht funzt. d.h. ich kann kein text zurücknehmen.

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	BladeRunner Moderator	Mo, Mai 23, 2005 21:44 Antworten mit Zitat
Nun, das liegt daran dass du die backspace erst zu deinem String addest und dann das letzte Zeichen von deinem String löschst. Womit der de facto gleich bleibt.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mo, Mai 23, 2005 21:44
Antworten mit Zitat

Nun, das liegt daran dass du die backspace erst zu deinem String addest und dann das letzte Zeichen von deinem String löschst. Womit der de facto gleich bleibt.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Mai 23, 2005 21:48 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] d$ = in(\"Gib was ein\",50,50) Text(234,123,\"Input : \" + d$) WaitKey() Function in$(intext$,posx,posy) Local wtext$,w Repeat w = GetKey() If w <> 0 If w <> 13 If w <> 8 wtext$ = wtext$ + Chr$(w) If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1) Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\") Delay 10 Cls Until w = 13 Return wtext$ End Function Ich hab es mal mit deinem CodeStil erweitert!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Mai 23, 2005 21:48
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

d$ = in(\"Gib was ein\",50,50) 
Text(234,123,\"Input : \" + d$) 
WaitKey() 

Function in$(intext$,posx,posy) 
Local wtext$,w 
Repeat 
 w = GetKey() 
 If w <> 0 If w <> 13 If w <> 8 wtext$ = wtext$ + Chr$(w) 
 If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1) 
 Text(posx,posy,intext$ + \" : \" + wtext$ + \"_\")
Delay 10
Cls
Until w = 13 
Return wtext$ 
End Function

Ich hab es mal mit deinem CodeStil erweitert!

[BB2D | BB3D | BB+]

	Sir Dan	Mo, Mai 23, 2005 21:52 Antworten mit Zitat
Vielen dank! Manchmal habe ich wirklich obst auf den Augen edit: @rallimen dein code ruckelt bei mir aus irgend einem grund, ich hab es aber jetzt so: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] d$ = in(\"Gib was ein\",50,50) Text(234,123,\"Input : \" + d$) WaitKey() End Function in$(intext$,posx,posy) Local wtext$,w Repeat w = GetKey() If w <> 0 If w <> 13 If w <> 8 wtext$ = wtext$ + Chr$(w) If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1):Cls Text(posx,posy,intext$ + \" : \" + wtext$) Until w = 13 Return wtext$ End Function
(\_/) (O.o) (> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

Sir Dan

Mo, Mai 23, 2005 21:52
Antworten mit Zitat

Vielen dank!
Manchmal habe ich wirklich obst auf den Augen Shocked

edit: @rallimen
dein code ruckelt bei mir aus irgend einem grund, ich hab es aber jetzt so:
BlitzBasic: [AUSKLAPPEN]

d$ = in(\"Gib was ein\",50,50)
Text(234,123,\"Input : \" + d$)
WaitKey()
End

Function in$(intext$,posx,posy)
Local wtext$,w 
Repeat 
 w = GetKey()
 If w <> 0 If w <> 13 If w <> 8 wtext$ = wtext$ + Chr$(w)
 If w = 8 If Len(wtext$) > 0 wtext$ = Left$(wtext$,Len(wtext$)-1):Cls
 Text(posx,posy,intext$ + \" : \" + wtext$)
Until w = 13
Return wtext$
End Function

(\_/)
(O.o)
(> <) This is Bunny. Copy Bunny into your signature to help him on his way to world domination.

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Mai 23, 2005 23:24 Antworten mit Zitat
Hab das nur um das cls und delay zwecks Test erweitert , damit man auch sieht wie diese funktioniert!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Mai 23, 2005 23:24
Antworten mit Zitat

Hab das nur um das cls und delay zwecks Test erweitert , damit man auch sieht wie diese funktioniert!

[BB2D | BB3D | BB+]

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Input prob

Betreff: Input prob