Hallo zusammen,
ich brauche heute mal wieder eure Hilfe.
Zuerst das Script:
Spoiler anzeigen
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <INet.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)
$Startstadt = GUICtrlCreateCombo("Wähle Stadt", 85, 75, 91, 130)
GUICtrlSetData(-1, "Accra|Aden|Alexandria|Algier|Amsterdam|Athen|Barcelona|Basra|Beirut|Bordeaux|Dakar|Edo|Genua|Hamburg|Kappstadt|Konstantinopel|Las Palmas|Lissabon|London|Luanda|Madeira|Maskat|Melaka|Mogadischu|Mosambik|Mumbai|Nagasaki|Oslo|Quanzhou|Reykjavik|Semerang|Seoul|Sevilla|Sri Lanca|Stockholm|Suez|Tianjin|Tourane|Tripolis|Venedig")
$Ziehlstadt = GUICtrlCreateCombo("Wähle Stadt", 212, 75, 91, 25)
GUICtrlSetData(-1, "Accra|Aden|Alexandria|Algier|Amsterdam|Athen|Barcelona|Basra|Beirut|Bordeaux|Dakar|Edo|Genua|Hamburg|Kappstadt|Konstantinopel|Las Palmas|Lissabon|London|Luanda|Madeira|Maskat|Melaka|Mogadischu|Mosambik|Mumbai|Nagasaki|Oslo|Quanzhou|Reykjavik|Semerang|Seoul|Sevilla|Sri Lanca|Stockholm|Suez|Tianjin|Tourane|Tripolis|Venedig")
GUISetState(@SW_SHOW)
#comments-start
$EndMenu = GUICtrlCreateMenu("Programm Beenden")
$Ende = GUICtrlCreateMenuItem("Verlassen", $EndMenu)
#comments-end
#EndRegion END GUI
;---------------------------------------------------------------------------------
; Berechnungs Labels Anfang
#region Berechnungs Labels
$Ergebnis1 = GUICtrlCreateLabel("", 680, 230, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis2 = GUICtrlCreateLabel("", 680, 260, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis3 = GUICtrlCreateLabel("", 680, 290, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis4 = GUICtrlCreateLabel("", 680, 320, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis5 = GUICtrlCreateLabel("", 680, 350, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ergebnis6 = GUICtrlCreateLabel("", 680, 380, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Berechnungs Labels
; Berechnungs Labels Ende
;---------------------------------------------------------------------------------
; Buttons Start
#region Buttons
$BerechnungStart = GUICtrlCreateButton("Berechnung Starten", 745, 75, 130, 20)
#endregion Buttons
; Buttons Ende
;---------------------------------------------------------------------------
; Übersicht Überschriften Labels beginn
#region Übersicht Überschriften Labels
$Ware = 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("Einkaufs-Preis", 415, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Verkauf = GUICtrlCreateLabel("Verkaufs-Preis", 570, 160, 120, 158)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht = 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)
#endregion Übersicht Überschriften Labels
;Übersicht Überschriften Labels Ende
;-----------------------------------------------------------------------------
;Combo Waren Labels beginn
#region Combo Waren Labels
$Ware1 = GUICtrlCreateLabel("", 30, 230, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ware2 = GUICtrlCreateLabel("", 30, 260, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ware3= GUICtrlCreateLabel("", 30, 290, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ware4= GUICtrlCreateLabel("", 30, 320, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ware5= GUICtrlCreateLabel("", 30, 350, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Ware6= GUICtrlCreateLabel("", 30, 380, 150, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Combo Waren Labels
; Combo Waren Labels Ende
;--------------------------------------------------------------------------------
; Stufen Labels Start
#region Stufen Labels
$Stufe1= GUICtrlCreateLabel("", 240, 230, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe2= GUICtrlCreateLabel("", 240, 260, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe3= GUICtrlCreateLabel("", 240, 290, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe4= GUICtrlCreateLabel("", 240, 320, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe5= GUICtrlCreateLabel("", 240, 350, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Stufe6= GUICtrlCreateLabel("", 240, 380, 25, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Stufen Labels
; Stufen Labels Ende
;------------------------------------------------------------------------------------
; Waren Gewicht Start
#region Waren Gewicht
$Gewicht1 = GUICtrlCreateLabel("", 340, 230, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht2 = GUICtrlCreateLabel("", 340, 260, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht3 = GUICtrlCreateLabel("", 340, 290, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht4 = GUICtrlCreateLabel("", 340, 320, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht5 = GUICtrlCreateLabel("", 340, 350, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gewicht6 = GUICtrlCreateLabel("", 330, 380, 80, 20)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Waren Gewicht
; Waren Gewicht Ende
;----------------------------------------------------------------------------------------
; Einkaufspreis Labels Start
#region Einkaufspreis Labels
$EK1= GUICtrlCreateLabel("", 465, 230, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK2= GUICtrlCreateLabel("", 455, 260, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK3= GUICtrlCreateLabel("", 455, 290, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK4= GUICtrlCreateLabel("", 455, 320, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK5= GUICtrlCreateLabel("", 455, 350, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$EK6= GUICtrlCreateLabel("", 455, 380, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Einkaufs Labels
; Einkaufspreis Labels Ende
;-----------------------------------------------------------------------------------------
; Combo Verkaufspreis Labels VK beginn
#region Combo Verkaufspreis Labels VK
$VK1= GUICtrlCreateLabel("", 610, 230, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK2= GUICtrlCreateLabel("", 610, 260, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK3= GUICtrlCreateLabel("", 610, 290, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK4= GUICtrlCreateLabel("", 610, 320, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK5= GUICtrlCreateLabel("", 610, 350, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$VK6= GUICtrlCreateLabel("", 610, 380, 50, 25)
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
#endregion Verkaufspreis Lanca Labels VK
; Combo Verkaufspreis Labels VK Ende
;-------------------------------------------------------------------------------------------
; Input Felder beginn
#region Input Felder
$InputLadung = GUICtrlCreateInput("", 360, 75, 130, 21)
$InputLadungbelegt = GUICtrlCreateInput("", 553, 75, 130, 21)
#endregion Input Felder
; Input Felder Ende
;--------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
; BEGINN START STÄDTE LABELS
case $Startstadt
If GUICtrlRead($Startstadt) = "Wähle Stadt" Then
GUICtrlSetData($Ware1, "-")
GUICtrlSetData($Ware2, "-")
GUICtrlSetData($Ware3, "-")
GUICtrlSetData($Ware4, "-")
GUICtrlSetData($Ware5, "-")
GUICtrlSetData($Ware6, "-")
GUICtrlSetData($Stufe1, "-")
GUICtrlSetData($Stufe2, "-")
GUICtrlSetData($Stufe3, "-")
GUICtrlSetData($Stufe4, "-")
GUICtrlSetData($Stufe5, "-")
GUICtrlSetData($Stufe6, "-")
GUICtrlSetData($EK1, "-")
GUICtrlSetData($EK2, "-")
GUICtrlSetData($EK3, "-")
GUICtrlSetData($EK4, "-")
GUICtrlSetData($EK5, "-")
GUICtrlSetData($EK6, "-")
GUICtrlSetData($Gewicht1, "-")
GUICtrlSetData($Gewicht2, "-")
GUICtrlSetData($Gewicht3, "-")
GUICtrlSetData($Gewicht4, "-")
GUICtrlSetData($Gewicht5, "-")
GUICtrlSetData($Gewicht6, "-")
EndIf
If GUICtrlRead($Startstadt) = "Accra" Then
GUICtrlSetData($Ware1, "Datteln")
GUICtrlSetData($Ware2, "Zitronen")
GUICtrlSetData($Ware3, "Pfeffer")
GUICtrlSetData($Ware4, "Skorpionsgift")
GUICtrlSetData($Ware5, "Schlangengalle")
GUICtrlSetData($Ware6, "Bernstein")
GUICtrlSetData($Stufe1, "1")
GUICtrlSetData($Stufe2, "2")
GUICtrlSetData($Stufe3, "3")
GUICtrlSetData($Stufe4, "4")
GUICtrlSetData($Stufe5, "5")
GUICtrlSetData($Stufe6, "7")
GUICtrlSetData($EK1, "28")
GUICtrlSetData($EK2, "117")
GUICtrlSetData($EK3, "111")
GUICtrlSetData($EK4, "226")
GUICtrlSetData($EK5, "248")
GUICtrlSetData($EK6, "791")
GUICtrlSetData($Gewicht1, "25")
GUICtrlSetData($Gewicht2, "25")
GUICtrlSetData($Gewicht3, "20")
GUICtrlSetData($Gewicht4, "35")
GUICtrlSetData($Gewicht5, "35")
GUICtrlSetData($Gewicht6, "100")
EndIf
; ENDE START STÄDTE LABELS
;----------------------------------------------------------------
; BEGINN ZIEHL STÄDTE LABELS
EndIf
case $Ziehlstadt
If GUICtrlRead($Ziehlstadt) = "Wähle Stadt" Then
GUICtrlSetData($VK1, "-")
GUICtrlSetData($VK2, "-")
GUICtrlSetData($VK3, "-")
GUICtrlSetData($VK4, "-")
GUICtrlSetData($VK5, "-")
GUICtrlSetData($VK6, "-")
EndIf
If GUICtrlRead($Ziehlstadt) = "Sri Lanca" Then
GUICtrlSetData($VK1, "162")
GUICtrlSetData($VK2, "294")
GUICtrlSetData($VK3, "1160")
GUICtrlSetData($VK4, "2022")
GUICtrlSetData($VK5, "2584")
GUICtrlSetData($VK6, "8244")
EndIf
; ENDE ZIEHL STÄDTE LABELS
;-----------------------------------------------------------------
; BEGINN BERECHNUNGEN
Case $BerechnungStart
berechnen()
; ENDE BERECHNUNGEN
EndSwitch
WEnd
; Funktion berechnen start
Func berechnen($aufgabe=1)
if $aufgabe=1 Then
GUICtrlSetData($Ergebnis1, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK1))
GUICtrlSetData($Ergebnis2, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK2))
GUICtrlSetData($Ergebnis3, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK3))
GUICtrlSetData($Ergebnis4, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK4))
GUICtrlSetData($Ergebnis5, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK5))
GUICtrlSetData($Ergebnis6, (GUICtrlRead($InputLadung) - GUICtrlRead($InputLadungbelegt)) * GUICtrlRead($VK6))
EndIf
EndFunc
; Funktion berechnen Ende
Nun zu dem Eigendlichem Problem.
Also wie ihr ja seht giebt es in diesem Skript 40 Städte zur Auswahl in den Comboboxen.
Jede dieser Städte hat 6 Waren im Angebot mit jeweiligen Einkaufs/Verkaufspreisen.
Ich möchte nun errechnen wieviel man Gewinn macht wenn man den Laderaum mal den Verkaufspreis nimmt. (siehe Rechnung im Skript)
Nun ist aber das Problem das jede Stadt andere Verkaufspreise hat, dh. Wenn ich jetzt Zb. von Accra nach Srilanca fahre so wie es eingebaut ist kommen diese im Script eingegebenen Verkaufspreise dabei raus.
Fahre ich nun von Accra zb. nach Konstantinopel sind da wieder andere Verkaufspreise. Wie kann ich das nun machen das ich alle Verkaufspreise rein bekomme und der immer dann die richtigen aussliest, also wenn ich in der Startstadt Combobox Accra auswähle und in der Ziehlstadt Konstantinopel errechnet?
Was noch erschwährend hinzu kommt ist das man von jeder dieser 40 Städte in die anderen 39 reisen kann und da immer für eine Ware ander Preise sind?
Beispiel:
Pfeffer von:
Accra nach Srilanca aber
Verkaufspreis - 455
aber von
Accra nach Konstantinopel
Verkaufspreis - 892
und so geht es immer weiter mit den anderen Städten.
Ich hoffe ihr versteht wie ich das meine und wenn doch nicht einfach schreiben bitte und sagen was ihr nicht versteht!
Als helfende Erklährung noch ein Anhang wo ihr in exel seht um was es geht.
Mfg Ghostleader