📄 frmtest.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmTest
Caption = "Form1"
ClientHeight = 5145
ClientLeft = 60
ClientTop = 345
ClientWidth = 12135
LinkTopic = "Form1"
ScaleHeight = 5145
ScaleWidth = 12135
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command4
Caption = "月租卡"
Height = 375
Left = 9840
TabIndex = 11
Top = 2520
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 375
Left = 7920
TabIndex = 10
Top = 2520
Width = 1575
End
Begin VB.CommandButton Command12
Caption = "此卡已出场"
Height = 375
Left = 9840
TabIndex = 9
Top = 2040
Width = 1575
End
Begin VB.CommandButton Command11
Caption = "此卡无效"
Height = 375
Left = 9840
TabIndex = 8
Top = 1560
Width = 1575
End
Begin VB.CommandButton Command10
Caption = "收费出场"
Height = 375
Left = 9840
TabIndex = 7
Top = 1080
Width = 1575
End
Begin VB.CommandButton Command9
Caption = "欢迎出场"
Height = 375
Left = 9840
TabIndex = 6
Top = 600
Width = 1575
End
Begin VB.CommandButton Command7
Caption = "车位已满"
Height = 375
Left = 7920
TabIndex = 5
Top = 2040
Width = 1575
End
Begin VB.CommandButton Command6
Caption = "此卡已在场"
Height = 375
Left = 7920
TabIndex = 4
Top = 1560
Width = 1575
End
Begin VB.CommandButton Command5
Caption = "此卡未登记"
Height = 375
Left = 7920
TabIndex = 3
Top = 1080
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "欢迎入场"
Height = 375
Left = 7920
TabIndex = 2
Top = 600
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "联机模式"
Height = 375
Left = 7920
TabIndex = 1
Top = 120
Width = 1215
End
Begin VB.TextBox Text1
Height = 4935
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 120
Width = 7455
End
Begin MSCommLib.MSComm MSComm1
Left = 7680
Top = 4560
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 32000
InputMode = 1
End
End
Attribute VB_Name = "frmTest"
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
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 '现场事件确认有效（人工抬闸事件记录有效，入口图像捕捉，出口对比与收费有效）
Const PCVID_Capture = 0 '入口图像捕捉有效 '有效分型便于在岗亭内的显示屏上提示
Const PCVID_Compare = 1 '出口图像对比有效
Const PCVID_ChangeOperater = 3 '操作员换班完成有效
Const PCVID_Toll = 4 '出口收费完成有效
Const PCVID_CompareToll = 5 '出口图像对比及收费完成有效
Const PCVID_Event = 6 '事件记录完成有效
Const SMMR_EventInvalid = &H32 '现场事件确认无效（出口图像对比不符无效）
Const PCINV_Compare = 0 '出口图像对比无效
Const SMMR_FetchEvent = &H33 '提取事件记录申请
Const SMMR_EventOk = &H34 '收妥事件记录应答
Const PCMR_CardWait = &H60 '卡号收妥请等待指令+n字节参数
'第一参数
Const WAT_Reply = 0 '显示:请等待确认
Const WAT_Capture = 1 '显示:等图像捕捉
Const WAT_Picture = 2 '显示:等图像对比
Const WAT_Toll = 3 '显示:显示收费信息
'显示收费信息后续参数
Const INF_Toll1 = 2 '参数:moneyL moneyH 显示：收费XXXX元
Const INF_Toll2 = 8 '参数:HourIn,MinuteIn,SecondIn,HourOut,MinuteOut,SecondOut,moneyL,moneyH显示XX:XX:XX入;XX:XX:XX出;收费XXXX元
Const INF_Toll3 = 14 '参数:YearIn,MonthIn,DayIn,HourIn,MinuteIn,SecondIn,YearOut,MonthOut,DayOut,HourOut,MinuteOut,SecondOut,moneyL,moneyH显示YY/MM/DD XX:XX:XX入;YY/MM/DD XX:XX:XX出;收费XXXX元
Const PCMR_CardValid = &H63 '卡有效指令+1字节参数
Const VID_In = 0 '显示:欢迎进场！
Const VID_Out = 1 '显示:一路平安！
Const VID_CollectCard = 2 '显示:请插卡回收
Const PCMR_CardInvalid = &H64 '卡无效指令+1字节参数
Const INV_ReadCard = 0 '显示:请再读卡！用于作读写器使用
Const INV_NotRegister = 1 '显示:此卡未登记
Const INV_HaveIn = 2 '显示:此卡已在场
Const INV_StillOut = 3 '显示:此卡未进场
Const INV_CardLoss = 4 '显示:此卡已挂失
Const INV_CardLock = 5 '显示:此卡已锁定
Const INV_OverDate = 6 '显示:此卡已过期
Const INV_NotPaid = 7 '显示:此卡未交费
Const INV_OverTime = 8 '显示:超时补交费
Const INV_Picture = 9 '显示:图像不符！
Const INV_ParkFull = 10 '显示:车位已满！
Const PCMR_Information = &H67 '显示+2字节参数信息
Const INF_ValidDate = 0 'Month,day 显示：XX月XX止效
Const INF_RemainDay = 1 'dayL,dayH 显示：余期XXXX天
Const INF_RemainMoney = 2 'RemainMoneyL,H 显示：余值XXXX元
Const INF_ValidDate2 = 3 'year,month,day 显示：XX-XX-XX止
Const ABMR_Operation = &HC0 '道闸直通操作指令+2字节参数"ho"/"ca"/"nc""dw"/"st"=抬闸保持/抬闸计数自落/抬闸不计数自落/落闸/停闸
Const IOMR_SingleOutput = &HD0 '动作数据0x00=OFF,0x01=ON;0x02/3=TOGGLE;1字节通道号(继电器号)0-255;1字节归位时间参数:0=保持不归位,1-255=0.1-25.5sec;1字节归位操作方式0x00=OFF=回零/释放,0x01=ON=回一/吸合,0x02=TOGGLE翻转保持, 0x03=循环翻转
Const IOMR_BatchOutput = &HD1 '动作数据字节数n,n字节动作数据,对应0至(nx8-1)号继电器,对应BIT=0=OFF,1=ON;1字节归位时间参数:0=保持不归位,1=255=0.1-25.5sec;1字节归位操作方式0x00=OFF=回零/释放,0x01=ON=回一/吸合,0x02=TOGGLE翻转保持, 0x03=循环翻转
Const IOMR_SingleInput = &HD2 '+通道号0-255，查询单通道输入电平
Const IOMR_BatchInput = &HD3 '+通道号0-255，查询所有通道输入电平
Const IOMR_SingleADC = &HD4 '+通道号0-255，查询单通道模数转换结果
Const IOMR_BatchADC = &HD5 '+通道号0-255，查询所有通道模数转换结果
Const IOMR_SingleDAC = &HD6 '+通道号0-255，输出单通道数模转换电压
Const IOMR_BatchDAC = &HD7 '+通道号0-255，输出所有通道数模转换电压
Const PGMR_SetPlace = &HE0 '车位信息指令+车场号+总车位数2byte+剩余车位数2字节 总车位车场号=0
' 电脑接收的指令
Const COMT_ResetOk = &H1 '上线报告+1字节参数,参数=1=上电上线复位OK
Const VDMT_VDCar = &H98 '车辆检测器指令+1字节参数,参数=0/1=车走/车到
Const CPMT_CardButt = &HA8 '按取卡按钮
Const CPMT_CardOut = &HA9 '出卡机出卡一张卡
Const CPMT_CardIn = &HAA '收卡机收卡一张卡
Const CPMT_CardNone = &HAB '出卡机无卡
Const CPMT_CardFew = &HAC '出卡机缺卡
Const CPMT_CardLoad = &HAD '出卡机装卡
Const CPMT_CardAdd = &HAE '出卡机添卡
Const CPMT_CardJam = &HAF '出卡机塞卡
Const RWMT_CardID = &HB8 '上传卡号+CardKind+4bytesID; +0-nbytesData改变参数长度方式可增加数据。
'设CardKind避免重号00-0F为本场卡，10-1F为流通卡便于计费扣费
Const CARD_Local = &H0 '本场卡
Const CARD_Mifare = &H1 'Mifare
Const CARD_Legic = &H2 'LEGIC
Const CARD_Ti = &H3 'Ti
Const CARD_Wg26 = &H4 '无法确定的WG26卡(EM卡/微波卡)
Const CARD_Wg34 = &H5 '无法确定的WG34卡(EM卡/微波卡
Const CARD_EM = &H6 'EM
Const CARD_Motorola = &H7 'Motorola
Const CARD_HID = &H8 'HID
Const CARD_Public = &H10 '流通卡
Const CARD_SZT = &H11 '深圳通
Const CARD_YCT = &H12 '羊城通
'指令来源代码,停车场管理控制器外挂读头需识别以便判断台式读写器
Const ADDR_Mifare = &HB1 'Mifare读头
Const ADDR_Reader232 = &HB2 '232LEGIC/485羊城通/TiRFM001
Const ADDR_Wg1 = &HB3 'wg1ID读头
Const ADDR_Wg2 = &HB4 'wg2ID读头
Const ADDR_Wg3 = &HB5 'wg3ID读头
Const CONCardRecordMax = 4096 '最大可装载卡片总数
Const LEDR_Append = &H11 '参数不定指令，不可重复 // disp immediately current input
Const LEDR_LoopStart = &H12 '参数不定指令，不可重复 // set loop disp start point or End loop disp
Const LEDR_StoreSentence = &H13 '0-255 sentence addr
Const LEDR_StoreLoopSentence = &H14 '0-255 sentence addr
Const LEDR_SelectSentence = &H15 '0-255 sentence addr
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -