Bestimmte Situationen und Probleme einer Simulation

If (@HOUR >= 13 AND @HOUR <= 14) then
MsgBox(0,"","13 - 14")
ElseIf (@HOUR = 15) then
MsgBox(0,"","15")
EndIf

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $speed = 1000
Global $kasse = 0
$Form1_1 = GUICreate("Form1", 626, 308, 192, 124)
$List1 = GUICtrlCreateList("", 32, 40, 561, 123)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Kasse öffnen", 32, 176, 193, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Kasse schliessen", 32, 216, 193, 25, $WS_GROUP)
$speedcombo = GUICtrlCreateCombo("",32,260,50,25)
GUICtrlSetData(-1, "1|2|3|4|10|20|40|50|100","1")
$besucherzahl = GUICtrlCreateInput("0", 240, 176, 121, 21)
$Spielzeit = GUICtrlCreateLabel("Spielzeit:", 400, 16, 51, 17)
$Time = GUICtrlCreateLabel("23:55", 456, 16, 27, 17)
$Day = GUICtrlCreateLabel("Tag 1", 490, 16, 35, 20)
GUISetState(@SW_SHOW)
AdlibRegister("_spielzeit",$speed)

Func speed()

if GUICtrlRead($speedcombo) = 1 Then $speed = 1000
if GUICtrlRead($speedcombo) = 2 Then $speed = 500
if GUICtrlRead($speedcombo) = 3 Then $speed = 333
if GUICtrlRead($speedcombo) = 4 Then $speed = 250
if GUICtrlRead($speedcombo) = 10 Then $speed = 100
if GUICtrlRead($speedcombo) = 20 Then $speed = 50
if GUICtrlRead($speedcombo) = 40 Then $speed = 25
if GUICtrlRead($speedcombo) = 50 Then $speed = 20
if GUICtrlRead($speedcombo) = 100 Then $speed = 10
AdlibRegister("_spielzeit",$speed)
if $kasse = 1 Then
AdlibRegister("_besucherzahl",$speed)
EndIf

EndFunc

Func _besucherzahl()

$readvzahl=GUICtrlRead($besucherzahl)
$zufallszahl=Random(0,100,1)
$readvzahl += $zufallszahl
GUICtrlSetData($besucherzahl,$readvzahl)
EndFunc

Func _spielzeit()
$readtime=GUICtrlRead($Time)
$readday=GUICtrlRead($Day)

$split=StringSplit($readtime,":",2)
$daysplit=StringSplit($readday," ",2)

If $split[0]=00 And $split[1]=00 Then
$daysplit[1] += 1
EndIf
GUICtrlSetData($Day,$daysplit[0]&" "&$daysplit[1])

If $split[1]=59 Then
$split[1]=00
If $split[0]=23 Then
$split[0]=00
Else
$split[0]+=1
EndIf
Else
$split[1] += 1
EndIf
If StringLen($split[0])=1 Then $split[0]="0"&$split[0]
If StringLen($split[1]=1) Then $split[1]="0"&$split[1]

;$split[1] += 1

$aktuellezeit = StringFormat("%02d:%02d",$split[0],$split[1])
GUICtrlSetData($Time,$aktuellezeit)
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$kasse = 1
AdlibRegister("_besucherzahl",$speed)

Case $Button2
$kasse = 0
AdlibUnRegister("_besucherzahl")
Case $speedcombo
speed()

EndSwitch
WEnd