Hi zusammen, endlich habe ich es Mal geschafft ganz ohne zusätzliche Hilfe ein kleines Programm zu erstellen ![]()
Es handelt sich um einen Rechner, der Arbeitsstunden in Inustriestunden umrechnet.
Feedback und konstruktive Kritik erbeten ![]()
Das Überarbeitete Skript:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Tools\Iconsammlung\clock.ico
#AutoIt3Wrapper_Outfile=Stundenrechner.exe
#AutoIt3Wrapper_Res_Comment=Rechnet Arbeitszeit in Industriestunden um
#AutoIt3Wrapper_Res_Fileversion=1.0.1
#AutoIt3Wrapper_Res_LegalCopyright=mike280399
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Include <Date.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Stundenrechner", 236, 193, 225, 127)
$BEGINN_H = GUICtrlCreateInput("", 152, 16, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$BEGINN_M = GUICtrlCreateInput("", 180, 16, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$PAU_START_H = GUICtrlCreateInput("", 152, 40, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$PAU_START_M = GUICtrlCreateInput("", 180, 40, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$PAU_ENDE_H = GUICtrlCreateInput("", 152, 64, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$PAU_ENDE_M = GUICtrlCreateInput("", 180, 64, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$FEIERABEND_H = GUICtrlCreateInput("", 152, 88, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$FEIERABEND_M = GUICtrlCreateInput("", 180, 88, 25, 21, $ES_NUMBER)
GUICtrlSetLimit(-1,2)
$Sach = GUICtrlCreateButton("Sach an :D", 72, 150, 83, 25, 0)
$Label1 = GUICtrlCreateLabel("Arbeitsbeginn:", 24, 18, 71, 17)
$Label2 = GUICtrlCreateLabel("Pause von:", 24, 42, 58, 17)
$Label3 = GUICtrlCreateLabel("Feierabend:", 24, 90, 60, 17)
$Label4 = GUICtrlCreateLabel("Stunden:", 24, 114, 47, 17)
$H_OUT = GUICtrlCreateLabel("H", 152, 114, 60, 17)
$Label5 = GUICtrlCreateLabel("Pause bis:", 24, 66, 53, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sach
$Wert01 = GUICtrlRead($BEGINN_H)
$Wert02 = GUICtrlRead($BEGINN_M)
$Wert03 = GUICtrlRead($PAU_START_H)
$Wert04 = GUICtrlRead($PAU_START_M)
$Wert05 = GUICtrlRead($PAU_ENDE_H)
$Wert06 = GUICtrlRead($PAU_ENDE_M)
$Wert07 = GUICtrlRead($FEIERABEND_H)
$Wert08 = GUICtrlRead($FEIERABEND_M)
$Vormittag = ($Wert03 - $Wert01) + (($Wert04 - $Wert02) / 60)
$Pause = ($Wert05 - $Wert03) + (($Wert06 - $Wert04) / 60 )
$Nachmittag = ($Wert07 - $Wert05) + (($Wert08 - $Wert06) / 60)
IF ($Wert03 + ($wert04 / 60)) < ($wert01 + ($Wert02 / 60)) Then
MsgBox (0, "Bitte Eingaben prüfen", "Der Pausenbeginn liegt vor dem Arbeitsbeginn")
ElseIf ($Wert07 + ($Wert08 / 60)) < ( $Wert05 + ($wert06 / 60)) Then
MsgBox (0, "Bitte Eingaben prüfen", "Der Feierabend liegt vor dem Pausenende")
ElseIf ($wert05 + ($Wert06 / 60)) < ($Wert03 + ($Wert04 / 60)) Then
MsgBox (0, "Bitte Eingaben prüfen", "Das Pausenende liegt vor dem Pausenbeginn")
Else
$Stunden = Round(($Vormittag + $Nachmittag), 2)
GUICtrlSetData($H_OUT, ($Stunden) & ' H')
EndIf
EndSwitch
WEnd
Die überarbeitete Datei:
Die "alten" "Dinger" lass ich stehen, damit man`s Feedback nachvollziehen kann ![]()
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Tools\Iconsammlung\clock.ico
#AutoIt3Wrapper_Outfile=Stundenrechner.exe
#AutoIt3Wrapper_Res_Comment=Rechnet Arbeitszeit in Industriestunden um
#AutoIt3Wrapper_Res_Fileversion=1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=mike280399
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Stundenrechner", 236, 193, 225, 127)
$BEGINN_H = GUICtrlCreateInput("", 152, 16, 25, 21)
$BEGINN_M = GUICtrlCreateInput("", 180, 16, 25, 21)
$PAU_START_H = GUICtrlCreateInput("", 152, 40, 25, 21)
$PAU_START_M = GUICtrlCreateInput("", 180, 40, 25, 21)
$PAU_ENDE_H = GUICtrlCreateInput("", 152, 64, 25, 21)
$PAU_ENDE_M = GUICtrlCreateInput("", 180, 64, 25, 21)
$FEIERABEND_H = GUICtrlCreateInput("", 152, 88, 25, 21)
$FEIERABEND_M = GUICtrlCreateInput("", 180, 88, 25, 21)
$Sach = GUICtrlCreateButton("Sach an :D", 72, 150, 83, 25, 0)
$Label1 = GUICtrlCreateLabel("Arbeitsbeginn:", 24, 18, 71, 17)
$Label2 = GUICtrlCreateLabel("Pause von:", 24, 42, 58, 17)
$Label3 = GUICtrlCreateLabel("Feierabend:", 24, 90, 60, 17)
$Label4 = GUICtrlCreateLabel("Stunden:", 24, 114, 47, 17)
$H_OUT = GUICtrlCreateLabel("H", 152, 114, 60, 17)
$Label5 = GUICtrlCreateLabel("Pause bis:", 24, 66, 53, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Sach
$Wert01 = GUICtrlRead($BEGINN_H)
$Wert02 = GUICtrlRead($BEGINN_M)
$Wert03 = GUICtrlRead($PAU_START_H)
$Wert04 = GUICtrlRead($PAU_START_M)
$Wert05 = GUICtrlRead($PAU_ENDE_H)
$Wert06 = GUICtrlRead($PAU_ENDE_M)
$Wert07 = GUICtrlRead($FEIERABEND_H)
$Wert08 = GUICtrlRead($FEIERABEND_M)
$Stunden = Round((($Wert03 - $Wert01) + ($Wert07 - $Wert05)) + ((($wert04 - $Wert02) + ($Wert08 - $Wert06)) / 60 ), 2)
GUICtrlSetData($H_OUT, ($Stunden) & ' H')
EndSwitch
WEnd
Erste Datei:
Grüße
Mike