测控仪器设计 实验4--PC机与单片机串行通讯实验(3).docx

《测控仪器设计 实验4--PC机与单片机串行通讯实验(3).docx》由会员分享，可在线阅读，更多相关《测控仪器设计 实验4--PC机与单片机串行通讯实验(3).docx（7页珍藏版）》请在第一文库网上搜索。

1、实验报告(理工类)开课学院及实验室：机械工程学院实验时间：年月日学生姓名学号成绩学生所在学院年级/专业/班12级/自动化/西华理1课程名称测控仪器设计课程代码实验项目名称PC机与单片机串行通讯实验(3)项目代码指导教师项目学分一、实验目的二、实验原理三、实验设备、仪器及材料四、实验步骤（按照实际操作过程）五、实验过程记录(数据图表、计算等)读取DS18B20温度，通过1CD1602显示出来，并发送给上位机#inc1ude#inc1ude#inc1ude#defineuintUnSignedintWdefineucharunsignedcharWdefineNop()nop()dddQccceD

2、1111ni1111fiiiibbbbdSsss#=P22;._rs_port=P35;_rw_port=P3八6;-eZport=P34;TcddataportPOf1oatf_temp;voidde1ay1(void)intk;for(k=0;k1000;k+);void1cd_de1ay(ucharms)ucharj;whi1e(ms一一)(for(=0;j1(2v v v v i - a - a - aQ anQ eQ eQ e - e UDdDdDd XdReadOneChar(void)unsignedchari=0;DQ=0;dat=1;unsignedchardat=0for(

3、i=8;i0;i-)DQ=1;if(DQ)dat=0x80;de1ay(4);return(dat);WriteOneChar(unsignedchardat)unsignedchari=0;forU=8;i0;i-)DQ=0;DQ=dat&OxO1de1ay(5);DQ=1;dat=1;ReadTemperature(void)unsignedchara=0;unsignedcharb=0;unsignedintt=0;f1oattt=O;Init_DS18B200;WriteOneChar(OxCC);WriteOneChar(0x44);Init_DS18B20();WriteOneCh

4、ar(OxCC);WriteOneChar(OxBE);a=ReadOneCharQ;b=ReadOneChar();t=tIa;tt=tO.0625;t=tt*10+0.5;f_temp=(tt1O+O.5)/10;return(t);unsignedcharmun_char_tab1e=zz0123456789abcdefzz);unsignedchartemp_tab1e=zzTemp:.C;voidde1ay_1ms(ucharx)ucharj;whi1e(x一)for(j=0;j125;j+)voidInit(void)TMOD=0x20;TH1=Oxfd;T11=Oxfd;SCON

5、=0x50;PCON&=0x00;TR1=1;voidsendchar(char*ch)OSWTwhi1e(*ch);main()unsignedinti=0;ucharbuff4;Init();ReadTemperature();1edsystemreset();de1ay(2);de1ay(2);1cd_char_write(i,0,temp_tab1ei)WE1A=O;for(i=0;i12;i+)I=ReadTemperature();whi1e(1)I=ReadTemperature();1cd_char_write(6,0,mun_char_tab1ei1001);IcdZchar

6、Zwrite(7,0,munchartab1e_i%100/101);1cd_char_write(9,0,mun_char_tab1ei%10);de1ay_1ms(100);sprintf(buff,zz%fzz,f_temp);sendchar(buff);上位机程序：PrivateSubCommand1C1ick()MSComm1.Settings=zz9600,N,8,1MSComm1.CommPort=Com.1istindex+1MSComm1.InBufferSize=8MSComm1.OutBufferSize=2IfMSComm1.PortOpen=TrueThenMSCo

7、mm1.PortOpen=Fa1seMSComm1.RThresho1d=4MSComm1.SThresho1d=1MSComm1.Input1en=OMSComm1.InputMode=ComInputModeTextIfMSComm1.PortOpen=Fa1seThenMSComm1.PortOpen=TrueMSComm1.InBufferCount=OEndSubPrivateSubMSComm1OnComm()DimrecAsStringSe1ectCaseMSComm1.CommEventCaseComEvReceiverec=MSComm1.InputText1.Text=recMSComm1.InBufferCount=OEndSe1ectEndSub六、实验结果分析及问题讨论