version 5.50 0 Form1 1 2 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,Button1,85,145,75,23,"Start",212,208,200,0,0,0,True,True,9)@ addlabel(form1,differenz,125,85,55,20,"",220,220,220,0,0,0,True,True,9)@ addlabel(form1,Label5,60,85,60,20,"Differenz:",220,220,220,0,0,0,True,True,9)@ addlabel(form1,Label4,60,60,60,20,"Endetzeit:",220,220,220,0,0,0,True,True,9)@ addlabel(form1,endezeit,125,60,55,20,"",220,220,220,0,0,0,True,True,9)@ addlabel(form1,startzeit,125,35,55,20,"",220,220,220,0,0,0,True,True,9)@ addlabel(form1,Label1,60,35,60,20,"Startzeit:",220,220,220,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. timeIsRunning = false ticksAtStart = 0 ticksAtStop = 0 End Sub Sub App_Start Form1.Show End Sub Sub Button1_Click If timeIsRunning = false Then ' Start = aktuelle Uhrzeit ticksAtStart = Now startzeit.Text = Time(ticksAtStart) ' kein Ende gesetzt endezeit.Text = "" ' Button heißt nun Stop button1.Text = "Stop" Else ' Ende = aktuelle Uhrzeit ticksAtStop = Now endezeit.Text = Time(ticksAtStop) ' Differenz = Ende - Start differenz.Text = Time(ticksAtStop - ticksAtStart) ' Button heißt nun wieder Start button1.Text = "Start" End If timeIsRunning = Not(timeIsRunning) End Sub