Input + andere Option

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

aletes

Betreff: Input + andere Option

BeitragFr, Jul 03, 2009 20:59
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragFr, Jul 03, 2009 21:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Mach eine eigene Eingaberoutine mit GetKey und Chr
Btw Mach das Gosub Weg und benutz function oder so.
 

Mathe

BeitragFr, Jul 03, 2009 21:05
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group