Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #cs
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <Timers.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("aPod Nano", 317, 436)
- $Pic1 = GUICtrlCreatePic(@ScriptDir&"\aPod.JPG", 0, 0, 317, 436, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- $timer = _Timer_Init()
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- EndSwitch
- If _Timer_Diff($timer) > 4000 Then ExitLoop
- WEnd
- GUIDelete()
- MsgBox(0,"","")
- #ce
- #include <GUIConstantsEx.au3>
- #include <SliderConstants.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Control", 153, 201, 196, 124)
- $Group1 = GUICtrlCreateGroup("Tastensperre", 24, 8, 97, 57)
- $Slider1 = GUICtrlCreateSlider(32, 24, 54, 29)
- GUICtrlSetLimit(-1, 1, 0)
- $Label1 = GUICtrlCreateLabel("00", 88, 32, 16, 17)
- GUICtrlSetBkColor(-1, 0x00FF00)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Button1 = GUICtrlCreateButton("Menu", 40, 72, 75, 25, 0)
- $Button2 = GUICtrlCreateButton(">>", 120, 96, 27, 73, 0)
- $Button3 = GUICtrlCreateButton("<<", 8, 96, 27, 73, 0)
- $Button4 = GUICtrlCreateButton("", 40, 104, 73, 57, 0)
- $Button5 = GUICtrlCreateButton("> | |", 40, 168, 75, 25, 0)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Slider1
- If GuiCtrlRead($Slider1) = 1 Then
- GUICtrlSetBkColor($Label1, 0xFF0000)
- GUICtrlSetData($Label1,"01")
- GUICtrlSetState($Button1,$GUI_DISABLE)
- GUICtrlSetState($Button2,$GUI_DISABLE)
- GUICtrlSetState($Button3,$GUI_DISABLE)
- GUICtrlSetState($Button4,$GUI_DISABLE)
- GUICtrlSetState($Button5,$GUI_DISABLE)
- Else
- GUICtrlSetBkColor($Label1, 0x00FF00)
- GUICtrlSetData($Label1,"00")
- GUICtrlSetState($Button1,$GUI_ENABLE)
- GUICtrlSetState($Button2,$GUI_ENABLE)
- GUICtrlSetState($Button3,$GUI_ENABLE)
- GUICtrlSetState($Button4,$GUI_ENABLE)
- GUICtrlSetState($Button5,$GUI_ENABLE)
- EndIf
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement