Wie weise ich einem Button 2 befehle zu ?

concepta

hallo wie in der Überschrift beschrieben will ich meinem button 2 funktionen zuweisen und zwar das er eine internetseite und gleichzeitig noch ein programm startet bis jetzt sieht mein quellcode so aus :

Spoiler anzeigen

#include <GUIConstantsEx.au3>

GUICreate(" Uhrzeit")
$gui = GUICreate('', 200, 200, -1, -1)
$Button1 = GUICtrlCreateButton("Klick Mich", 48, 164, 104, 17, 0)
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _a1()
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)

EndFunc ;==>a1
; Ende

nuts

So?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

GUICreate(" Uhrzeit")
$gui = GUICreate('', 200, 200, -1, -1)
$Button1 = GUICtrlCreateButton("Klick Mich", 48, 164, 104, 17, 0)
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_Funktion1()
_Funktion2()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _a1()
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)

[/autoit] [autoit][/autoit] [autoit]

; Ende
EndFunc ;==>a1

[/autoit] [autoit][/autoit] [autoit]

Func _Funktion1()
;Dein Code
endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _Funktion2()
;Dein Code
endfunc

[/autoit]

Jonathan

Würde nciht auch einfach zweimal case $Button1 gehen bin mir da nicht sicher!
also so:

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$aktion1 = "tue dies"
case $Button1
$aktion2 = "tue was anderes"

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Wie gesagt, bin mir nciht sicher! aber warum machst du es nciht gleich so:

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Oder habe ich das total falsch verstanden, und bin auf dem totalen Holzweg?

**Schnitzel**

Zitat von Jonathan

Würde nciht auch einfach zweimal case $Button1 gehen bin mir da nicht sicher!
also so:

nö so gehts nicht. bzw so wird immer nur der obere der beiden Case ausgeführt. dannach "springt er aus dem switch".

Zitat

eine internetseite und gleichzeitig noch ein programm startet

du kannst keine sachen gleichzeitig ausführen lassen. zumindest nicht mit autoit. du musst sie nacheinander starten. also so:

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
_Rundos("start http://www.autoit.de") ; internetseite starten
Shellexecute(.....) ; programm ausführen
EndSwitch
WEnd

[/autoit]

**BugFix**

Zwei- oder mehrmals Case zu einer ID geht auch - mit ContinueCase.
Macht zwar wenig Sinn, da es einfacher ist beide Befehle nacheinander in einem Case abzuarbeiten.

[autoit]

GUICreate('test')
$b1 = GUICtrlCreateButton('B1', 10,10,100,20)
$b2 = GUICtrlCreateButton('ENDE', 200,10,80,20)
GUISetState()

[/autoit][autoit][/autoit][autoit]

While 1
$m = GUIGetMsg()
Switch $m
Case $b1
MsgBox(0, '', 'B1 - die Erste!')
ContinueCase
Case $b1
MsgBox(0, '', 'B1 - die Zweite!')
Case -3, $b2
Exit
EndSwitch
WEnd

[/autoit]

**Schnitzel**

Zitat von BugFix

Macht zwar wenig Sinn, da es einfacher ist beide Befehle nacheinander in einem Case abzuarbeiten.

Jup deswegen hab ichs weggelassen

concepta

hi ich hab das jetzt mal so umgeschrieben aber wenn ich auf den button klicke funktioniert danach das X nicht mehr ....

Spoiler anzeigen

#include
#include

