📄 commtest.frm
字号:
Begin VB.OptionButton Option2
Caption = "57600"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 3720
TabIndex = 12
Top = 240
Width = 855
End
Begin VB.OptionButton Option2
Caption = "38400"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 2760
TabIndex = 11
Top = 240
Width = 855
End
Begin VB.OptionButton Option2
Caption = "19200"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 1800
TabIndex = 10
Top = 240
Width = 855
End
Begin VB.OptionButton Option2
Caption = "9600"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 960
TabIndex = 3
Top = 240
Width = 735
End
Begin VB.OptionButton Option2
Caption = "2400"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 120
TabIndex = 2
Top = 240
Width = 735
End
End
Begin MSCommLib.MSComm MSComm1
Left = 10320
Top = 600
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 32000
InputMode = 1
End
Begin VB.Label Label3
Caption = "12:12:30"
BeginProperty Font
Name = "Wingdings"
Size = 14.25
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 11160
TabIndex = 52
Top = 720
Width = 1215
End
Begin VB.Label Label3
Caption = "2005-07-28"
BeginProperty Font
Name = "Wingdings"
Size = 14.25
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 11040
TabIndex = 34
Top = 240
Width = 1575
End
Begin VB.Label Label2
Caption = "CRC校验"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 11760
TabIndex = 24
Top = 6480
Width = 735
End
Begin VB.Label Label2
Caption = "指令参数明细"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 7680
TabIndex = 23
Top = 6480
Width = 1335
End
Begin VB.Label Label2
Caption = "参数长度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 4320
TabIndex = 22
Top = 6480
Width = 735
End
Begin VB.Label Label2
Caption = "指令"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 3600
TabIndex = 21
Top = 6480
Width = 495
End
Begin VB.Label Label2
Caption = "指令类别"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2640
TabIndex = 20
Top = 6480
Width = 735
End
Begin VB.Label Label2
Caption = "接收地址"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 1800
TabIndex = 19
Top = 6480
Width = 735
End
Begin VB.Label Label2
Caption = "指令起始符"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 600
TabIndex = 18
Top = 6480
Width = 975
End
Begin VB.Label Label4
Caption = "产品通讯调试程式"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 4440
TabIndex = 0
Top = 0
Width = 3975
End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RxCommByteCount As Integer
Dim RxData(255) As Byte
Dim db As Database
'Dim TableRxCommand As TableDef
Dim DataRxRecord As Recordset
Dim DataAddress As Recordset
Dim DataCommand As Recordset
Dim DataCards As Recordset
Dim TollData As Recordset
Dim PlaceData As Recordset
Dim RxText As String
Dim RelayNum As Byte
Dim CardWait As Byte
Dim CardValid As Byte
Dim CardInvalid As Byte
Dim LinkMode1 As Byte
Const CONCommSyn1 = &HFE
Const CONCommSyn2 = &HFD
Const CONCommSyn3 = &HFE
Const ADDR_Broadcast = &HF0 '广播地址所有设备broadcast
Const ADDR_NotAssign = &HFF '未分配地址设备
'设备专用指令可用0x10-0x1D(0x01-0x0F通用指令)；避开CONCommSyn 1E1F
Const ADDR_Myself = &H0 '一切接收自身232口指令接收设备的本机概念
Const TYPE_Itself = &H0 '一切接收设备的本机概念
Const ADDR_RS232_1 = &HF1 '接收设备的1号(默认的)串口
Const ADDR_RS232_2 = &HF2 '接收设备的2号串口
Const ADDR_CanManager = &H1 '对次级而言的CAN管理主机
Const ADDR_SystemManageMachine = &H1 '系统管理机地址(01-1D)对PC而言
Const ADDR_PassageController = &H0 '车场通道控制器,主板广播地址= &H20,原则上同样的硬件可互换,不分出入口主板,配置在上(管理主机)不在下,复杂车场只需修改管理机配置.当然配置也可以下载.
Const ADDR_EntranceController = &H20 '车场通道控制器,主板广播地址0x20,原则上同样的硬件可互换,不分出入口主板,配置在上(管理主机)不在下,复杂车场只需修改管理机配置.当然配置也可以下载.
'Const ADDR_ExitController = &H40 '车场通道控制器,主板广播地址0x20,原则上同样的硬件可互换,不分出入口主板,配置在上(管理主机)不在下,复杂车场只需修改管理机配置.当然配置也可以下载.
'门禁控制器，背板公用的指令集应统一，范围与地址约同
'消费处理机，背板公用的指令集应统一，范围与地址约同
'电梯控制器，背板公用的指令集应统一，范围与地址约同
Const ADDR_LedScreen = &H60 '汉字显示屏含数字显示屏，指令集为非字符区
Const ADDR_HeatPrinter = &H70 '热敏纸票机指令集为非字符区
Const ADDR_VehicleDetector = &H80 '车辆检测器容量32个满足区域引导
Const ADDR_CardProvider = &HA0 '自动出卡机，含自动收卡机，主控器可挂接此设备，指令集应统一
Const ADDR_Reader = &HB0 'ID号读卡头，主控器可挂接此设备，指令集应统一
Const ADDR_AutoBarrier = &HC0 '自动道闸机，主控器可挂接此设备，指令集应统一
Const ADDR_IOModel = &HD0 '通用IO模块，一级总线设备，背板公用的指令集应统一，范围与地址约同
Const ADDR_ParkingGuider = &HE0 '停车引导器，一级总线设备，背板公用的指令集应统一，用作超声波实时车位引导
Const ADDR_Other = &HF0 '其他设备
'电脑发送的指令
Const COMR_SoftReset = &H2 '工作方式+1字节参数,参数=1=软件复位
Const COMR_SetDateTime = &H3 '时钟设置+year,month,day,hour,minute,second,week
Const COMR_Beep = &H7 '蜂鸣器响+1字节参数,参数为响声次数
'以上为可广播的指令
Const LEDR_Display = &H10 '直通显示指令+
Const LEDR_StoreSentance = &H13 '保存显示指令+
Const SMMR_LinkMode = &H20 '联机脱机工作模式+1字节参数,参数=0/1=脱机/联机
Const SMMR_LoadCardsPrefix = &H21 '装载或追加卡片档案通知,后随2字节起始序号(0-65534)，再加2字节卡片档案总数(1-65535),建议将所购卡片一次排序全部装入,不用的卡片先加锁.现决定不采用1字节批号（256条/1整批）,
Const SMMR_LoadOneCard = &H22 '装载或追加卡片档案一条,后随2字节序号(0-65534)，卡片档案必须按ID号升序排序,装载卡片期间系统停止工作.
Const SMMR_ModifyOneCard = &H23 '修改卡片档案一条,用于卡片挂失/加锁/延期等,修改卡片期间系统继续工作.
Const SMMR_FetchCardsRequest = &H25 '提取卡片档案申请
Const SMMR_ReceiveCardsResult = &H26 '收卡片档案应答
Const SMMR_LoadTimeTable = &H27 '下载收费时刻表
Const SMMR_LoadTollTable = &H28 '下载收费金额表
Const SMMR_LoadTotalPlace = &H29 '下载各车场总车位数表,参数为：车场数量[1](1-31)+1号车场总车位数[2]+2号车场总车位数[2]+...
Const SMMR_LoadRemainPlace = &H2A '下载各车场剩余车位数表,参数为：1号车场剩余车位数[2]+2号车场剩余车位数[2]+...
Const SMMR_LoadParkName = &H2B '下载各车场剩余车位显示名称表,参数为：1号车场剩余车位显示名称[6]+2号车场剩余车位显示名称[6]+...
Const SMMR_EventWait = &H30 '现场事件收悉等待（PC机必须在3秒内响应，据此判断是否联机）
Const PCWAT_Capture = 0 '等待入口图像捕捉 '有效分型便于在岗亭内的显示屏上提示
Const PCWAT_Compare = 1 '等待出口图像对比
Const PCWAT_Toll = 2 '等待出口收费完成
Const PCWAT_CompareToll = 3 '等待出口图像对比及收费完成
Const SMMR_EventValid = &H31 '现场事件确认有效（人工抬闸事件记录有效，入口图像捕捉，出口对比与收费有效）
Con⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -