1、【W(wǎng)ord版本下載可任意編輯】 單總線數(shù)字溫度計DSl8B20實現(xiàn)分布式測控系統(tǒng)的設(shè)計 。.。. Dim dmmy，search， result as integer Dim Myhandle as long State-buffer（15360） as byte Private declare function TMExtendedStartSession lib “IBFS32.DLL” （Byval portnum as integer Byval portType as integer， Byval reserved as any） as long Private declare fu

2、nction TMsetup lib “IBFS32.DLL”（Byval session_handle as long ，state_buffer as byte） as integer Private declare function TMfirst lib “IBFS32.DLL” （Byval session_handle as long， state_buffer as byte） as integer Private declare function TMrom lib “IBFS32.DLL” （Byval session_handle as long， state_buffer

3、 as byte，rom as integer） as integer Private declare function TMendsession lib “IBFS32.DLL” （Byval session_handle as long） as integer 。.。. Myhandle= TMExtendedStartSession（1，5，vbNullstring） 檢查DS2480B是否準(zhǔn)備就緒，準(zhǔn)備建立會話注意，針 對DS2480B，該函數(shù)第2個參數(shù)必須為5 If （Myhandle0） then 成功建立會話 Dmmy=TMSetup（Myhandle） 初始化 Search=T

4、MFirst（Myhandle，state_buffer（0） 查找設(shè)備，找 到第1個設(shè)備返回“1” If （search=1） then ROM0 = 0; 表示讀數(shù)據(jù) result = TMRom（session_handle， state_buffer（0）， ROM（0）; if （result = 1） then 此時ROM中數(shù)據(jù)表示該設(shè)備的64位ROM序列號，其中 ROM0為器件類型代碼，如ROM（0）=20H 表示找到 DS2450， ROM7 存放的是 8 bit CRC 。.。.對找到的設(shè)備開展相應(yīng)操作 。.。. end if dmmy= TMendsession（Myhandle） 結(jié)束會話，釋放單總線 。.。. 結(jié)束語 基于DS2480B的單總線分布式測