GUICreate(" Uhrzeit")
Opt("GUIOnEventMode", 1)
$gui = GUICreate('', 200, 200, -1, -1)
GUICtrlSetOnEvent(-1, "Onexit")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$OkButton = GUICtrlCreateButton("Klick Mich", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent($okbutton, "OKButton")
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _a1()
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>a1

Func OKButton()
_IECreate("http://www.autoit.de", 1, 1)
Run()

Exit
EndFunc

Func CLOSEClicked()
MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
Exit
EndFunc

Func OnExit()
Run("")
Exit
EndFunc

**Schnitzel**

es ist nicht möglich im OnEventMode und gleichzeitig was im GuigetMsg-Mode Buttons abzufragen. schau dir am besten in der hilfe unter Gui Referenz die beispiele an

concepta

ah ok gut danke hab jetzt noch ein bischen rumgebastelt aber jetzt geht wenn ich den button klicke das programm was ich starten will auf un autoit zu aber wenn ich da in den button noch einfüge mit dem link öffnen macht er nur das obere und meine uhr bzw das datum wird nicht mehr angezeit ....

Spoiler anzeigen

#include <GUIConstants.au3>
#include <IE.au3>

GUICreate(" Uhrzeit")
Opt("GUIOnEventMode", 1)
$gui = GUICreate('', 200, 200, -1, -1)
GUISetBkColor (0x00E0FFFF)
GUICtrlSetOnEvent(-1, "Onexit")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1, "Onexit")
$button = GUICtrlCreateButton ("Klick mich Fest !!!", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent(-1, "OnClick")
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

While 1
Sleep (100)
Wend

Exit

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _a1()
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>a1

Func OKButton()

MsgBox(0, "GUI Event", "Du hast auf OK geklickt!")
Exit
EndFunc

Func CLOSEClicked()
MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
Exit
EndFunc

Func OnClick()
GUICtrlSendToDummy($user)
EndFunc

Func OnExit()
; special action before exiting
Run("")
Exit
EndFunc

**Schnitzel**

steht das so im script wenn du es startest: Run("")
wenn ja dann schau dir in der hilfe gleich noch Run mit an. da musst du nämlich was reinschreiben sonst startet er garnichts bzw bringt einen fehler.

concepta

ne da schreib ich das programm rein also so :

Spoiler anzeigen

#include <GUIConstants.au3>
#include <IE.au3>

GUICreate(" Uhrzeit")
Opt("GUIOnEventMode", 1)
$gui = GUICreate('', 200, 200, -1, -1)
GUISetBkColor (0x00E0FFFF)
GUICtrlSetOnEvent(-1, "Onexit")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent(-1, "Onexit")
$button = GUICtrlCreateButton ("Klick mich Fest !!!", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent(-1, "OnClick")
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
; "" kein Eintrag, da hier die Uhrzeit eingesetzt wird
GUISetState()

While 1
Sleep (100)
Wend

Exit

_a1(); Beginn der Funktion mit Start des Programms ! einmalig !
AdlibEnable("_a1", 1000); Start der Funktion ! alle 1000 ms !

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func _a1()
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>a1

Func OKButton()

MsgBox(0, "GUI Event", "Du hast auf OK geklickt!")
Exit
EndFunc

Func CLOSEClicked()

MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
Exit
EndFunc

Func OnClick()
GUICtrlSendToDummy($user)
EndFunc

Func OnExit()

Run("start-cabal.bat")
Exit
EndFunc

und wenn cih dann _IECreate("http://www.autoit.de", 1, 1) noch über run schreibe funktioniert das nicht mehr und im mom wird auch mein datum bzw uhr nicht mehr angezeigt

**Schnitzel**

so ich habs dir mal überarbeitet. Wenn du jetzt den Button klickst führt er die "start-cabal.bat" aus. (vorausgesetzt sie heißt genau so ohne "" und sie befindet sich im gleichen ordner wie das script) und er öffnet die Internetseite autoit.de im standartbrowser

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <Process.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

$gui = GUICreate('', 200, 200, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$button = GUICtrlCreateButton("Klick mich Fest !!!", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent(-1, "OnClick")
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable("_a1", 1000); aktualisiert jede sekunde das Datum und die Uhrzeit

[/autoit] [autoit][/autoit] [autoit]

While 1
sleep(1000)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _a1() ; Datum und uhrzeit aktuell halten
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>_a1

[/autoit] [autoit][/autoit] [autoit]

Func OKButton()
MsgBox(0, "GUI Event", "Du hast auf OK geklickt!")
Exit
EndFunc ;==>OKButton

[/autoit] [autoit][/autoit] [autoit]

Func CLOSEClicked()
MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
Exit
EndFunc ;==>CLOSEClicked

[/autoit] [autoit][/autoit] [autoit]

Func OnClick()
Run("start-cabal.bat")
_Rundos("start http://www.autoit.de")
EndFunc ;==>OnClick

[/autoit]

wenn du fragen hast dann melde dich ruhig

concepta

ja dank is super =) nur hab ich am ende den befehl _RunDos durch _IECreate("http://www.autoit.de", 1, 1) weil sonst bei mir immer ein error kommt aber sonst klappt alles. Eine frage aber habe ich noch und zwar wenn man den button geklickt hat kann man das so einstellen das autoit dann direkt schließt ?

progandy

Pack ein Exit dazu und statt _IECreate("http://www.autoit.de", 1, 1) würde ich ShellExecute("http://www.autoit.de") verwenden

concepta

ok danke hab ich geändert und funktioniert einwandfrei =).
Kann man eigentlich einen timer programmieren der auch weiterläuft wenn das programm nicht läuft also das der immer 4h runterzählt, wenn er zb um 12uhr anfangen soll das dann um 12 uhr da steht 4h und zb um halb 4 steht dann da 30min. Ist das irgentwie möglich zu programmieren ?

danke schon mal im voraus

**Schnitzel**

ohne programm kein timer. aber du könntest die gui und das trayicon ausblenden. dann läuft nur noch der prozess. und einen "Countdown" kann man natürlich schreiben

concepta

ja in meinem vorhanden programm also das wenn cih starte ich zb sehe wie lange es bis 16uhr dauert und ab 16.01 das man dann sieht noch 3h59min bis 20uhr so in etwa hatte ich mir das vorgestell, aber keine ahnung ob das überhaupt funktionieren kann.

SEuBo

Zitat von Schnitzel

ohne programm kein timer.

Würde es nicht funktionieren einen von TimerInit() erzeugten Timestamp in einer .ini Datei zu speichern?

**Schnitzel**

sicherlich, aber dann musste ja wieder das programm starten um darauf zu reagieren