基于单总线的温度实时监控系统3(完整资料)

基于单总线的温度实时监控系统3(完整资料）(可以直接使用，可编辑优秀版资料，欢迎下载）

基于单总线的温度实时监控系统3(完整资料）(可以直接使用，可编辑优秀版资料，欢迎下载）课程设计报告书课程名称：专业综合课程设计题目：基于单总线的温度实时监控系统系(院）：电子工程学院学期：１1－１2专业班级:电子姓名：学号：评语:成绩:签名：日期：选题意义随着社会的发展,科技的进步，电子技术和微型计算机的迅速发展，以及测温仪器在各个领域的应用,智能化已是现代温度监控系统发展的主流方向。单片机在电子产品中的应用已经越来越广泛。利用单片机对温度进行控制的技术也随之而生,并日益发展和完善，且越来越显示出它的优越性。单总线技术是美国Daｌlａｓ半导体公司近年推出的新技术.它将地址线、数据线、控制线合为1根信号线，允许在这根信号线上挂接数百个单总线器件芯片。温度是一个重要的物理量,它反映了物体冷热的程度，与自然界中的各种物理和化学过程相联系。在工、农业生产和日常生活中，各个环节都与温度紧密相联，温度的准确监测及控制占据着极其重要地位.比如，发电厂锅炉的温度必须控制在一定的范围之内；许多化学反应的工艺过程必须在适当的温度下才能正常进行等。没有合适的温度环境,许多电子设备就不能正常工作，粮仓的储粮就会变质霉烂，酒类的品质就没有保障。可见,温度的监控是非常重要的.单总线技术是美国Dallas半导体公司近年推出的新技术。它将地址线、数据线、控制线合为１根信号线，允许在这根信号线上挂接数百个单总线器件芯片。单总线技术应用于某些低速（约1０0kbps以下的速率）测控系统中，可以大大简化线路结构和减少硬件开销,可以通过PC机串行口、并行口、USB总线或单片机直接进行测控，ＰC机的软件开发也直观、容易。本设计为基于单总线的温度实时监控系统。设计目的、要求及步骤概述2.1设计目的（1)对单总线设备的结构特点和以单总线技术构建起来的微型局域网的拓朴结构、网络结构优化以及设备与单总线的连接进行阐述和研究。（2）设计基于单总线的温度采集电路,单总线和PＣ机串行口的接口电路，在电路设计时重点考虑单总线设备的供电问题和数据的可靠采集。（3)用自己熟悉的计算机语言编写温度实时监控系统软件,软件的界面要友好、简明、直观。在软件编写时重点考虑温度采集数据存储、单总线设备中的CRC循环冗余码的实现方法、从设备的“即时插即用”的算法研究。2．２设计内容及要求温度测量范围－5０℃～+100℃。测温分辨率不低于0．０625℃。数据传输距离不低于６0米。温度测量点不少于3.温度采集间隔不底于10分钟.能显示一天实时温度变化曲线.2。3设计步骤概述实习制作大概步骤如图1准备好要用的器件准备好要用的器件进行焊接设计电路Delphi程序设计检测完善电路完整调试完善研究课题的要求程序检测完善图1电路的设计3.１硬件电路设计在硬件电路设计时，应着重考虑电子器件的供电方式，以及对器件的限压和限流保护。因为本次设计要求利用单总线技术，所以可以考虑使用寄生供电方式。设计的电路图如下.图2基于单总线的温度实时监控系统硬件电路总图图3基于单总线的温度实时监控系统硬件电路原理图3。２软件设计3。２.1设计窗体本次设计要求软件的可视化窗体中包含实时温度显示、数据记录、存储管理和ＲOＭ数据，并且能将测得的数据保存到指定的数据库中。窗体界面如下.图４窗体界面实时温度显示中可以看到当前室温，并且可以显示摄氏温度和华氏温度。数据记录包含温度曲线和温度日志，可以显示一天内的温度变化曲线。存储管理和RＯＭ数据用来对数据库中已经保存的温度数据进行管理，如删除、转移等操作。3。2.2软件编程本系统软件部分采用Delpｈｉ来实现初始化、数据采集处理、温度报表管理，其主程序的流程图见图5。图5主程序流程图本系统软件部分共分为3个部分，分别是：1）初始化程序。a．设置串行通信波特率；ｂ.串行通讯方式的初始化;ｃ.对TＯ，T1两个计数器的初始化；d．中断控制程序的初始化。此外，还负责从E2PRＯM中调出以前的采样参数,使器件能够以它采样温度数据。2)当监控到OＮTIMＥ1和NTIME2标记时作相应温度的存储、转换、发送处理。ＯNTIME１和ＮTIME2的标记主要有定时电路决定，当到达采样间隔时，做出相应的处理。3）采用动态显示方式即时显示温度,以节省电路规模，使得整个系统的体积变小。元器件的选择4。1主要元器件知识４。1。1ＤＳ１8B2０DＳ18B20是DＡLLAS公司生产的一线式数字温度传感器，具有3引脚TＯ-９２小体积封装形式;温度测量范围为－55℃~＋1２5℃,可编程为９位～1２位Ａ/D转换精度,测温分辨率可达0。０62５℃，被测温度用符号扩展的1６位数字量方式串行输出;其工作电源既可在远端引入，也可采用寄生电源方式产生；多个DS１8B20可以并联到3根或2根线上，只需一根端口线就能与诸多DS18B2０通信，占用微处理器的端口较少，可节省大量的引线和逻辑电路.以上特点使DS18B２0非常适用于远距离多点温度检测系统.４。1．1。1DS18Ｂ20内部结构如图5所示,主要由4部分组成：64位ROM、温度传感器、非挥发的温度报警触发器TＨ和TL、配置寄存器.DS１8B20的管脚排列如图6所示,ＤQ为数字信号输入/输出端；GND为电源地；VDD为外接供电电源输入端,在寄生电源接线方式时接地，见图７。图6ＤS18Ｂ20的内部结构图7DS18B20的管脚排列ROM中的64位序列号是出厂前被光刻好的,它可以看作是该ＤS1８B20的地址序列码，每个DS１８B2０的6４位序列号均不相同。64位ROM的排的循环冗余校验码（CＲC=X８+X５＋X４＋1)。ＲOM的作用是使每一个DS１8B20都各不相同，这样就可以实现一根总线上挂接多个DS18B2０的目的。ＤS18B2０中的温度传感器完成对温度的测量,用16位符号扩展的二进制补码读数形式提供,以0。0625℃/LＳB形式表达，其中S为符号位。例如+1２5℃的数字输出为07D0Ｈ,+25.0625℃的数字输出为019１Ｈ，-25.0６25℃的数字输出为FＦ6ＦH，－55℃的数字输出为FC90H。高低温报警触发器TH和ＴL、配置寄存器均由一个字节的ＥＥPROM组成，使用一个存储器功能命令可对ＴH、ＴＬ或配置寄存器写入。其中配置寄存器的格式如下：０R１R0111１1ＭSBLSBＲ１、R０决定温度转换的精度位数:R１R0=“00”，９位精度,最大转换时间为93．75ｍs;R1R0＝“０1”,10位精度，最大转换时间为1８７．5ms;R1R0＝“１0”，11位精度,最大转换时间为３７5ｍs；R1Ｒ0=“１１”，12位精度，最大转换时间为750ms;未编程时默认为12位精度。高速暂存器是一个9字节的存储器.开始两个字节包含被测温度的数字量信息;第3、４、5字节分别是TH、TL、配置寄存器的临时拷贝,每一次上电复位时被刷新;第６、7、8字节未用，表现为全逻辑１;第9字节读出的是前面所有8个字节的CRC码，可用来保证通信正确。4。1。1.2DS18B20的工作时序ＤＳ18B20的一线工作协议流程是：初始化→ＲOM操作指令→存储器操作指令→数据传输.其工作时序包括初始化时序、写时序和读时序,如图８（a)(ｂ）（c）所示。（ａ）初始化时序(ｂ）写时序(c）读时序图8DＳ18B20的工作时序图4。１。１。3DＳ18B20与微处理器的连接ＤS18B2０与微处理器的连接如下图9所示。（a）寄生电源工作方式（ｂ)外接电源工作方式图9ＤS1８B20与微处理器的典型连接图4.１。2ﻩ串口UAＲT/RＳ232至单总线通信协议的转接桥ＤS24８0B4。１.2。１DS2４８０B主要特性串口UARＴ／ＲＳ２３2至单总线通信协议的转接桥，可直接连到UART和5VRS232系统中,支持Dalｌas全系列单总线器件，如数字温度传感器DS18B20、A/Ｄ转换器DＳ2450等；将主机从单总线时序控制中解脱出来，提供规范的、灵活的和强驱动的单总线定时;支持标准UART通信，支持9。6（默认)、1９.２、57。6和１１５.2kｂps速率；具有较强的总线驱动能力,通信距离可达300m；可编程下拉摆率控制和有源上拉,工作范围5V，－40～+８5℃，8引脚ＳOIＣ封装。4。１.2.2管脚图及引脚说明ﻩ11234875RXDTXDPOLVPPGND1-WNCVDD图10ＤS２４80B的封装和引脚ＤS2４80B为８脚贴片式封装，如图１0所示。引脚功能如表1所列：表1引脚功能说明引脚号引脚名称引脚功能1ＧNＤ地线21－Ｗ单总线输入输出端3ＮC悬空４VDD4。5～5。５V电压5VPPEPROM编程电压6PＯLRＸD/TＸD选择端７TＸD发送端8ＲＸＤ接收端DＳ2480B工作原理框图如图1１所示。图１１DS２480B工作原理框图DS２４８０B与RＳ2３2的接口技术DS248０Ｂ与RS２3２的接口如图12所示。图12DS24８0B与RS232的接口图4.2元件清单表2元件清单序号元件个数１PC机串行口UＡＲT/RS232１个２转接桥ＤＳ２4８0Ｂ１个3数字温度传感器DS18B201个4电容U０7ＨF1个5稳压管2个6二极管Ｍ72个７电路板XF07１个学习心得通过这次专业课程设计,我对本专业的理论知识和动手操作能力都有了大幅度的提高。首先从研究课题的要求和任务开始，刚拿到“基于单总线的温度实时监控系统”这个设计题目时，完全是不知所措,不知道从那下手。经过王老师和李老师的耐心讲解后，才有点头绪。课后通过自己查资料和老师所给的任务书与指导书才真正开始搞懂题目，并且去研究它.根据指导书上的要求和指示,我们小组设计出了基于单总线的温度实时监控系统硬件电路。接下来就要依据设计好的电路图,进行硬件的焊接。说到焊接,我并不陌生，在大二的时候就焊接过收音机,在专业综合实习时，又焊接过红外线感应开关。焊接最需要注意的是焊接的温度和时间,焊接时要使电烙铁的温度高于焊锡,但是不能太高，以烙铁接头的松香刚刚冒烟为好，焊接的时间不能太短，因为那样焊点的温度太低,焊点融化不充分，焊点粗糙容易造成虚焊,而焊接时间长，焊锡容易流淌,使元件过热,容易损坏，或者造成焊接短路现象.在软件设计与编程的环节，要求用自己熟悉的计算机语言编写温度实时监控系统软件。在设计之前我也考虑过关于选用什么语言的问题，在大学生涯中，我学过了C语言,Jａｖａ语言和Dｅlpｈi语言，在去年的计算机课程设计中,我曾用Delpｈｉ语言编写过一个高校学生选课成绩管理系统，对Dｅlphi言语的应用相对灵活些，所以我决定用Delphｉ语言编写程序。在本次课程设计的过程中，我还发现基于DＳ１8B２0数字温度传感器构成的实时监控系统确实具有精度高、抗干扰能力强、电路简单等诸多优点。相比之下，传统的温度检测系统采用热敏电阻等温度敏感元件,热敏电阻成本低，但需要后续信号调理、ＡD转换处理电路才能将温度信号转换成数字信号，不但电路复杂，而且热敏电阻的可靠性相对较差，测量温度的精度差,很难保证热敏电阻的一致性和线性。通过对这个专业课程设计的学习,为我们掌握单总线的温度采集电路，单总线和PC机串行口的接口电路的开发打下了坚实的基础,还使我掌握了设计复杂电路和装配技能，培养了我理论联系实际的能力，提高了我分析问题和解决问题的能力，增强了独立工作的能力.其中感触最深的便是实践联系理论的重要性，当遇到实际问题时,只要认真思考，用所学的知识，再一步一步探索,是完全可以解决遇到的一般问题的.在实习过成中，要时刻保持清醒的头脑,出现错误，一定要认真的冷静的去检查分析错误，不能草草了事，这样做出来的课程设计才能达到它真正的效果，为我们以后步入社会做好充分的准备.参考文献[1]DS18Ｂ20ProｇraｍmaｂleＲesoｌutioｎ1—WireDiｇｉtaｌTherｍｏmeter［2]ＤS２480ＢSｅrial1—WiｒeＬiｎeＤriverwiｔhLｏａdSensor[3]左冬红,谢瑞和.实现单总线搜索ROＭ命令的一种算法[４］李朝青,单片机原理及接口技术（简明修订版)［Ｍ］.１99８[5］李广弟。单片机基础［M]．199４［6］沙占友等．智能化集成温度传感器原理与应用.２002[7］阎石.数字电子技术基础（第三版)[Ｍ］.1989附：源程序清单{-——－—－——--————－-－－-—－-—－--—-—-—-－—－-—-——————-—--————－—-－-——--－－—-———--—－-—－－－———－－—-－—TEMPDL32：TｈisutilｉtｙｕｓesＴＭEＸtｏviewareadtheｔeｍperatｕrｅfromaDS1８Ｂ２0．Itreqｕiresthe32－ＢitWiｎｄowｓTMEXdrivｅrstｏbｅpreseｎt.Cｏｍpilｅr：BorlandDelｐhi5.0｝prｏｃedｕreTＦｏｒm1．FoｒmCreate(Sender：Tｏbjeｃｔ;Ｖar ztbｕf：array［０。.20０］ofＣhａｒ;Ｔypｅbｕf：arraｙ［0．.200］ｏｆＣhar；i，ｋ，RetVａｌue：smaｌliｎｔ;RetStr:aｒray［０．．２00］ofＣhar；SｅｔｕpDone:Ｂoｏｌean;ＰorｔNum，PｏrtType：smａllｉnｔ;beｇinｄiｅer：＝ｆalsｅ；SetupDone:=ＦAＬSＥ;{TＭSｅtｕpnｏtdoneyｅt}Label４．Cａptiｏn：=’’;｛ReaｄdeｆaultPｏrtNumｂerandPoｒｔＴypefromｒegiｓtｒy}RｅｔVaｌue：=TMＲeａｄDｅｆaultPort（@PortNum，@PoｒtType);iｆ（RetVａｌue〈1）ｔhenTMReadＤｅｆａuｌtPoｒt(@PoｒｔＮum，@PorｔTypｅ）ｂeginShowＭeｓｓａｇe('Pleaｓeseｔｐortｆｉrｓt＇);Haｌt；enｄelsｅbｅgiｎ｛rｅaｄｔhｅtmexvｅrｓiｏnandtypeｖｅｒsioｎ}Gｅｔ_Vｅrsion(@ztｂuf)；Labeｌ1．Captioｎ:=StｒPas（ztbuf）；TMGｅtTyｐeVeｒsion（PorｔType,@Ｔyｐebuf）；Label2.Ｃａｐtioｎ:=StｒPas(Tｙpebuf）;｛aｔtemｐtogetaｓｅssion｝Donｅ：＝Fａｌse;RｅpeaｔＳHaｎｄｌe：＝TMEｘtｅndeｄSｔａrtSｅssion(PortNum,ＰoｒtTｙpｅ，NIL)；Ｉf(SHandle>0）Thｅnbegiｎiｆ(ＴMＳｅｔup(SHandle）=1）then｛ThedｅvicethatｗillbeｆｏundｉｓＴemperatureDeviｃeＤＳ18B20,sｏＦamｉlｙTypeｉsｓｅtｔo＄28}FindFｉｒstFａmily（$2８，ＳHandle)elsebｅginTＭEndSeｓsioｎ（SHaｎdle）;ShｏｗMｅssａｇe(’FaiｌtｏsetupＭicroLan！＇);Hａｌt;ｅnd；eｎdelsebeｇｉnｉf(ＳHandle〈0）thenBｅgiｎShｏwMｅssage（'TheDefaｕltＰｏrｔTypeｄoeｓｎotｈaveadriveｒ！');Halｔ；ｅnd;end;{Rｅlｅaseｃontｒolbacktowinｄow｝Applicaｔｉon.ProｃesｓＭesｓages；uｎtiｌ（Done）；Doｎe:=False;ＲeｐeatSHａndle:=TMExtendｅｄSｔａrtSesｓiｏｎ(PｏrtNum,PoｒtTｙpe，NＩL）;If(SＨａnｄｌe＞０）Theｎｂeginif（TＭSetup（ＳHandｌe）＝1)then｛ThｅdevicethaｔｗｉllbefｏundｉsTｅmpｅｒａtuｒeDeviceDS18B20，ｓoFａmilyTypｅiｓsｅtｔｏ$28｝ＦｉnｄSｅcｏnｄFamily(＄28，ＳHａndlｅ)elsebeｇinTMEndSession（SHandle）;ＳhoｗＭeｓsaｇe(＇FailtｏsｅtuｐMｉcroLan！');Halt；end;ｅnｄeｌsebegｉnｉf（SHａｎdlｅ〈0）thｅnBｅginShｏｗMeｓｓage（＇ThｅDefaultPortTypeｄoｅsnｏthaｖeadriver!＇);Ｈalｔ;end;eｎd；｛Reｌｅａsecontrolbackｔowindow}Applicａtion．ProceｓsMｅssages；unｔil（Donｅ）；label18．Cａｐtｉon:=keｋe1;label19．cａptioｎ：=keke2；ｔablｅ１.Aｃtive:＝true；iftａbｌe1．CanModifyｔhenbegintabｌｅ1。Appenｄ;table1.Ｆieldｓ［0］。AsDａｔeTime:＝ｎow；taｂlｅ1.Ｆieｌｄｓ［1]．AsSｔrinｇ：=floａｔtosｔr(diwei1)；taｂｌe1.Fｉelds［２].ＡsFloaｔ:=shanｇxian1；tablｅ1.Fｉeｌds［3]。AsFloaｔ:=xiaxian1；tａble１。Fiｅlds[4］。ＡsStriｎg：＝fｌoattostr(diwｅi2);tａble１.Ｆields［5］.AｓFloat:=ｓhangxｉan2;tａｂｌｅ1。Ｆieｌdｓ[6］.AsＦｌoat：＝xiaxｉan2；tａblｅ1。Posｔ；end;ｅnd;enｄ;procedurｅTFoｒm1。FindFirｓtFａmｉly（ｆamily：ｓmalｌｉnt；SHaｎdle：ｌoｎgint);ｖａrｉ,flａg:smａllｉnt；rｏmstｒ：stｒinｇ；ｒom：array［０.。8］ofsｍallint；begiｎ｛Setuptofindｔheｆiｒstdeviｃｅwiththefamiｌy’fａmｉly’｝if（TMFａmiｌySｅarchＳetｕp(SＨandｌe,@ｓｔateBuf，ｆamｉlｙ)＝1）tｈｅｎbegｉnif(TMNｅｘt（SＨandle,@stａteBｕf）=1)thｅnｂegｉn{Readtheｒｏmnuｍｂerbysettingroｍ［0]to0foｒreadiｎｇanｄｕsiｎｇＴMRom｝roｍ［０]：=0；ＴＭRom(ＳHａnｄｌｅ，@stateBuf，@ｒom）;{Checｋifｃorrecttｙpe}roｍstr：＝'’;iｆ(（ｆａmｉｌyａnd＄7F)＝（roｍ[０］ａnd＄7F）)theｎbegiｎfｏｒｉ：=7ｄownto0dｏromｓｔｒ：＝ｒomｓtｒ+IntＴoHｅx(ROＭ[i］，2）;Ｌabel3.cａｐtion：＝’SｅｒialＲOMID1：’+romstr；ReadＴemｐeratｕre１(SHａnｄｌe);eｎdｅlsebegiｎＳhowＭessage（’ＴhereisｎｏTｅmperatｕreDeｖiceontheport’）；ｈaｌｔ；ｅnｄ；endelｓebeｇiｎTMEndSession(SHandlｅ）；ShowMesｓａgｅ（＇TheｒeisnoTemperatureDｅviceoｎｔｈeｐort’）；halｔ;eｎｄ;ｅnｄelsebeｇiｎTMEndSessiｏn(SHandle）;ＳhowMessage（’ThereｉsnoTemperaturｅDeviceontｈeｐort’）；ｈalｔ;end；ｅnｄ;ｐroceｄuｒｅTＦorm1.RｅａｄTeｍperａtuｒe1（ｓｅｓｓiｏn＿hａｎdle：longiｎt)；vartsht,ｉ，tmp1:ｓmaｌlint;cr，cpc,tｍpf,tｍp：Extendeｄ;rbuf：array[0．。９］oｆsmａllｉnｔ；st：lonｇint；ＣRCBytｅ，ｘiaxｉanｂｙｔe:Ｂyte；bｅｇintｍp:=０。０0；｛accessthｅｄeｖice}if(ＴＭAｃcｅsｓ（sesｓioｎ_ｈaｎdle,@StaｔeBｕf)＝1)thenbｅgin{SenｄtｈerecallE2comｍaｎｄ（bｙseｔtiｎｇ＄B8tooutbyteinTMＴouchＢｙte）mａkｅsureScｒatchiscorreｃｔ}TMTouｃhBｙte(sｅｓsioｎ＿ｈandle,＄B8）；{SｅｎdｔｈestaｒtTcommaｎｄ｝if（TMAｃcesｓ(session_ｈandｌe,＠StａteBuf）=1）thｅnbegiｎ｛PrｅｐarethestroｎgｐullupafteｒnextTMToｕchBｙte}ＴＭOnｅWｉreLeveｌ(seｓsion_haｎdle，LEVＥL_ＳET，ＬＥVEＬ＿STROＮＧ_PULL_UＰ,PＲIＭＥD_ＢYＴE)；｛Ｓendtｈeconveｒｓｉoncoｍmand（byseｔtiｎg＄４４tooutbytｅinTMToｕchByte)}TMTouchBｙte(seｓsｉon_ｈandｌe,＄4４);{Sｌeeｐfｏrasecond}st:＝GｅtTickCouｎt＋1000；Ｗｈｉｌe（ＧeｔTickCount<st）doＴMVaｌiｄSｅｓsion（Ｓeｓsiｏｎ_hａndle）；{Ｄisａｂlethestroｎgpｕllup｝TMOnｅWｉｒｅLevel（sesｓioｎ_handle，LEVEＬ＿SEＴ，LEVＥL_ＮORMＡL，PRＩＭＥD＿NONE)；｛verifycoｎversiｏｎｉscｏｍpｌｅtｅbｙsettｉng＄０1ｔoｏutbitinTMTouchＢitandcｈｅckthereｔurｎvaluｅwiｔh1｝ｉｆ（TMToucｈBiｔ(ｓeｓsioｎ_handlｅ，＄０1)=$0１）theｎｂegiｎ{Ａccｅssdevｉcｅ｝Iｆ（TＭAccess(ｓession_handlｅ,@ＳtateBuf）=1）tｈｅnbegｉn｛Sendrｅaｄscｒatchｃｏmmaｎdbysｅtｔiｎg＄BEtoｏｕtbyｔeinＴMＴouｃhByｔe｝TMＴouchBytｅ(sessｉｏn_hａndlｅ,$ＢE）;ＣRＣ8：=0；{Reaｄｓｃratch（setting$ＦFtｏouｔｂｙteinTMＴｏｕcｈBytｅ）ａndcheckcrcfoｒｅachbyte｝ｆori：＝0to7ｄoｂeginrｂｕf[ｉ］：=ＴMTouchBｙｔe（seｓsiｏn_hanｄle，＄FF）；ＣRCＢｙte:＝Bｙte(rｂuf［ｉ]）；｛thebytetorunthｒoｕghCＲC8ｒoutｉｎe｝ＣRＣ8：=TMCＲC(1,@CRCByｔe，CRC8，0);enｄ；｛Cｈeｃkcrc｝CRＣＢyte:＝Bytｅ(TMTouchBｙte（sｅssiｏn_ｈandle，＄FF))；｛thebｙtetoruｎｔｈｒｏuｇhCRＣ8routinｅ｝CＲC８:=TMCＲC(1，@ＣRCBｙte,CRC8，0);if(CRＣ8=0)thｅnbegiｎ｛Cａlｃulａtetｈetemperａｒｕｒetｓht：=rbuf[０］；if（(rbuf［1]and＄01)=1)ｔhentsht：＝tsｈｔoｒ(-25６）;ｔmp1:=Ｒounｄ（（tsht）/2）;tｍp:=tmp1；cr:＝rbuｆ[6];cｐｃ:＝rbuf［7];if（rbuf［7]＜＞0)tｈｅntmp:=tmp-（0．25）+(cpc—ｃr)/cpｃ；｝if（（rbuf[１]anｄ＄F8）=$F8）thenBEGIＮENDＥLSＥBEGＩNｃａse(rbuｆ[４］and＄6０）of＄00：beｇｉｎfenbiaｎlｖ1：=9;tmp：＝(ｒbuf[１］ａｎd＄0７）*16+（rbｕf［0］and$ｆ8)/16;diwｅi1：=(ｒbuf[0]ａnd＄f8）／１6;enｄ；＄２0：bｅgｉnfeｎｂiａｎｌv1:=10;ｔmp:=（ｒbuf［1]and$07)＊1６＋(ｒbｕf[０]anｄ$ｆc)／16；diwｅｉ１：=(rbｕf[０]and$fc)/１6;end；＄40:ｂegiｎfenbianlｖ１：=１１；tmｐ：=（ｒbuf[1］and＄07）*16+（ｒbuf[０]and＄fｅ)/16;diwei1:=(rbuｆ［０］anｄ＄fｅ）/1６；ｅnｄ；$60：ｂeginfenbiaｎlv1：=12;ｔｍp：=（rｂuf［1］and$０7)＊16＋rｂuf［０］/16;dｉweｉ１：=ｒbuf［０]／16；ｅnd；end；EＮＤ;tmｐｆ：＝（tmｐ*9)/5+3２;label4．ｃａption:='Curreｎtｔemp1：’+ＦｏrmａｔFｌoat('0.0000'，tｍp)＋＇Cor'+ＦoｒmatFloat(’0.００00',tmpf)+＇F’；keｋｅ１：＝FormatFｌoat(＇0．00００'，tmｐ)；yuansｈｉ1：=ｒbuf[4];shangｘian1:=rbuf［2]aｎd$7f;xiaxianｂyｔe：=rｂuf[3]anｄ＄80;ifxiａxianbytｅ=１ｔhｅｎxiａxian１:=(rbｕf［3]aｎd＄7f）＊（－1)eｌsｅxｉaxiａn1：＝rbuf［3］and$7f；MessageBｅｅp（0）；TMEnｄSｅssiｏn（session_ｈａndle）；Donｅ：＝True；ｅnd;eｎd;eｎｄ;end；end；ｅnd；ｐroceｄｕｒeTFｏrm1．FindSeｃｏｎdFamｉly（faｍiｌｙ：smallint；SHandle:lｏngint);ｖaｒi,flaｇ:ｓｍallｉｎｔ;rｏmstr:sｔｒiｎg;rom:aｒraｙ［0。.８］ofｓmaｌliｎt；beｇｉn｛Setuｐtofiｎdｔhｅfirstdevicewitｈthｅfａｍiｌy＇famiｌy'}iｆ（TMＦａｍiｌySｅarchSetup（ＳHaｎdｌe，@stateＢｕf,ｆａmily）=1）theｎｂegｉn{Getｆirstｄｅｖice｝if(TＭNext(SHandｌe，@staｔeBuf)=1)thｅnｉf(TＭＮｅxt（SＨａndle，＠ｓtaｔeBuｆ）=1)ｔhｅnbegin{Reaｄｔheroｍnuｍｂerbｙｓｅttingrｏm［0]to０forreadingａndusinｇTMRom｝rｏm[0］：=0；ＴMＲｏm(SHaｎｄle,@stａteBuf,@ｒoｍ）;｛Checkiｆcorrecttypｅ}roｍstｒ：＝’';ｉf((famｉlyand＄7F）=(rom[0]and＄７F）)thenｂｅginfoｒi：＝7doｗｎto0ｄoromstr：=romstr+ＩnｔTｏHeｘ(ＲＯM[i],2）;Labｅl10。caption：＝’ＳｅrialROＭIＤ2：’+ｒomｓtr；RｅaｄTｅmｐeratｕrｅ２(ＳHaｎｄle)；endelsebeｇinShowMｅsｓagｅ('ThereisnoTempｅｒatｕreDevicｅonｔheｐorｔ’）；halt;end；enｄelｓebeｇinTMＥndＳeｓｓｉon(ＳＨandｌe）;ShowＭeｓsage（＇TherｅiｓnｏTeｍpｅratureDeviceontｈｅpoｒt＇）；halt；endelsebegｉnTMＥnｄSessｉｏｎ（SHandle）；ＳhowMessａge（＇ＴｈereiｓnoＴemｐerａtuｒｅDｅvｉceontheｐort’）；halt；end；eｎdelseｂeginTMEnｄSｅsｓion（ＳＨandｌe);ShｏwMeｓｓage('ThereiｓｎoTeｍｐｅratｕreＤevicｅｏｎtheｐorｔ’）;halt；end;end；procedｕreＴFｏrm１。RｅadTemｐｅrature2（sessiｏn_handｌｅ:longiｎt）；ｖartsht,i，ｔmp1:sｍalliｎt;cr，cｐc,ｔmpf，tｍｐ:Exteｎded；rｂｕf:arrａy［0．。９］ofsmaｌlｉnt;st：lonｇｉnｔ；ＣRＣByte，xiaxiａｎｂyｔe:Bytｅ；bｅgintmｐ：＝0.00；{aｃceｓsｔhｅｄevｉｃe｝if（ＴＭAccess（sessｉon_hanｄle，＠ＳｔateＢuf）＝1）thenbeｇin{SeｎdtｈeｒecalｌE2ｃoｍｍａnd（byseｔtinｇ＄B８ｔoｏｕtbyteinTＭTｏuchＢｙte）makeｓureSｃｒａtchiscorreｃt}TＭTouｃｈByｔe(sｅｓsion_handlｅ，＄B８)；｛ＳｅndｔheｓtaｒｔTｃommaｎd｝if（TＭＡｃｃｅss(seｓｓion_handle，@StａｔeBuｆ)=１）ｔｈenbegin｛PｒeｐarethesｔroｎgｐulｌupａfｔｅrｎextTMＴｏｕchBytｅ｝TＭOneWｉrｅＬｅｖel（session_hanｄle，LEＶEL_SET，ＬＥVＥL_STRONG＿ＰULL_UP，PRIMEＤ_ＢYTＥ);｛Sendtheconveｒｓiｏncｏmmand（bysetting＄４4tooutｂyteinＴMＴouｃhBytｅ)}TMTｏuchＢyte（sｅssioｎ_handle,＄44)；｛Sｌｅepfｏraｓｅcoｎd}sｔ：=GetTickＣｏunｔ+1000；Ｗｈｉlｅ（GetTickＣoｕnt＜st）doTＭVａlidSｅssion(Ｓesｓioｎ_hanｄle）；{Disａbletheｓtronｇpullup}TMOｎeWiｒｅLevel(ｓｅssion_hａndｌe，ＬEVEＬ_SEＴ，ＬEＶEＬ_ＮORMAL，PRIMED＿NＯＮE);{veｒｉｆycoｎverｓｉonｉｓcoｍplｅtebｙｓｅtting$0１tｏoｕtbitinＴＭＴouchＢitaｎdchecｋｔheｒeｔuｒnｖaluｅwith1｝ｉf(TMToucｈBit(ｓessiｏn＿handle,$0１）＝＄01）tｈenbegiｎ｛Accｅssdevice}If(TＭＡccｅss(ｓessiｏｎ_ｈanｄle,@ＳtateBuf）=1）thｅnbeｇin{Sｅｎdｒeａｄscratchcoｍmａndbyｓetting＄ＢEｔoｏutbｙｔeinTMTouｃhＢyte｝TMTouchＢytｅ（ｓesｓioｎ_haｎdｌe，$ＢＥ）;CRC８:＝0；{Ｒｅadscratch(ｓettinｇ＄FFｔooｕｔbyteｉｎＴMTouｃhBｙｔe）ａndcheckcｒcforeachbytｅ}fori:＝0ｔｏ7dobeginrbuf［i]：＝ＴMTouｃｈＢyｔe（sｅssion_hanｄｌｅ,$FF)；ＣＲＣByte：=Byｔｅ（ｒbuｆ[i］);{tｈebyｔｅtｏruntｈroｕｇhCＲC8ｒoutｉnｅ｝CRC8：=TMCRC(1,@CRCByte,CＲＣ8,0);eｎd；{Ｃheckcrc｝CＲCBｙｔe：=Byte（TＭTouｃｈByte(sessioｎ_haｎdle,＄FF）)；｛ｔhebytetｏｒuｎｔhroughCＲC8rｏｕtine｝CRC8：＝TMCRC（1,@CＲCByte，CＲC8，0）;ｉf(CRＣ８=０)tｈｅnbegin｛Calcuｌatethｅtempｅraruretｓｈt：=rbｕf［0]；if（(ｒbuf[1］ａnd＄01）=１)thｅnｔsｈｔ：=tshtor（－２56);tmp1:=Rｏund（（tsｈｔ)/2）；tmp:=ｔmｐ1；cr：＝rｂｕｆ［6];ｃpｃ：=rｂuf［7］；ｉf（rbuｆ［7］〈＞０）theｎtmp:=tmp—(0。25）+（cｐc－cｒ）/cpc；｝if（（ｒｂuｆ[１］aｎd＄F8)=＄Ｆ8）ｔheｎBEGＩNENDELSＥＢEGINcａse(rbuf[4]ａnd$60）oｆ$00：bｅgiｎｔmｐ：=（ｒｂｕf[1］and$07)＊１6+(rbuf［0］anｄ$f８）/16；ｆｅnｂianlｖ２:=9；diwei2：=(rｂｕf［0］ａnｄ$f8)/１6;enｄ;＄2０：begiｎfｅnbｉａnｌv２：=10；tmp：＝（ｒbuf[1］ａnd$0７）＊１6＋(ｒｂｕf[0]and＄fｃ）／１6；ｄiwｅi2：＝（rbuf[０]aｎｄ$fｃ)/1６；eｎd；＄40:begｉnfenbianｌv2：=１1；tmｐ:＝（rbuf［1]ａｎd＄07）*1６+(rbuf[0］and＄fe)/16；//1１位分辨率diwei2:=(ｒbuf［０］anｄ＄fe)/１６;enｄ;$６０：ｂeginｆｅnｂiaｎlｖ2：=12；tｍp：=（ｒbuｆ［1]and$07)＊１6+ｒbｕf[０]／16；//12位分辨率diwｅi2:=rbｕf［０］/１6；ｅnd；end；ＥＮD；tｍpf:=(ｔmp＊9)/5＋32；ｌabel11。ｃaptioｎ:＝’Currｅｎttemp2：’+FｏrmatFloat（'0。000０’，tmｐ）+’Ｃor’＋FormatFｌｏａｔ('０.０00０＇,tmpf)+’F';kekｅ2：=ForｍatFloat（'0.0０00’，tmp）;yｕａnshi2:=ｒbuf［4］；shａnｇxｉan2：＝rbuf[2]ａnｄ$7f;ｘiaxianｂyte:=rbuｆ［3]and$80;iｆxiａxiａｎbyte=1tｈenｘiaｘｉan2：=（rｂuf[3］aｎd＄7f）*（-1）ｅlｓexiaxｉan2：=rbuｆ[3]and$７f；MeｓsageBeep（0）；TMEndＳesｓion（session_ｈａndle）;Donｅ：＝Tｒue；ｅnd；ｅnd;ｅnｄ;end；ｅｎd；enｄ；ｐｒoｃeｄureTFｏrm１.Iｍaｇｅ１Cliｃk（Ｓｅnder:ＴOｂject)；beｇiｎｄｉeer：=trｕｅ;/／全局变量用来动态显示温度柱状图end；proｃｅdurｅＴForm１.Ｂuｔｔｏn２Ｃlｉck（Sendｅr:TObjeｃt)；vaｒRｅtVaｌue，ｉ:sｍalｌint;PortＮｕm,ＰortＴype：ｓmallint；beginｉf（raｄiｏｂutton3.Checked）ｔheｎbeｇinedit9．Ｔexｔ:='';edｉｔ4．Tｅxt：=＇';ｅdit5。Teｘt:＝’'；edit6.Tｅxｔ:=＇'；ｅdit７．Tｅｘt：＝’'；eｄit8.Text：=＇’；RetValue：=TMReadＤｅfaｕｌtＰort（@PortNum,＠ＰortＴyｐe）；ＳHandle：=TMＥxteｎdeｄStartSesｓｉoｎ（PoｒtNum，PortＴypｅ，NＩＬ);ＦindＦirstFamily（＄28，SHandle);eｄiｔ9.Tｅxt:=inｔｔostr（ｆenｂianlv１）;eｄit4.Teｘt：=ｆlｏatｔoｓtr（ｇaoweｉ1)；edit５．Text:＝ｆloａｔｔostr(ｄｉwei1);edit6.Text：=flｏattostr（shanｇxiａｎ1）;ｅdit７。Text：＝fｌoaｔtostr（xiaxiaｎ1)；edｉt８．Ｔext：=fｌｏatｔoｓtr（yuanshi1)；eｎd;iｆ（radiｏbuttoｎ4.Ｃhecked）thenbeginedit9.Texｔ:＝''；ｅdit４．Ｔext:='＇；edｉt５．Teｘt:=＇’；edｉt6.Teｘt:=’’;ｅｄit7.Teｘt:='’；ｅdit8．Teｘt：='';ＲetＶalue:＝TＭReａdDefauｌｔＰort（@PorｔNum，@ＰｏrｔType)；SHandle：＝TMExtendｅdSｔａrtSesｓｉon（ＰorｔNum，ＰorｔTypｅ，NIＬ);FindSecｏnｄFamｉly($２8，SＨanｄｌe)；edit4．Tｅｘt：=fｌoａtｔｏsｔr（ｇaowｅi2）;edit9。Tｅxt:=fｌoattｏstｒ（fenbianlｖ2）；eｄｉt５。Ｔeｘt:=floattostr（dｉwei2)；eｄit6．Texｔ：=flｏaｔtoｓｔr(sｈangxian2）;edit7．Texｔ:=fｌoattostr（xiaｘian２）；edit8.Text:=floatｔoｓｔr(yuansｈi２）;eｎd;end；pｒｏcｅdｕrｅTＦorm1.Bｕtton3Clicｋ（Ｓeｎｄeｒ:ＴＯｂｊｅct);ｖaｒn，ｍ,ｈ：inteｇｅr；o，ｐ:single；ａ,ｂ:ｓtring;ｂｅｇｉnｈ：=0;lａbeｌ24。Ｃapｔion：=’５0’;labｅｌ25。Ｃａpｔioｎ：＝'２５’；laｂel23．Captｉon:＝'0’;laｂeｌ2２.Cａptｉoｎ：=’50'；ｌabel２6.Caｐtｉｏn:='２5’；label6。Caption：='0’;painｔboｘ1。Canvas。Pixelｓ［0,128］：=clBｌack；paintbox１。Ｃaｎvaｓ．Pｉｘels［１,127]：=ｃlBlaｃk;paiｎtbox1.Ｃａnvas.Pixｅlｓ[1,129］:=clBlacｋ;paintbox1．Canvａs．Pixｅls[２,1２7]:=clＢlack；paintbox1。Cａnvａｓ．Ｐixels［2,129］:=clBｌacｋ;pａｉntbox１。Canvas。Pｉxｅｌs[２，12８］：=clBlaｃk;ｐaintbｏx1。Ｃanvas。MoveTo(0，45）;painｔboｘ１．Canvａs.LiｎeTo（0,230）；ｐａiｎtbox1.Ｃanｖas。MovｅＴo(０，128）；pａintbox１.Canvａs。LineTo(425，128）;ｐaｉntbox１．Canvａs。ＭｏvｅＴo（0，23０);painｔｂoｘ1。Canvａｓ。ＬineTo(42５，2３0）;pａｉntｂox１.Ｃanvａs.MoｖeTo（0，４５）；paintboｘ１.Ｃanvａｓ。LinｅTo（5,５７）；paｉnｔboｘ１.Canvaｓ。MovｅTo(0,１3５）;paｉntｂox1.Caｎvas。ＬineＴo（５,１4７）；paintbox1。Ｃanvaｓ。MoｖｅTｏ（0，200）；paｉnｔｂoｘ1。Cａnｖas。LiｎｅＴo（7，２00）;paiｎtbox１．Ｃaｎvａｓ．MovｅＴo(０，９8）;paintboｘ１。Canvas．LineＴo（7，98）；paintｂox1.Ｃaｎvas．ＭoｖｅＴo（0，128）;taｂle1。Aｃｔｉｖｅ:=truｅ；tａble1.Fiｒst;ｉfradiobuｔton5.Cheｃｋedthｅnｂeｇｉnwｈｉｌenoｔtａble1。Eofdobegina：＝ｔable1.FielｄＶalｕes［'TeｍpC1＇];b:=table1．FｉｅlｄValueｓ['TemｐC2＇];ｏ：=ｓｔｒtoｆloａｔ(ａ);p:＝sｔrtofｌｏaｔ(b）;a:＝FormatＦlｏaｔ（'00＇，o);b：=FoｒmａtFｌoａt（’０0’,p)；ｎ:=１2８—strtｏint（a);h：=h+5；Paintｂox1.Canvaｓ。ＬineTo(ｈ，n）；tablｅ１。Ｎｅxt；end;ｅnd；iｆｒａdioｂｕtton６。Chｅckedtｈenｂegｉｎpａiｎｔbox１。Cａnvaｓ。MoｖｅＴo(０,230）;ｗhilenottaｂlｅ1。Ｅoｆdobeginａ：＝taｂle１。FｉｅｌdＶalｕeｓ［＇TemｐC1’］；b：=table1．FiｅldＶalues[’TemｐＣ2'］；ｏ：=ｓｔrtoｆｌｏａｔ（a)；p:=ｓtrtofloat（b);ａ:=FｏrmａtFloat（’0０',o)；ｂ：=FormatFloａt(＇00＇，p）；m:=2３0—strtoint（b）;h：=h+5;Paintbｏx１．Cａnvaｓ．LineＴｏ（h，m）;tabｌe1.Next；end；end;eｎd;ｐroｃeduｒeTFoｒm１.Ｂｕtｔｏn１Ｃlｉck（Sｅndｅr:TＯbject)；ｖaｒrbuf1：ａrray[0．。4]ｏｆｂｙte;l，m，ｎ:ｉnｔeger；o，p,q，z：smaｌliｎｔ；RｅtVaｌuｅ,ｉ:smaｌlinｔ；PortNum,ＰortTyｐｅ：smaｌlint；rｂuf：ａrｒaｙ［０..９]ofsmallint;CRCByte：Ｂyｔe;st：ｌongｉnt;rom：array［0．.８］ofｓmallint；begｉnl:=strtoiｎt（edit1.Ｔeｘt)；m:=ｓtrｔoｉnt（edit2.Ｔｅxt）；ｎ：＝strtoint（edit3。Text)；ifn=9tｈenｎ：＝31elseiｆn＝1０ｔhenｎ：=６3elsｅifｎ=１1tｈenn：=９5eｌｓeｉfn=１2theｎn:＝127ｅｌsｅbegｉnsｈoｗmessaｇe（＇ｅrrorｎumｂeｒ,pleaｓeinputthｅｒｉgｈtnｕmｂｅｒ(9~12)'）;halt；ｅnｄ;RetValuｅ:=TMReａdDeｆaultPoｒｔ(@PｏrtNuｍ，＠ＰortType）;/／从这里开始不能改有关时序的问题，改了可能出错SＨandle：=TMEｘｔendedＳｔartSｅｓｓioｎ（PortNuｍ，PｏrtＴｙｐe，ＮＩL）;Iｆ（SＨandle〉0)Tｈｅnbegiｎif(TMSetuｐ（SＨandｌe）=1）ｔhｅnｉfraｄｉobuttoｎ1。Checkｅｄ=trueｔhen//写入第一个温度传感器ﻩif（ＴMFirst(SHaｎdｌe，＠ｓtaｔeBuf)=１)tｈenﻩbeｇinﻩﻩif(TMAcceｓs(SＨandｌe，@StaｔeＢuｆ)=1)thenﻩﻩbeginﻩﻩﻩ/／i：＝TMBlｏｃｋStｒeaｍ（SHａｎｄｌe，@rbuｆ１,4）; ﻩ //ifi=4theｎ／／beｇｉｎif（TMTouchBytｅ(SHanｄlｅ,$4E)＞0）then///＄４E是写命令且判断是否传递成功beginif（TMＴｏｕchByte（ＳＨaｎdｌe，l）＜0)ｔhen//传递温度上限且判断是否传递成功halt；if(TＭToucｈBｙte(SHａｎｄｌe,m）＝255）then/／传递温度下限且判断是否传递成功ｈalt;ｉf(TMＴoｕchBｙtｅ（SＨａndlｅ,n）〈0)then／/传递精度且判断是否传递成功ｈalt;end;TMＡｃcess(SHaｎdｌe，@SｔateBｕｆ）;ＴMTouchＢyte（ＳHａｎdle,＄48）;//这里是写道Ｅ2Rom里所以用上拉电压TMOneWｉreＬｅｖeｌ（SＨaｎdle，ＬＥVEL＿SET，LEVEL＿STＲONＧ_PUＬL＿ＵＰ，PRIＭED＿ＢＹTＥ);st：=GetTｉckCount+1000;ｗｈｉｌｅ(GeｔTiｃｋＣoｕｎｔ＜st）do;TMＯneWireＬeｖel(SHanｄle，ＬEVＥL_SET,LEＶEL_NORＭAL，PRIＭED_NONE）;ﻩ ﻩﻩﻩ ﻩﻩﻩ//恢复正常电压//ＴMEndＳession(SHanｄｌe）;／／ifｉ〉＝０then／/begin//TＭTｏuchByte（SHａndle,＄B8);TＭAｃcess(ＳHanｄle，＠StatｅBuf）；TMＴoｕcｈＢytｅ（ＳHａnｄlｅ，$BＥ）；ＣRＣ8：=0；fｏri:＝0ｔo7dobeginrbｕｆ［i］:=TＭＴoｕｃｈＢｙte(SHandｌe，$ＦF）;//CRＣBytｅ：=Bytｅ(rbｕｆ［i］）;｛tｈebyｔetｏrｕntｈroughＣＲC8ｒoｕtinｅ}/／CＲC8：=TMCRＣ(1,@CＲCByte,CRＣ8，0）；enｄ;/／ｅnｄ//else//showmｅssage（’erroｒTM＄48'）；／/ｅｎd ﻩ/／ｅlｓe ﻩ／／showmesｓage（'ｅrroｒtmBlock’）; ｅnd else ﻩshowmesｓage（’errorTmAｃcess');ﻩｅndﻩelｓe showmessaｇe('ｅｒroｒTＭnext＇）；ifraｄiobｕtton2.Ｃｈecked=truethｅn//写入第二个温度传感器下面就是复制的代码if（TＭFirst（ＳHaｎdle，@sｔａteＢuf）=1）thenif（TMＮext(SHanｄle,@sｔatｅBuf）=1)ｔｈenﻩbｅginﻩﻩｉf(TMAccess（SHandle,@StateBuf)＝１）ｔｈeｎﻩﻩｂeｇin //i：＝TMBlockStream（SHandｌe,＠rbｕf1,4）;ﻩﻩﻩ／／ifi＝4ｔhｅn/／beｇinｉf（TMTｏuｃｈByte（SHandle,$4Ｅ）>0)thｅｎbeｇinｉｆ(ＴMＴouchByｔe(SHandｌe，l)〈0）tｈenhalｔ;if（ＴMTouｃhByｔe（ＳHaｎdle,m)=2５5）thenｈalt；ｉf（TMToucｈByte(SHandle,n）<0）thenhａｌｔ；ｅnd；TＭAｃｃeｓs（SHandlｅ,＠StatｅＢuf);ＴＭToｕｃhBｙｔe（SHandle，$４8)；TMOｎｅWirｅＬｅvel(SHaｎdｌe，LEVＥL_ＳEＴ，LEVＥL＿ＳTROＮG_ＰULL_UＰ，PRIMED_BYTE);st:=GetTickＣount+10０0；ｗhile(GｅｔTicｋＣount〈ｓt)ｄo;TMＯnｅWireＬevel（ＳＨandle，ＬEＶEL_SET,LEVＥL＿ＮORMAＬ,PＲIMED_NONＥ）;//TMEndSession（ＳHandle);//ifi>=0ｔhen//bｅｇin//ＴMTｏuchＢｙｔe(ＳＨandle,$Ｂ８）；TMＡｃｃeｓs（SHａnｄle，＠ＳtateBuf）;TＭTouｃhＢyｔe（SＨaｎｄle，$BE）；CRＣ8：=０；ｆori:=0to7ｄobegiｎｒbuf[i］:=TＭToｕchＢyte(SHaｎdle，＄FF）;／/CRＣByｔe：＝Ｂyｔe(rbuf[i]);｛thebyteｔｏｒunthrｏughＣRＣ8ｒoutine}/／CRＣ8:=ＴMCRC（1,＠CRＣＢytｅ，ＣＲC8，０）；eｎd；//ｅｎｄ//ｅlse//showmessage（'ｅrrorTM$4８’)；//endﻩ //ｅｌse ﻩﻩ/／sｈowｍessage（'errorｔmBloｃｋ')； endﻩﻩｅlseﻩ shoｗmessage('ｅrrorTｍAccesｓ＇）;ﻩｅnd else showｍesｓage（＇errorＴMnext’);//ｅｌse//showmessaｇｅ(’errorTMＦａｍily’）；endelｓeshｏwｍessaｇe（’erｒoｒSＨandle’）；end；prｏｃeｄuｒeTＦｏrｍ1．Ｂutｔoｎ4Clｉck（Sender：TObject）；begｉnbｕttoｎ４。Ｅnaｂled：=ｆａlse;buttｏn5。Enａｂleｄ:=true；ｔｉmｅr1.Enabｌed:=tｒue;end;proｃedureTForm1.Ｔiｍer1Timｅｒ（Sendｅr：ＴＯｂｊecｔ)；varPｏrｔNｕm,ＰoｒtTyｐe:ｓｍaｌlｉｎt;RetＶａlｕe：ｓmallｉnt;sｔ:lｏnginｔ；bｅgｉｎifdｉeertｈｅnbeginPｒogｒessbａr１．Step:＝1；whｉleprogressｂａr1。Poｓitｉon〈strtoflｏat（ｋeke１)ｄobeginprogrｅsｓbar1.StepIt；ｅnd；progressbar2。Stｅp：=１；whｉleprｏｇreｓｓbａr2．Positｉon＜strtofloat（kekｅ2)dｏbegｉnprogreｓsbar2.StepIt;ｅnd;labeｌ18．Ｃaption：=keｋｅ1;ｌabel1９.caption：=keke2;end；RetVａｌue:=TMRｅadDefaultPort(@PortNuｍ，＠PｏrtType）;ＳHandle:=TＭExｔendedＳtａｒtＳeｓｓiｏn（PortNｕm,PortＴyｐe,NIL);FiｎdＦirｓtＦamily（$28,ＳＨａndle)；ReｔVａｌｕe：=ＴＭReadＤeｆaulｔPorｔ（＠PortNum，＠PortTｙpe)；SHaｎdle：=TMExtendedＳtartＳesｓion（PｏｒtNum，PortType,NIL）;FiｎｄSecondFamilｙ(＄28,SHandle);ｌabｅl18．Capｔｉon：=ｋeke1;label19。ｃaptiｏｎ：=ｋｅkｅ2;tabｌe1.Actiｖe：＝tｒｕe;iftable1.CaｎＭoｄifyｔｈenbeｇｉnｔabｌe１。Ａppenｄ；table1。Fｉelds［０］．AsDaｔeTime:＝ｎow;ｔable1.Fiｅlds［1].AsＳｔrｉng：=ｆloattｏstr（diwei1）；taｂle1。Ｆields［2].ＡsFlｏat：=shａngｘiａn1；tａble1．Fields［3].AsＦloaｔ:=ｘiaｘiaｎ1;ｔａbｌe１.Fieｌds［４］。ＡsSｔｒinｇ：=ｆloattosｔr(diwei2）；table1．Fiｅlds[5］．AsFｌｏat:＝ｓhａngｘｉａn2；ｔａble1。Fiｅlｄs［6］。AsFｌoaｔ：=xiaｘiａn2；table1.Post；ｅｎd;st：＝GeｔTickCount+1000；Ｗhile（ＧｅtTickＣount〈sｔ）do；TMＥnｄSeｓsｉon(SHaｎdle）;enｄ;procedureＴFoｒm1.Ｂutｔon５Click（Senｄｅｒ:TＯbｊｅcｔ）；beginbuｔtｏn4．Enabled：=true;buttｏn5。Enａbled：＝false；timer1。Eｎablｅd：=ｆａlｓｅ;dieer:=false;enｄ；end.基于单片机的防水型温度智能监控系统摘要：本文设计了一种由STC8９Ｃ52单片机和防水温度传感器构成的温度智能监控系统，温度信号由防水型温度传感器DS1８B２0采集，并以数字信号的方式传送给单片机。本文介绍了该控制系统的硬件部分，包括：温度检测电路、温度