Input + andere Option

Übersicht

BlitzBasic

Beginners-Corner

	aletes Betreff: Input + andere Option	Fr, Jul 03, 2009 20:59 Antworten mit Zitat
Hi leute, habe mal wieder ein Problem: Wenn ich möchte, dass ich etwas eingeben kann(mit 'Input( )') und aber noch etwas anderes nebenbei machen kann, zum Beispiel wenn ich dann auf 'F2' drücke, dass er dann beendet. Bei mir klappt das nicht... Hier der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,1 Repeat w$=Input(">> ") If KeyHit(59) Then Flip Gosub h EndIf Until w="exit" End .h Print "test" WaitKey End Der Text 'test' wird aber nur angezeigt, wenn ich 'exit' eingebe... kann mir bitte jemand helfen? ys, aletes

aletes

Betreff: Input + andere Option

Fr, Jul 03, 2009 20:59
Antworten mit Zitat

Hi leute, habe mal wieder ein Problem:
Wenn ich möchte, dass ich etwas eingeben kann(mit 'Input( )') und aber noch etwas anderes nebenbei machen kann, zum Beispiel wenn ich dann auf 'F2' drücke, dass er dann beendet. Bei mir klappt das nicht...
Hier der Code:
Code: [AUSKLAPPEN]

Graphics 800,600,32,1
Repeat
w$=Input(">> ")
If KeyHit(59) Then
Flip
Gosub h
EndIf
Until w="exit"
End

.h
Print "test"
WaitKey
End

Der Text 'test' wird aber nur angezeigt, wenn ich 'exit' eingebe...

kann mir bitte jemand helfen?

ys, aletes Very Happy

	The_Nici	Fr, Jul 03, 2009 21:04 Antworten mit Zitat
Mach eine eigene Eingaberoutine mit GetKey und Chr Btw Mach das Gosub Weg und benutz function oder so.

The_Nici

Fr, Jul 03, 2009 21:04
Antworten mit Zitat

Mach eine eigene Eingaberoutine mit GetKey

und Chr

Btw Mach das Gosub Weg und benutz function oder so.

	Mathe	Fr, Jul 03, 2009 21:05 Antworten mit Zitat
Das Funktioniert nicht mit Input da muss du dir eine eigene Funktion schreiben. Bei meiner GUI hab ich das mal so gemacht: Code: [AUSKLAPPEN] [EINKLAPPEN] Function WriteText(ID%) inp.GUITextField= Object.GUITextField(ID) Local key% = GetKey() If key >= 32 And key <= 127 Then inp\inhalt = inp\inhalt + Chr(key) ElseIf KeyHit(14) = True And Len(inp\inhalt)> 0 Then inp\inhalt = Mid(inp\inhalt,1,Len(inp\inhalt)-1) EndIf End Function Das Prinzip müsste klar sein und ist auch leicht zu machen. @The_Nici Verdammt du warst schneller xD mfg. Matthias
Windoof nein DANKE => ArchLinux

Mathe

Fr, Jul 03, 2009 21:05
Antworten mit Zitat

Das Funktioniert nicht mit Input da muss du dir eine eigene Funktion schreiben. Bei meiner GUI hab ich das mal so gemacht:

Code: [AUSKLAPPEN]

Function WriteText(ID%)
inp.GUITextField= Object.GUITextField(ID)
Local key% = GetKey()
If key >= 32 And key <= 127 Then
inp\inhalt = inp\inhalt + Chr(key)
ElseIf KeyHit(14) = True And Len(inp\inhalt)> 0 Then
inp\inhalt = Mid(inp\inhalt,1,Len(inp\inhalt)-1)
EndIf
End Function

Das Prinzip müsste klar sein und ist auch leicht zu machen.

@The_Nici
Verdammt du warst schneller xD

mfg.
Matthias

Windoof nein DANKE => ArchLinux Wink