Hi,
ich brauche eure Hilfe...
Ich möchte mit der Funktion Random() die Zahlen einer Array ändern.
Spoiler anzeigen
Func _NextDay()
Local $NumAkt1, $NumAkt21
If IsNumber($Aktienpreis[0]) Then
$NumAkt1 = $Aktienpreis[0] - ($Aktienpreis[0] * 10 / 100)
$NumAkt21 = $Aktienpreis[0] + ($Aktienpreis[0] * 10 / 100)
$NewAkt1 = Random($NumAkt1, $NumAkt21)
$NewAkt1Rnd = Round($NewAkt1, 2)
$NewAkt1Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 1: " & $Aktienpreis[0] & "€")
EndIf
$NewAkt2 = Random($Aktienpreis[1] - ($Aktienpreis[1] * 10 / 100), $Aktienpreis[1] + ($Aktienpreis[1] * 10 / 100))
$NewAkt2Rnd = Round($NewAkt2, 2)
$NewAkt2Rnd = $Aktienpreis[1]
GUICtrlSetData($LblAkt1, "Aktie 2: " & $Aktienpreis[1] & "€")
$NewAkt3 = Random($Aktienpreis[2] - ($Aktienpreis[2] * 10 / 100), $Aktienpreis[2] + ($Aktienpreis[2] * 10 / 100))
$NewAkt3Rnd = Round($NewAkt3, 2)
$NewAkt3Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 3: " & $Aktienpreis[2] & "€")
$NewAkt4 = Random($Aktienpreis[3] - ($Aktienpreis[3] * 10 / 100), $Aktienpreis[3] + ($Aktienpreis[3] * 10 / 100))
$NewAkt4Rnd = Round($NewAkt4, 2)
$NewAkt4Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 4: " & $Aktienpreis[3] & "€")
$NewAkt5 = Random($Aktienpreis[4] - ($Aktienpreis[4] * 10 / 100), $Aktienpreis[4] + ($Aktienpreis[4] * 10 / 100))
$NewAkt5Rnd = Round($NewAkt5, 2)
$NewAkt5Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 5: " & $Aktienpreis[4] & "€")
$NewAkt6 = Random($Aktienpreis[5] - ($Aktienpreis[5] * 10 / 100), $Aktienpreis[5] + ($Aktienpreis[5] * 10 / 100))
$NewAkt6Rnd = Round($NewAkt6, 2)
$NewAkt6Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 6: " & $Aktienpreis[5] & "€")
$NewAkt7 = Random($Aktienpreis[6] - ($Aktienpreis[6] * 10 / 100), $Aktienpreis[6] + ($Aktienpreis[6] * 10 / 100))
$NewAkt7Rnd = Round($NewAkt7, 2)
$NewAkt7Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 7: " & $Aktienpreis[6] & "€")
$NewAkt8 = Random($Aktienpreis[7] - ($Aktienpreis[7] * 10 / 100), $Aktienpreis[7] + ($Aktienpreis[7] * 10 / 100))
$NewAkt8Rnd = Round($NewAkt8, 2)
$NewAkt8Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 8: " & $Aktienpreis[7] & "€")
$NewAkt9 = Random($Aktienpreis[8] - ($Aktienpreis[8] * 10 / 100), $Aktienpreis[8] + ($Aktienpreis[8] * 10 / 100))
$NewAkt9Rnd = Round($NewAkt9, 2)
$NewAkt9Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 9: " & $Aktienpreis[8] & "€")
$NewAkt10 = Random($Aktienpreis[9] - ($Aktienpreis[9] * 10 / 100), $Aktienpreis[9] + ($Aktienpreis[9] * 10 / 100))
$NewAkt10Rnd = Round($NewAkt10, 2)
$NewAkt10Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 10: " & $Aktienpreis[9] & "€")
$NewAkt11 = Random($Aktienpreis[10] - ($Aktienpreis[10] * 10 / 100), $Aktienpreis[10] + ($Aktienpreis[10] * 10 / 100))
$NewAkt11Rnd = Round($NewAkt11, 2)
$NewAkt11Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 11: " & $Aktienpreis[10] & "€")
$NewAkt12 = Random($Aktienpreis[11] - ($Aktienpreis[11] * 10 / 100), $Aktienpreis[11] + ($Aktienpreis[11] * 10 / 100))
$NewAkt12Rnd = Round($NewAkt12, 2)
$NewAkt12Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 12: " & $Aktienpreis[11] & "€")
$NewAkt13 = Random($Aktienpreis[12] - ($Aktienpreis[12] * 10 / 100), $Aktienpreis[12] + ($Aktienpreis[12] * 10 / 100))
$NewAkt13Rnd = Round($NewAkt13, 2)
$NewAkt13Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 13: " & $Aktienpreis[12] & "€")
$NewAkt14 = Random($Aktienpreis[13] - ($Aktienpreis[13] * 10 / 100), $Aktienpreis[13] + ($Aktienpreis[13] * 10 / 100))
$NewAkt14Rnd = Round($NewAkt14, 2)
$NewAkt14Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 14: " & $Aktienpreis[13] & "€")
$NewAkt15 = Random($Aktienpreis[14] - ($Aktienpreis[14] * 10 / 100), $Aktienpreis[14] + ($Aktienpreis[14] * 10 / 100))
$NewAkt15Rnd = Round($NewAkt15, 2)
$NewAkt15Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 15: " & $Aktienpreis[14] & "€")
$NewAkt16 = Random($Aktienpreis[15] - ($Aktienpreis[15] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt16Rnd = Round($NewAkt16, 2)
$NewAkt16Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 16: " & $Aktienpreis[15] & "€")
$NewAkt17 = Random($Aktienpreis[15] - ($Aktienpreis[16] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt17Rnd = Round($NewAkt16, 2)
$NewAkt17Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 17: " & $Aktienpreis[16] & "€")
$NewAkt18 = Random($Aktienpreis[15] - ($Aktienpreis[17] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt18Rnd = Round($NewAkt16, 2)
$NewAkt18Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 18: " & $Aktienpreis[17] & "€")
$NewAkt19 = Random($Aktienpreis[15] - ($Aktienpreis[18] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt19Rnd = Round($NewAkt16, 2)
$NewAkt19Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 19: " & $Aktienpreis[18] & "€")
$NewAkt20 = Random($Aktienpreis[15] - ($Aktienpreis[19] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt20Rnd = Round($NewAkt16, 2)
$NewAkt20Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 20: " & $Aktienpreis[19] & "€")
EndFunc
Falls ihr meinen ganzen Code braucht, hier ist er:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Global $Aktienpreis[20]
$Aktienpreis[0] = 5
$Aktienpreis[1] = 5
$Aktienpreis[2] = 10
$Aktienpreis[3] = 10
$Aktienpreis[4] = 15
$Aktienpreis[5] = 20
$Aktienpreis[6] = 25
$Aktienpreis[7] = 25
$Aktienpreis[8] = 30
$Aktienpreis[9] = 35
$Aktienpreis[10] = 40
$Aktienpreis[11] = 45
$Aktienpreis[12] = 50
$Aktienpreis[13] = 50
$Aktienpreis[14] = 50
$Aktienpreis[15] = 60
$Aktienpreis[16] = 75
$Aktienpreis[17] = 75
$Aktienpreis[18] = 85
$Aktienpreis[19] = 100
Global $Geldstand = 1000
Global $AktienBesitz[20]
$AktienBesitz[0] = 0
$AktienBesitz[1] = 0
$AktienBesitz[2] = 0
$AktienBesitz[3] = 0
$AktienBesitz[4] = 0
$AktienBesitz[5] = 0
$AktienBesitz[6] = 0
$AktienBesitz[7] = 0
$AktienBesitz[8] = 0
$AktienBesitz[9] = 0
$AktienBesitz[10] = 0
$AktienBesitz[11] = 0
$AktienBesitz[12] = 0
$AktienBesitz[13] = 0
$AktienBesitz[14] = 0
$AktienBesitz[15] = 0
$AktienBesitz[16] = 0
$AktienBesitz[17] = 0
$AktienBesitz[18] = 0
$AktienBesitz[19] = 0
#region ### START Koda GUI section ### Form=c:\alex\koda form designer\aktien simulator.kxf
$Form1_1 = GUICreate("Aktien Simulator", 642, 689, 614, 50, $WS_MAXIMIZE)
$LblAkt1 = GUICtrlCreateLabel("Aktie 1: " & $Aktienpreis[0] & "€", 40, 80, 132, 17)
$LblAkt2 = GUICtrlCreateLabel("Aktie 2: " & $Aktienpreis[1] & "€", 40, 112, 132, 17)
$LblAkt3 = GUICtrlCreateLabel("Aktie 3: " & $Aktienpreis[2] & "€", 40, 144, 132, 17)
$LblAkt4 = GUICtrlCreateLabel("Aktie 4: " & $Aktienpreis[3] & "€", 40, 176, 132, 17)
$LblAkt5 = GUICtrlCreateLabel("Aktie 5: " & $Aktienpreis[4] & "€", 40, 208, 132, 17)
$LblAkt6 = GUICtrlCreateLabel("Aktie 6: " & $Aktienpreis[5] & "€", 40, 240, 132, 17)
$LblAkt7 = GUICtrlCreateLabel("Aktie 7: " & $Aktienpreis[6] & "€", 40, 272, 132, 17)
$LblAkt8 = GUICtrlCreateLabel("Aktie 8: " & $Aktienpreis[7] & "€", 40, 304, 132, 17)
$LblAkt9 = GUICtrlCreateLabel("Aktie 9: " & $Aktienpreis[8] & "€", 40, 336, 132, 17)
$LblAkt10 = GUICtrlCreateLabel("Aktie 10: " & $Aktienpreis[9] & "€", 40, 368, 130, 17)
$LblAkt11 = GUICtrlCreateLabel("Aktie 11: " & $Aktienpreis[10] & "€", 664, 80, 130, 17)
$LblAkt12 = GUICtrlCreateLabel("Aktie 12: " & $Aktienpreis[11] & "€", 664, 112, 130, 17)
$LblAkt13 = GUICtrlCreateLabel("Aktie 13: " & $Aktienpreis[12] & "€", 664, 144, 130, 17)
$LblAkt14 = GUICtrlCreateLabel("Aktie 14: " & $Aktienpreis[13] & "€", 664, 176, 130, 17)
$LblAkt15 = GUICtrlCreateLabel("Aktie 15: " & $Aktienpreis[14] & "€", 664, 208, 130, 17)
$LblAkt16 = GUICtrlCreateLabel("Aktie 16: " & $Aktienpreis[15] & "€", 664, 240, 130, 17)
$LblAkt17 = GUICtrlCreateLabel("Aktie 17: " & $Aktienpreis[16] & "€", 664, 272, 130, 17)
$LblAkt18 = GUICtrlCreateLabel("Aktie 18: " & $Aktienpreis[17] & "€", 664, 304, 130, 17)
$LblAkt19 = GUICtrlCreateLabel("Aktie 19: " & $Aktienpreis[18] & "€", 664, 336, 130, 17)
$LblAkt20 = GUICtrlCreateLabel("Aktie 20: " & $Aktienpreis[19] & "€", 664, 368, 138, 17)
$IptKfAkt1 = GUICtrlCreateInput("1", 192, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt2 = GUICtrlCreateInput("1", 192, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt3 = GUICtrlCreateInput("1", 192, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt4 = GUICtrlCreateInput("1", 192, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt5 = GUICtrlCreateInput("1", 192, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt6 = GUICtrlCreateInput("1", 192, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt7 = GUICtrlCreateInput("1", 192, 272, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt8 = GUICtrlCreateInput("1", 192, 304, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt9 = GUICtrlCreateInput("1", 192, 336, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt10 = GUICtrlCreateInput("1", 192, 368, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt11 = GUICtrlCreateInput("1", 816, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt12 = GUICtrlCreateInput("1", 816, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt13 = GUICtrlCreateInput("1", 816, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt14 = GUICtrlCreateInput("1", 816, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt15 = GUICtrlCreateInput("1", 816, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt16 = GUICtrlCreateInput("1", 816, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt17 = GUICtrlCreateInput("1", 816, 272, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt18 = GUICtrlCreateInput("1", 816, 304, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt19 = GUICtrlCreateInput("1", 816, 336, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptKfAkt20 = GUICtrlCreateInput("1", 816, 368, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$BtnKfAkt1 = GUICtrlCreateButton("Kaufen", 336, 80, 75, 25)
$BtnKfAkt2 = GUICtrlCreateButton("Kaufen", 336, 112, 75, 25)
$BtnKfAkt3 = GUICtrlCreateButton("Kaufen", 336, 144, 75, 25)
$BtnKfAkt4 = GUICtrlCreateButton("Kaufen", 336, 176, 75, 25)
$BtnKfAkt5 = GUICtrlCreateButton("Kaufen", 336, 208, 75, 25)
$BtnKfAkt6 = GUICtrlCreateButton("Kaufen", 336, 240, 75, 25)
$BtnKfAkt7 = GUICtrlCreateButton("Kaufen", 336, 272, 75, 25)
$BtnKfAkt8 = GUICtrlCreateButton("Kaufen", 336, 304, 75, 25)
$BtnKfAkt9 = GUICtrlCreateButton("Kaufen", 336, 336, 75, 25)
$BtnKfAkt10 = GUICtrlCreateButton("Kaufen", 336, 368, 75, 25)
$BtnKfAkt11 = GUICtrlCreateButton("Kaufen", 960, 80, 75, 25)
$BtnKfAkt12 = GUICtrlCreateButton("Kaufen", 960, 112, 75, 25)
$BtnKfAkt13 = GUICtrlCreateButton("Kaufen", 960, 144, 75, 25)
$BtnKfAkt14 = GUICtrlCreateButton("Kaufen", 960, 176, 75, 25)
$BtnKfAkt15 = GUICtrlCreateButton("Kaufen", 960, 208, 75, 25)
$BtnKfAkt16 = GUICtrlCreateButton("Kaufen", 960, 240, 75, 25)
$BtnKfAkt17 = GUICtrlCreateButton("Kaufen", 960, 272, 75, 25)
$BtnKfAkt18 = GUICtrlCreateButton("Kaufen", 960, 304, 75, 25)
$BtnKfAkt19 = GUICtrlCreateButton("Kaufen", 960, 336, 75, 25)
$BtnKfAkt20 = GUICtrlCreateButton("Kaufen", 960, 368, 75, 25)
$IptVkAkt11 = GUICtrlCreateInput("1", 1053, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt12 = GUICtrlCreateInput("1", 1053, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt13 = GUICtrlCreateInput("1", 1053, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt14 = GUICtrlCreateInput("1", 1053, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt15 = GUICtrlCreateInput("1", 1053, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt16 = GUICtrlCreateInput("1", 1053, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt17 = GUICtrlCreateInput("1", 1053, 272, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt18 = GUICtrlCreateInput("1", 1053, 304, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt19 = GUICtrlCreateInput("1", 1053, 336, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt20 = GUICtrlCreateInput("1", 1053, 368, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt1 = GUICtrlCreateInput("1", 450, 80, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt2 = GUICtrlCreateInput("1", 450, 112, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt3 = GUICtrlCreateInput("1", 450, 144, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt4 = GUICtrlCreateInput("1", 450, 176, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt5 = GUICtrlCreateInput("1", 450, 208, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt6 = GUICtrlCreateInput("1", 450, 240, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt7 = GUICtrlCreateInput("1", 450, 272, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt8 = GUICtrlCreateInput("1", 450, 304, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt9 = GUICtrlCreateInput("1", 450, 336, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$IptVkAkt10 = GUICtrlCreateInput("1", 450, 368, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
$BtnVkAkt1 = GUICtrlCreateButton("Verkaufen", 576, 80, 75, 25)
$BtnVkAkt2 = GUICtrlCreateButton("Verkaufen", 576, 112, 75, 25)
$BtnVkAkt3 = GUICtrlCreateButton("Verkaufen", 576, 144, 75, 25)
$BtnVkAkt4 = GUICtrlCreateButton("Verkaufen", 576, 176, 75, 25)
$BtnVkAkt5 = GUICtrlCreateButton("Verkaufen", 576, 208, 75, 25)
$BtnVkAkt6 = GUICtrlCreateButton("Verkaufen", 576, 240, 75, 25)
$BtnVkAkt7 = GUICtrlCreateButton("Verkaufen", 576, 272, 75, 25)
$BtnVkAkt8 = GUICtrlCreateButton("Verkaufen", 576, 304, 75, 25)
$BtnVkAkt9 = GUICtrlCreateButton("Verkaufen", 576, 336, 75, 25)
$BtnVkAkt10 = GUICtrlCreateButton("Verkaufen", 576, 368, 75, 25)
$BtnVkAkt11 = GUICtrlCreateButton("Verkaufen", 1192, 80, 75, 25)
$BtnVkAkt12 = GUICtrlCreateButton("Verkaufen", 1192, 112, 75, 25)
$BtnVkAkt13 = GUICtrlCreateButton("Verkaufen", 1192, 144, 75, 25)
$BtnVkAkt14 = GUICtrlCreateButton("Verkaufen", 1192, 176, 75, 25)
$BtnVkAkt15 = GUICtrlCreateButton("Verkaufen", 1192, 208, 75, 25)
$BtnVkAkt16 = GUICtrlCreateButton("Verkaufen", 1192, 240, 75, 25)
$BtnVkAkt17 = GUICtrlCreateButton("Verkaufen", 1192, 272, 75, 25)
$BtnVkAkt18 = GUICtrlCreateButton("Verkaufen", 1192, 304, 75, 25)
$BtnVkAkt19 = GUICtrlCreateButton("Verkaufen", 1192, 336, 75, 25)
$BtnVkAkt20 = GUICtrlCreateButton("Verkaufen", 1192, 368, 75, 25)
$Lbl1 = GUICtrlCreateLabel("Hallo! Hier kannst du Aktien kaufen und verkaufen.", 40, 16, 1226, 33)
$BtnExit = GUICtrlCreateButton("Beenden", 1287, 31)
$BtnNextDay = GUICtrlCreateButton("Nächster Tag", 96, 440, 545, 41)
$LblGeldStand = GUICtrlCreateLabel("Aktueller Geldstand: " &$Geldstand& "€", 574, 42)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BtnExit
Exit
Case $BtnKfAkt1
$Akt1Ipt = GUICtrlRead($IptKfAkt1)
$Akt1 = $Aktienpreis[0] * $Akt1Ipt
If $Akt1 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt1
For $i = 1 To $Akt1Ipt Step 1
$AktienBesitz[0] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt2
$Akt2Ipt = GUICtrlRead($IptKfAkt2)
$Akt2 = $Aktienpreis[1] * $Akt2Ipt
If $Akt2 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt2
For $i1 = 1 To $Akt2Ipt Step 1
$AktienBesitz[1] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt3
$Akt3Ipt = GUICtrlRead($IptKfAkt3)
$Akt3 = $Aktienpreis[2] * $Akt3Ipt
If $Akt3 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt3
For $i2 = 1 To $Akt3Ipt Step 1
$AktienBesitz[2] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt4
$Akt4Ipt = GUICtrlRead($IptKfAkt4)
$Akt4 = $Aktienpreis[3] * $Akt4Ipt
If $Akt4 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt4
For $i3 = 1 To $Akt4Ipt Step 1
$AktienBesitz[3] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt5
$Akt5Ipt = GUICtrlRead($IptKfAkt5)
$Akt5 = $Aktienpreis[4] * $Akt5Ipt
If $Akt5 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt5
For $i4 = 1 To $Akt5Ipt Step 1
$AktienBesitz[4] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt6
$Akt6Ipt = GUICtrlRead($IptKfAkt6)
$Akt6 = $Aktienpreis[5] * $Akt6Ipt
If $Akt6 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt6
For $i5 = 1 To $Akt6Ipt Step 1
$AktienBesitz[5] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt7
$Akt7Ipt = GUICtrlRead($IptKfAkt7)
$Akt7 = $Aktienpreis[6] * $Akt7Ipt
If $Akt7 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt7
For $i6 = 1 To $Akt7Ipt Step 1
$AktienBesitz[6] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt8
$Akt8Ipt = GUICtrlRead($IptKfAkt
$Akt8 = $Aktienpreis[7] * $Akt8Ipt
If $Akt8 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt8
For $i7 = 1 To $Akt8Ipt Step 1
$AktienBesitz[7] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt9
$Akt9Ipt = GUICtrlRead($IptKfAkt9)
$Akt9 = $Aktienpreis[8] * $Akt9Ipt
If $Akt9 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt9
For $i8 = 1 To $Akt9Ipt Step 1
$AktienBesitz[8] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt10
$Akt10Ipt = GUICtrlRead($IptKfAkt10)
$Akt10 = $Aktienpreis[9] * $Akt10Ipt
If $Akt10 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt10
For $i9 = 1 To $Akt10Ipt Step 1
$AktienBesitz[9] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt11
$Akt11Ipt = GUICtrlRead($IptKfAkt11)
$Akt11 = $Aktienpreis[10] * $Akt11Ipt
If $Akt11 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt11
For $i10 = 1 To $Akt11Ipt Step 1
$AktienBesitz[10] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt12
$Akt12Ipt = GUICtrlRead($IptKfAkt12)
$Akt12 = $Aktienpreis[11] * $Akt12Ipt
If $Akt12 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt12
For $i11 = 1 To $Akt12Ipt Step 1
$AktienBesitz[11] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt13
$Akt13Ipt = GUICtrlRead($IptKfAkt13)
$Akt13 = $Aktienpreis[12] * $Akt13Ipt
If $Akt13 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt13
For $i12 = 1 To $Akt13Ipt Step 1
$AktienBesitz[12] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt14
$Akt14Ipt = GUICtrlRead($IptKfAkt14)
$Akt14 = $Aktienpreis[13] * $Akt14Ipt
If $Akt14 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt14
For $i13 = 1 To $Akt14Ipt Step 1
$AktienBesitz[13] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt15
$Akt15Ipt = GUICtrlRead($IptKfAkt15)
$Akt15 = $Aktienpreis[14] * $Akt15Ipt
If $Akt15 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt15
For $i14 = 1 To $Akt15Ipt Step 1
$AktienBesitz[14] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt16
$Akt16Ipt = GUICtrlRead($IptKfAkt16)
$Akt16 = $Aktienpreis[15] * $Akt16Ipt
If $Akt16 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt16
For $i15 = 1 To $Akt16Ipt Step 1
$AktienBesitz[15] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt17
$Akt17Ipt = GUICtrlRead($IptKfAkt17)
$Akt17 = $Aktienpreis[16] * $Akt17Ipt
If $Akt17 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt17
For $i16 = 1 To $Akt17Ipt Step 1
$AktienBesitz[16] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt18
$Akt18Ipt = GUICtrlRead($IptKfAkt1
$Akt18 = $Aktienpreis[17] * $Akt18Ipt
If $Akt18 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt18
For $i17 = 1 To $Akt18Ipt Step 1
$AktienBesitz[17] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt19
$Akt19Ipt = GUICtrlRead($IptKfAkt19)
$Akt19 = $Aktienpreis[18] * $Akt19Ipt
If $Akt19 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt19
For $i18 = 1 To $Akt19Ipt Step 1
$AktienBesitz[18] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnKfAkt20
$Akt20Ipt = GUICtrlRead($IptKfAkt20)
$Akt20 = $Aktienpreis[19] * $Akt20Ipt
If $Akt20 > $Geldstand Then
MsgBox(4096, "Nicht genug Geld!", "Du hast nicht genug Geld!")
Else
$Geldstand -= $Akt20
For $i19 = 1 To $Akt20Ipt Step 1
$AktienBesitz[19] += 1
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt1
$Akt1VkIpt = GUICtrlRead($IptVkAkt1)
If $Akt1VkIpt > $AktienBesitz[0] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt1VkIpt = $AktienBesitz[0] Or $Akt1VkIpt < $AktienBesitz[0] Then
For $ii = 1 To $Akt1VkIpt Step 1
$Geldstand += $Aktienpreis[0]
$AktienBesitz[0] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt2
$Akt2VkIpt = GUICtrlRead($IptVkAkt2)
If $Akt2VkIpt > $AktienBesitz[1] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt2VkIpt = $AktienBesitz[1] Or $Akt2VkIpt < $AktienBesitz[1] Then
For $ii1 = 1 To $Akt2VkIpt Step 1
$Geldstand += $Aktienpreis[1]
$AktienBesitz[1] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt3
$Akt3VkIpt = GUICtrlRead($IptVkAkt3)
If $Akt3VkIpt > $AktienBesitz[2] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt3VkIpt = $AktienBesitz[2] Or $Akt3VkIpt < $AktienBesitz[2] Then
For $ii2 = 1 To $Akt3VkIpt Step 1
$Geldstand += $Aktienpreis[2]
$AktienBesitz[2] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt4
$Akt4VkIpt = GUICtrlRead($IptVkAkt4)
If $Akt4VkIpt > $AktienBesitz[3] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt4VkIpt = $AktienBesitz[3] Or $Akt4VkIpt < $AktienBesitz[3] Then
For $ii3 = 1 To $Akt4VkIpt Step 1
$Geldstand += $Aktienpreis[3]
$AktienBesitz[3] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt5
$Akt5VkIpt = GUICtrlRead($IptVkAkt5)
If $Akt5VkIpt > $AktienBesitz[4] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt5VkIpt = $AktienBesitz[4] Or $Akt5VkIpt < $AktienBesitz[4] Then
For $ii4 = 1 To $Akt5VkIpt Step 1
$Geldstand += $Aktienpreis[4]
$AktienBesitz[4] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt6
$Akt6VkIpt = GUICtrlRead($IptVkAkt6)
If $Akt6VkIpt > $AktienBesitz[5] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt6VkIpt = $AktienBesitz[5] Or $Akt6VkIpt < $AktienBesitz[5] Then
For $ii5 = 1 To $Akt6VkIpt Step 1
$Geldstand += $Aktienpreis[5]
$AktienBesitz[5] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt7
$Akt7VkIpt = GUICtrlRead($IptVkAkt7)
If $Akt7VkIpt > $AktienBesitz[6] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt7VkIpt = $AktienBesitz[6] Or $Akt7VkIpt < $AktienBesitz[6] Then
For $ii6 = 1 To $Akt7VkIpt Step 1
$Geldstand += $Aktienpreis[6]
$AktienBesitz[6] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt8
$Akt8VkIpt = GUICtrlRead($IptVkAkt
If $Akt8VkIpt > $AktienBesitz[7] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt8VkIpt = $AktienBesitz[7] Or $Akt8VkIpt < $AktienBesitz[7] Then
For $ii7 = 1 To $Akt8VkIpt Step 1
$Geldstand += $Aktienpreis[7]
$AktienBesitz[7] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt9
$Akt9VkIpt = GUICtrlRead($IptVkAkt9)
If $Akt9VkIpt > $AktienBesitz[8] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt9VkIpt = $AktienBesitz[8] Or $Akt9VkIpt < $AktienBesitz[8] Then
For $ii8 = 1 To $Akt9VkIpt Step 1
$Geldstand += $Aktienpreis[8]
$AktienBesitz[8] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt10
$Akt10VkIpt = GUICtrlRead($IptVkAkt10)
If $Akt10VkIpt > $AktienBesitz[9] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt10VkIpt = $AktienBesitz[9] Or $Akt10VkIpt < $AktienBesitz[9] Then
For $ii9 = 1 To $Akt10VkIpt Step 1
$Geldstand += $Aktienpreis[9]
$AktienBesitz[9] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt11
$Akt11VkIpt = GUICtrlRead($IptVkAkt11)
If $Akt11VkIpt > $AktienBesitz[10] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt11VkIpt = $AktienBesitz[10] Or $Akt11VkIpt < $AktienBesitz[10] Then
For $ii10 = 1 To $Akt11VkIpt Step 1
$Geldstand += $Aktienpreis[10]
$AktienBesitz[10] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt12
$Akt12VkIpt = GUICtrlRead($IptVkAkt12)
If $Akt12VkIpt > $AktienBesitz[11] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt12VkIpt = $AktienBesitz[11] Or $Akt12VkIpt < $AktienBesitz[11] Then
For $ii11 = 1 To $Akt12VkIpt Step 1
$Geldstand += $Aktienpreis[11]
$AktienBesitz[11] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt13
$Akt13VkIpt = GUICtrlRead($IptVkAkt13)
If $Akt13VkIpt > $AktienBesitz[12] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt13VkIpt = $AktienBesitz[12] Or $Akt13VkIpt < $AktienBesitz[12] Then
For $ii12 = 1 To $Akt13VkIpt Step 1
$Geldstand += $Aktienpreis[12]
$AktienBesitz[12] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt14
$Akt14VkIpt = GUICtrlRead($IptVkAkt14)
If $Akt14VkIpt > $AktienBesitz[13] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt14VkIpt = $AktienBesitz[13] Or $Akt14VkIpt < $AktienBesitz[13] Then
For $ii13 = 1 To $Akt14VkIpt Step 1
$Geldstand += $Aktienpreis[13]
$AktienBesitz[13] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt15
$Akt15VkIpt = GUICtrlRead($IptVkAkt15)
If $Akt15VkIpt > $AktienBesitz[14] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt15VkIpt = $AktienBesitz[14] Or $Akt15VkIpt < $AktienBesitz[14] Then
For $ii14 = 1 To $Akt15VkIpt Step 1
$Geldstand += $Aktienpreis[14]
$AktienBesitz[14] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt16
$Akt16VkIpt = GUICtrlRead($IptVkAkt16)
If $Akt16VkIpt > $AktienBesitz[15] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt16VkIpt = $AktienBesitz[15] Or $Akt16VkIpt < $AktienBesitz[15] Then
For $ii15 = 1 To $Akt16VkIpt Step 1
$Geldstand += $Aktienpreis[15]
$AktienBesitz[15] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt17
$Akt17VkIpt = GUICtrlRead($IptVkAkt17)
If $Akt17VkIpt > $AktienBesitz[16] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt17VkIpt = $AktienBesitz[16] Or $Akt17VkIpt < $AktienBesitz[16] Then
For $ii16 = 1 To $Akt17VkIpt Step 1
$Geldstand += $Aktienpreis[16]
$AktienBesitz[16] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt18
$Akt18VkIpt = GUICtrlRead($IptVkAkt1
If $Akt18VkIpt > $AktienBesitz[17] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt18VkIpt = $AktienBesitz[17] Or $Akt18VkIpt < $AktienBesitz[17] Then
For $ii17 = 1 To $Akt18VkIpt Step 1
$Geldstand += $Aktienpreis[17]
$AktienBesitz[17] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt19
$Akt19VkIpt = GUICtrlRead($IptVkAkt19)
If $Akt19VkIpt > $AktienBesitz[18] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt19VkIpt = $AktienBesitz[18] Or $Akt19VkIpt < $AktienBesitz[18] Then
For $ii18 = 1 To $Akt19VkIpt Step 1
$Geldstand += $Aktienpreis[18]
$AktienBesitz[18] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnVkAkt20
$Akt20VkIpt = GUICtrlRead($IptVkAkt20)
If $Akt20VkIpt > $AktienBesitz[19] Then
MsgBox(4096, "Nicht im Besitz!", "Soviele Aktien hast du leider nicht in deinem Besitz!")
ElseIf $Akt20VkIpt = $AktienBesitz[19] Or $Akt20VkIpt < $AktienBesitz[19] Then
For $ii19 = 1 To $Akt20VkIpt Step 1
$Geldstand += $Aktienpreis[19]
$AktienBesitz[19] -= 1
Sleep(100)
Next
GUICtrlSetData($LblGeldStand, "Aktueller Geldstand: " &$Geldstand& "€")
EndIf
Case $BtnNextDay
_NextDay()
EndSwitch
WEnd
Func _NextDay()
Local $NumAkt1, $NumAkt21
If IsNumber($Aktienpreis[0]) Then
$NumAkt1 = $Aktienpreis[0] - ($Aktienpreis[0] * 10 / 100)
$NumAkt21 = $Aktienpreis[0] + ($Aktienpreis[0] * 10 / 100)
$NewAkt1 = Random($NumAkt1, $NumAkt21)
$NewAkt1Rnd = Round($NewAkt1, 2)
$NewAkt1Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 1: " & $Aktienpreis[0] & "€")
EndIf
$NewAkt2 = Random($Aktienpreis[1] - ($Aktienpreis[1] * 10 / 100), $Aktienpreis[1] + ($Aktienpreis[1] * 10 / 100))
$NewAkt2Rnd = Round($NewAkt2, 2)
$NewAkt2Rnd = $Aktienpreis[1]
GUICtrlSetData($LblAkt1, "Aktie 2: " & $Aktienpreis[1] & "€")
$NewAkt3 = Random($Aktienpreis[2] - ($Aktienpreis[2] * 10 / 100), $Aktienpreis[2] + ($Aktienpreis[2] * 10 / 100))
$NewAkt3Rnd = Round($NewAkt3, 2)
$NewAkt3Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 3: " & $Aktienpreis[2] & "€")
$NewAkt4 = Random($Aktienpreis[3] - ($Aktienpreis[3] * 10 / 100), $Aktienpreis[3] + ($Aktienpreis[3] * 10 / 100))
$NewAkt4Rnd = Round($NewAkt4, 2)
$NewAkt4Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 4: " & $Aktienpreis[3] & "€")
$NewAkt5 = Random($Aktienpreis[4] - ($Aktienpreis[4] * 10 / 100), $Aktienpreis[4] + ($Aktienpreis[4] * 10 / 100))
$NewAkt5Rnd = Round($NewAkt5, 2)
$NewAkt5Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 5: " & $Aktienpreis[4] & "€")
$NewAkt6 = Random($Aktienpreis[5] - ($Aktienpreis[5] * 10 / 100), $Aktienpreis[5] + ($Aktienpreis[5] * 10 / 100))
$NewAkt6Rnd = Round($NewAkt6, 2)
$NewAkt6Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 6: " & $Aktienpreis[5] & "€")
$NewAkt7 = Random($Aktienpreis[6] - ($Aktienpreis[6] * 10 / 100), $Aktienpreis[6] + ($Aktienpreis[6] * 10 / 100))
$NewAkt7Rnd = Round($NewAkt7, 2)
$NewAkt7Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 7: " & $Aktienpreis[6] & "€")
$NewAkt8 = Random($Aktienpreis[7] - ($Aktienpreis[7] * 10 / 100), $Aktienpreis[7] + ($Aktienpreis[7] * 10 / 100))
$NewAkt8Rnd = Round($NewAkt8, 2)
$NewAkt8Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 8: " & $Aktienpreis[7] & "€")
$NewAkt9 = Random($Aktienpreis[8] - ($Aktienpreis[8] * 10 / 100), $Aktienpreis[8] + ($Aktienpreis[8] * 10 / 100))
$NewAkt9Rnd = Round($NewAkt9, 2)
$NewAkt9Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 9: " & $Aktienpreis[8] & "€")
$NewAkt10 = Random($Aktienpreis[9] - ($Aktienpreis[9] * 10 / 100), $Aktienpreis[9] + ($Aktienpreis[9] * 10 / 100))
$NewAkt10Rnd = Round($NewAkt10, 2)
$NewAkt10Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 10: " & $Aktienpreis[9] & "€")
$NewAkt11 = Random($Aktienpreis[10] - ($Aktienpreis[10] * 10 / 100), $Aktienpreis[10] + ($Aktienpreis[10] * 10 / 100))
$NewAkt11Rnd = Round($NewAkt11, 2)
$NewAkt11Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 11: " & $Aktienpreis[10] & "€")
$NewAkt12 = Random($Aktienpreis[11] - ($Aktienpreis[11] * 10 / 100), $Aktienpreis[11] + ($Aktienpreis[11] * 10 / 100))
$NewAkt12Rnd = Round($NewAkt12, 2)
$NewAkt12Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 12: " & $Aktienpreis[11] & "€")
$NewAkt13 = Random($Aktienpreis[12] - ($Aktienpreis[12] * 10 / 100), $Aktienpreis[12] + ($Aktienpreis[12] * 10 / 100))
$NewAkt13Rnd = Round($NewAkt13, 2)
$NewAkt13Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 13: " & $Aktienpreis[12] & "€")
$NewAkt14 = Random($Aktienpreis[13] - ($Aktienpreis[13] * 10 / 100), $Aktienpreis[13] + ($Aktienpreis[13] * 10 / 100))
$NewAkt14Rnd = Round($NewAkt14, 2)
$NewAkt14Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 14: " & $Aktienpreis[13] & "€")
$NewAkt15 = Random($Aktienpreis[14] - ($Aktienpreis[14] * 10 / 100), $Aktienpreis[14] + ($Aktienpreis[14] * 10 / 100))
$NewAkt15Rnd = Round($NewAkt15, 2)
$NewAkt15Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 15: " & $Aktienpreis[14] & "€")
$NewAkt16 = Random($Aktienpreis[15] - ($Aktienpreis[15] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt16Rnd = Round($NewAkt16, 2)
$NewAkt16Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 16: " & $Aktienpreis[15] & "€")
$NewAkt17 = Random($Aktienpreis[15] - ($Aktienpreis[16] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt17Rnd = Round($NewAkt16, 2)
$NewAkt17Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 17: " & $Aktienpreis[16] & "€")
$NewAkt18 = Random($Aktienpreis[15] - ($Aktienpreis[17] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt18Rnd = Round($NewAkt16, 2)
$NewAkt18Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 18: " & $Aktienpreis[17] & "€")
$NewAkt19 = Random($Aktienpreis[15] - ($Aktienpreis[18] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt19Rnd = Round($NewAkt16, 2)
$NewAkt19Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 19: " & $Aktienpreis[18] & "€")
$NewAkt20 = Random($Aktienpreis[15] - ($Aktienpreis[19] * 10 / 100), $Aktienpreis[15] + ($Aktienpreis[15] * 10 / 100))
$NewAkt20Rnd = Round($NewAkt16, 2)
$NewAkt20Rnd = $Aktienpreis[0]
GUICtrlSetData($LblAkt1, "Aktie 20: " & $Aktienpreis[19] & "€")
EndFunc
Ich hoffe, dass ihr mir helfen könnt, denn sonst verzweifel ich...
Lg 19Alex99