moin
ich schreib bald eine arbeit in dem fach technik dafür muss ich wissen wie man den stromverbrauch ausrechnet
also hab ich das bisle gelernt (was auch ziemlich simpel ist) und weil mir langweilig war und ich das ganze noch vertiefen wolte
hab ich den Stromverbrauch rechner gecodet
das wolte ich euch nicht vorenthalten
guckt auf eure elektrischen geräte da ist meistens so ein sticker wo die leistungsaufnahme draufsteht dann schätzt noch wie lange das gerät läuft und guckt am besten noch euren tarif nach ( standart ist 15 cent/ kwh)
dan auf ausrechnen drücken und ihr seht wieviel ihr im monat oder jahr ihr für das gerät bezahlen müst
mfg bulli
Spoiler anzeigen
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $MKosten, $JKosten
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Stromverbrauch rechner", 395, 281, 192, 124)
$Button1 = GUICtrlCreateButton("Ausrechnen", 216, 104, 75, 25, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Eingabe", 8, 0, 361, 153)
$Input1 = GUICtrlCreateInput("", 32, 40, 80, 21)
$Label1 = GUICtrlCreateLabel("Stromverbrauch in Watt (P)", 32, 16, 160, 17)
$Input2 = GUICtrlCreateInput("", 216, 40, 80, 21)
$Label2 = GUICtrlCreateLabel("Laufzeit am Tag in Stunden (t)", 216, 16, 150, 17)
$Input3 = GUICtrlCreateInput("15", 32, 112, 40, 21)
$Label3 = GUICtrlCreateLabel("Tarif in Cent", 32, 88, 100, 17)
$UpDown = GUICtrlCreateUpdown( $Input3)
GUICtrlSetLimit ( $UpDown, 99, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Ausgabe", 8, 176, 361, 81)
$Input4 = GUICtrlCreateInput($MKosten & "€", 32, 216, 80, 21, $ES_READONLY)
$Label4 = GUICtrlCreateLabel("Kosten im Monat", 32, 192, 160, 17)
$Input5 = GUICtrlCreateInput($JKosten & "€", 176, 216, 80, 21, $ES_READONLY)
$Label5 = GUICtrlCreateLabel("Kosten im Jahr", 176, 192, 160, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_formel ()
ContinueLoop
EndSwitch
WEnd
Func _formel ()
[/autoit] [autoit][/autoit] [autoit]$Watt = GUICtrlRead( $Input1)
$Laufzeit = GUICtrlRead( $Input2)
$CentTarif = GUICtrlRead( $Input3)
$Tarif = $CentTarif / 100
$Kwh = $Watt * $Laufzeit / 1000
$MKosten = $Kwh * 30 * $Tarif
$JKosten = $Kwh * 365 * $Tarif
GUICtrlSetData ( $Input4, $MKosten )
GUICtrlSetData ( $Input5, $JKosten )
EndFunc