Advertisement
Guest User

Untitled

a guest
May 26th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.14 KB | None | 0 0
  1. #cs
  2. #include <GUIConstantsEx.au3>
  3. #include <StaticConstants.au3>
  4. #include <WindowsConstants.au3>
  5. #include <Timers.au3>
  6.  
  7. #Region ### START Koda GUI section ### Form=
  8. $Form1 = GUICreate("aPod Nano", 317, 436)
  9. $Pic1 = GUICtrlCreatePic(@ScriptDir&"\aPod.JPG", 0, 0, 317, 436, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
  10. GUISetState(@SW_SHOW)
  11. #EndRegion ### END Koda GUI section ###
  12.  
  13. $timer = _Timer_Init()
  14. While 1
  15. $nMsg = GUIGetMsg()
  16. Switch $nMsg
  17. Case $GUI_EVENT_CLOSE
  18. Exit
  19. EndSwitch
  20. If _Timer_Diff($timer) > 4000 Then ExitLoop
  21. WEnd
  22. GUIDelete()
  23. MsgBox(0,"","")
  24. #ce
  25.  
  26.  
  27. #include <GUIConstantsEx.au3>
  28. #include <SliderConstants.au3>
  29. #include <StaticConstants.au3>
  30. #include <WindowsConstants.au3>
  31.  
  32. #Region ### START Koda GUI section ### Form=
  33. $Form1 = GUICreate("Control", 153, 201, 196, 124)
  34. $Group1 = GUICtrlCreateGroup("Tastensperre", 24, 8, 97, 57)
  35. $Slider1 = GUICtrlCreateSlider(32, 24, 54, 29)
  36. GUICtrlSetLimit(-1, 1, 0)
  37. $Label1 = GUICtrlCreateLabel("00", 88, 32, 16, 17)
  38. GUICtrlSetBkColor(-1, 0x00FF00)
  39. GUICtrlCreateGroup("", -99, -99, 1, 1)
  40. $Button1 = GUICtrlCreateButton("Menu", 40, 72, 75, 25, 0)
  41. $Button2 = GUICtrlCreateButton(">>", 120, 96, 27, 73, 0)
  42. $Button3 = GUICtrlCreateButton("<<", 8, 96, 27, 73, 0)
  43. $Button4 = GUICtrlCreateButton("", 40, 104, 73, 57, 0)
  44. $Button5 = GUICtrlCreateButton("> | |", 40, 168, 75, 25, 0)
  45. GUISetState(@SW_SHOW)
  46. #EndRegion ### END Koda GUI section ###
  47.  
  48. While 1
  49. $nMsg = GUIGetMsg()
  50. Switch $nMsg
  51. Case $GUI_EVENT_CLOSE
  52. Exit
  53. Case $Slider1
  54. If GuiCtrlRead($Slider1) = 1 Then
  55. GUICtrlSetBkColor($Label1, 0xFF0000)
  56. GUICtrlSetData($Label1,"01")
  57. GUICtrlSetState($Button1,$GUI_DISABLE)
  58. GUICtrlSetState($Button2,$GUI_DISABLE)
  59. GUICtrlSetState($Button3,$GUI_DISABLE)
  60. GUICtrlSetState($Button4,$GUI_DISABLE)
  61. GUICtrlSetState($Button5,$GUI_DISABLE)
  62. Else
  63. GUICtrlSetBkColor($Label1, 0x00FF00)
  64. GUICtrlSetData($Label1,"00")
  65. GUICtrlSetState($Button1,$GUI_ENABLE)
  66. GUICtrlSetState($Button2,$GUI_ENABLE)
  67. GUICtrlSetState($Button3,$GUI_ENABLE)
  68. GUICtrlSetState($Button4,$GUI_ENABLE)
  69. GUICtrlSetState($Button5,$GUI_ENABLE)
  70. EndIf
  71. EndSwitch
  72. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement