Guest User

Untitled

a guest
Dec 6th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.03 KB | None | 0 0
  1. #include <GUIConstants.au3>
  2.  
  3. #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\klaus.david2\Desktop\DavidKlausUmrechner.kxf
  4. $DavidKlausUmrechner = GUICreate("DavidKlausUmrechner", 242, 218, 193, 125)
  5. GUISetIcon("C:\WINDOWS\system32\shell32.dll", 208)
  6. $Input1 = GUICtrlCreateInput("", 24, 48, 193, 21)
  7. $Input2 = GUICtrlCreateInput("", 24, 104, 193, 21)
  8. $Button1 = GUICtrlCreateButton("Cm zu Inch", 24, 136, 75, 25, 0)
  9. $Button2 = GUICtrlCreateButton("Inch zu Cm", 144, 136, 75, 25, 0)
  10. $Button3 = GUICtrlCreateButton("Ende", 24, 176, 195, 25, 0)
  11. $Label1 = GUICtrlCreateLabel("Inch", 24, 80, 25, 17)
  12. $Label2 = GUICtrlCreateLabel("Cm", 24, 24, 19, 17)
  13. GUISetState(@SW_SHOW)
  14. #EndRegion ### END Koda GUI section ###
  15.  
  16. While 1
  17.     $nMsg = GUIGetMsg()
  18.     Switch $nMsg
  19.         Case $GUI_EVENT_CLOSE
  20.             Exit
  21.          Case $Button3
  22.             Exit
  23.          Case $Button1
  24.             $Wert = GUICtrlRead($Input1)
  25.             GUICtrlSetData($Input2, $Wert/2.54)
  26.          Case $Button2
  27.             $Wert2 = GUICtrlRead($Input2)
  28.             GUICtrlSetData($Input1, $Wert2*2.54)   
  29.     EndSwitch
  30. WEnd
Add Comment
Please, Sign In to add comment