| 品牌：BOSCH | 规格：全新 | 材质：原装 |
| 产地：其它 |
ICS TRIPLEX T8845
3．2 部分参数的技术分析
3．2．1 仪表通讯传输速率为9600bps，则快速度为1.0417ms发送一个字节；仪表每秒发送200个字节，平均5.0ms发送一个字节，在查询方式或连续读取串口数据时要在程序中添加循环等待程序，等待接收缓冲区收到足够的字节才能进行数据处理。
3．2．2 仪表发送每帧数据长度不定长，为了实现实时监测功能，接收数据的读取要尽可能的快速，则在程序开始运行时设置MSComm1的属性
RThreshold = 26 接收缓冲区收到26个字节产生OnComm事件
InputLen = 1 Input每次读取一个字节
等到程序接收到一帧完整数据后，计算出当前帧数据长度，再将Rthreshold属性修改为帧长度，则接收缓冲区在收到一帧数据后，MSComm控件才会触发一个OnComm事件，这样就会有更多的时间进行数据的计算和处理。
3．2．3 仪表每秒发送200个字节数据，微机收到一完整帧数据至少需要t(ms)时间(只接一道传感器t=25ms；接八道传感器t=130ms)，然后再进行数据处理。如果微机在下一帧数据接收前即t ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>=一完整帧长度），这时完全可以实现实时监测或实时控制；如果微机在t ms内不能将数据计算处理完毕，接收缓冲区设置的又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监测和实时控制很不利，这种情况下接收缓冲区的大小就会影响实时监测效果，所以接收缓冲区设置不能过大，让部分数据丢失，以保证数据处理的实时性。
3．2．4 设置MSComm控件的接收数据模式采用二进制方式，即 InputMode=comInputModeBinary，但用Input属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到Byte类型数变量中。
3．2．5 VB中有 Byte类型变量，但没有字节的位处理语句。通道状态字节的位处理要通过对该字节的值运算进行判断，符号字节的位处理则要判断符号字节的值是否大于127，大于127则为负数；压缩的BCD码存入Byte类型变量，VB系统只按十进制数处理，这要通过一个简单算法换算，解压BCD码才能还原成十进制表示数值。假如a是Byte类型变量，Ｗ是Single类型变量，将一个压缩的BCD码存入 a中，则算法是：
Ｗ=(a＼16)*10 + a-(a＼16)*16
则Ｗ=a-(a＼16)*6
3．3 程序代码
在（通用）（声明）中定义程序所用变量：
Dim ab(4) As Byte '字节数据类型数组，用来存贮接收到的一组字节数据
Dim av As Variant '用来从接收缓冲区读取数据
Dim i As Integer
Dim j As Integer
Dim w As Integer '接收数据个数计数器
Dim b1 As Single
Dim b2 As Single
Dim WW As Single '十进制检测值
Dim TD(8) as Boolean '通道状态数组
Dim Wmax(8) As Single '大值数组
Dim Wmin(8) As Single '小值数组
在窗体中添加名为Command1的[开始]按钮和名为MSComm1的MSComm控件。
[开始]按钮的Click事件处理程序主要是对MSComm1控制的参数初始化设置，程序中大部分参数在设计时可在MSComm1控制的属性窗口中设置:
Private Sub Command1_Click() '开始按钮
With MSComm1
mPort=2 '使用COM2
.Setting="9600,N,8,1" '设置通信口参数
.InBufferSize=40 '设置MSComm1接收缓冲区为40字节
.OutBufferSize=2 '设置MSComm1发送缓冲区为2字节
.InputMode = comInputModeBinary '设置接收数据模式为二进制形式
.InputLen = 1 '设置Input 一次从接收缓冲读取字节数为1
.SThreshold = 1 '设置Output 一次从发送缓冲读取字节数为1
.InBufferCount = 0 '清除接收缓冲区
.OutBufferCount = 0 '清除发送缓冲区
For i=1 to 8
Wmax(i) = -99 '大值赋初值
Wmin(i) = 99 '小值赋初值
Next i
w = 0 '数据个数计数器清零
.RThreshold = 1 '设置接收一个字节产生OnComm事件
On Error Resume Next '改变错误处理的方式。
Err.Clear
If .PortOpen = False Then '判断通信口是否打开
.PortOpen = True '打开通信口
If Err Then '错误处理
MsgBox "串口通信无效"
Exit Sub
End If
End If
End With
End Sub
Omron NT30-ST131B-E
Leitz wetzlar PL FLUOTAR ∞/0 100x/0.90
Rosemount 300S1AAD1M5 & 3051S2CD3A2F12A1AD1D2M504
Rosemount 300S1AAD1M5 & 3051S2CG1A2F12A1AB2C1D1M504
Gatan EELS compatible TV Control 676-1100
RAE ToxiRAE PGM-30
H# Kyowa EMZ-D & Sony CCD 92D & moritex illuminator
Advent AVR 3952 receiver
Disco FBPCB-0205 PC-EMSURAM Board
Disco COMM I/F FBPCB-0126 PCB
Disco BBD/COUNT FBPCB-0153 PCB
Ultrapointe Fast Z controller assy 001003 Rev. 03
Nyquist EPC-8B 061-00835-0041 Rev. 05
Canon BH8-0778-01 BG9-3770 BG8-3007
Canon BH8-1075-02 BG9-4765 BG8-3119
HV# EG&G Optoelectronics LABPAC 502-6000 & HORIZ STROBE
Omron C1000H-CPU01-EV1 & C2000-MR141-V2
Omron C1000H-CPU01-EV1 with C2000-MR341-V2
Omron C1000H-CPU01-EV1 with C2000-MR831-V2
HP 37722A digital telecom analyzer
Omron C200H-FZ001 Fuzzy unit
Genmark LS-4 DSP card
Condensed EO control
Shimadzu UV-1200 part 206-84713-91 NEW
Yaskawa servopack SGDB-03ADM
Leica S6E 0.63x - 4x microscope with stand
Optibase BPC1942A VP811 Rev. F VPHD 811
Canon BG9-1840 BH8-0220-01
HV# Mitsubishi Melsec-Q QD75M4
Sony LH51-3 J1 display unit
Mitsubishi A2NCPUP21 A2NCPU P21 with A3NMCA8
Schneider TSX premium TPMXP57102 PMX 57102M processor
Takatori motor-controller PG-117 CPU-171 ES-50
H# Agilent 41421B Source/Monitor unit
Jetter Delta CPU D-CPU H. Rev. V4.01 no module
Datacon CONTEC 87 EPC Rev. 2
Datacon CONTEC/87 DSM 1.0 BS.
H# Kyowa EMZ-D & Sony CCD 93B & moritex illuminator
Ultrapointe PMT PREAMP assy: 000276
HV# Nikon 4S007-904 MAIN-BCR
H# Agilent E5038A parametric measurement module
豫公安备 41010502000017号