Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=c:\users\timo2\desktop\neuer ordner\alkane 1.kxf
- $Form1_1 = GUICreate("Alkane", 337, 420, 401, 138)
- $CAtome = GUICtrlCreateInput("CAtome", 0, 0, 121, 21)
- $HAtome = GUICtrlCreateInput("HAtome", 0, 24, 121, 21)
- $Ausgabe = GUICtrlCreateInput("Ausgabe", 0, 80, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
- $formelaus = GUICtrlCreateGroup("Formel aus:", 136, 0, 89, 73)
- $Button1 = GUICtrlCreateButton("C-Atome", 144, 16, 75, 25, $WS_GROUP)
- $Button2 = GUICtrlCreateButton("H-Atome", 144, 40, 75, 25, $WS_GROUP)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Button3 = GUICtrlCreateButton("Formel Popup", 128, 80, 99, 25, $WS_GROUP)
- $Pic1 = GUICtrlCreatePic("C:\Users\Timo2\Desktop\Neuer Ordner\Methane-2D-square.jpg", 232, 8, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
- $Pic2 = GUICtrlCreatePic("", 8, 136, 324, 276, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
- $Button4 = GUICtrlCreateButton("Bild und Name", 8, 104, 91, 25, $WS_GROUP)
- $Name = GUICtrlCreateLabel("Name", 120, 112, 32, 17)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button1
- $ausg1 = GUICtrlRead( $CAtome )
- GUICtrlSetData( $Ausgabe , "C" & $ausg1 & "H" & $ausg1 *2 +2 )
- GUICtrlSetData( $HAtome , $ausg1 *2 +2 )
- Case $Button2
- $ausg2 = GUICtrlRead( $HAtome )
- GUICtrlSetData( $Ausgabe , "C" & ($ausg2 -2) /2 & "H" & $ausg2 )
- GUICtrlSetData( $CAtome , ($ausg2 -2) /2 )
- Case $Button3
- $ausg3 = GUICtrlRead( $CAtome )
- $ausg4 = GUICtrlRead( $HAtome )
- $ausg5 = GUICtrlRead( $Ausgabe )
- MsgBox( 0 , "popup" , "C Atome: " & $ausg3 & @CRLF & "H Atome: " & $ausg4 & @CRLF & "Formel: " & $ausg5 )
- Case $Button4
- If GUICtrlRead($CAtome) = "1" Then SplashImageOn("","C:\Users\Timo2\Desktop\Neuer Ordner\alkane\1methan.jpg","-1","-1","-1","-1",3) GUICtrlSetData( $Name , "Methan" )
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment