大学毕业设计-基于单总线的实时温度监控系统

大学毕业设计-基于单总线的实时温度监控系统基于单总线的实时温度监控系统2硬件电路设计在硬件电路设计时，应着重考虑电子器件的供电方式，以及对器件的限压和限流保护。

因为本次设计要求利用单总线技术，所以可以考虑使用寄生供电方式。

设计的电路图如下。

图2 基于单总线的温度实时监控系统硬件电路总图2.3软件设计2.3.1设计窗体本次设计要求软件的可视化窗体中包含实时温度显示、数据记录、存储管理和ROM数据，并且能将测得的数据保存到指定的数据库中。

窗体界面如下。

图3 窗体界面实时温度显示中可以看到当前室温，并且可以显示摄氏温度和华氏温度。

数据记录包含温度曲线和温度日志，可以显示一天内的温度变化曲线。

存储管理和ROM数据用来对数据库中已经保存的温度数据进行管理，如删除、转移等操作。

2.3.2软件编程本系统软件部分采用Delphi来实现初始化、数据采集处理、温度报表管理，其主程序的流程图见图4。

图4 主程序流程图本系统软件部分共分为3个部分，分别是：1）初始化程序。

a．设置串行通信波特率；b．串行通讯方式的初始化；c．对TO，T1两个计数器的初始化；d．中断控制程序的初始化。

此外，还负责从E2PROM 中调出以前的采样参数，使器件能够以它采样温度数据。

2）当监控到ONTIME1和NTIME2标记时作相应温度的存储、转换、发送处理。

ONTIME1和NTIME2的标记主要有定时电路决定，当到达采样间隔时，做出相应的处理。

3）采用动态显示方式即时显示温度，以节省电路规模，使得整个系统的体积变小。

3元器件的选择3.1主要元器件知识3.1.1 DS18B20DS18B20是DALLAS公司生产的一线式数字温度传感器，具有3引脚TO－92小体积封装形式；温度测量范围为－55℃～＋125℃,可编程为9位～12位A/D 转换精度，测温分辨率可达0.0625℃，被测温度用符号扩展的16位数字量方式串行输出；其工作电源既可在远端引入，也可采用寄生电源方式产生；多个DS18B20可以并联到3根或2根线上，只需一根端口线就能与诸多DS18B20通信，占用微处理器的端口较少，可节省大量的引线和逻辑电路。

以上特点使DS18B20非常适用于远距离多点温度检测系统。

1） DS18B20的内部结构DS18B20内部结构如图5所示，主要由4部分组成：64位ROM、温度传感器、非挥发的温度报警触发器TH和TL、配置寄存器。

DS18B20的管脚排列如图7-1-2所示，DQ为数字信号输入／输出端；GND为电源地；VDD为外接供电电源输入端，在寄生电源接线方式时接地，见图6。

图5 DS18B20的内部结构图6 DS18B20的管脚排列ROM中的64位序列号是出厂前被光刻好的，它可以看作是该DS18B20的地址序列码，每个DS18B20的64位序列号均不相同。

64位ROM的排的循环冗余校验码（CRC=X8＋X5＋X4＋1）。

ROM的作用是使每一个DS18B20都各不相同，这样就可以实现一根总线上挂接多个DS18B20的目的。

DS18B20中的温度传感器完成对温度的测量，用16位符号扩展的二进制补码读数形式提供，以0.0625℃/LSB形式表达，其中S为符号位。

例如＋125℃的数字输出为07D0H，＋25.0625℃的数字输出为0191H，－25.0625℃的数字输出为FF6FH，－55℃的数字输出为FC90H。

高低温报警触发器TH和TL、配置寄存器均由一个字节的EEPROM组成，使用一个存储器功能命令可对TH、TL或配置寄存器写入。

其中配置寄存器的格式如下：0R1R011111MSBLSBR1、R0决定温度转换的精度位数：R1R0=“00”，9位精度，最大转换时间为93.75ms；R1R0=“01”，10位精度，最大转换时间为187.5ms；R1R0=“10”，11位精度，最大转换时间为375ms；R1R0=“11”，12位精度，最大转换时间为750ms；未编程时默认为12位精度。

高速暂存器是一个9字节的存储器。

