Beiträge von RR04

  • Sleep bei GUI

    Hier mal beide Modi im Vergleich.

    Spoiler anzeigen
    [autoit]


    #include <Sound.au3>

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

    Global $CurrentSound
    #region ### START Playlister GUI section ###
    GUICreate("Playlister", 283, 224, 634, 131)
    $lbl = GUICtrlCreateLabel("", 0, 104, 279, 17)
    $bn1 = GUICtrlCreateButton("Open", 48, 40, 75, 22)
    $bn2 = GUICtrlCreateButton("Play", 128, 152, 75, 22)
    $Pause = GUICtrlCreateButton("Break", 8, 152, 75, 22)
    $ckb = GUICtrlCreateCheckbox("Save", 160, 48, 97, 17)
    GUICtrlSetState(-1, 1)

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

    GUISetState(@SW_SHOW)
    #endregion ### END Playlister GUI section ###

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

    #region ### START Playlister Loop section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    ExitLoop
    Case $bn1
    _File()
    Case $Pause
    MsgBox(0, "", "Aus der Schleife - Break !")
    ;~ _SoundPause($CurrentSound)
    Case $bn2
    MsgBox(0, "", "Aus der Schleife - Play !")
    ;~ _SoundResume($CurrentSound)
    EndSwitch
    WEnd
    #endregion ### END Playlister Loop section ###

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

    #region ### START Playlister Func section ###
    Func _File()
    MsgBox(0, "", "Aus der Funktion - Open !")
    EndFunc ;==>_File
    #endregion ### END Playlister Func section ###
    ; Ende

    [/autoit]
    Spoiler anzeigen
    [autoit]


    #include <Sound.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $CurrentSound
    #region ### START Playlister GUI section ###
    GUICreate("Playlister", 283, 224, 634, 131)
    GUISetOnEvent(-3, "_Func")
    $lbl = GUICtrlCreateLabel("", 0, 104, 279, 17)
    $bn1 = GUICtrlCreateButton("Open", 48, 40, 75, 22)
    GUICtrlSetOnEvent(-1, "_Func")
    $bn2 = GUICtrlCreateButton("Play", 128, 152, 75, 22)
    GUICtrlSetOnEvent(-1, "_Func")
    $Pause = GUICtrlCreateButton("Break", 8, 152, 75, 22)
    GUICtrlSetOnEvent(-1, "_Func")
    $ckb = GUICtrlCreateCheckbox("Save", 160, 48, 97, 17)
    GUICtrlSetState(-1, 1)

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

    GUISetState(@SW_SHOW)
    #endregion ### END Playlister GUI section ###

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

    #region ### START Playlister Loop section ###
    While Sleep(100)
    WEnd
    #endregion ### END Playlister Loop section ###

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

    #region ### START Playlister Func section ###
    Func _Func()
    Switch @GUI_CtrlId
    Case -3
    Exit
    Case 4
    MsgBox(0, "", "Aus der Funktion - Open !")
    Case 5
    MsgBox(0, "", "Aus der Funktion - Play !")
    ;~ _SoundResume($CurrentSound)
    Case 6
    MsgBox(0, "", "Aus der Funktion - Break !")
    ;~ _SoundPause($CurrentSound)
    EndSwitch
    EndFunc ;==>_Func
    #endregion ### END Playlister Func section ###
    ; Ende

    [/autoit]

  • Error bei If FileExists..

    Hallo, schau es Dir mal an ! 8)

    Spoiler anzeigen
    [autoit]


    Global $ini = @ScriptDir & "\Path.ini", $Button[36], $Path1
    If Not FileExists($ini) Then
    MsgBox(0, 0, "Sie werden nun in die Optionen weitergeleitet. Bitte geben sie alle nötigen Pfade an!")
    FileWrite($ini, "Not Defined")
    _Pfad()
    Else
    _Pfad()
    EndIf

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

    #region ### START Koda GUI section ###
    $FreeBird = GUICreate("FreeBird", 449, 345, 303, 172)
    $MenuItem1 = GUICtrlCreateMenu("&Menü")
    $MenuItem5 = GUICtrlCreateMenuItem("Exit Shift+Ctrl+E" & @TAB & "", $MenuItem1)
    $MenuItem2 = GUICtrlCreateMenu("&Optionen")
    $MenuItem3 = GUICtrlCreateMenu("&Hilfe")
    $MenuItem4 = GUICtrlCreateMenu("Ü&ber")
    $HAllo = GUICtrlCreateLabel("Bitte wählen Sie eine der folgenden Optionen, indem Sie einen der Button anklicken !", 8, 8, 423, 17)
    $Hallo2 = GUICtrlCreateLabel("Sie werden dann zum jeweiligen Untermenü weitergeleitet !", 88, 32, 278, 17)
    For $z = 0 To 35
    $Button[$z] = GUICtrlCreateButton("", 15 + Mod($z, 6) * 70, 55 + Int($z / 6) * 44, 65, 33)
    GUICtrlSetData(-1, "Nicht belegt")
    Next
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3, $MenuItem5
    ExitLoop
    #cs
    Case $Button[0]
    Case $Button[1]
    [...]
    Case $Button[35]
    #ce
    EndSwitch
    WEnd

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

    Func _Pfad()
    $Path1 = IniRead($ini, "Line1", "key", "false")
    EndFunc ;==>_Pfad
    ; Ende

    [/autoit]

  • buttonproblem

    Hallo,
    hier ein Beispiel. 8)

    Spoiler anzeigen
    [autoit]


    Opt("GUIOnEventMode", 1)

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

    Global $h_bn[9], _
    $left[9] = [10, 10, 10, 85, 85, 85, 160, 160, 160], _
    $top[9] = [70, 100, 130, 70, 100, 130, 70, 100, 130]

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

    #region GUI tictactoe - Demo ###
    GUICreate("tictactoe - Demo", 320, 200)
    GUISetOnEvent(-3, "_klick")
    For $i = 0 To 8
    $h_bn[$i] = GUICtrlCreateButton($i + 1, $left[$i], $top[$i], 75, 30)
    GUICtrlSetOnEvent(-1, "_klick")
    Next
    GUISetState()
    #endregion GUI tictactoe - Demo ###

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

    #region Schleife tictactoe - Demo ###
    While Sleep(100)
    WEnd
    #endregion Schleife tictactoe - Demo ###

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

    #region Funktion tictactoe - Demo ###
    Func _klick()
    Switch @GUI_CtrlId
    Case -3
    MsgBox(64, "tictactoe - Demo", _
    "Viel Spaß wünscht RR04 !" & @TAB, 3)
    Exit
    Case 3
    MsgBox(64, "tictactoe - Demo", _
    "Button 1 !" & @TAB, 3)
    Case 7
    MsgBox(64, "tictactoe - Demo", _
    "Button 5 !" & @TAB, 3)
    Case 11
    MsgBox(64, "tictactoe - Demo", _
    "Button 9 !" & @TAB, 3)
    EndSwitch
    EndFunc ;==>_klick
    #endregion Funktion tictactoe - Demo ###
    ; Ende

    [/autoit]

  • Mathe Pogramm

    Hi,
    wenn Du die folgende Zeile als erste Zeile in Dein Script einfügst bekommst Du mehr Hinweise von AutoIt.
    Du hast Variablen mehrfach verwendet und alle "Global" deklariert.

    [autoit]

    #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

    [/autoit]

  • Mathe Pogramm

    Hi, habe es eben noch einmal probiert.

    Ich starte das Programm und wechsle zum Tab +, hier bekomme ich die Frage und auch die Antwort, ohne selber gerechnet zu haben.

  • USB CustomiZer - Tool zum einfachen Anpassen eines Datenträgers [Label & Icon zuweisen/ändern]

    Hi,
    hier ein Beispiel, wie weitere Icons eingebunden werden können.
    Tipp:
    Bei den bereits vorhandene Autorun.inf Dateien würde ich den Nutzer fragen, ob Überschreiben/Löschen oder vorher umbenennen (Autorun.inf.alt). 8)

    [autoit]


    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=iconPLUS.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
    #AutoIt3Wrapper_Res_Icon_Add=1.ico
    #AutoIt3Wrapper_Res_Icon_Add=2.ico
    #AutoIt3Wrapper_Res_Icon_Add=3.ico
    #AutoIt3Wrapper_Run_Tidy=y
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>

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

    #region - GUI Create
    GUICreate(' iconPLUS', 400, 400)
    $Checkbox = GUICtrlCreateCheckbox("cb", 30, 90, 150, 40, BitOR($BS_ICON, $BS_PUSHLIKE))
    GUICtrlSetImage(-1, @ScriptFullPath, -7)
    $bnOK = GUICtrlCreateButton("OK", 20, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -5)
    $bnClose = GUICtrlCreateButton("b", 305, 350, 75, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, -6)
    GUISetState()
    #endregion - GUI Create

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $bnClose
    MsgBox(64, " iconPLUS - Example", "Viel Spaß wünscht RR04 !" & @TAB, 3)
    Exit
    Case $msg = $bnOK
    MsgBox(64, " iconPLUS - Example", "OK wurde gedrückt !" & @TAB)
    Case $msg = $Checkbox
    MsgBox(64, " iconPLUS - Example", "CheckBox wurde gedrückt !" & @TAB)
    EndSelect
    WEnd
    #endregion - GUI SelectLoop

    [/autoit]