Forum | | | | | | - Seite 1 - |
|  | Hallo,
ich will ein Menu schreiben wo man verschiedene Aktionen auswählen kann wie
z.B. Shutdown, Neustart, Abmelden, Benutzerwechsel .Find aber nirgendwo was was wie ich z.B. den Neustarten Befehl ansprechen, oder wie er überhaupt heißt. Würd das aber gerne wissen denn ich würden den noch gerne in mein Script einbauen.
Bitte postet mir wie der befehl heißt und wenn es noch andere Befehle in diese Richtung gibt.
Hier mal mein Script:
KompilierenMarkierenSeparierenWindow 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 ihr was man noch in so ein Menu für funktionen einbauen könnte.
Einfach posten!
mfg
Julian57 |
| | | | | | |
| | | | | | | - Seite 1 - |
| 
E.T. | Eine Lösung, vor Ewigkeiten mal "zusammengebrutzelt"
Nicht sehr schön aussehend, aber funktionierend.
Das "schön" sollte auch mal noch werden, aber wenn's einmal funktioniert und im Einsatz ist, ist das mit dem "verschöner'n" immer so 'ne Sache... |
| | | | 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 | Hallo Julian,
schaue Dir doch einfach mal die ersten 2 oder 3 Bände meines kleinen XProfan-Lehrbuches an.
Zusätzliche Tools und Tonnen von Demo-Quellcodes findest Du auch im XProfan-Manager und in der MMJ-Quellcodesammlung im Downloadbereich von [...] 
Gruß
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 ▲ |
| | |
| | | Hallo,
habe mich dazu entschlossen das Programm doch selbstzuschreiben.
Hab aber noch ein paar Fragen
1.Frage: Mit was für einen Befehl kann man das Programm Beenden?
2 Frage: Wie kann man Buttuns wieder entfernen, d.h. das sie nicht mehr angezeigt werden.
Weil ich habe noch ein Untermenu geschrieben wo allerdings noch die
Button von Hauptmenu unter dennen von untermenu liegen!!!!!
3 Frage: Wie kann man eine Eingabe von Benutzer verlangen und diese in einer Variable
Speichern?
4 Frage: Ist der Auf Bau von den programm was ich gleich posten werden sinnvoll oder
kann man es noch verbessern?
KompilierenMarkierenSeparierenMein 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
EndWhile
end
Ich freue mich auf antworten!!!!
mfg
Julian57 |
| | | | | | |
| |  | Hi!
1: End - aber besser natürlich enden/ auslaufen lassen
2: DestroyWindow(...
3: Siehe Input$( oder Create("edit",... und var und declare -
KompilierenMarkierenSeparieren |
| | | | | | |
| | | | | | - Seite 2 - |
| | | Hallo,
"end" hab ich in meine Porgramm ja stehen aber es macht einen Shutdown und Beendet das Programm nicht.
mfg
Julian57 |
| | | | | | |
| | | | Wann beendet er das Programm nicht? |
| | | | | | |
| | | 1: Ich habe einen Button erstellt und wenn ich denn drück dann macht er einen Shutdown.
der Quellcode ist oben kannste nachschauen
2: Wie kann man Kommentare machen?
mfg
Julian57 |
| | | | | | |
| | | Zeig mir mal die Quelltextstelle die nicht funktionieren soll...
Kommentare wie üblich per // und /* ... */ und aber auch '. |
| | | | | | |
| | | Hallo,
hier:
ElseIf Clicked(exit&)
MessageBox("Möchten Sie das programm schon Beenden?","F r a g e",4132)
if %Button=6
end
EndIf
EndIf
mfg
Julian57 |
| | | | | | |
| | | hallo,
Ich finds komisch wenn ich mein Programm vereinfache dann funktionierts mit dem beenden Button:
KompilierenMarkierenSeparierenWindow 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&)
DestroyWindow
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
EndWhile
end
Und wenn ich es bebelasse nicht
KompilierenMarkierenSeparierenWindow 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&)
DestroyWindow
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
EndWhile
end
Kann mir jemand sagen warum?
Achja hab mal das herunterfahren "deaktiviert"
mfg
Julian57 |
| | | | | | |
| | | Hallo,
hat alles erledigt!!!!
Ich denke hiermit ist der Thread geschlossen
mfg
Julian57 |
| | | | | | |
| | | Du siehst bereits wegen der automatischen Code-Einrückung hier in der Codevorschau, dass mit dem Code etwas nicht stimmt.
So sieht man z.B. gleich:
KompilierenMarkierenSeparieren
was nicht aufgeht da erstes If If sein muss nicht ElseIf. ^^
KompilierenMarkierenSeparieren
Eigene Themen als erledigt markieren kann man selbst und auch zurückmarkieren wenn man eingeloggt ist -
hab für Dich mal auf "erledigt" geklickt. ^^ |
| | | | | | |
|
AntwortenThemenoptionen | 6.499 Betrachtungen |
ThemeninformationenDieses Thema hat 4 Teilnehmer: |
(495)
Deutsch
English
Français
Español
Italia