| |
| |
|
Stephan
Topm | Hi,
Bin ahora gerade sólo en XProfan gekommen y habe auch no sonderlich viel programmiererfahrung.
Posesiones en el Schule veces una bisschen Pascal y C++ gelernt y verstehe eigentlich el meißten begriffe.
Mein Problema es nun, dass Yo una Contraseña abfrage erstellt habe como dialog y gerne si el Contraseña falso fue un erneute Eingabe stattfindet a para 3ten falschen versuch.
Wenn Yo aber nun una entsprechende Bucle en el Diálogo lege se cada Tastendruck una weiteres PW-Ventana geöffnet.
wäre super si ihr me helfen könntet, ansonsten voluntad Yo veces mein glück más versuchen. ;D |
|
| |
| |
| |
|
|
| Ein bischen Beispielcode wär hilfreich  |
|
| |
| |
| |
|
|
Stephan
Topm | Es el Bucle el después de el Diálogo kommt.
KompilierenMarcaSeparaciónDeclare _pw%, Text%, Pass%, Pass$, Font%, OK%, Cancel%, F%, font1%
-Eingabefeld erstellen-
_pw% = @Create("Dialog",%hWnd,"Cisco Configtool beta 1.0",10,10,400,220)
Text% = @Create("Text",_pw%,"Please insert Password:",20,20,300,20)
Pass% = @Create("Edit",_pw%,"", 20, 50,200,30)
Font% = @Create("Font","Lucida Console",12,0,0,0,0)
Font1% = @Create("Font","Lucida Console",24,0,0,0,0)
OK% = @Create("DefButton",_pw%,"OK", 20,140, 100,30)
CANCEL% = @Create("Button",_pw%,"Cancel",130,140,100,30)
SetFont cancel%, font%
SetFont text%, font%
SetFont ok%, font%
SetFont Pass%, Font1%
sendmessage(Pass%,204,ord("*"),0)
@SetFocus(Pass%)
F% = 0
WhileNot F%
WaitInput
If Clicked(OK%)
Pass$ = @GetText$(Pass%)
If Pass$="Test"
DestroyWindow(OK%)
F% = 1
DestroyWindow(_pw%)
ElseIf Pass$ <> "Test"
EnableWindow Text%,0
EnableWindow Pass%,0
EnableWindow OK%,0
EnableWindow CANCEL%,0
SLEEP 1500
F% = 1
DestroyWindow(_pw%)
EndIf
ElseIf @Clicked(CANCEL%)
F% = 1
DestroyWindow(_pw%)
EndIf
EndWhile
hatte me auch veces uno de deinen Beispielen angeguckt, aber por desgracia, no así wirklich verstanden. ;) |
|
| |
| |
| |
|
|
 | @Stephan: Der Code es por desgracia, no lauffähig, una lauffähiges Minimalbeispiel [...]  muss aber ya ser...
Usted wirst sehen el Su Problema entonces bastante bastante bastante fix de el Welt geschaffen wurde... |
|
| |
| |
| |
|
|
Stephan
Topm | así post wurde aktualisiert, debería así lauffähig ser.
como funktioniert el eigentlich con el objects oder auch forms.
tener gelesen el lo esta object creator son el pero no bajo el 10él funktioniert y algo eingebundenes Yo aber irgendwie no finde. |
|
| |
| |
| |
|
|
| Lediglich el Programmstruktur stand Usted hier en el Wege:
KompilierenMarcaSeparación {$cleq}
Gemerkt/Separiert von http://xprofan.com/thread.core?t=6865
Declare _pw%, Text%, Pass%, Pass$, Font%, OK%, Cancel%, F%, font1%
-Eingabefeld erstellen-
_pw% = @Create("Dialog",%hWnd,"Cisco Configtool beta 1.0",10,10,400,220)
Text% = @Create("Text",_pw%,"Please insert Password:",20,20,300,20)
Pass% = @Create("Edit",_pw%,"", 20, 50,200,30)
Font% = @Create("Font","Lucida Console",12,0,0,0,0)
Font1% = @Create("Font","Lucida Console",24,0,0,0,0)
OK% = @Create("DefButton",_pw%,"OK", 20,140, 100,30)
CANCEL% = @Create("Button",_pw%,"Cancel",130,140,100,30)
SetFont cancel%, font%
SetFont text%, font%
SetFont ok%, font%
SetFont Pass%, Font1%
sendmessage(Pass%,204,ord("*"),0)
@SetFocus(Pass%)
F% = 0
while 1
WaitInput
If Clicked(OK%)
case GetText$(Pass%)="Test" : break
EnableWindow Text%,0
EnableWindow Pass%,0
EnableWindow OK%,0
EnableWindow CANCEL%,0
SLEEP 1500
f%=f%+1
case f%=3 : break
EnableWindow Text%,1
EnableWindow Pass%,1
EnableWindow OK%,1
EnableWindow CANCEL%,1
ElseIf @Clicked(CANCEL%)
f%=3
break
EndIf
endWhile
DestroyWindow(_pw%)
case f%=3 : end
print "geschafft"
waitkey
/../function-references/XProfan/end/'>end
|
|
| |
| |
| |
|
|
Stephan
Topm | Super!
Dankeschön, ahora ergibt lo auch sinn! ;)
hätte no pensamiento, dass Yo hier con sprungmarken trabajo muss. |
|
| |
| |
| |
|
|
| Keine Sprungmarken en el Code! (romper bricht Bucle)
Obiges lässt se auch después de 100 Wegen lösen, Yo hätte lo z.B. anders aufgebaut como Usted oder Justus. |
|
| |
| |
| |
|
|
Michael
Wodrich | ¡Hola Stephan,
tener gelesen el lo esta object creator son el pero no bajo el 10él funktioniert
Links bajo "Rokosofts Object Creator - Offizieller Fensterhelfer" findest Usted siempre el neuesten.
Schöne Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 04.09.2008 ▲ |
|
| |
|
|
Rolf
Koch |
tener gelesen el lo esta object creator son el pero no bajo el 10él funktioniert
Wer sagt porque algo como? Ein pocos Bugs son meist anzufinden, pero la Creator es siempre en el neusten Versionen gelaufen. Kuck doch simplemente meiner Página. [...] |
|
| |
| |
| |
|
(2.317)
Deutsch
English
Français
Español
Italia