【導(dǎo)讀】營(yíng)養(yǎng)成分的變化與冷藏、冷凍溫度密切相關(guān)。不同的食品有其相應(yīng)的最佳冷藏或冷凍溫度;不同的保存時(shí)間則要求設(shè)置不同的保存溫度。因此，研制一個(gè)切合實(shí)際需要的冷庫(kù)溫度檢。測(cè)系統(tǒng)顯得十分必要。以單總線技術(shù)為基礎(chǔ)，采用計(jì)算機(jī)串口、單總線和串口的協(xié)議轉(zhuǎn)換。芯片DS2480B、單總線數(shù)字化溫度傳感器DS18B20，設(shè)計(jì)了單總線溫度檢測(cè)網(wǎng)絡(luò)。通過(guò)DS2480B實(shí)現(xiàn)單總線到計(jì)算機(jī)串口的接口電路。同時(shí)利用DALLAS公司提供的開(kāi)發(fā)工具。網(wǎng)絡(luò)的操作界面。冷庫(kù)運(yùn)行效率，具有較高的實(shí)用價(jià)值。這樣，在單總線上傳輸?shù)谋闶菙?shù)字信號(hào)。全報(bào)警等應(yīng)用場(chǎng)合。

　　

【正文】 er: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Timer2Timer(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 private { Private declarations } public { Public declarations } SHandle : longint。 StateBuf : array[0..5120] of smallint。 romstr : string。 Done : boolean。 CRC8 : Word。 k,t : smallint。 a: array[0..30] of string。 end。 Const LEVEL_SET = 1。 LEVEL_STRONG_PULL_UP = $01。 PRIMED_BYTE = 2。 PRIMED_NONE = 0。 LEVEL_NORMAL = $00。 var Form1: TForm1。 implementation {$R *.DFM} procedure (Sender: TObject)。 begin :=true。 end。 procedure (Sender: TObject)。 Var ztbuf : array[0..200] of Char。 Typebuf : array [0..200] of Char。 n,j,i,k,RetValue : smallint。 RetStr : array[0..200] of Char。 SetupDone: Boolean。 PortNum, PortType : smallint。 begin SetupDone := FALSE。 { TMSetup not done yet } 。 。 {Read default Port Number and Port Type from registry} RetValue := TMReadDefaultPort(@PortNum, @PortType)。 if (RetValue 1) then begin ShowMessage(39。Please set port first39。)。 Halt。 end else begin { read the tmex version and type version} {Get_Version(@ztbuf)。 := StrPas(ztbuf)。 TMGetTypeVersion(PortType,@Typebuf)。 := StrPas(Typebuf)。 } {attemp to get a session } Done := False。 repeat SHandle := TMExtendedStartSession(PortNum,PortType,NIL)。 If (SHandle 0) Then begin if (TMSetup(SHandle) = 1) then begin {The device that will be found is Temperature Device DS18B20, so Family Type is set to $28} FindFirstFamily($28,SHandle) end else begin TMEndSession(SHandle)。 ShowMessage(39。Fail to setup MicroLan!39。)。 Halt。 end。 end else begin if (SHandle 0 ) then Begin ShowMessage(39。The Default Port Type does not have a driver !39。)。 Halt。 end。 end。 until (Done)。 end。 end。 procedure (family : smallint。 SHandle: longint)。 var m,i , flag ,result: smallint。 rom : array[0..8] of smallint。 begin {Set up to find the first device with the family 39。family39。} if (TMFamilySearchSetup(SHandle,@stateBuf,family ) = 1 ) then begin while (TMNext(SHandle, @stateBuf)= 1) do begin rom[0] := 0。 TMRom(SHandle,@stateBuf,@rom)。 {Check if correct type} romstr := 39。 39。 。 if ((family and $7F )= (rom[0] and $7F)) then begin for i := 7 downto 0 do romstr := romstr + IntToHex(ROM[i],2)。 end。 t:=t + 1。 k:= k+1。 ReadTemperature(SHandle)。 end。 t:=0。 k:=0。 。 。 TMEndSession(Shandle)。 Done := True。 end。 end。 procedure (session_handle : longint)。 var i: smallint。 tmp : Extended。 rbuf : array[0..9] of smallint 。 st : longint。 tmpl: string。 CRCByte : Byte。 begin tmp := 。 {access the device} if (TMAccess(session_handle,@StateBuf)= 1) then begin {Send the recall E2 mand (by setting $B8 to outbyte in TMTouchByte) make sure Scratch is correct} TMTouchByte(session_handle, $B8)。 {Send the start T mand } if (TMAccess(session_handle,@StateBuf) = 1) then begin {Prepare the strong pullup after next TMTouchByte} TMOneWireLevel(session_handle,LEVEL_SET,LEVEL_STRONG_PULL_UP, PRIMED_BYTE)。 {Send the conversion mand (by setting $44 to outbyte in TMTouchByte)} TMTouchByte(session_handle, $44)。 {Sleep for a second} st := GetTickCount + 1000。 While (GetTickCount st) do TMValidSession(Session_handle)。 {Disable the strong pullup} TMOneWireLevel(session_handle, LEVEL_SET,LEVEL_NORMAL,PRIMED_NONE)。 {verify conversion is plete by setting $01 to outbit in TMTouchBit and check the return value with 1} if (TMTouchBit(session_handle,$01) = $01) then begin {Access device} If (TMAccess(session_handle,@StateBuf) = 1 ) then begin {Send read scratch mand by setting $BE to outbyte in TMTouchByte} TMTouchByte(session_handle,$BE)。 CRC8 :=0。 {Read scratch (setting $FF to outbyte in TMTouchByte) and check crc for each byte} for i := 0 to 7 do begin rbuf[i]:= TMTouchByte(session_handle, $FF)。 CRCByte :=Byte(rbuf[i])。 CRC8:=TMCRC(1,@CRCByte,CRC8,0)。 end。 CRCByte:=Byte(TMTouchByte(Session_handle,$FF))。 CRC8:=TMCRC(1,@CRCByte,CRC8,0)。 if (CRC8=0) then begin if ((rbuf[1] and $F8)= $F8) then BEGIN//溫度為負(fù)值 tmp:=(rbuf[1] and $FF)*16+rbuf[0]/16。//12 位分辨率 END ELSE BEGIN//溫度為正值 tmp:=(rbuf[1] and $07)*16+rbuf[0]/16。//12 位分辨率 END。 tmpl := FormatFloat(39。39。,tmp) + 39?！?39。 a[k]:= tmpl。 := + romstr+ 39。 ： 39。+ tmpl + 13 + 10。 romstr:= inttostr( t )。 := + romstr+39。 ： 39。+ a[k] + 13 + 10。 end。 end。 end。 end。 end。 end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin :=true。 end。 procedure (Sender: TObject)。 begin := false。 end。 procedure (