Simple Stop Watch Project

Form Design:

Form = 1

Command Button = 4

Label = 3

Text Box = 3

Properties Set:

Object	Property	Settings
Form1	Name Caption Height Width Back Color Max Button	StopWatch Simple Stop Watch 4995 6195 &H00004000& False
Command1	Name Caption Back Color Height Width Left Top Style	cmdStart Start &H00C0FFC0& 375 915 2160 3960 1 - Graphical
Command2	Name Caption Back Color Height Width Left Top Style	cmdStop Stop &H0080C0FF& 375 915 3120 3960 1 - Graphical
Command3	Name Caption Back Color Height Width Left Top Style	cmdClear Clear &H00FFC0FF& 375 915 4080 3960 1 - Graphical
Command4	Name Caption Back Color Height Width Left Top Style	cmdExit Exit &H00C0C0FF& 375 915 5040 3960 1 - Graphical
Label1	Caption Fore Color Back Style Height Width Left Top	Start time : &H0000FFFF& 0 - Transparent 375 1275 240 1080
Label2	Caption Fore Color Back Style Height Width Left Top	Stop time : &H0000FFFF& 0 - Transparent 255 1275 240 1920
Label3	Caption Fore Color Back Style Height Width Left Top	Elapsed time : &H0000FFFF& 0 - Transparent 375 1275 240 1080
Text1	Name Text Fore Color Height Width Left Top	txtStart [blank] &H00C00000& 525 3255 1920 960
Text2	Name Text Fore Color Height Width Left Top	txtStop [blank] &H000000FF& 525 3255 1920 1800
Text3	Name Text Fore Color Height Width Left Top	txtElapsed [blank] &H00000080& 525 3255 1920 2640

Code:

Private Sub cmdStart_Click()

  txtStart.Text = Timer

  txtStop.Text = ""

  txtElapsed.Text = ""

  Beep

End Sub

Private Sub cmdStop_Click()

  Dim Elapsed As Variant

  txtStop.Text = Timer

  Elapsed = txtStop.Text - txtStart.Text

  txtElapsed.Text = Format(Elapsed, "####0.##")

  Beep

End Sub

Private Sub cmdClear_Click()

  txtStart.Text = ""

  txtStop.Text = ""

  txtElapsed.Text = ""

End Sub

Private Sub cmdExit_Click()

  End

End Sub

Related Post