Sign in to follow this  
Followers 0

Newbee - Read from Input and Calculate

4 posts in this topic

Posted

Hi there,

i just wanna create a easy gui. Well it's not that easy for me :blink:

I hava a gui, where i give some parameters (counters)

- hour

- minute

- date

- month

- year

foreach there is a inputbox.

Now i want to read the input and calculate the input then. The Result should be show as hours. the compare date is the actual timestamp.

for example Input is: 12:00 12.12.2010

actual timestamp should be 12:00 13.12.2010

So REsult should be 24hours...

this is my gui:

;Include constants

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()

;Initialize variables

Local $GUIWidth = 200, $GUIHeight = 220

Local $Edit_Stunde, $Edit_Minute, $Edit_Tag, $Edit_Monat, $Edit_Jahr, $Calc_Btn, $Exit_Btn, $msg

;Create window

GUICreate("Geburtsrechner", $GUIWidth, $GUIHeight)

;Create an edit box with no text in it

$Edit_Stunde = GUICtrlCreateInput("Stunde eingeben", 10, 30, 180, 20)

;Create an edit box with no text in it

$Edit_Minute = GUICtrlCreateInput("Minute eingeben", 10, 60, 180, 20)

;Create an edit box with no text in it

$Edit_Tag = GUICtrlCreateInput("Tag eingeben", 10, 90, 180, 20)

;Create an edit box with no text in it

$Edit_Monat = GUICtrlCreateInput("Monat eingeben", 10, 120, 180, 20)

;Create an edit box with no text in it

$Edit_Jahr = GUICtrlCreateInput("Jahr eingeben", 10, 150, 180, 20)

;Create an "Berechne" button

$Calc_Btn = GUICtrlCreateButton("Berechnen", 20, 180, 70, 25)

;Create a "Exit" button

$Exit_Btn = GUICtrlCreateButton("Verlassen", 110, 180, 70, 25)

;Show window/Make the window visible

GUISetState(@SW_SHOW)

;Loop until:

;- user presses Esc

;- user presses Alt+F4

;- user clicks the close button

While 1

;After every loop check if the user clicked something in the GUI window

$msg = GUIGetMsg()

Select

;Check if user clicked on the close button

Case $msg = $GUI_EVENT_CLOSE

;Destroy the GUI including the controls

GUIDelete()

;Exit the script

Exit

;Check if user clicked on the "OK" button

Case $msg = $Calc_Btn

MsgBox(64, "Ergebnis:", "test")

;Check if user clicked on the "CANCEL" button

Case $msg = $Exit_Btn

Exit

EndSelect

WEnd

EndFunc ;==>_Main

thanks for any help!!

Share this post


Link to post
Share on other sites



Posted

Look at the _DateDiff function.

Share this post


Link to post
Share on other sites

Posted

rogger that.

thanks...

Share this post


Link to post
Share on other sites

Posted

You bet. Hope it helps. :blink:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0