Forum | | | | | | - page 1 - |
|  | 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 |
| | | | | | |
| | | | | | | - page 1 - |
| 
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 |
| | | | | | |
| | | | | | - page 2 - |
| | | Salut,
"end" hab je dans mon Porgramm oui stehen mais es pouvoir une Shutdown et finissez cela Programme pas.
mfg
Julian57 |
| | | | | | |
| | | | quand finissez il Programme pas? |
| | | | | | |
| | | 1: j'ai une Button erstellt et si je car drück ensuite pouvoir il une Shutdown.
qui Quellcode ist dessus kannste chercher
2: comment peux on Kommentare faire?
mfg
Julian57 |
| | | | | | |
| | | Zeig mir fois le Quelltextstelle qui pas marcher soll...
Kommentare comment üblich per // et /* ... */ et mais aussi '. |
| | | | | | |
| | | Salut,
ici:
ElseIf Clicked(exit&)
MessageBox("Möchten vous cela programm déjà finissons?","F r a g e",4132)
si %Button=6
end
EndIf
EndIf
mfg
Julian57 |
| | | | | | |
| | | allô,
je finds komisch si je mon Programme vereinfache ensuite funktionierts avec dem finissons Button:
KompilierenMarqueSéparationWindow 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
EndWh>
end
et si je es bebelasse pas
KompilierenMarqueSéparationFenêtre 10,10-200,490
Titre de la fenêtre "Shutdownmenu"
declare herunter&, abmeld&,neustart&,exit&
declare uhrzeit&
declare verzögshut&,timeshut&,normalshut&,abort&
declare Text$,Titeltext$
Cls rgb(0,255,0)
imprimer »
Imprimer " Shutdownmenu "
Imprimer »
Imprimer »
Imprimer " by Julian57 "
herunter& = Créer("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Créer("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Créer("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Créer("Button",%hwnd,"Uhrzeit",10,300,170,50)
exit& = Créer("Button",%hwnd,"Beenden",10,370,170,50)
Tandis que 1
WaitInput
Si Clicked(herunter&)
DestroyWindow
cls rgb(0,255,0)
Fenêtre 10,10-230,420
Windowtitle "Herunterfahren"
imprimer »
Imprimer " Shutdownmenu "
Imprimer »
Imprimer »
Imprimer " by Julian57 "
verzögshut& = Créer("Button",%hwnd,"Verzögertes Herunterfahren",10,90,200,50)
timeshut& = Créer("Button",%hwnd,"Herunterfahren pour Timer",10,160,200,50)
normalshut& = Créer("Button",%hwnd,"Sofortiges Herunterfahren",10,230,200,50)
abort& = Créer("Button",%hwnd,"Abbrechen",10,300,200,50)
Tandis que 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 avons maintenant " + Time $(2) + " montre."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
ElseIf Clicked(exit&)
MessageBox("Möchten vous cela programm déjà finissons?","F r a g e",4132)
si %Button=6
end
EndIf
EndIf
Endwhile
end
peux mir quelqu'un dire pourquoi?
Achja hab la fois cela herunterfahren "deaktiviert"
mfg
Julian57 |
| | | | | | |
| | | Salut,
hat alles erledigt!!!!
je denke hiermit ist qui Fil geschlossen
mfg
Julian57 |
| | | | | | |
| | | tu vois bereits à cause de qui automatischen Code-Einrückung ici dans qui Codevorschau, dass avec dem Code quelque chose pas stimmt.
So sieht on z.B. juste:
KompilierenMarqueSéparation
quoi pas aufgeht là erstes Si Si son muss pas ElseIf. ^ ^
KompilierenMarqueSéparation
Eigene Sujets comme erledigt markieren peux on selbst et zurückmarkieren si on eingeloggt ist -
hab pour toi la fois sur "erledigt" geklickt. ^ ^ |
| | | | | | |
|
répondreOptions du sujet | 6.529 Views |
Themeninformationencet Thema hat 4 participant: |
(504)
Deutsch
English
Français
Español
Italia