基于单总线的温度传感器设计

procedure TForm1.FormCreate(Sender: TObject);V arztbuf : array[0..200] of Char;Typebuf : array [0..200] of Char;// RetStr : array[0..200] of Char;SetupDone: Boolean;RetV alue : smallint;PortNum, PortType : smallint;begin// SetupDone := FALSE; // TMSetup not done yet//Read default Port Number and Port Type from registryRetV alue := TMReadDefaultPort(@PortNum,@PortType);PortNum:=1;PortType:=5; // TMReadDefaultPort出错if (RetV alue < 1) thenbeginShowMessage('Please set port first');Halt;endelsebeginGet_V ersion(@ztbuf); // read the tmex version and type version Label1.Caption := StrPas(ztbuf);TMGetTypeV ersion(PortType,@Typebuf);Label2.Caption := StrPas(Typebuf);Done := False; //attempt to get a sessionRepeatSHandle := TMExtendedStartSession(PortNum,PortType,NIL);//0 忙If (SHandle > 0) Thenbeginif (TMSetup(SHandle) = 1) then //初始化单总线，验证物理层完整性begin{The device that will be found is Temperature Device DS18B20,so Family Type is set to $28}select:=true; //在其他TMEX函数之前调用（除session层）FindFamily($28,SHandle) ;select:=false;FindFamily($28,SHandle) ;endelsebeginTMEndSession(SHandle);ShowMessage('Fail to setup MicroLan!');Halt;end;endelsebeginif (SHandle < 0 ) thenBeginShowMessage('The Default Port Type does not have a driver !');Halt;end;end;Application.ProcessMessages; //Release control back to windowuntil (Done);end;end;procedure TForm1.FindFamily(family : smallint; SHandle: longint); //找传感器vari , flag : smallint;romstr : string;rom : array[0..8] of smallint;beginflag:=TMFirst(SHandle, @stateBuf) ;if select=false thenflag:=TMNext(SHandle, @stateBuf) ;if (flag=1) thenbegin{Read the rom number by setting rom[0]=0 for reading and using TMRom}rom[0] := 0;TMRom(SHandle,@stateBuf,@rom);romstr := ''; //Check if correct typeif ((family and $7F )= (rom[0] and $7F)) thenbeginfor i := 7 downto 0 doromstr := romstr + IntToHex(ROM[i],2);if select thenLabel3.caption := 'Serial ROM2 ID : ' + romstrelseLabel21.caption := 'Serial ROM2 ID : ' + romstr;ReadTemperature(SHandle);endelsebeginShowMessage('There is no Temperature Device on the port');halt;end;endelsebeginTMEndSession(SHandle);ShowMessage('There is no Temperature Device on the port');halt;end;end;procedure TForm1.ReadTemperature(session_handle : longint); //读温度vari : smallint;rbuf : array[0..8] of smallint ;st : longint;CRCByte : Byte;begintmp := 0.00;if (TMAccess(session_handle,@StateBuf)= 1) then //access the devicebegin{Send the recall E2 command (by setting $B8 to outbyte in TMTouchByte)make sure Scratch is correct}//TMTouchByte(session_handle, $B8); //读ROM数据到RAM命令if (TMAccess(session_handle,@StateBuf) = 1) then // Send the start T command begin//Prepare the strong pullup after next TMTouchByteTMOneWireLevel(session_handle,LEVEL_SET,LEVEL_STRONG_PULL_UP, PRIMED_BYTE);{Send the conversion command (by setting $44 to outbyte in TMTouchByte)}TMTouchByte(session_handle, $44); //发出转换命令st := GetTickCount + 1000; //Sleep for a secondWhile (GetTickCount < st) doTMV alidSession(Session_handle);//Disable the strong pullupTMOneWireLevel(session_handle, LEVEL_SET,LEVEL_NORMAL,PRIMED_NONE);{verify conversion is complete by setting $01 to outbit in TMTouchBit andcheck the return value with 1}if (TMTouchBit(session_handle,$01) = $01) thenbeginIf (TMAccess(session_handle,@StateBuf) = 1 ) then // Access devicebegin{Send read scratch command by setting $BE to outbyte in TMTouchByte}TMTouchByte(session_handle,$BE); //发出读暂存器RAM命令CRC8 := 0;{Read scratch (setting $FF to outbyte in TMTouchByte) and check crc foreach byte}for i := 0 to 7 dobeginrbuf[i]:= TMTouchByte(session_handle, $FF);CRCByte := Byte(rbuf[i]); // the byte to run through CRC8 routineCRC8 := TMCRC(1, @CRCByte, CRC8, 0);end;CRCByte := Byte(TMTouchByte(session_handle, $FF)); //Check crcCRC8 := TMCRC(1, @CRCByte, CRC8, 0);if ( CRC8 = 0 ) thenbeginif ((rbuf[1] and $F8)= $F8) thenBEGIN //温度为负值rbuf[1]:=not rbuf[1];if (rbuf[0]=0) thenrbuf[1]:=rbuf[1]+1;rbuf[0]:=(not rbuf[0])+1;case (rbuf[4] and $60) of$00:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $f8)/16;//9位分辨率$20:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fc)/16;//10位分辨率$40:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fe)/16;//11位分辨率$60:tmp:=(rbuf[1] and $07)*16+rbuf[0]/16; //12位分辨率end;tmp:=tmp*(-1);ENDELSEBEGIN //温度为正值case (rbuf[4] and $60) of$00:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $f8)/16;//9位分辨率$20:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fc)/16;//10位分辨率$40:tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fe)/16;//11位分辨率$60:tmp:=(rbuf[1] and $07)*16+rbuf[0]/16;//12位分辨率end;END;tmpf := (tmp * 9 )/5 + 32;if select thenbeginlabel4.caption := 'Current temp : ' + FormatFloat('0.0000',tmp) + ' C ' +FormatFloat('0.0000',tmpf)+ ' F';for i:=0 to 4 doRAM1[i]:=rbuf[i];iThermometer1.Position:=tmp;label17.Caption:=FormatFloat('0.0000',tmp)+' ℃' ;endelsebeginlabel22.caption := 'Current temp : ' + FormatFloat('0.0000',tmp) +' C ' +FormatFloat('0.0000',tmpf)+ ' F';for i:=0 to 4 doRAM2[i]:=rbuf[i];iThermometer2.Position:=tmp;label18.Caption:=FormatFloat('0.0000',tmp)+' ℃' ;end ;MessageBeep(0); //TMEndSession(session_handle);Done := True;end;end;end;end;end;end;procedure TForm1.SetRom(session_handle : longint); //定义配置EEPROM过程vari ,flag: smallint;st : longint;rbuf:array [0..2] of smallint;beginflag:=0;if select thenfor i:=0 to 2 dorbuf[i]:=EEPROM1[i]elsefor i:=0 to 2 dorbuf[i]:=EEPROM2[i];if (rbuf[0] and $80=$80) thenrbuf[0]:=rbuf[0] and $00ff;if (rbuf[1] and $80=$80) thenrbuf[1]:=rbuf[1] and $00ff;flag:=TMFirst(SHandle, @stateBuf) ;if select=false thenflag:=TMNext(SHandle, @stateBuf) ;if (flag=1) thenbeginIf (TMAccess(session_handle,@StateBuf) = 1 ) then //Access devicebegin{Send write scratch command by setting $4E to outbyte in TMTouchByte}TMTouchByte(session_handle,$4E);{Read scratch (setting $FF to outbyte in TMTouchByte)}for i := 0 to 2 do //先写到暂存器中beginTMTouchByte(session_handle,rbuf[i]); // rbuf[i]:= TMTouchByte(session_handle, $FF);end;end;If (TMAccess(session_handle,@StateBuf) = 1 ) thenbeginTMOneWireLevel(session_handle,LEVEL_SET,LEVEL_STRONG_PULL_UP,PRIMED_BYTE);TMTouchByte(session_handle,$48);{ st := GetTickCount + 1000;While (GetTickCount < st) doTMV alidSession(Session_handle); }TMOneWireLevel(session_handle, LEVEL_SET,LEVEL_NORMAL,PRIMED_NONE);end;end;end;procedure TForm1.Button6Click(Sender: TObject); //设置EEPROMvarH,L:smallint;i:smallint;rbuf:array [0..2] of smallint;beginButton4.Enabled:=false;Button2.Enabled:=false;case Combobox1.Itemindex of //分辨率0:rbuf[2]:=$1F;1:rbuf[2]:=$3F;2:rbuf[2]:=$5F;3:rbuf[2]:=$7F;end;rbuf[0]:=smallint(strtoint(Edit9.Text));rbuf[1]:=smallint(strtoint(Edit10.Text));if RadioButton1.Checked thenbeginselect:=true ;for i:=0 to 2 doEEPROM1[i]:=rbuf[i];endelsebeginselect:=false;for i:=0 to 2 doEEPROM2[i]:=rbuf[i];end;SetRom(SHandle);FindFamily($28,SHandle) ; SaveTem();Button4.Enabled:=true;Button2.Enabled:=true;end;procedure TForm1.display();varH,L,i:smallint;rbuf:array [0..4] of smallint;beginif Groupbox1.caption='传感器1' then for i:=0 to 4 dorbuf[i]:=RAM1[i]elsefor i:=0 to 4 dorbuf[i]:=RAM2[i];Edit5.Text:=inttohex(rbuf[0],2)+'H'; //温度及上下限原始数据显示Edit4.Text:=inttohex(rbuf[1],2)+'H';Edit6.Text:=inttohex(rbuf[2],2)+'H';Edit7.Text:=inttohex(rbuf[3],2)+'H';Edit8.Text:=inttohex(rbuf[4],2)+'H';if (rbuf[2] and $80=$80 ) thenrbuf[2]:=rbuf[2] or $ff00;if (rbuf[3] and $80=$80 ) thenrbuf[3]:=rbuf[3] or $ff00;Edit1.Text:=intToStr(rbuf[2]);Edit2.Text:=IntToStr(rbuf[3]);case (rbuf[4] and $60) of //分辨率显示$00: edit3.text:='9位' ;$20: edit3.text:='10位' ;$40: edit3.text:='11位' ;$60: edit3.text:='12位' ;end;end;\procedure TForm1.SaveTem(); //保存温度日志beginwith ADOQuery1 dobeginClose;SQL.Clear;SQL.Add('insert into tem (时间,传感器,温度,温度上限,温度下限) values (now(),:传感器,:温度,:温度上限,:温度下限)');if select thenbeginParameters.FindParam('传感器').V alue:='1';Parameters.FindParam('温度').V alue :=FormatFloat('0.0000',tmp);Parameters.FindParam('温度上限').V alue:=EEPROM1[0];Parameters.FindParam('温度下限').V alue:=EEPROM1 [1];endelsebeginParameters.FindParam('传感器').V alue:='2';Parameters.FindParam('温度').V alue :=FormatFloat('0.0000',tmp);Parameters.FindParam('温度上限').V alue:=EEPROM2[0];Parameters.FindParam('温度下限').V alue:=EEPROM2[1];end ;ExecSQL;end;end;procedure TForm1.Button2Click(Sender: TObject); //绘温度曲线begininherited;iPlot1.XAxis[0].Span := 100;iPlot1.Y Axis[0].Span:=30;iPlot1.XAxis[0].Title := '时间';iPlot1.Y Axis[0].Title:='温度';Button3.Enabled:=true;iPlot2.XAxis[0].Span := 100;iPlot2.Y Axis[0].Span:=30;iPlot2.XAxis[0].Title := '时间';iPlot2.Y Axis[0].Title:='温度';Timer2.enabled:=true;Button2.Enabled:=false;Button4.Enabled:=false;Button6.Enabled:=false;end;procedure TForm1.Timer2Timer(Sender: TObject); beginFindFamily($28,SHandle) ;inherited;if select thenbeginiPlot1.Channel[0].AddYElapsedSeconds(tmp);if (RAM1[3] and $80=$80 ) thenRAM1[3]:=RAM1[3] or $ff00;if (RAM1[2] and $80=$80 ) thenRAM1[2]:=RAM1[2] or $ff00;Iplot1.Channel[1].AddYElapsedSeconds(RAM1[2]); Iplot1.Channel[2].AddYElapsedSeconds(RAM1[3]); endelsebeginiPlot2.Channel[0].AddYElapsedSeconds(tmp);if (RAM2[3] and $80=$80 ) thenRAM2[3]:=RAM2[3] or $ff00;if (RAM2[2] and $80=$80 ) thenRAM2[2]:=RAM2[2] or $ff00;Iplot2.Channel[1].AddYElapsedSeconds(RAM2[2]); Iplot2.Channel[2].AddYElapsedSeconds(RAM2[3]) end;select:=not select;end;。