Hallo chip,
Eine Frage habe ich noch kannst du mir die Rechnung bitte so umbauen das wenn in der VK ein Preis 0 hat das da dann nicht gerechnet wird für diese ware?
Spoiler anzeigen
#include <File.au3>
#include <GUIConstantsEx.au3>
#region START GUI
$Form1 = GUICreate("Stadtwaren Rechner", 1000, 520, 380, 230)
GUICtrlSetState(-1, $GUI_DISABLE)
$Form1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Alex Sindy Amy\Desktop/Handel.jpg", 0, 0, 1000, 520)
GUICtrlSetState(-1, $GUI_DISABLE)
$aArray = _FileListToArray("VK", "*.csv", 1)
Local $sComboText = ''
For $i = 1 To UBound($aArray) - 1
$sComboText &= StringTrimRight($aArray[$i], 4) & "|"
Next
$Startstadt = GUICtrlCreateCombo("Wähle Stadt", 85, 75, 110, 130)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
$Zielstadt = GUICtrlCreateCombo("Wähle Stadt", 212, 75, 110, 25)
GUICtrlSetData(-1, StringTrimRight($sComboText, 1))
GUISetState(@SW_SHOW)
Local $Ergebnis[8], $Ware[8], $Stufe[8], $Gewicht[8], $EK[8], $VK[8], $test[8], $iHeight = 230
For $i = 1 To 7
$Ware[$i] = GUICtrlCreateLabel("", 30, $iHeight, 190, 40)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis[$i] = GUICtrlCreateLabel("", 680, $iHeight, 150, 35)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe[$i] = GUICtrlCreateLabel("", 240, $iHeight, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht[$i] = GUICtrlCreateLabel("", 335, $iHeight, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK[$i] = GUICtrlCreateLabel("", 435, $iHeight, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK[$i] = GUICtrlCreateLabel("", 540, $iHeight, 60, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$test[$i] = GUICtrlCreateLabel("", 645, 190, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$iHeight += 30
Next
#region Übersicht Überschriften Labels
$Warenname = GUICtrlCreateLabel("Ware", 80, 160, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Warenstufe = GUICtrlCreateLabel("Stufe", 225, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Einkauf = GUICtrlCreateLabel("EK-Preis", 415, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Verkauf = GUICtrlCreateLabel("VK-Preis", 530, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewin = GUICtrlCreateLabel("Gewinn", 645, 160, 80, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewichtname = GUICtrlCreateLabel("Gewicht", 310, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Von = GUICtrlCreateLabel("Von", 110, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Nach = GUICtrlCreateLabel("Nach", 237, 50, 81, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladung = GUICtrlCreateLabel("Max-Lade-Kapazität", 345, 50, 160, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ladungbelegt = GUICtrlCreateLabel("Belegter-Laderaum", 540, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Berechnung = GUICtrlCreateLabel("Berechnung starten", 730, 50, 180, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#region Buttons
$BerechnungStart = GUICtrlCreateButton("Berechnung Starten", 745, 75, 130, 20)
#endregion Buttons
$InputLadung = GUICtrlCreateInput("0", 360, 75, 130, 21)
$InputLadungbelegt = GUICtrlCreateInput("0", 553, 75, 130, 21)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Startstadt, $Zielstadt
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("ek.csv"), GUICtrlRead($Startstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +4
GUICtrlSetData($Ware[$iRow], $aRegExp[$j])
GUICtrlSetData($Stufe[$iRow], $aRegExp[$j + 1])
GUICtrlSetData($EK[$iRow], $aRegExp[$j + 2])
GUICtrlSetData($Gewicht[$iRow], $aRegExp[$j + 3])
$iRow += 1
Next
Local $iRow = 1
$aRegExp = StringRegExp(FileRead("VK\" & GUICtrlRead($Startstadt) & ".csv"), GUICtrlRead($Zielstadt) & ",(.+?),(.+?),(.+?),(.+?),(.+?),(.+?),(.+?)," & _
"(.+?),(.+?),(.+?),(.+?),(.+?)", 3)
For $j = 0 To UBound($aRegExp) - 1 Step +2
GUICtrlSetData($VK[$iRow], $aRegExp[$j + 1])
$iRow += 1
Next
;~ _ArrayDisplay($aRegExp)
Case $BerechnungStart
For $j = 0 To UBound($aRegExp) - 6 Step 1
$Laderaumfrei = GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)
$anzahl = Int($Laderaumfrei / GUICtrlRead($Gewicht[$j]))
If GUICtrlRead($VK[$j]) > 0 Then
GUICtrlSetData($Ergebnis[$j], (GUICtrlRead($VK[$j]) - GUICtrlRead($EK[$j])) * $anzahl)
Else
GUICtrlSetData($Ergebnis[$j],"VK-Preis ist 0")
EndIf
Next
EndSwitch
WEnd