| |
| |
|
Stephan
Topm | Hi,
suis maintenant justement seulement sur XProfan gekommen et habe aussi pas sonderlich viel programmiererfahrung.
Habe dans qui une école la fois un bisschen Pascal et C++ gelernt et verstehe eigentlich qui meißten begriffe.
mon Problem ist eh bien, dass je une Mot de passe abfrage erstellt habe comme dialog et volontiers si cela Mot de passe faux était un erneute Eingabe stattfindet jusqu'à zum 3ten falschen versuch.
si je mais eh bien une entsprechende Boucle um den Dialog lege wird chez chaque Tastendruck un weiteres PW-la fenêtre ouvert.
wäre super si son mir aider könntet, ansonsten werde je la fois mon glück plus versuchen. ;D |
|
| |
| |
| |
|
|
| un un peu Beispielcode wär hilfreich  |
|
| |
| |
| |
|
|
Stephan
Topm | c'est qui Boucle qui pour dem Dialog venez.
KompilierenMarqueSéparationDeclare _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 mir aussi la fois eines de deinen Beispielen angeguckt, mais malheureusement pas so wirklich verstanden. ;) |
|
| |
| |
| |
|
|
 | @Stephan: qui Code ist malheureusement pas courir, un lauffähiges Minimalbeispiel [...]  muss mais déjà son...
Du wirst voyons cela Dein Problem ensuite entier entier entier fix aus qui monde geschaffen wurde... |
|
| |
| |
| |
|
|
Stephan
Topm | so poste wurde aktualisiert, sollte so courir son.
comment funktioniert cela eigentlich avec den objects ou bien aussi forms.
hab gelesen cela es cette object creator gibt qui mais pas sous qui 10il funktioniert et quelque chose eingebundenes quoi je mais irgendwie pas finde. |
|
| |
| |
| |
|
|
| Lediglich qui Programmstruktur stand Dir ici im Wege:
KompilierenMarqueSéparation {$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, maintenant ergibt es aussi sinn! ;)
hätte pas gedacht, dass je ici avec sprungmarken travailler muss. |
|
| |
| |
| |
|
|
| aucun Sprungmarken im Code! (pause bricht Boucle)
Obiges peut sich aussi pour 100 à cause de lösen, je hätte es z.B. anders aufgebaut comme Du ou bien Justus. |
|
| |
| |
| |
|
|
Michael
Wodrich | allô Stephan,
hab gelesen cela es cette object creator gibt qui mais pas sous qui 10il funktioniert
à gauche sous "Rokosofts Object Creator - Offizieller Fensterhelfer" findest Du toujours den neuesten.
belle Grüße
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 04.09.2008 ▲ |
|
| |
|
|
Rolf
Koch |
hab gelesen cela es cette object creator gibt qui mais pas sous qui 10il funktioniert
qui sagt car quelque chose comme? un paire Bugs sommes meist anzufinden, mais qui Creator ist toujours dans den neusten Versionen gelaufen. Kuck doch simple sur meiner page. [...] |
|
| |
| |
| |
|
(1.334)
Deutsch
English
Français
Español
Italia