📄 form2.frm
字号:
Top = 210
Width = 375
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "停车场出口监控"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4860
TabIndex = 20
Top = 3690
Width = 1785
End
Begin VB.Label Label19
Caption = "收卡机剩余卡数:"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 8280
TabIndex = 19
Top = 3720
Width = 1845
End
Begin VB.Label Label30
Caption = "100"
Height = 165
Left = 10170
TabIndex = 18
Top = 3810
Width = 315
End
Begin VB.Label Label9
Alignment = 2 'Center
Caption = "收取金额"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4800
TabIndex = 17
Top = 6780
Width = 1155
End
Begin VB.Label Label10
Alignment = 2 'Center
Caption = "找零金额"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5940
TabIndex = 16
Top = 6810
Width = 1095
End
Begin VB.Label Label11
Alignment = 2 'Center
Caption = "实收金额"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7110
TabIndex = 15
Top = 6810
Width = 1005
End
End
Begin Threed.SSPanel SSPanel1
Height = 555
Left = 0
TabIndex = 0
Top = 8430
Width = 12000
_Version = 65536
_ExtentX = 21167
_ExtentY = 979
_StockProps = 15
Caption = "武汉鑫浪科技研制"
BackColor = 13160660
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Threed.SSPanel SSPanel3
Height = 525
Left = 7230
TabIndex = 2
Top = 0
Width = 4770
_Version = 65536
_ExtentX = 8414
_ExtentY = 926
_StockProps = 15
Caption = "停车场收费系统"
BackColor = 13160660
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Threed.SSPanel SSPanel4
Height = 525
Left = 0
TabIndex = 3
Top = 0
Width = 7230
_Version = 65536
_ExtentX = 12753
_ExtentY = 926
_StockProps = 15
Caption = "停车场收费系统"
BackColor = 13160660
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Begin VB.TextBox Text1
Height = 435
Left = 90
TabIndex = 31
Text = "Text1"
Top = 60
Width = 7095
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim addr00, addr01, addr02, addr03, addr04, addrc, Fkrdb, FkSend As Byte
Dim addr10, addr11, addr12, addr13, addr14, addrc1, Skrdb, SkSend As Byte
Dim kj0(50), kj1(50) As Byte
Dim cws0, tkb0, dgb As Byte
Dim Cont0 As Byte
Dim time0 As String
Dim kpbh0 As String
Dim CpuName, tupian As String
Dim Name8(20) As String
Dim FKcont0, SKcont0 As Long
Dim PortIn As Long
Dim PortOut As Long
Dim lg1 As Integer
Dim computername As String
Dim name0(10) As String
Dim name1(10), tem As String
Dim mn As String
Dim h As Long
Dim m As Long
Dim lg As Integer
Dim yun0, yun00, yun1, yun20, yun21, yun22, yun30, yun31, yun32, yun40 As Byte
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Sub Form_Activate()
'Set rs2 = New ADODB.Recordset
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
End
End If
End Sub
Private Sub Form_Load()
Dim name0(20) As String
Dim PP As String
icflag = 0
yun0 = 3
yun00 = 10
yun1 = 70
yun20 = 12
yun21 = 6
yun22 = 12
yun30 = 24
yun31 = 12
yun32 = 24
yun40 = 1
comname = Winsock1.LocalHostName
PortOut = 0
'OUTPORT'初始化端口
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
name0(0) = ""
name0(1) = "卡片编号"
name0(2) = "入场日期"
name0(3) = "入场时间"
name0(4) = "持卡类型"
name0(5) = "操作员"
With MSFlexGrid1
.Col = 0
.Row = 1
.ColWidth(0) = 302
.RowHeight(0) = 300
For i = 1 To 8
.RowHeight(i) = 277
.Text = Str(i)
If i >= 8 Then
Else
.Row = .Row + 1
End If
Next i
.ColWidth(1) = 1000
.ColWidth(2) = 1500
.ColWidth(3) = 1500
.ColWidth(4) = 1500
.ColWidth(5) = 952
.Col = 1
.Row = 0
For i = 1 To 5
.Text = name0(i)
If i >= 5 Then
Else
.Col = .Col + 1
End If
Next i
End With
name0(0) = "卡片编号:"
name0(1) = "入场时间:"
name0(2) = "出场时间:"
name0(3) = "应收金额:"
name0(4) = "持卡类型:"
name0(5) = "车主姓名:"
name0(6) = "车牌号码:"
name0(7) = "车身颜色:"
name0(8) = "停车时间:"
With MSFlexGrid2
.Col = 0
.Row = 0
For i = 0 To 8
.RowHeight(i) = 275
.Text = name0(i)
If i >= 8 Then
Else
.Row = .Row + 1
End If
Next i
.ColWidth(0) = 900
.ColWidth(1) = 2350
.Col = 1
.Row = 8
.Text = ""
.Row = 5
.Text = ""
End With
PP = String(21, "?")
i = GetComputerName(PP, 20)
If i = 0 Then
MsgBox " 系统故障 重新启动系统 ", 0, "故障"
End
Else
CpuName = Trim(Left(PP, InStr(PP, "?") - 1))
End If
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
MSComm1.CommPort = 1
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
MSComm2.CommPort = 2
If MSComm2.PortOpen = False Then
MSComm2.PortOpen = True
End If
Cont0 = 0
SDK1.VideoStandard = 1
SDK2.VideoStandard = 1
SDK1.Connect (False)
SDK2.Connect (False)
SDK1.Disconnect
SDK2.Disconnect
SDK1.VideoStandard = 1
SDK2.VideoStandard = 1
SDK1.Connect (False)
SDK2.Connect (False)
kNOb00 = 1000
kNOb0 = 1000
kNOb11 = 500
kNOb1 = 600
cws0 = 150
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Call ShutdownWinIo
SDK1.Disconnect
SDK2.Disconnect
End Sub
Private Sub MSComm1_OnComm() '发卡机窜口事件
Dim m As String
Dim k0() As Byte
Dim k As Byte
Dim addr As Byte
Select Case MSComm1.CommEvent
Case comEventRxOver
MSComm1.InBufferCount = 0
Case comEventTxFull
sendok = 0
Case comEvReceive
If MSComm1.InBufferCount > 0 Then
Do
MSComm1.InputLen = 1
m = MSComm1.Input
k0() = m
addr = k0(0)
'Text21.Text = Text21.Text + " " + Hex(addr)
FkTime = 0
Select Case addrc
Case 0
If addr = &HAA Then
addr01 = addr
kj0(0) = 0
addrc = 1
End If
Case 1
If addr = &HBB Then
addr01 = addr01 Xor addr
addrc = 2
Else
If addr = &HDD Then
FkSend = 1
End If
addrc = 0
End If
Case 2
kj0(addrc) = addr
addr01 = addr01 Xor addr
addrc = addrc + 1
Case Else
kj0(addrc) = addr
If addr01 = addr And kj0(addrc - 1) = &HCC And kj0(addrc - 2) = &HAA Then
If kj0(2) = 0 And kj0(3) = &H83 Then
FKcont0 = (kj0(4) And &HF) * 100 + ((kj0(5) And &HF0) / 16) * 10 + (kj0(5) And &HF)
Label29.Caption = FKcont0
For i = 0 To 400
DoEvents
Next i
readk0
Timer2.Enabled = True
End If
If kj0(2) = 0 And kj0(3) = &H87 Then
FKcont0 = (kj0(4) And &HF) * 100 + ((kj0(5) And &HF0) / 16) * 10 + (kj0(5) And &HF)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -