Hi Forumuser´s
ich habe einen kleinen rechner geschrieben um nettobeträge per klick zu errechnen.
das hat soweit alles funktioniert.
als ich den rechner dann gestern verwendet habe um den vierteljahresbeitrag zu errechnen musste ich feststellen, dass der rechnen ein falsches ergebnis ausgibt.
nach kurzem testen habe ich dann festgestellt dass der rechnen die eingegeben werte vor der berechnung auf eine glatte zahl abrundet.
ich würde mich freuen wenn ihr kurz einmal über mein script schaut.
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Videoschnitt\Desktop\autoit\läuft\rechner.kxf
$Form1_1 = GUICreate("Form1", 267, 227, 469, 145)
GUISetBkColor(0xFFFFFF)
$Button_plus = GUICtrlCreateButton("Netto Jährlich", 144, 48, 113, 25)
$Button_minus = GUICtrlCreateButton("Netto Halbjährlich", 144, 80, 113, 25)
$Button_durch = GUICtrlCreateButton("Netto Vierteljährlich", 144, 112, 113, 25)
$Button_mal = GUICtrlCreateButton("Netto Monatlich", 144, 144, 113, 25)
$Label1 = GUICtrlCreateLabel("0", 136, 184, 116, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("0", 8, 8, 129, 32)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Brutto Betrag eingeben", 144, 16, 113, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $operation = ""
Global $merk_zahl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button_plus
$operation = "bj"
berechnen()
Case $Button_mal
$operation = "bq"
berechnen()
case $Button_durch
$operation = "bm"
berechnen()
Case $Button_minus
$operation = "bh"
berechnen()
berechnen()
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
EndSwitch
WEnd
func button_zahl($int)
if GUICtrlRead($Input1) = 0 then
GUICtrlSetData($Input1 , $int)
Else
GUICtrlSetData($Input1 ,GUICtrlRead($Input1) & $int)
EndIf
EndFunc
Func berechnen()
Switch $operation
Case "bj"
$merk_zahl = GUICtrlRead($input1)
GUICtrlSetData($Input1 ,"")
Case "bq"
$merk_zahl = GUICtrlRead($input1) / 1.06 * 12
GUICtrlSetData($Input1 ,"")
Case "bh"
$merk_zahl = GUICtrlRead($input1) / 1.03 * 2
GUICtrlSetData($Input1 ,"")
Case "bm"
$merk_zahl = GUICtrlRead($input1) / 105*400
GUICtrlSetData($Input1 ,"")
Case "nj"
$merk_zahl = GUICtrlRead($input1) / 1.19 /1.03 *2
GUICtrlSetData($Input1 ,"")
Case "nq"
$merk_zahl = GUICtrlRead($input1) / 1.19 / 1.05 * 4
GUICtrlSetData($Input1 ,"")
Case "nh"
$merk_zahl = GUICtrlRead($input1) / 1.19 / 1.06 * 12
GUICtrlSetData($Input1 ,"")
Case "nm"
$merk_zahl = GUICtrlRead($input1) / 1.19
GUICtrlSetData($Input1 ,"")
case Else
MsgBox(0,"","es gab eine nicht definierte Funktion")
EndSwitch
GUICtrlSetData($Label1,$merk_zahl)
EndFunc
Alles anzeigen