开始两个字节包含被测温度的数字量信息；第3、4、5字节分别是TH、TL、配置寄存器的临时拷贝，每一次上电复位时被刷新；第6、7、8字节未用，表现为全逻辑1；第9字节读出的是前面所有8个字节的CRC码，可用来保证通信正确。

2） DS18B20的工作时序DS18B20的一线工作协议流程是：初始化→ROM操作指令→存储器操作指令→数据传输。

其工作时序包括初始化时序、写时序和读时序，如图7（a）（b）（c）所示。

（a）初始化时序（b）写时序（c）读时序图7 DS18B20的工作时序图3） DS18B20与微处理器的连接DS18B20与微处理器的连接如下图8所示。

（a）寄生电源工作方式（b）外接电源工作方式图8 DS18B20与微处理器的典型连接图3.1.2 DS2480B1） DS2480B主要特性串口UART/RS232至单总线通信协议的转接桥，可直接连到UART和5V RS232系统中, 支持Dallas全系列单总线器件，如数字温度传感器DS18B20、A/D转换器DS2450等；将主机从单总线时序控制中解脱出来，提供规范的、灵活的和强驱动的单总线定时；支持标准UART通信，支持9.6（默认）、19.2、57.6和115.2 kbps速率；具有较强的总线驱动能力，通信距离可达300 m；可编程下拉摆率控制和有源上拉，工作范围 5 V，-40 ~ +85 ℃，8引脚SOIC 封装。

2）管脚图及引脚说明1 2 87RXDGND 1-W图9 DS2480B的封装和引脚DS2480B为8脚贴片式封装，如图9所示。

引脚功能如表1所列引脚名称引脚功能引脚号1 GND地线2 1-W单总线输入输出端3 NC悬空4 VDD 4.5～5.5V电压5 VPP EPROM编程电压6 POL RXD/TXD选择端7 TXD发送端8 RXD接收端表1 引脚功能说明DS2480B工作原理框图如图10所示。

图10 DS2480B工作原理框图3） DS2480B与RS232的接口技术：DS2480B与RS232的接口如图11所示。

图11 DS2480B与RS232的接口图3.2元件清单表2 元件清单4 学习心得通过该温度监控实验，我们可以发现：基于DS18B20数字温度传感器构成的实时监控系统确实具有精度高、抗干扰能力强、电路简单等诸多优点，温度传感器得到电缆长度达到几十米都可以正常读取温度数据，并且已经在站长开发的机房安全监控系统中得到了实际考验，那可是要365天从不间断地对机房及相关设备提供实时温度监控的哦。

相比之下，传统的温度检测系统采用热敏电阻等温度敏感元件，热敏电阻成本低，但需要后续信号调理、AD 转换处理电路才能将温度信号转换成数字信号，不但电路复杂，而且热敏电阻的可靠性相对较差，测量温度的精度差，很难保证热敏电阻的一致性和线性，在应用中需要很好的解决引线误差补偿问题、共模干扰问题和放大电路零点漂移误差等技术问题。

因此，如果你开发的系统对温度监控精度要求不是非常高，而且测温的范围DS18B20的-55～+125 ℃之间的话，那么采用DS18B20是一个不错的选择，序号元件个数 1 PC 机串行口UART/RS232 1 个 2 转接桥DS2480B 1 个 3 数字温度传感器DS18B20 1 个 4 电容U07HF1 个5 稳压管 2个6 二极管M7 2个7 电路板XF07 1个通过软件的插值运算，其实DS18B20的测温精度还可以进一步提高的，具体的实现方法大家可以参考DALLAS公司相关技术资料。

当然，如果你有条件的话，也可以预先对每一个DS18B20进行一次校验，在标准恒温箱中测量并记录下每个传感器的测温误差，在实际应用中，我们就可以根据每个传感器的实际校准对读出的实时温度进行适当的误差纠正，这样也不失为提高DS18B20测温精度的一个好办法。

可惜的是，并非大家都有这种高精度的恒温箱来校验传感器，如果你的参考温度不准确，那么校准将会适得其反。

通过对这个课程设计的学习，为我们掌握单片机实时温度监控的开发、串口通信程序的开发及计算机串口实时控制开发原理及PC监控软件的开发，以及开发其他功能更加完善的单片机综合应用系统打好基础。

