T8451

T8451

为了达到实时数据采集目的，实时数据采集处理程序采用MSComm事件驱动方式。MSComm1_OnComm 的事件处理程序只处理comEvReceive事件，首先判断帧数据的开始字节，关闭OnComm接收事件，然后接收数据字节，将压缩BCD进行还原转换，再接收符号字节，判断数据符号，判断数据大小值，后打开OnComm接收事件，等待下一次OnComm事件产生：

Private Sub MSComm1_OnComm()

With MSComm1

Select Case mEvent '判断MSComm1通讯事件

　　Case comEvReceive '收到Rthreshold个字节产生的接收事件

　　 av = .Input '读取一个接收字节

　　 ab(1) = av(0) '转换保存到字节数据类型数组

　　 If ab(1) = 170 Then '判断是否为数据开始标志，0FAH=170

　　　　 .RThreshold = 0 '关闭OnComm事件接收

　　　　 W=W+1 　　　　'计数器加1

　　　　 av = .Input '读取通道状态字节

　　　　 ab(0) = av(0) '转换保存到字节数据类型数

　　　　 For i = 1 To 8 '通道状态数组复位

　　　　 TD(i) = False

　　　　 Next i

　　　　 cn = 2　　　　　　　　　　 '帧长度赋初值，一个开始字，一个状态字

　　　　 If ab(0) >= 128 Then　　　　'判断第八通状态

　　　　 TD(8) = True　　　　　　 '第八道是真

　　　　 ab(0) = ab(0) - 128　　 '第7位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 64 Then　　　　 '判断第七通状态

　　　　 TD(7) = True　　　　　　 '第七道是真

　　　　 ab(0) = ab(0) - 64　　　　'第6位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 32 Then　　　　 '判断第六通状态

　　　　 TD(6) = True　　　　　　 '第六道是真

　　　　 ab(0) = ab(0) - 32　　　　'第5位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 16 Then　　　　 '判断第五通状态

　　　　 TD(5) = True　　　　　　 '第五道是真

　　　　 ab(0) = ab(0) - 16　　　　'第4位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 8 Then　　　　 '判断第四通状态

　　　　 TD(4) = True　　　　　　 '第四道是真

　　　　 ab(0) = ab(0) - 8　　　　 '第3位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 4 Then　　　　 '判断第三通状态

　　　　 TD(3) = True　　　　　　 '第三道是真

　　　　 ab(0) = ab(0) - 4　　　　 '第2位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 2 Then　　　　 '判断第二通状态

　　　　 TD(2) = True　　　　　　 '第二道是真

　　　　 ab(0) = ab(0) - 2　　　　 '第0位置零

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 If ab(0) >= 1 Then　　　　 '判断第一通状态

　　　　 TD(1) = True　　　　　　 '第一道是真

　　　　 cn = cn + 3　　　　　　 '帧长度加3个字节

　　　　 End If

　　　　 For i = 1 To 8 '

　　　　 If TD(i) = True Then

　　　　　　av = .Input 　　 '读取第一个数据字节（BCD码高位字节）

　　　　　　ab(2) = av(0) 　　 '转换保存到字节数据类型数组

　　　　　　av = .Input 　　 '读取第二个数据字节（BCD码低位字节）

　　　　　　ab(3) = av(0) 　　 '转换保存到字节数据类型数组

　　　　　　av = .Input 　　 '读取第三个接收字节（符号位字节）

　　　　　　ab(4) = av(0) 　　 '转换保存到字节数据类型数组

　　　　　　b1 = ab(2) - 6 * (ab(2) \ 16)　　 '高位字节压缩BCD码转换为实数

　　　　　　b2 = ab(3) - 6 * (ab(3) \ 16)　　 '低位字节压缩BCD码转换为实数

　　　　　　WW = b2 + b1 / 100 '数值组合，标定小数点

　　　　　　If ab(4) > 127 Then WW = -WW '判断数据符号位

　　　　　　Label1(i-1) = Format(WW,"0.00")　　 '显示毫米单位数值，2位小数

　　　　　　If WW>Wmax(i) And WW<51 Then　　　　 '判断大值，仪表在刚开始工作时有干扰，会传导一些乱码，位移传感器有参数偏差，大值一般都略大于50毫米，所以取51为极限大值，取-51为极限小值。

　　　　　　 Wmax(i) = WW

　　　　　　 Label2(i-1)=Format(Wmax(i),"0.00") '显示大值

　　　　　　End If

