home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / LearnVB5 / VB Code / Class 1 / Example1-3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-27  |  3.2 KB  |  112 lines
  1. VERSION 5.00
  2. Begin VB.Form frmStopWatch 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Stopwatch Application"
  5.    ClientHeight    =   2505
  6.    ClientLeft      =   5325
  7.    ClientTop       =   4380
  8.    ClientWidth     =   4890
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2505
  13.    ScaleWidth      =   4890
  14.    Begin VB.CommandButton cmdExit 
  15.       Caption         =   "E&xit"
  16.       Height          =   495
  17.       Left            =   240
  18.       TabIndex        =   2
  19.       Top             =   1560
  20.       Width           =   1215
  21.    End
  22.    Begin VB.CommandButton cmdEnd 
  23.       Caption         =   "&End Timing"
  24.       Height          =   495
  25.       Left            =   240
  26.       TabIndex        =   1
  27.       Top             =   960
  28.       Width           =   1215
  29.    End
  30.    Begin VB.CommandButton cmdStart 
  31.       Caption         =   "&StartTiming"
  32.       Height          =   495
  33.       Left            =   240
  34.       TabIndex        =   0
  35.       Top             =   360
  36.       Width           =   1215
  37.    End
  38.    Begin VB.Label lblElapsed 
  39.       BorderStyle     =   1  'Fixed Single
  40.       Height          =   495
  41.       Left            =   3120
  42.       TabIndex        =   8
  43.       Top             =   1560
  44.       Width           =   1215
  45.    End
  46.    Begin VB.Label lblEnd 
  47.       BorderStyle     =   1  'Fixed Single
  48.       Height          =   495
  49.       Left            =   3120
  50.       TabIndex        =   7
  51.       Top             =   960
  52.       Width           =   1215
  53.    End
  54.    Begin VB.Label lblStart 
  55.       BorderStyle     =   1  'Fixed Single
  56.       Height          =   495
  57.       Left            =   3120
  58.       TabIndex        =   6
  59.       Top             =   360
  60.       Width           =   1215
  61.    End
  62.    Begin VB.Label Label3 
  63.       Caption         =   "Elapsed Time"
  64.       Height          =   495
  65.       Left            =   1680
  66.       TabIndex        =   5
  67.       Top             =   1560
  68.       Width           =   1215
  69.    End
  70.    Begin VB.Label Label2 
  71.       Caption         =   "End Time"
  72.       Height          =   495
  73.       Left            =   1680
  74.       TabIndex        =   4
  75.       Top             =   960
  76.       Width           =   1215
  77.    End
  78.    Begin VB.Label Label1 
  79.       Caption         =   "Start Time"
  80.       Height          =   495
  81.       Left            =   1680
  82.       TabIndex        =   3
  83.       Top             =   360
  84.       Width           =   1215
  85.    End
  86. Attribute VB_Name = "frmStopWatch"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Dim StartTime As Variant
  93. Dim EndTime As Variant
  94. Dim ElapsedTime As Variant
  95. Private Sub cmdEnd_Click()
  96. 'Find the ending time, compute the elapsed time
  97. 'Put both values in label boxes
  98. EndTime = Now
  99. ElapsedTime = EndTime - StartTime
  100. lblEnd.Caption = Format(EndTime, "hh:mm:ss")
  101. lblElapsed.Caption = Format(ElapsedTime, "hh:mm:ss")
  102. End Sub
  103. Private Sub cmdExit_Click()
  104. End Sub
  105. Private Sub cmdStart_Click()
  106. 'Establish and print starting time
  107. StartTime = Now
  108. lblStart.Caption = Format(StartTime, "hh:mm:ss")
  109. lblEnd.Caption = ""
  110. lblElapsed.Caption = ""
  111. End Sub
  112.