| |
| |
|
Roberto | El Passwortabfrage
So Yo en una Programa de me una Passwortabfrage gemacht.
Lo klappt auch alles.
Wenn al Contraseña eingegeben ha kommt el Programa.
En el Funktioniert auch alles.
Ausser el se el Passworfenster como irgendwie en el Grafik reindrückt
Wäre schön si ihr euch el ma angucken Könntet
Contraseña es robin
KompilierenMarcaSeparacióndeclare e%,x%,y%,Edit&,weiter&,exit&,passwort$
x% = 260
y% = 120
passwort$ = robin
WindowTitle Passwort-Abfrage
Window (%MaxX- x%) / 2,(%MaxY - y%) / 2 - x%,y%
Edit& = Create(Edit,%HWnd,,5,5,245,(-1) * 20)
weiter& = Create(Button,%HWnd,Weiter,5,Height(%HWnd) - 30,120,25)
exit& = Create(Button,%HWnd,Abbrechen,Width(%HWnd) - 115,Height(%HWnd)- 30,110,25)
SetFocus(Edit&)
clear e%
whilenot e%
WaitInput
if Clicked(exit&)
end
elseif Clicked(weiter&)
ifnot GetText$(Edit&) = passwort$
Messagebox(Falsches Passwort!
Kein Zugang!,I N F O,4160)
e% = 1
end
else
e% = 999
Messagebox(PASSWORT STIMMT,I N F O,4160)
endif
endif
endwhile
Window 10,10-200,350
WindowTitle RH PROG Version 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$
Cls
Print MEIN PROGRAMMverändert
Print verändert
LoadBMP RobinHonacker.BMP,0,0;0
herunter& = Create(Button,%hwnd,Herunterfahren,10,90,170,50)verändert
abmeld& = Create(Button,%hwnd,Abmelden,10,160,170,50)verändert
uhrzeit& = Create(Button,%hwnd,Uhrzeit,10,230,170,50)verändert
abfrage der Buttons
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
elseIf Clicked (uhrzeit&) geändert KHR
Text$ = Wir haben jetzt + Time$(2) + Uhr.
Titeltext$ = I N F O
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWhile
end
|
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 17.02.2009 ▲ |
|
| |
|
|
Rolf
Koch | Hier - pero no sólo kopieren - Nein auch kapieren!!! 
KompilierenMarcaSeparacióndeclare e%,x%,y%,Edit&,weiter&,exit&,passwort$,passwindow&
x% = 280
y% = 100
passwort$ = robin
passwindow&=Create(Window,%hwnd,Passwortabfrage,(%MaxX- x%) / 2,(%MaxY - y%) / 2, x%,y%)
Hier kein Hauptfenster erstellen.
Edit& = Create(Edit,passwindow&,,5,5,245,20)
weiter& = Create(Button,passwindow&,Weiter,5,30,120,25)
exit& = Create(Button,passwindow&,Abbrechen,132,30,120,25)
SetFocus(Edit&)
clear e%
whilenot e%
WaitInput
if Clicked(exit&)
end
elseif Clicked(weiter&)
ifnot GetText$(Edit&) = passwort$
Messagebox(Falsches Passwort!
Kein Zugang!,I N F O,4160)
e% = 1
end
else
e% = 999
Messagebox(PASSWORT STIMMT,I N F O,4160)
endif
endif
endwhile
destroywindow(passwindow&)
Window 10,10-200,350
WindowTitle RH PROG Version 1.0
Declare herunter&, abmeld&eingefügt
declare uhrzeit& eingefügt KHR
declare Text$,Titeltext$
Cls
Print MEIN PROGRAMMverändert
Print verändert
LoadBMP RobinHonacker.BMP,0,0;0
herunter& = Create(Button,%hwnd,Herunterfahren,10,90,170,50)verändert
abmeld& = Create(Button,%hwnd,Abmelden,10,160,170,50)verändert
uhrzeit& = Create(Button,%hwnd,Uhrzeit,10,230,170,50)verändert
abfrage der Buttons
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
elseIf Clicked (uhrzeit&) geändert KHR
Text$ = Wir haben jetzt + Time$(2) + Uhr.
Titeltext$ = I N F O
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWa>
end
|
|
| |
| |
| |
|
|
 | Rolf, Usted bist tapfer - respekt!  |
|
| |
| |
| |
|
|
Rolf
Koch | ¿Por qué auch no - IF
Jedem es bekannt, Yo eh y je una Herz para Einsteiger hatte. Weil Yo damals así schwer hatte y en mich alleine gestellt war.
@Robin
Auch si manchmal algo de me algo härter rüberkommt, es nett gemeint.
Man nennt mich el Schleifer el Profanrekruten *lol*
Nur con Härte ans Ziel ^ ^ |
|
| |
| |
| |
|
|
Roberto | | Sí Rolf hats en él vielen Dank |
|
| |
| Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^ | 17.02.2009 ▲ |
|
| |
|
(908)
Deutsch
English
Français
Español
Italia