Hallo BLinz,
wie meinst du das ob diese Letzten Zeilen in die CSV Passen?
Mfg Ghostleader
Beiträge von Ghostleader
-
-
Hallo ihr beiden,
vielen Dank an euch zwei.
Könnte nun noch bitte jemand der sich mit RegExp auskennt nachsehen, warum das Gewicht und der VK Preis nicht richtig ausgelesen/wiedergegeben werden?
Mfg Ghostleader
-
Hallo chip,
ok trotzdem schonmal danke für die große Hilfe.
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?
Mfg Ghostleader
PS. Kann bitte jemand anderes wegen volgendem nachsehen:
Desweiteren wollte ich fragen ob du oder jemand anders mal bitte drüber sehen könnt, warum bei der Letzten ware das Gewicht und der VK Preis nicht vollständig ausgelesen und dargestellt werden finde den Fehler net!
-
Hallo chip,
ja wie ich gerade meinen vorherigen post editiert habe geht es jetzt aufeinmal bei mir auch
.Kannst du bitte noch das Ps aus dem vorherigem Post ansehen bitte?
Mfg Ghostleader
-
Hallo Chip,
mom editiert, denn nun auf einmal geht es
vielen DANK.Kannst du bitte noch wegen dem ps nachsehen?
Ps:
Desweiteren wollte ich fragen ob du oder jemand anders mal bitte drüber sehen könnt, warum bei der Letzten ware das Gewicht und der VK Preis nicht vollständig ausgelesen und dargestellt werden finde den Fehler net!
Mfg Ghostleader
-
Hallo chip,
hmm also ich habe ja auch noch andere Städte csv wo die werte nicht gleich sind, aber kommt überall null raus ausser beim letzten das wird berechnet.
Habe mal noch ne csv mit anderen werten angehangen!Ps. Kann da bitte auch wer nachsehen?:
Desweiteren wollte ich fragen ob du oder jemand anders mal bitte drüber sehen könnt, warum bei der Letzten ware das Gewicht und der VK Preis nicht vollständig ausgelesen und dargestellt werden finde den Fehler net!
-
Hallo chip,
ja genau so meine ich das, jedoch wird in deiner rechnung nur die letzte ware ausgerechnet, ich hätte aber gern das alle 6 waren ausgerechnet und auch dargestellt werden.
Desweiteren wollte ich fragen ob du oder jemand anders mal bitte drüber sehen könnt, warum bei der Letzten ware das Gewicht und der VK Preis nicht vollständig ausgelesen und dargestellt werden finde den Fehler net!
Mfg Ghostleader
-
Hallo,
ja war es.
es wird aus der EK = Die Stadt, die Ware, die Stufe, der Preis und das gewicht eingelesen
Aus der VK wid die Stadt, die Ware, der Preis ausgelesen.Was ich brauche zum rechnen ist aus der EK Preis und gewicht und aus der VK also im Bsp. Accra = den Preis.
In verbindung mit den beiden inputs im Script muss ich eine Rechnung erstellen!Mfg Ghostleader
-
Hallo autoBert,
hier mal das gesamte skript und eine ek + vk.csv damit man es sich ansehen kann:
Spoiler anzeigen
[autoit]#include <ComboConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#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>
#include <File.au3>
#include <array.au3>
#include <ComboConstants.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)
[/autoit] [autoit][/autoit] [autoit]
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
[/autoit] [autoit][/autoit] [autoit]
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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$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
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$BerechnungStart = GUICtrlCreateButton("Berechnung Starten", 745, 75, 130, 20)
#endregion Buttons$InputLadung = GUICtrlCreateInput("", 360, 75, 130, 21)
[/autoit] [autoit][/autoit] [autoit]
$InputLadungbelegt = GUICtrlCreateInput("", 553, 75, 130, 21)While 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
$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)
EndSwitch
WEndIch weiss leider jetzt gerade nicht, wie du das meinst mit der ID.
-
Hallo,
also aus der csv werden Zahlen ausgelesen und über ein Label wiedergegeben!
Ich möchte nun mit diversen Zahlen eine Rechnung aufstellen, also muss ich diese ja zuvor auslesen.
Mfg Ghostleader
-
Hallo chip,
danke erstmal für deine Antwort.
Mein Problem ist das das GUICtrlSetData zuvor aus einer csv ausgelesen wird und nicht wie in deinem Bsp. direkt gesendet.
Diese Variante von dir (GUICtrlRead($Label1) )
habe ich ja schon probiert, jedoch funktioniert diese so nicht!Ich aktiviere über eine ComboBox erst das auslesen der csv und wiedergabe durch das GUICtrlSetData.
Mfg Ghostleader
-
Hallo zusammen,
ich wollte wissen ob ich ein GUICtrlSetData von einem Label mit GUICtrlRead auslesen kann.
Auslesen möchte ich hier aus dem Code $EK:
Spoiler anzeigen
[autoit]For $j = 0 To UBound($aRegExp) - 1 Step +4
[/autoit]
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
Das Label dafür ist folgendes:Spoiler anzeigen
[autoit]$EK[$i] = GUICtrlCreateLabel("", 435, $iHeight, 50, 25)
[/autoit]
GUICtrlSetFont(-1, 12, 600)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)Mfg Ghostleader
-
Hallo misterspeed,
danke erstmal für deine Antwort.
Ist es dir vielleicht möglich und hättest du Lust mir anhand eines Beispiels ähnlich wie autoBert das getan hat etwas zu erstellen wo ich sehen kann wie genau der Ablauf ist um dies dann besser zu Verstehen und umzusetzen?
Ich wäre dir echt verbunden, denn momentan wenn ich es mir gerade so ansehe weiss ich nicht so recht wie ich das dann in meinem Skript umsetzen kann!Mfg Ghostleader
-
Hallo nochmal,
Sorry schonmal für den doppel Post, aber gibt es vielleicht die Möglichkeit statt:
[autoit]GUICtrlCreateLabel("handelbare Waren", 8, 55, 200, 25)
[/autoit]
$hcboWare = GUICtrlCreateCombo("", 8, 70, 200, 25)
readIniEKandVK("", "")es so zu machen das gleich alle Waren berechnet und angezeigt werden, ohne das man eine spezielle Ware auswählen muss? Ich blicke die ganze zeit drauf aber ich weiss net wie ich das Bsp. von autoBert so umstellen kann das es eben funktioniert, denn die genante Combo muss ja raus aber ich weiss net wie ich es dann weiter unten in der Funktion dann umbauen muss!!
Vielen Dank schonmal im Voraus!
Mfg Ghostleader
PS:
Ebenfalls ist mir noch ein Problem aufgefallen, was scheinbar nicht bedacht wurde. Ich stelle jetzt nochmal die Bsp. Inis und geänderte von mir rein und erläutere dann.EK alt:
Spoiler anzeigen
[Accra]
Aloe=2146
Amber=2511
Amerikanischer Ginseng=822
[Aden]
Aloe=1184
Amber=1434
Amerikanischer Ginseng=2600
[Alexandria]
Aloe=0
Amber=0
Amerikanischer Ginseng=794
[Algier]
Aloe=0
Amber=0
Amerikanischer Ginseng=307
[Amsterdam]
Aloe=0
Amber=0
Amerikanischer Ginseng=512
[Sevilla]
Aloe=0
Amber=0
Amerikanischer Ginseng=0
[Sri Lanka]
Aloe=0
Amber=0
Amerikanischer Ginseng=0
EK neu:Spoiler anzeigen
[Accra]
Aloe=2146
Amber=2511
Amerikanischer Ginseng=822
[Aden]
Oliven=1184
Zimmt=1434
Kaffe=2600
[Alexandria]
Duftstoffe=0
Tabak=0
Säbelschmuck=794
[Algier]
Weizen=0
Lammfleisch=0
Farbstoffe=307
[Amsterdam]
Marmor=0
Eisenwaren=0
Antiquitäten=512
[Sevilla]
Trauben=0
Sojabohnen=0
Baumwollstoffe=0
[Sri Lanka]
Ölgemälde=0
Velours=0
Elfenbein=0
VK alt = neuSpoiler anzeigen
[Accra]
Aloe=2146
Amber=2511
Amerikanischer Ginseng=822
[Aden]
Aloe=1184
Amber=1434
Amerikanischer Ginseng=2600
[Alexandria]
Aloe=0
Amber=0
Amerikanischer Ginseng=794
[Algier]
Aloe=0
Amber=0
Amerikanischer Ginseng=307
[Amsterdam]
Aloe=0
Amber=0
Amerikanischer Ginseng=512
[Sevilla]
Aloe=0
Amber=0
Amerikanischer Ginseng=0
[Sri Lanka]
Aloe=0
Amber=0
Amerikanischer Ginseng=0So, wie man sieht ist die ek neu anders, denn jede Stadt hat ja andere Waren (in der EK alt nicht so), die allerdings in jeder Stadt verkauft werden können zu dem entsprechend anderen Preisen.
Mann müste nun in der VK.INI nach Namen auslesen lassen um das zu beheben, die Frage ist nur ob dies so möglich ist.
Also das heisst wenn wir von Accra ausgehen weil es im bsp so ist dann sieht man ja das die VK für Accra so richtig ist, jedoch fehlen ja dann alle anderen sachen für die anderen städte!Bsp wie es für die VK.INI aussehen müsste wenn wir nun in Aden (von der EKneu.INI ausgehend) kaufen und in Accra verkaufen:
Spoiler anzeigen
[Accra]
Aloe=2146
Amber=2511
Amerikanischer Ginseng=822
Oliven=1184
Zimmt=1434
Kaffe=2600
Bedeutet man müsste in der VK.INI eigentlich pro Stadt alle Waren mit den dazugehörigen vk Preisen eintragen und dann via Namen der Ware auslesen lassen um Welche es nun geht also quasi mit der gewälten EK der Stadt abgleichen insofern das überhaupt geht was ich hoffe.Sorry ist bissel umständlich und lang aber ich hoffe ihr wisst was ich meine und habt eine Lösung dafür!
Mfg Ghostleader
-
Hallo autoBert,
vielen lieben Dank erstmal das du dir die Mühe gemacht hast dieses Bsp. für mich zu erstellen!
Ich werder versuchen es erstmal im Groben für mich umzubauen und anzupassen. Ich hoffe ich verstehe alles soweit
Eins weis ich jedoch jetzt schon und zwar das ich irgendwie noch versuchen muss die Rechnung aus meinem Skript mit einzubringen denn das gewicht spielt eine grosse Rolle, da das Schiff ja nur soviel mit nehmen kann wie es noch platz hat und dies muss ebenfals mit dem berechnen Button errechnet werden.
Aber wir werden sehen
Vielen dank auf jedenfall erstmal!
Mfg Ghostleader
-
Alles anzeigen
Sind denn die Ein- und Verkaufspriese überhaupt fix. Ich könnte mir vorstellen das auch in einem Spiel die Preise Schwankungen unterliegen, sei es wegen einer Missernte oder nach einem Schiffsverlust.
Wenn sie fix sind kannst du ja Funktionen aus der Excel.au3 verwenden, z.B.:Hallo autoBert,
danke erstmal für deine Antwort.
Ja diese Preise sind immer die selben, denn hier handelt es sich um feste Preise die die Stadt verkauft nicht um Preise von sachen die man selber erwirtschaftet und anschliessend verkauft!
Auch wenn die Idee gut ist, wollte ich es eigentlich vermeiden mit der Exel Tabelle zu arbeiten.
Ich habe schon überlegt ob es nicht auch geht für jede Stadt eine ini zu erstellen, da dann die VK Preise der jeweiligen Ziehslstadt für jede Startstadt einzutragen und da dann die zugehörigen Verkaufspreise auslesen zu lassen wenn ich in der Combo Box der Ziehlstadt klicke.Die frage ist nur wie ich direkt die Ini aufbaue!
Und danke auch für den Rat es in der Abteilung https://autoit.de/index.php?page=Board&boardID=51 zu posten, jedoch wollte ich es schon gerne selber machen wenn ich denn nur ein bsp. habe, denn wenn es wer für mich kommplett macht lerne ich ja auch nix für die Zukunft!
Mfg Ghostleader
-
Danke wieder für deine schnelle Antwort,
jedoch muss ich erstmal sehen ob ich das so hin bekomme denn sieht für mich(für dich net) ganz schön kompliziert aus.
Etwas einfacher wäre es vielleicht wenn ich ein Beispiel zu meinem Skript hätte um es da zu sehen. Wenn vielleicht jemand mal zeit hat und das machen könnte wäre das echt super!
Mfg Ghostleader
-
Hallo i2c,
danke für deine super schnelle Antwort.
Nur sehe ich da gerade das Problem das ich mit Arrys noch nicht viel zu tun hatte, ebenso wie mit For Schleifen. Ich bin noch net solange bei Auto IT das ich das schon ausprobiert habe leider
.Wenn du vielleicht ein Beispiel für mich hättest wäre das nicht schlecht dann könnte ich es mir zumindest mal ansehen und schauen ob ich es gleich verstehe!
Mfg Ghostleader
-
Hallo zusammen,
ich brauche heute mal wieder eure Hilfe.
Zuerst das Script:
Spoiler anzeigen
[autoit]#include <ComboConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#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
[/autoit] [autoit][/autoit] [autoit]
$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
[/autoit] [autoit][/autoit] [autoit]
#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
[/autoit]
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 EndeNun 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
-
Hallo zuammen,
nun sind schon fast 24h rum, das Thema auf seite 2 und bisher leider keine Antwort. Hat denn wirklich keiner ne Idee wie ich das am besten umsetzen kann? Bin für jeden Vorschlag offen!
Mfg Ghostleader
