Microsoft Small Basic

Program Listing: LWN233
AuswahlBeispiel()
Sub AuswahlBeispiel
Controls.ButtonClicked = BC0

GraphicsWindow.Height = 110
GraphicsWindow.Width = 110
GraphicsWindow.BackgroundColor = "Gray"
GraphicsWindow.Title = ""
M1 = Controls.AddButton("Möglichkeit 1", 10, 10)
M2 = Controls.AddButton("Möglichkeit 2", 10, 60)
EndSub

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

GraphicsWindow.Height = 40
GraphicsWindow.Width = 250
GraphicsWindow.BackgroundColor = "Gray"
Zeitbox = Controls.AddTextBox(10, 10)
Controls.SetSize(Zeitbox, 100, 21)
Akzeptierenbutton = Controls.AddButton("Ereignis auslösen", 120, 10)
EndSub

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

GraphicsWindow.Height = 40
GraphicsWindow.Width = 250
GraphicsWindow.BackgroundColor = "Gray"
Zeitbox = Controls.AddTextBox(10, 10)
Controls.SetSize(Zeitbox, 100, 21)
Akzeptierenbutton = Controls.AddButton("Ereignis auslösen", 120, 10)
EndSub

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