| |
| |
|
 | Salut,
je veux un Menu écrivons wohin on verschiedene Aktionen auswählen peux comment
z.B. Shutdown, Neustart, Annuler, Benutzerwechsel .Find mais nirgendwo quoi quoi comment je z.B. den Neustarten Befehl ansprechen, ou bien comment il überhaupt est. Würd cela mais volontiers savons car je würden den encore volontiers dans mon Script einbauen.
s'il te plaît postet mir comment qui befehl est et si es encore autre Befehle dans cet direction gibt.
ici la fois mon Script:
KompilierenMarqueSéparationWindow 10,10-200,350
WindowTitle "Shutdownmenu"
Declare herunter&, abmeld&'eingefügt
declare uhrzeit&' eingefügt KHR
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,160,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,230,170,50)
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
Vlt wisst son quoi on encore dans so un Menu pour funktionen einbauen pourrait.
simple posten!
mfg
Julian57 |
|
| |
| |
| |
|
|
 | exposition la fois ca sommes paramètre pour ExitWindows:
Hilfedatei
Folgende Modis sommes possible:
0 = Herunterfahren (ShutDown)
1 = Neustart (ReBoot)
2 = Ausschalten (PowerOff)
3 = Annuler (LogOff)
4 = Herunterfahren sans informer (ShutDown et Force)
5 = Neustart sans informer (ReBoot et Force)
6 = Ausschalten sans informer (PowerOff et Force)
7 = Annuler sans informer (LogOff et Force)
fais doch un menu avec Popup et AppendMenu ... |
|
| |
| |
| |
|
|
| allô,
merci pour qui vite Antwort.
probier je la fois aus
mfg
Julian57 |
|
| |
| |
| |
|
|
| ou bien ici la fois speziell pour Inaktivität [...]  ... |
|
| |
| |
| |
|
|
| allô,
hab cela jetz encore avec einem neuen Button
ici cela Script
KompilierenMarqueSéparationWindow 10,10-200,420
WindowTitle "Shutdownmenu"
Declare herunter&, abmeld&
declare uhrzeit&
declare neustart&
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Create("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,300,170,50)
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
ElseIf Clicked(neustart&)
ExitWindows 1
elseIf Clicked (uhrzeit&)
Text$ = "Wir haben jetzt " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWhile
end
eh bien hab je encore une frage ist es aussi possible cela on une den Shutdown sur une bestimmte Systemzeit einstellt d.h. cela il z.B. um 7.00 montre runterfährt, ou bien cela il pour 30Sec runterfährt ou bien une neustart pouvoir?
s'il te plaît postet juste Beispiele
mfg
Julian57 |
|
| |
| |
| |
|
|
| tu peux simple Time$(0) comparer z.B. avec "07:00" - s'il te plaît testen. ^ ^
KompilierenMarqueSéparation
Pour Zeitdauervergleiche eignet sich qui Systemvariable &getTickCount, alors 30 Sekunden sommes rum si &getTickCount größer comme zuvor z.B. per Variable gemerktem Wert &getTickCount+30000 ist.
KompilierenMarqueSéparation |
|
| |
| |
| |
|
|
| Salut,
könntest du mir cela vlt anhand meinen Scripts montrer.
ou bien juste ne gute Solution posten.
je kenn mich encore si bien avec dem Theme aus (hab aujourd'hui demain avec cela angefangen)
mfg
Julian57 |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
E.T. | une Solution, avant Ewigkeiten la fois "zusammengebrutzelt"
pas très joli aussehend, mais funktionierend.
cela "schön" sollte aussi la fois encore volonté, mais wenn's einmal funktioniert et im Einsatz ist, ist cela avec dem "verschöner'n" toujours so 'ne l'affaire... |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 13.10.2010 ▲ |
|
| |
|
|
Dietmar
Horn | allô Julian,
schaue Dir doch simple fois le ersten 2 ou bien 3 Bände meines kleinen XProfan-Lehrbuches à.
Zusätzliche Tools et Tonnen de Demo-Quellcodes findest Du aussi im XProfan-Manager et dans qui MMJ-Quellcodesammlung im Downloadbereich de [...]
Salut
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 13.10.2010 ▲ |
|
| |
|
|
| Salut,
habe mich en supplément entschlossen cela Programme doch selbstzuschreiben.
Hab mais encore un paire Fragen
1.Frage: avec quoi pour une Befehl peux on cela Programme finissons?
2 Frage: comment peux on Buttuns wieder entfernen, d.h. cela vous pas plus angezeigt volonté.
Weil j'ai encore un Untermenu geschrieben wohin allerdings encore qui
Button de Hauptmenu sous dennen de untermenu liegen!!!!!
3 Frage: comment peux on une Eingabe de Benutzer verlangen et cet dans einer Variable
Sauver?
4 Frage: Ist qui sur Bau de den programm quoi je juste posten volonté sinnvoll ou bien
peux on es encore améliorer?
KompilierenMarqueSéparationMein Programm:Window 10,10-200,490
WindowTitle "Shutdownmenu"
declare herunter&, abmeld&,neustart&,exit&
declare uhrzeit&
declare verzögshut&,timeshut&,normalshut&,abort&
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Create("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,300,170,50)
exit& = Create("Button",%hwnd,"Beenden",10,370,170,50)
While 1
WaitInput
If Clicked(herunter&)
cls rgb(0,255,0)
Window 10,10-230,420
Windowtitle "Herunterfahren"
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
verzögshut& = Create("Button",%hwnd,"Verzögertes Herunterfahren",10,90,200,50)
timeshut& = Create("Button",%hwnd,"Herunterfahren nach Timer",10,160,200,50)
normalshut& = Create("Button",%hwnd,"Sofortiges Herunterfahren",10,230,200,50)
abort& = Create("Button",%hwnd,"Abbrechen",10,300,200,50)
While 2
WaitInput
ElseIf Clicked(normalshut&)
ExitWindows 0
ElseIf Clicked(timeshut&)
ElseIf Clicked(verzögshut&)
ElseIf Clicked(abort&)
ElseIf Clicked(abmeld&)
ExitWindows 3
ElseIf Clicked(neustart&)
ExitWindows 1
elseIf Clicked(uhrzeit&)
Text$ = "Wir haben jetzt " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
ElseIf Clicked(exit&)
MessageBox("Möchten Sie das programm schon Beenden?","F r a g e",4132)
if %Button=6
end
EndIf
EndIf
EndWhi
end
je suis mich sur répondre!!!!
mfg
Julian57 |
|
| |
| |
| |
|
|
| Hi!
1: Fin - mais besser naturellement enden/ auslaufen laisser
2: DestroyWindow(...
3: Siehe Contribution$( ou bien Créer("edit",... et var et declare -
KompilierenMarqueSéparation |
|
| |
| |
| |
|
(504)
Deutsch
English
Français
Español
Italia