| 品牌：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號