5 参考文献[1] DS18B20 Programmable Resolution 1-Wire Digital Thermometer[2] DS2480B Serial 1-Wire Line Driver with Load Sensor[3] 左冬红,谢瑞和.实现单总线搜索ROM命令的一种算法[4] 求是科技.单片机典型模块设计实例导航附：源程序清单{------------------------------------------------------------------------------------------------------ TEMPDL32 : This utility uses TMEX to view a read the temperature froma DS18B20. It requires the 32-Bit Windows TMEX driversto be present.Compiler : Borland Delphi 5.0}procedure TForm1.FormCreate(Sender: Tobject；Varztbuf : array[0..200] of Char;Typebuf : array [0..200] of Char;i,k,RetValue : smallint;RetStr : array[0..200] of Char;SetupDone: Boolean;PortNum, PortType : smallint;begindieer :=false;SetupDone := FALSE; { TMSetup not done yet }Label4.Caption := '';{Read default Port Number and Port Type from registry}RetValue := TMReadDefaultPort(@PortNum, @PortType);if (RetValue < 1) thenTMReadDefaultPort(@PortNum, @PortType) beginShowMessage('Please set port first');Halt;endelsebegin{ read the tmex version and type version}Get_Version(@ztbuf);Label1.Caption := StrPas(ztbuf);TMGetTypeVersion(PortType,@Typebuf);Label2.Caption := StrPas(Typebuf);{attemp to get a session }Done := False;RepeatSHandle := TMExtendedStartSession(PortNum,PortType,NI L);If (SHandle > 0) Thenbeginif (TMSetup(SHandle) = 1) then{The device that will be found is Temperature Device DS18B20,so Family Type is set to $28}FindFirstFamily($28,SHandle)elsebeginTMEndSession(SHandle);ShowMessage('Fail to setup MicroLan!');Halt;end;endelsebeginif (SHandle < 0 ) thenBeginShowMessage('The Default Port Type does not have a driver !');Halt;end;end;{Release control back to window}Application.ProcessMessages;until (Done);Done := False;RepeatSHandle := TMExtendedStartSession(PortNum,PortType,NI L);If (SHandle > 0) Thenbeginif (TMSetup(SHandle) = 1) then{The device that will be found is Temperature Device DS18B20,so Family Type is set to $28}FindSecondFamily($28,SHandle)elsebeginTMEndSession(SHandle);ShowMessage('Fail to setup MicroLan!');Halt;end;endelsebeginif (SHandle < 0 ) thenBeginShowMessage('The Default Port Type does not have a driver !');Halt;end;end;{Release control back to window}Application.ProcessMessages;until (Done);label18.Caption :=keke1;label19.caption :=keke2;table1.Active :=true;if table1.CanModify thenbegintable1.Append;table1.Fields[0].AsDateTime :=now;table1.Fields[1].AsString :=floattostr(diwei1);table1.Fields[2].AsFloat :=shangxian1;table1.Fields[3].AsFloat :=xiaxian1;table1.Fields[4].AsString :=floattostr(diwei2);table1.Fields[5].AsFloat :=shangxian2;table1.Fields[6].AsFloat:=xiaxian2;table1.Post;end;end;end;procedure TForm1.FindFirstFamily(family : smallint;vari , flag : smallint;romstr : string;rom : array[0..8] of smallint;begin{Set up to find the first device with the family 'family'}ifbeginif (TMNext(SHandle, @stateBuf)= 1) then{Read the rom number by setting rom[0] to 0 for reading and using TMRom}rom[0] := 0;TMRom(SHandle,@stateBuf,@rom);{Check if correct type}romstr := '';if ((family and $7F )= (rom[0] and $7F)) thenbeginfor i := 7 downto 0 doromstr := romstr + IntToHex(ROM[i],2);Label3.caption := 'Serial ROM ID1 : ' + romstr;ReadTemperature1(SHandle);endelsebeginShowMessage('There is no Temperature Device on the port');halt;endelsebeginTMEndSession(SHandle);ShowMessage('There is no Temperature Device on the port');halt;end;endelsebeginTMEndSession(SHandle);ShowMessage('There is no Temperature Device on the port');halt;end;end;procedureTForm1.ReadTemperature1(session_handle : longint);tsht, i, tmp1 : smallint;cr,cpc, tmpf,tmp : Extended;rbuf : array[0..9] of smallint ;st : longint;CRCByte,xiaxianbyte : Byte;begintmp := 0.00;{access the device}if (TMAccess(session_handle,@StateBuf)= 1) thenbegin{Send the recall E2 command (by setting $B8 to outbyte in TMTouchByte)make sure Scratch is correct}TMTouchByte(session_handle, $B8);{Send the start T command }if (TMAccess(session_handle,@StateBuf) = 1) thenbegin{Prepare the strong pullup after next TMTouchByte}TMOneWireLevel(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);{Sleep for a second}st := GetTickCount + 1000;While (GetTickCount < st) doTMValidSession(Session_handle);{Disable the strong pullup}TMOneWireLevel(session_handle,{verify conversion is complete by setting $01 to outbit in TMTouchBit andcheck the return value with 1}if (TMTouchBit(session_handle,$01) = $01) thenbegin{Access device}If (TMAccess(session_handle,@StateBuf) = 1 ) thenbegin{Send read scratch command by setting $BE to outbyte in TMTouchByte}TMTouchByte(session_handle,$BE);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 routine }CRC8 := TMCRC(1, @CRCByte, CRC8, 0);end;{Check crc}CRCByte := Byte(TMTouchByte(session_handle, $FF)); { the byte to run through CRC8 routine }CRC8 := TMCRC(1, @CRCByte, CRC8, 0);if ( CRC8 = 0 ) thenbegin{Calculate the temperaruretsht := rbuf[0];if ((rbuf[1] and $01)= 1) thentsht := tsht or (-256);tmp1 := Round((tsht)/2);tmp := tmp1;cr := rbuf[6];cpc := rbuf [7];if (rbuf[7] <> 0) thentmp := tmp - (0.25) + (cpc-cr)/cpc;}if ((rbuf[1] and $F8)= $F8) thenBEGINENDELSEBEGINcase (rbuf[4] and $60) of$00:beginfenbianlv1 :=9;tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $f8)/16;diwei1 :=(rbuf[0] and $f8)/16;end;$20:beginfenbianlv1 :=10;tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fc)/16;diwei1 :=(rbuf[0] and $fc)/16;end;$40:beginfenbianlv1 :=11;tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fe)/16;diwei1 :=(rbuf[0] and $fe)/16;end;$60:beginfenbianlv1 :=12;tmp:=(rbuf[1] and $07)*16+rbuf[0]/16;diwei1 :=rbuf[0]/16;end;end;END;tmpf := (tmp * 9 )/5 + 32;label4.caption := 'Currenttemp1 : ' + FormatFloat('0.0000',tmp) +' C or ' + FormatFloat('0.0000', tmpf) + ' F';keke1 :=FormatFloat('0.0000',tmp);yuanshi1 :=rbuf[4];shangxian1 :=rbuf[2] and $7f;xiaxianbyte :=rbuf[3] and $80;if xiaxianbyte = 1 thenxiaxian1 := (rbuf[3] and $7f) * (-1)elsexiaxian1 := rbuf[3] and $7f;MessageBeep(0);TMEndSession(session_handle);Done := True;end;end;end;end;end;end;procedure TForm1.FindSecondFamily(family :smallint; SHandle: longint); vari , flag : smallint;romstr : string;rom : array[0..8] of smallint;begin{Set up to find the first device with the family 'family'}if(TMFamilySearchSetup(SHandle,@stateBuf,fam ily ) = 1 ) thenbegin{Get first device}if (TMNext(SHandle, @stateBuf)= 1) thenif (TMNext(SHandle, @stateBuf)= 1) thenbegin{Read the rom number by setting rom[0] to 0 for reading and using TMRom}rom[0] := 0;TMRom(SHandle,@stateBuf,@rom);{Check if correct type}romstr := '';if ((family and $7F )= (rom[0] and $7F)) thenbeginfor i := 7 downto 0 doromstr := romstr + IntToHex(ROM[i],2);Label10.caption := 'Serial ROM ID2 : ' + romstr;ReadTemperature2(SHandle);endelsebeginShowMessage('There is no Temperature Device on the port');halt;end;endelsebeginTMEndSession(SHandle);ShowMessage('There is no TemperatureDevice on the port');halt;endelsebeginTMEndSession(SHandle);ShowMessage('There is no Temperature Device on the port');halt;end;endelsebeginTMEndSession(SHandle);ShowMessage('There is no Temperature Device on the port');halt;end;end;procedureTForm1.ReadTemperature2(session_handle :longint);vartsht, i, tmp1 : smallint;cr,cpc, tmpf,tmp : Extended;rbuf : array[0..9] of smallint ;st : longint;CRCByte ,xiaxianbyte: Byte;begintmp := 0.00;{access the device}if (TMAccess(session_handle,@StateBuf)= 1) thenbegin{Send the recall E2 command (by setting $B8 to outbyte in TMTouchByte)make sure Scratch is correct}TMTouchByte(session_handle, $B8);{Send the start T command }if (TMAccess(session_handle,@StateBuf) = 1) thenbegin{Prepare the strong pullup after nextTMTouchByte}TMOneWireLevel(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);{Sleep for a second}st := GetTickCount + 1000;While (GetTickCount < st) doTMValidSession(Session_handle);{Disable the strong pullup}TMOneWireLevel(session_handle, LEVEL_SET,LEVEL_NORMAL,PRIMED_NO NE);{verify conversion is complete by setting $01 to outbit in TMTouchBit andcheck the return value with 1}if (TMTouchBit(session_handle,$01) = $01) thenbegin{Access device}If (TMAccess(session_handle,@StateBuf) = 1 ) thenbegin{Send read scratch command by setting $BE to outbyte in TMTouchByte}TMTouchByte(session_handle,$BE);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 routine }CRC8 := TMCRC(1, @CRCByte, CRC8, 0);end;{Check crc}CRCByte :=Byte(TMTouchByte(session_handle, $FF)); { the byte to run through CRC8 routine }CRC8 := TMCRC(1, @CRCByte, CRC8, 0);if ( CRC8 = 0 ) thenbegin{Calculate the temperaruretsht := rbuf[0];if ((rbuf[1] and $01)= 1) thentsht := tsht or (-256);tmp1 := Round((tsht)/2);tmp := tmp1;cr := rbuf[6];cpc := rbuf [7];if (rbuf[7] <> 0) thentmp := tmp - (0.25) + (cpc-cr)/cpc;}if ((rbuf[1] and $F8)= $F8) thenBEGINENDELSEBEGINcase (rbuf[4] and $60) of$00:begintmp:=(rbuf[1] and $07)*16+(rbuf[0] and $f8)/16;fenbianlv2 :=9;diwei2 :=(rbuf[0] and $f8)/16;end;$20:beginfenbianlv2 :=10;tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fc)/16;diwei2 :=(rbuf[0] and $fc)/16;end;$40:beginfenbianlv2 :=11;tmp:=(rbuf[1] and $07)*16+(rbuf[0] and $fe)/16;//11位分辨率diwei2 :=(rbuf[0] and $fe)/16;end;beginfenbianlv2 :=12;tmp:=(rbuf[1] and $07)*16+rbuf[0]/16;//12位分辨率diwei2 :=rbuf[0]/16;end;end;END;tmpf := (tmp * 9 )/5 + 32;label11.caption := 'Current temp2 : ' + FormatFloat('0.0000',tmp) +' C or ' + FormatFloat('0.0000', tmpf) + ' F';keke2 :=FormatFloat('0.0000',tmp);yuanshi2 := rbuf[4];shangxian2 :=rbuf[2] and $7f;xiaxianbyte :=rbuf[3] and $80;if xiaxianbyte = 1 thenxiaxian2 := (rbuf[3] and $7f) * (-1)xiaxian2 := rbuf[3] and $7f;MessageBeep(0);TMEndSession(session_handle);Done := True;end;end;end;end;end;end;procedure TForm1.Image1Click(Sender: TObject);begindieer :=true; //全局变量用来动态显示温度柱状图end;procedure TForm1.Button2Click(Sender:TObject);varRetValue,i : smallint;PortNum, PortType : smallint;beginif (radiobutton3.Checked) thenbeginedit9.Text :='';edit4.Text :='';edit5.Text :='';edit6.Text :='';edit7.Text :='';edit8.Text :='';RetValue := TMReadDefaultPort(@PortNum, @PortType);SHandle := TMExtendedStartSession(PortNum,PortType,NI L);FindFirstFamily($28,SHandle);edit9.Text :=inttostr(fenbianlv1);edit4.Text :=floattostr(gaowei1);edit5.Text :=floattostr(diwei1);edit6.Text :=floattostr(shangxian1);edit7.Text :=floattostr(xiaxian1);edit8.Text :=floattostr(yuanshi1);end;if (radiobutton4.Checked) thenbeginedit9.Text :='';edit4.Text :='';edit5.Text :='';edit6.Text :='';edit7.Text :='';edit8.Text :='';RetValue := TMReadDefaultPort(@PortNum,@PortType);SHandle := TMExtendedStartSession(PortNum,PortType,NI L);FindSecondFamily($28,SHandle);edit4.Text :=floattostr(gaowei2);edit9.Text :=floattostr(fenbianlv2);edit5.Text :=floattostr(diwei2);edit6.Text :=floattostr(shangxian2);edit7.Text :=floattostr(xiaxian2);edit8.Text :=floattostr(yuanshi2);end;end;procedure TForm1.Button3Click(Sender: TObject);varn,m,h : integer;o,p : single;a,b : string ;beginh :=0;label24.Caption :='50';label25.Caption :='25';label23.Caption :='0';label22.Caption :='50';label26.Caption :='25';label6.Caption :='0';paintbox1.Canvas.Pixels[0,128] := clBlack; paintbox1.Canvas.Pixels[1,127] := clBlack; paintbox1.Canvas.Pixels[1,129] := clBlack; paintbox1.Canvas.Pixels[2,127] := clBlack; paintbox1.Canvas.Pixels[2,129] := clBlack; paintbox1.Canvas.Pixels[2,128] := clBlack; paintbox1.Canvas.MoveTo(0,45); paintbox1.Canvas.LineTo(0,230); paintbox1.Canvas.MoveTo(0,128); paintbox1.Canvas.LineTo(425,128); paintbox1.Canvas.MoveTo(0,230); paintbox1.Canvas.LineTo(425,230); paintbox1.Canvas.MoveTo(0,45); paintbox1.Canvas.LineTo(5,57); paintbox1.Canvas.MoveTo(0,135);paintbox1.Canvas.LineTo(5,147); paintbox1.Canvas.MoveTo(0,200); paintbox1.Canvas.LineTo(7,200); paintbox1.Canvas.MoveTo(0,98); paintbox1.Canvas.LineTo(7,98); paintbox1.Canvas.MoveTo(0,128); table1.Active :=true;table1.First;if radiobutton5.Checked then beginwhile not table1.Eof dobegina :=table1.FieldValues['TempC1'];b :=table1.FieldValues['TempC2']; o :=strtofloat(a);p :=strtofloat(b);a :=FormatFloat('00',o);b :=FormatFloat('00',p);n :=128-strtoint(a);h :=h +5;Paintbox1.Canvas.LineTo(h,n); table1.Next;end;end;if radiobutton6.Checked then beginpaintbox1.Canvas.MoveTo(0,230); while not table1.Eof dobegina :=table1.FieldValues['TempC1'];b :=table1.FieldValues['TempC2']; o :=strtofloat(a);p :=strtofloat(b);a :=FormatFloat('00',o);b :=FormatFloat('00',p);m :=230-strtoint(b);h :=h +5;Paintbox1.Canvas.LineTo(h,m); table1.Next;end;end;end;procedure TForm1.Button1Click(Sender: TObject);varrbuf1 : array[0..4] of byte;l,m,n :integer;o,p,q ,z: smallint;RetValue,i : smallint;PortNum, PortType : smallint;rbuf : array[0..9] of smallint ;CRCByte : Byte;st : longint;rom : array[0..8] of smallint;beginl :=strtoint(edit1.Text);m :=strtoint(edit2.Text);n :=strtoint(edit3.Text);if n=9 then n :=31else if n=10 then n :=63else if n=11 then n :=95else if n=12 then n :=127elsebeginshowmessage('error number,please input the right number(9~12)');halt;end;RetValue := TMReadDefaultPort(@PortNum,SHandle :=TMExtendedStartSession(PortNum,PortType,NI L);If (SHandle > 0) Thenbeginif (TMSetup(SHandle) = 1) thenif radiobutton1.Checked =true then //写入第一个温度传感器if (TMFirst(SHandle, @stateBuf)= 1) thenbeginif (TMAccess(SHandle,@StateBuf)= 1) thenbegin//i :=TMBlockStream(SHandle,@rbuf1,4);//if i=4 then//beginif (TMTouchByte(SHandle,$4E) > 0) then ///$4E是写命令且判断是否传递成功beginif (TMTouchByte(SHandle,l) < 0)。