【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-交通调查统计系统键盘.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Begin VB.Form 交通调查统计系统键盘
Caption = "交通调查统计系统键盘"
ClientHeight = 7455
ClientLeft = 60
ClientTop = 375
ClientWidth = 10290
Icon = "交通调查统计
系统键盘.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7455
ScaleWidth = 10290
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer2
Left = 720
Top = 6240
End
Begin VB.Timer Timer1
Left = 240
Top = 6240
End
Begin VB.Frame Frame8
Caption = "8"
Height = 855
Left = 5400
TabIndex = 7
Top = 3840
Width = 4575
Begin VB.Label Label8
Height = 495
Left = 120
TabIndex = 15
Top = 240
Width = 3375
End
End
Begin VB.Frame Frame7
Caption = "7"
Height = 855
Left = 5400
TabIndex = 6
Top = 2640
Width = 4575
Begin VB.Label Label7
Height = 495
Left = 120
TabIndex = 14
Top = 240
Width = 3375
End
End
Begin VB.Frame Frame6
Caption = "6"
Height = 855
Left = 5400
TabIndex = 5
Top = 1320
Width = 4575
Begin VB.Label Label6
Height = 495
Left = 120
TabIndex = 13
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame5
Caption = "5"
Height = 855
Left = 5400
TabIndex = 4
Top = 240
Width = 4575
Begin VB.Label Label5
Height = 495
Left = 240
TabIndex = 12
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame4
Caption = "4"
Height = 855
Left = 120
TabIndex = 3
Top = 3840
Width = 4575
Begin VB.Label Label4
Height = 495
Left = 240
TabIndex = 11
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame3
Caption = "3"
Height = 855
Left = 120
TabIndex = 2
Top = 2640
Width = 4575
Begin VB.Label Label3
Height = 495
Left = 240
TabIndex = 10
Top = 240
Width = 3135
End
End
Begin
VB.Frame Frame2
Caption = "2"
Height = 855
Left = 120
TabIndex = 1
Top = 1320
Width = 4575
Begin VB.Label Label2
Height = 495
Left = 240
TabIndex = 9
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame1
Caption = "1"
Height = 855
Left = 120
TabIndex = 0
Top = 240
Width = 4575
Begin VB.Label Label1
Height = 495
Left = 120
TabIndex = 8
Top = 240
Width = 3015
End
End
Begin VB.Image Image2
Height = 480
Left = 5760
Picture = "交通调查统计系统键盘.frx":0442
Top = 6840
Width = 480
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "交通调查统计系统键盘.frx":0884
Top = 6840
Width = 480
End
Begin VB.Label Label12
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 6600
TabIndex = 22
Top = 6840
Width = 3495
End
Begin VB.Label Label11
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 720
TabIndex = 21
Top = 6840
Width = 4095
End
Begin VB.Label Label15
Caption = "输出(&o)"
Height = 495
Left = 7800
TabIndex = 20
Top = 6000
Width = 1335
End
Begin VB.Label Label14
Caption = "结束统计(&e)"
Height = 375
Left = 4680
TabIndex = 19
Top = 6000
Width = 1335
End
Begin VB.Label Label13
Caption = "开始统计(&s)"
Height = 375
Left = 1200
TabIndex = 18
Top = 6000
Width = 1935
End
Begin VB.Label Label10
Height = 495
Left = 3960
TabIndex = 17
Top = 5280
Width = 3855
End
Begin VB.Label Label9
ForeColor = &H00000000&
Height = 495
Left = 240
TabIndex = 16
Top = 5280
Width = 3135
End
End
Attribute VB_Name = "交通调查统计系统键盘"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim starttime As Double
Dim endtime As Double
Dim strtime1 As String
Dim strtime2 As String
Dim i1, i2, i3, i4, i5, i6, i7, i8 As Integer
Dim t1(100000), t2(100000), t3(100000), t4(100000), t5(100000), t6(100000), t7(100000), t8(100000) As Double
Dim flag1 As Boolean
Dim flag2 As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim hh, mm As Long
Dim ss As Double
Dim i As Integer
Dim ex As New Excel.Application
Select Case Chr(KeyAscii)
Case "s"
starttime = Timer
hh = Int(starttime / 3600)
mm = Int((starttime - 3600 * hh) / 60)
ss = Format(starttime - hh * 3600 - mm * 60, "0.00")
strtime1 = hh & "时" & mm & "分" & ss & "秒"
Label9.ForeColor = &HFF0000
Label9.Caption = "开始时刻" & strtime1
Timer2.Interval = 100
Timer2.Enabled = True
flag1 = True
Case "e"
If flag1 Then
endtime = Timer
hh = Int(endtime / 3600)
mm = Int((endtime - 3600 * hh) / 60)
ss = Format(endtime - hh * 3600 - mm * 60, "0.00")
strtime2 = hh & "时" & mm & "分" & ss & "秒"
Label10.ForeColor = &HFF0000
Label10.Caption = "结束时刻" & strtime2
Timer2.Enabled = False
flag2 = True
End If
Case "1"
If flag1 Then
Label1.ForeColor = &HFF0000
i1 = i1 + 1
t1(i1) = Format(Timer - starttime, "0.00")
Label1.Caption = "这是第" & i1 & "辆，通过时刻为" & t1(i1) & "秒"
End If
Case "2"
If fl
相关文章
2013-9-1