　　　　　　If WW < Wmin(i) And WW > -51 Then '判断小值

　　　　　　 Wmin(i) = WW

　　　　　　 Label3(i-1)=Format(Wmin(i),"0.00") '显示小值

　　　　　　End If

　　　　 End If

　　　　 Next i

　　　　.RThreshold = cn '打开MSComm1事件接收

　　 Else

　　　　.RThreshold = 1

　　 End If

　　Case Else

End Select

End With

End Sub

应用领域  

医疗

使用产品

硬件：USB-6211 OEM

软件: VC

解决方案

新生儿是一个特殊的受试群体，他们不能主观的表达是否能听见声音1，因此，对于新生儿进行听力筛查，采用客观，无损的检测方法。2000年6月，美国婴幼儿听力联合委员会（JCIH）发表声明：推荐采用耳声发射听力检测技术对新生儿进行听力筛查的技术。近年来各类人群听力损伤日趋严重。例如：听力下降的起始年龄快速下降，据报道与青少年每天长时间，高质量地欣赏MP3是引起听力损伤的原因，密闭的耳机声场的集中声能严重损伤青少年的听力。还有：高龄人群由于慢性病引起高频听觉失聪。清华大学是国内掌握耳声发射听力检测设备研制能力的科研单位，完成了技术向产品的转化。

HV# UT6 handy terminal teach pendant UT6-AY112 V1.11

ESEC SA 631.183/5

ESEC SA 631.185/2

HP E2251A series C M-MODULE with Alfautomazione M1010

Force SPARC/CPU-3CE/64-40-1/C16

Control Processor 830-017528

GSi VGME-512

Parker compumotor AT6200 AT6200-120/240

Indramat ecodrive AC-servo controller DKC01 1-040-7-FW

JRC NJZ-917BJ GSM MS tester

Pickering 30-728-721 dual 8x9 RF Matrix

Hamamatsu C9047-02

Indramat ecodrive AC-servo controller DKC01 1-040-7-FW

Mitsubishi A2USHCPU-S1 & A1SJ71LP21 & A1SJ71UC24-R4

Siemens 6ES5 308-3UA12 6ES5308-3UA12 with 6ES5376-1AA11

Siemens 6ES5524-3UA13 & 6ES5752-0AA22 & 6ES5373-1AA41

Shimadzu Assy 501-71670 D board 501-71671 E

H# HP 75000 series C E1467A E1466-66202

Shimadzu board 501-71661 A assy 501-71660 B

Lam research VIOP PHASE II 810-099175-003 rev. D

Varian senTorr BA2 L91203021100

Comet CPU 6AA0024

Siemens simatic 6ES5 523-3UA11 6ES5523-3UA11 NIB

          Disco KN-006 UA-082303 CPU board

Lam research chiller resistivity 810-025369-002 rev. 1

Tachibana tectron TVME1606A-01 TVME 1606A-01

XYCOM IASCM XVME-428/1

HV# Yamaha SRCA-2

H# HP E1446A summing amplifier/DAC

ETEL DSCDH DSDH153-121C-001D 1045E-040-01H

Sew eurodrive MOVI-PLC DHE41B / UOH11B

HV# Melles griot nanotrak NTS 17NTS001

Spannhals motor typ 6901E

Canon BG9-3769 BH8-0766-02 PZ drive PCB

Canon BG9-4758 BG8-3109 BH8-1070-02 SC/RC

Canon BG9-4759 BH8-3110 BH8-1070-02 SC/RC

Canon BG9-4760 BG8-3111 BH8-1071-02 SH/RH

Canon BG9-4761 BG8-3112 BH8-1071-02 SH/RH

H# Leader 1GHz signal level meter 953

KLA instruments BCB IIb assy 710-805314-00

Shimadzu part 638-72274-01 TOCAT4

Ericsson ROJ 207 009/1 R3B CPU-60/C6

Mikrotron M276 B rev. 2 DC: 4095 CD.: pf

Mikrotron M276 B Rev. 2 DC:2397 CD.: RS

OGP VME lighting control 034351 Rev. C

Spectra-Physics 0129-9535-23S

Lam research 810-17030-005 rev. 5

ILX lightwave LDX-3525 precision current source

Silicon graphics 013-2978-001 Rev C & 030-1423-002

Mitsubishi AOJ2CPUP23 & AOJ2-E56DT

HP laser head 5517B cable and power supply 300uW

Spectra-Physics 0129-7082-23S

Siemens SD EA feeder center controller P/N: 000731016