Eingabe funktioniert nur in Einzelausführung.

Übersicht

BlitzBasic

Allgemein

	DATIS Betreff: Eingabe funktioniert nur in Einzelausführung.	Sa, Sep 22, 2007 16:31 Antworten mit Zitat
Hallo Blitzer. Ich habe eine Eingabe geschrieben, wo der Curser auch blinkt und soweiter. Zwar nicht allzu komplex, aber es funktioniert. Leider nur, wenn man die Datei alleine ausführt. Das ganze ist eine Passworteingabe, also werden statt Buchstaben nur Sternchen angezeigt. Der Code wird aber im Hauptprogramm durch include mit einbezogen, doch da klappt die Eingabe dann nicht mehr: der Curser blinkt, man kann aber keine Sternchen eingeben. Folgender Code:Code: [AUSKLAPPEN] [EINKLAPPEN] ;Password.bb - zur kontrolle des passwortes! ;pw$ ist das gelesene passwort. Name$="" NameC=0 Zeichen$="_" zeit=MilliSecs() FlushKeys Repeat Cls If MilliSecs()-zeit>700 And Zeichen$="_" Then Zeichen$=" " zeit=MilliSecs() EndIf If MilliSecs()-zeit>500 And Zeichen$=" " Then Zeichen$="_" zeit=MilliSecs() EndIf A=GetKey() If A>=32 And A<=255 Then Name$=Name$+Chr$(A) : NameC=NameC+1 If A=8 And (Len(Name$)-1)>=0 Then Name$=Left$(Name$,Len(Name$)-1) : NameC=NameC-1 Color 200,200,200 Text 232+80,207+120,String$("",NameC)+Zeichen$ Color 0,0,255 Text 230+80,205+120,String$("",NameC)+Zeichen$ ; WaitTimer timer Flip Until (Len(Name$) > 0) And KeyHit(28) Or KeyHit(1) Print Name$ FlushKeys WaitKey Ich habe irgendwas an diesem Quellcode gemacht und seitdem kann man nix mehr eingeben, wenn es aufgerufen wird. Davor konnte man aber nur Buchstaben eingeben, wenn man Shift gedrückt hatte (fettes ?) - dadurch waren die Buchstaben dann alle (natürlich) groß. Mfg, Datis
Frauen und Technik? Männer und BHs? Beides möglich.

DATIS

Betreff: Eingabe funktioniert nur in Einzelausführung.

Sa, Sep 22, 2007 16:31
Antworten mit Zitat

Hallo Blitzer.
Ich habe eine Eingabe geschrieben, wo der Curser auch blinkt und soweiter. Zwar nicht allzu komplex, aber es funktioniert. Leider nur, wenn man die Datei alleine ausführt. Das ganze ist eine Passworteingabe, also werden statt Buchstaben nur Sternchen angezeigt. Der Code wird aber im Hauptprogramm durch include mit einbezogen, doch da klappt die Eingabe dann nicht mehr: der Curser blinkt, man kann aber keine Sternchen eingeben.

Folgender Code:Code: [AUSKLAPPEN]

;Password.bb - zur kontrolle des passwortes!
;pw$ ist das gelesene passwort.
Name$=""
NameC=0
Zeichen$="_"
zeit=MilliSecs()
FlushKeys
Repeat
Cls

If MilliSecs()-zeit>700 And Zeichen$="_" Then
   Zeichen$=" "
   zeit=MilliSecs()
EndIf
If MilliSecs()-zeit>500 And Zeichen$=" " Then
   Zeichen$="_"
   zeit=MilliSecs()
EndIf

A=GetKey()
If A>=32 And A<=255 Then Name$=Name$+Chr$(A) : NameC=NameC+1
If A=8 And (Len(Name$)-1)>=0 Then Name$=Left$(Name$,Len(Name$)-1) : NameC=NameC-1

Color 200,200,200
Text 232+80,207+120,String$("*",NameC)+Zeichen$
Color 0,0,255
Text 230+80,205+120,String$("*",NameC)+Zeichen$
; WaitTimer timer
Flip
Until (Len(Name$) > 0) And KeyHit(28) Or KeyHit(1)
Print Name$
FlushKeys
WaitKey

Ich habe irgendwas an diesem Quellcode gemacht und seitdem kann man nix mehr eingeben, wenn es aufgerufen wird. Davor konnte man aber nur Buchstaben eingeben, wenn man Shift gedrückt hatte (fettes ?) - dadurch waren die Buchstaben dann alle (natürlich) groß.

Mfg, Datis

Frauen und Technik?
Männer und BHs?

Beides möglich.

	Hubsi	So, Sep 23, 2007 8:57 Antworten mit Zitat
Der Code den Du uns gegeben hast funktioniert soweit, wenn man die Position des Textes ins Fenster schiebt. Um Dir helfen zu können ist also auch der Teil des Codes nötig in den diese Datei eingebunden wird, oder die Glaskugel hat heute Premiere

Hubsi

So, Sep 23, 2007 8:57
Antworten mit Zitat

Der Code den Du uns gegeben hast funktioniert soweit, wenn man die Position des Textes ins Fenster schiebt. Um Dir helfen zu können ist also auch der Teil des Codes nötig in den diese Datei eingebunden wird, oder die Glaskugel hat heute Premiere Very Happy