Foro | | | | | | - Página 1 - |
|  | ¡Hola,
Yo voluntad una Menu escribir wo uno verschiedene Aktionen auswählen kann como
z.B. Shutdown, Neustart, Cancelar, Benutzerwechsel .Find aber nirgendwo qué qué Yo z.B. el Neustarten Befehl ansprechen, oder como überhaupt heißt. Würd el aber gerne wissen porque Yo würden el sigue gustando en mein Script einbauen.
Bitte postet me como el befehl heißt y si todavía otro Befehle en esta Richtung son.
Hier veces mein Script:
KompilierenMarcaSeparaciónWindow 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 qué aún en así una Menu para funktionen einbauen podría.
Einfach puesto!
mfg
Julian57 |
| | | | | | |
| | | | | | | - Página 1 - |
| 
E.T. | Un Solución, antes Ewigkeiten veces "zusammengebrutzelt"
No muy schön aussehend, aber funktionierend.
Das "schön" debería auch veces todavía voluntad, aber wenn's una vez funktioniert y en el Einsatz es, es el con el "verschöner'n" siempre así '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 | ¡Hola Julian,
schaue Usted doch simplemente veces el ersten 2 oder 3 Bände meines pequeño XProfan-Lehrbuches a.
Zusätzliche Tools y Tonnen de Demo-Quellcodes findest Usted auch en el XProfan-Manager y el MMJ-Quellcodesammlung en el Downloadbereich de [...] 
Saludo
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 ▲ |
| | |
| | | ¡Hola,
habe mich dazu entschlossen el Programa doch selbstzuschreiben.
Hab aber todavía unos pocos Fragen
1.Cuestión: Mit qué para una Befehl puede ser el Programa Beenden?
2 Cuestión: ¿Cómo se puede uno Buttuns otra vez entfernen, d.h. el ellos no mehr adecuado voluntad.
Weil Yo todavía una Untermenu geschrieben wo allerdings todavía el
Button de Hauptmenu bajo dennen de untermenu mentira!!!!!
3 Cuestión: ¿Cómo se puede uno una Eingabe de Benutzer verlangen y esta en uno Variable
Guardar?
4 Cuestión: Ist el Auf Bau de los programm Yo igual puesto voluntad sinnvoll oder
puede ser lo todavía verbessern?
KompilierenMarcaSeparaciónMein 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
Me complace en antworten!!!!
mfg
Julian57 |
| | | | | | |
| |  | Hi!
1: End - aber mejor natürlich enden/ auslaufen dejar
2: DestroyWindow(...
3: Siehe Entrada$( oder Crear("edit",... y var y declarar -
KompilierenMarcaSeparación |
| | | | | | |
| | | | | | - Página 2 - |
| | | ¡Hola,
"end" tener Yo en mi Porgramm sí posición pero macht una Shutdown y Beendet el Programa no.
mfg
Julian57 |
| | | | | | |
| | | | Wann final él el Programa no? |
| | | | | | |
| | | 1: Yo habe una Button erstellt y si yo porque drück entonces macht él una Shutdown.
el Quellcode es oben kannste nachschauen
2: ¿Cómo se puede uno Kommentare hacer?
mfg
Julian57 |
| | | | | | |
| | | Zeig me de tiempo el Quelltextstelle el no trabajo se...
Kommentare como üblich por // y /* ... */ y aber auch '. |
| | | | | | |
| | | ¡Hola,
hier:
ElseIf Clicked(exit&)
MessageBox("Möchten Sie el programm ya Beenden?","F r a g e",4132)
if %Button=6
end
EndIf
EndIf
mfg
Julian57 |
| | | | | | |
| | | hallo,
Yo finds komisch si yo mein Programa vereinfache entonces funktionierts con el final Button:
KompilierenMarcaSeparaciónWindow 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
Und si yo lo bebelasse no
KompilierenMarcaSeparaciónVentana 10,10-200,490
Título de la ventana "Shutdownmenu"
declarar herunter&, abmeld&,neustart&,exit&
declarar uhrzeit&
declarar verzögshut&,timeshut&,normalshut&,abort&
declarar Texto$,Titeltext$
Cls rgb(0,255,0)
imprimir ""
Imprimir " Shutdownmenu "
Imprimir ""
Imprimir ""
Imprimir " by Julian57 "
herunter& = Crear("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Crear("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Crear("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Crear("Button",%hwnd,"Uhrzeit",10,300,170,50)
exit& = Crear("Button",%hwnd,"Beenden",10,370,170,50)
Mientras que 1
WaitInput
If Clicked(herunter&)
DestroyWindow
cls rgb(0,255,0)
Ventana 10,10-230,420
Windowtitle "Herunterfahren"
imprimir ""
Imprimir " Shutdownmenu "
Imprimir ""
Imprimir ""
Imprimir " by Julian57 "
verzögshut& = Crear("Button",%hwnd,"Verzögertes Herunterfahren",10,90,200,50)
timeshut& = Crear("Button",%hwnd,"Herunterfahren después de Timer",10,160,200,50)
normalshut& = Crear("Button",%hwnd,"Sofortiges Herunterfahren",10,230,200,50)
abort& = Crear("Button",%hwnd,"Abbrechen",10,300,200,50)
Mientras 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&)
Texto$ = "Wir haben ahora " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Texto$,Titeltext$,4160)
ElseIf Clicked(exit&)
MessageBox("Möchten Sie el programm ya Beenden?","F r a g e",4132)
if %Button=6
end
EndIf
EndIf
EndWhile
end
Kann me alguien sagen por qué?
Achja tener veces el herunterfahren "deaktiviert"
mfg
Julian57 |
| | | | | | |
| | | ¡Hola,
ha alles hecho!!!!
Yo denke hiermit es el Hilo geschlossen
mfg
Julian57 |
| | | | | | |
| | | Usted siehst ya wegen el automatischen Code-Einrückung aquí en el Codevorschau, dass con el Code algo no stimmt.
So sieht uno z.B. igual:
KompilierenMarcaSeparación
qué no aufgeht como erstes If If ser muss no ElseIf. ^ ^
KompilierenMarcaSeparación
Eigene Temas de atención Marcos puede ser incluso y zurückmarkieren si uno eingeloggt es -
tener para Usted veces en "erledigt" geklickt. ^ ^ |
| | | | | | |
|
RespuestaThemeninformationenDieses Thema ha 4 subscriber: |
(494)
Deutsch
English
Français
Español
Italia