单总线协议转换器在分布式测控系统中的应用

vatedeclarefunctionTMsetuplib"IBFS32.DLL"(Byvalsession_handleaslong,state_bufferasbyte)asinteger
　　
　　PrivatedeclarefunctionTMfirstlib"IBFS32.DLL"(Byvalsession_handleaslong,state_bufferasbyte)asinteger
　　
　　PrivatedeclarefunctionTMromlib"IBFS32.DLL"(Byvalsession_handleaslong,state_bufferasbyte,romasinteger)asinteger
　　
　　PrivatedeclarefunctionTMendsessionlib"IBFS32.DLL"(Byvalsession_handleaslong)asinteger
　　
　　．．．．．．
　　
　　Myhandle=TMExtendedStartSession(1,5,vbNullstring)
　　
　　'检查DS2480B是否准备就绪，准备建立会话注意，针
　　
　　'对DS2480B，该函数第2个参数必须为５
　　
　　If(Myhandle>0)then'成功建立会话
　　
　　Dmmy=TMSetup(Myhandle)'初始化
　　
　　Search=TMFirst(Myhandle,state_buffer(0))'查找设备，找
　　
　　'到第1个设备返回"1"
　　
　　If(search=1)then
　　
　　ROM[0]=0;'表示读数据
　　
　　result=TMRom(session_handle,state_buffer(0),ROM(0));
　　
　　if(result=1)then
　　
　　'此时ROM中数据表示该设备的64位ROM序列号，其中
　　
　　'ROM[0]为器件类型代码，如ROM(0)=20H表示找到
　　
　　'DS2450，ROM[7]存放的是8bitCRC
　　
　　．．．．．．'对找到的设备进行相应操作
　　
　　．．．．．．
　　
　　endif
　　
　　dmmy=TMendsession(Myhandle)'结束会话,释放单总线
　　
　　．．．．．．
　　
　　结束语
　　
　　基于DS2480B的单总线分布式测控系统，具有节省I/O口线资源、结构简单、开发快捷、成本低廉、便于总线扩展和维护等优点，因此有广阔的应用空间，具有较大的推广价值。
　　
　　
　　
　

《单总线协议转换器在分布式测控系统中的应用(第3页)》