单总线协议转换器在分布式测控系统中的应用
long
State-buffer(15360)asbyte
PrivatedeclarefunctionTMExtendedStartSessionlib"IBFS32.DLL"(ByvalportnumasintegerByvalportTypeasinteger,Byvalreservedasany)aslong
PrivatedeclarefunctionTMsetuplib"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个参数必须为5
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
State-buffer(15360)asbyte
PrivatedeclarefunctionTMExtendedStartSessionlib"IBFS32.DLL"(ByvalportnumasintegerByvalportTypeasinteger,Byvalreservedasany)aslong
PrivatedeclarefunctionTMsetuplib"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个参数必须为5
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
- 上一篇论文: 单片机复位电路的可靠性分析
- 下一篇论文: 80C196MC的外设事务服务器及其应用