品牌:ICS TRIPLEX | 規格:全新 | 材質:原裝 |
產地:其它 |
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