Simple Stop Watch Project



Form Design:

Form = 1
Label = 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



























Post a Comment

1 Comments

  1. You have made some good points there. I looked on the
    net for more information about the issue and found most people will go along with your views on this site.


    Here is my blog: book of ra kostenlos ohne anmeldung

    ReplyDelete

Thank you for your Comment.