Sub BC0
LCB = Controls.LastClickedButton
If LCB = M1 Then
GraphicsWindow.Clear()
Moglichkeit1()
ElseIf LCB = M2 Then
GraphicsWindow.Clear()
Moglichkeit2()
EndIf
EndSub
'MÖGLICHKEIT 1_____________________________________________________________________________________
Sub Moglichkeit1
Controls.ButtonClicked = BC1
Timer.Tick = Zeit
Sub BC1
LCB = Controls.LastClickedButton
If LCB = Akzeptierenbutton Then
ZeitdauerSek = Controls.GetTextBoxText(Zeitbox)'Zeit in Sekunden wird abgelesen
ZeitdauerMil = ZeitdauerSek*1000'Zeit in Milisekunden | Das Timer - Ereignis rechnet mit Milisekunden! Deswegen muss man den Sekundenwert umwandeln.
Timer.Interval = ZeitdauerMil 'Hiermit wird ein Interval gestartet. Das bedeutet, dass im regelmäßigen Abstand von xSekunden das Ereignis ausgeführt wird.
EndIf
EndSub
Sub Zeit
If ZeitdauerSek < 3 Then'Durch die If's wird bestimmt was passiert wenn der Wert (in diesem Fall) kleiner, größer und genau 3 ist. Die Zahl mit der die Zeit verglichen werden soll, kann beliebig verändert werden.
GraphicsWindow.ShowMessage("Die eingegebene Zeit ist kleiner als 3 Sekunden.", "Möglichkeit 1")
ElseIf ZeitdauerSek > 3 Then
GraphicsWindow.ShowMessage("Die eingegebene Zeit ist größer als 3 Sekunden.", "Möglichkeit 2")
ElseIf ZeitdauerSek = 3 Then
GraphicsWindow.ShowMessage("Die eingegebene Zeit beträgt genau 3 Sekunden.", "Möglichkeit 3")
EndIf
EndSub
'MÖGLICHKEIT 2_____________________________________________________________________________________
Sub Moglichkeit2
Controls.ButtonClicked = BC2
Sub BC2
LCB = Controls.LastClickedButton
If LCB = Akzeptierenbutton Then
ZeitdauerSek = Controls.GetTextBoxText(Zeitbox)'Zeit in Sekunden wird abgelesen
Auswertung()
EndIf
EndSub
Sub Auswertung
If ZeitdauerSek < 3 Then'Durch die If's wird bestimmt was passiert wenn der Wert (in diesem Fall) kleiner, größer und genau 3 ist. Die Zahl mit der die Zeit verglichen werden soll, kann beliebig verändert werden.
GraphicsWindow.ShowMessage("Die eingegebene Zeit ist kleiner als 3 Sekunden.", "Möglichkeit 1")
ElseIf ZeitdauerSek > 3 Then
GraphicsWindow.ShowMessage("Die eingegebene Zeit ist größer als 3 Sekunden.", "Möglichkeit 2")
ElseIf ZeitdauerSek = 3 Then
GraphicsWindow.ShowMessage("Die eingegebene Zeit beträgt genau 3 Sekunden.", "Möglichkeit 3")
EndIf
EndSub