adam模塊在液位檢測(cè)中的應(yīng)用

1、ADAM模塊在液位檢測(cè)中的應(yīng)用模塊在液位檢測(cè)中的應(yīng)用關(guān)鍵詞：ADAM4017，ADAM4520，VB軟件，集中液位實(shí)時(shí)采集實(shí)時(shí)數(shù)據(jù)通訊一、一、概述山東泉林紙業(yè)有限責(zé)任公司是一個(gè)集制漿、造紙類綜合企業(yè)，該企業(yè)銅版紙生產(chǎn)線所用附料液位監(jiān)視系統(tǒng)是自行開發(fā)的集中液位實(shí)時(shí)采集系統(tǒng)，生產(chǎn)人員通過中心控制室的電腦屏幕即可得到料罐液位的實(shí)時(shí)數(shù)據(jù)，從而決定是否配料。采用此系統(tǒng)還可減少為每個(gè)料罐配置一個(gè)液位顯示儀表而產(chǎn)生的繁瑣布線，只要把液位信號(hào)線集中鋪設(shè)

2、到中控室與ADAM4017模塊連接即可。集中配料，物料通過管道輸送到各個(gè)料罐，一人可配多種料，減少了人力成本。本文主要討論WINXP操作系統(tǒng)下利用VB軟件實(shí)現(xiàn)研華公司的ADAM4520與ADAM4017的實(shí)時(shí)數(shù)據(jù)通訊。2、系統(tǒng)的實(shí)現(xiàn)方法數(shù)據(jù)采集框圖本系統(tǒng)要采集20種物料的液位，監(jiān)視畫面及電腦與ADAM4520的通訊由VB軟件實(shí)現(xiàn)，ADAM4017用于接收4~20MA液位信號(hào)，ADAM4520用于電腦與ADAM4017之間數(shù)字信號(hào)和模擬信

3、號(hào)的轉(zhuǎn)換。VB程序做出監(jiān)控畫面如下：由于篇幅所限現(xiàn)只列出主程序代碼如下：PrivateSubComm1_Click()UnloadFm1EndSub監(jiān)視電腦ADAM4520ADAM4017ADAM4017ADAM4017液位信號(hào)液位信號(hào)液位信號(hào)Open“d:gaoddemodival.dat“FRomAsfreeF＂路徑可自行定義＂IfLOF(freeF)=0ThenFi=1To20modifyVal(i1)=0Text1(i1).Te

4、xt=modifyVal(i1)PutfreeFimodifyVal(i1)NextiElseFi=1To20GetfreeFimodifyVal(i1)Text1(i1).Text=modifyVal(i1)NextiEndIfClose(freeF)Open“com296008N1“FRomAsfreeFx=sio_open(PtNum)x=sio_ioctl(PtNumB9600BIT_8STOP_1P_NONE)x=sio_fl

5、ush(PtNum2)Fi=0To2Label14(i)=““Label7(i)=““Label16(i)=““Label17(i)=““Nextitongxun_ok=0EndSubPrivateSubLabel11_Click()IfenabledSetup=1ThenmyDelay=myDelay100Label12=myDelayEndIfEndSubPrivateSubLabel16_Change(IndexAsInteger

6、)IfMVal(Label16(Index))9999ThenLabel16(Index)=0EndSubPrivateSubLabel17_Change(IndexAsInteger)IfMVal(Label17(Index))9999ThenLabel17(Index)=0EndSubPrivateSubText1_KeyPress(IndexAsIntegerKeyiiAsInteger)DimtempValtempVal=Val