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

实验报告(理工类)开课学院及实验室：机械工程学院实验时间：年月日学生姓名学号成绩学生所在学院年级/专业/班12级/自动化/西华理1课程名称测控仪器设计课程代码实验项目名称PC机与单片机串行通讯实验(3)项目代码指导教师项目学分一、实验目的二、实验原理三、实验设备、仪器及材料四、实验步骤（按照实际操作过程）五、实验过程记录(数据'图表、计算等)读取DS18B20温度，通过1CD1602显示出来，并发送给上位机#inc1ude<reg52.h>#inc1ude<intrins.h>#inc1ude<stdio.h>#defineuintUnSignedintWdefineucharunsignedcharWdefineNop()nop()dddQccceD1±1±11ni1111fiiiibbbbdSsss#=P22;._rs_port=P35;_rw_port=P3八6;-eZport=P34;TcddataportPOf1oatf_temp;voidde1ay1(void)intk;for(k=0;k<1000;k+);void1cd_de1ay(ucharms)ucharj;whi1e(ms一一)(for(=0;j<250;j+)18X ;&0t r O Pao t-t a rd111 O-t-pcdorPPPa1 P -t(- Swna n r r ed e e -T- IQddIQid Ccc Ch Cr-1IIr-I Wvoidvoidvoid1cd_command_write(ucharcommand)1cd_busy_wait();1cdZrs_port=0;1cd_rw_port=0;1cd_en_port=0;Icddataport=command;1cd_en_port=1;1cd_en_port=0;1cd_system_reset()Icdde1ay(20);1cd_commandwrite(0x38);Icdde1ay(100);Icdcommandwrite(0x38);1cd_de1ay(50);1cdZcommand_write(0x38);Icdde1ay(10);1cd_command_write(0x08);IcdZcommandZwrite(OxO1);ICd_commandWrite,0x06);1cd_commandZwrite(OxOc);1cd_char_write(ucharx_pos,y_pos,1eddat)7i710 O ;p-(×fl Owt= 0 0)8 T X Xl Xd a t Oo = OnWrS OS - o +-S y Ort Ort O-OrtrtOa -0(-( m y P P P a P P S - -t - -cobursrwendaenenB(Pdddddddd - -CcCCCCCCvl Xr-1Hr-Ir-1111-Hr-11-Ivoidde1ay(unsignedinti)whi1e(i一一);_DS18B20(void)Initr haC 7 7 7 )04 - 7 00 Too >1±(2v v v > v i - a - a - aQ anQ eQ eQ e - e UDdDdDd XdReadOneChar(void)unsignedchari=0;DQ=0;dat>>=1;unsignedchardat=0for(i=8;i>0;i-)DQ=1;if(DQ)dat=0x80;de1ay(4);return(dat);WriteOneChar(unsignedchardat)unsignedchari=0;forU=8;i>0;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();WriteOneChar(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;j<125;j+)voidInit(void)TMOD=0x20;TH1=Oxfd;T11=Oxfd;SCON=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;i<12;i+)I=ReadTemperature();whi1e(1)I=ReadTemperature();1cd_char_write(6,0,mun_char_tab1ei1001);IcdZcharZwrite(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=TrueThenMSComm1.PortOpen=Fa1seMSComm1.RThresho1d=4MSComm1.SThresho1d=1MSComm1.Input1en=OMSComm1.InputMode=ComInputModeTextIfMSComm1.PortOpen=Fa1seThenMSComm1.PortOpen=TrueMSComm1.InBufferCount=OEndSubPrivateSubMSComm1OnComm()DimrecAsStringSe1ectCaseMSComm1.CommEventCaseComEvReceiverec=MSComm1.InputText1.Text=recMSComm1.InBufferCount=OEndSe1ectEndSub六、实验结果分析及问题讨论