你好,歡迎來到世鋁網 [請登錄] [免費注冊]
世鋁網 鋁業設備
您當前的位置: 世鋁網 鋁業設備 其它 T8451 普通會員

T8451

加入收藏 舉報
詳細信息
品牌: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


聯係方式
  • 聯係人: 周憶 女士
  • 職位: 銷售工程師
  • 真: 0592-5361153
  • 電話: 0592-2350733
  • 手機: 15359298206
  • 址: 廣東省 深圳市 深圳市寶安區西鄉街道臣田社區東方雅苑二單元1302房
供應商其他供應信息
還沒找到合適的產品?
  • 01
  • 快速發布求購信息
  • 下一步
  • 03
  • 聯係cnal客服:
  • 致電: 0371-63388900
    馬上啟動您的快速採購通道!