• 大小: 45.67MB
    文件类型: .zip
    金币: 1
    下载: 0 次
    发布日期: 2023-07-24
  • 语言: 其他
  • 标签: NRF24L01  

资源简介

自己做的课程设计,涉及无线模块24L01,以及温湿度传感器。资料包含程序、原理图。已经做出实物并调试成功。

资源截图

代码片段和文件信息

    #include 
#include 
#define uint unsigned int
#define uchar unsigned char
#define delay4us() {_nop_();_nop_();_nop_();_nop_();}
sbit RS = P2^5;
sbit RW = P2^6;
sbit E  = P2^7;
sbit CS  = P3^7;

sbit CLK = P3^5;
sbit DIO = P3^6;
uchar Display_Buffer[] = “0.00V“;
uchar code Line1[] = “Current Voltage:“;
void DelayMS(uint ms)
{
uchar i;
while(ms--)
{
 for(i=0;i<120;i++);
}
}
bit LCD_Busy_Check()
{
bit result;
RS = 0;   //RS=0????RS=1????
RW = 1;    //RW=0???RW=1???
E  = 1;    //E?????????
delay4us();
result = (bit)(P0&0x80);//???????1???0??
E  = 0;
return result;
}
void LCD_Write_Command(uchar cmd)
{
while(LCD_Busy_Check());   //???
RS = 0;  //??
RW = 0;   //???
E  = 0;    //
_nop_();
_nop_();
P0 = cmd;
delay4us();
E = 1;
delay4us();
E = 0;
}
void Set_Disp_Pos(uchar pos)
{
LCD_Write_Command(pos | 0x80);
}
void LCD_Write_Data(uchar dat)
{
while(LCD_Busy_Check());
RS = 1;  //??
RW = 0; //?
E  = 0;  //??????????????????????
P0 = dat;
delay4us();
E = 1;
delay4us();
E = 0;
}
void LCD_Initialise()
{
LCD_Write_Command(0x38); DelayMS(1);//16*25*7????
LCD_Write_Command(0x0c); DelayMS(1); // ???:???????????????
LCD_Write_Command(0x06); DelayMS(1); //  ???:?1???AC????(?0???AC????):?1????????0????????
LCD_Write_Command(0x01); DelayMS(1);//??
}
uchar Get_AD_Result()
{
uchar idat1=0dat2=0;
CS  = 0;
CLK = 0;DIO = 1; _nop_(); _nop_();
CLK = 1; _nop_(); _nop_();
CLK = 0;DIO = 0; _nop_(); _nop_();
CLK = 1; _nop_(); _nop_();
CLK = 0;DIO = 0; _nop_(); _nop_();
CLK = 1; _nop_(); _nop_();
CLK = 0; _nop_(); _nop_();
for(i=0;i<8;i++)


 CLK = 1; _nop_(); _nop_();
CLK = 0; _nop_(); _nop_(); 
dat1 = dat1 << 1 | (uchar)(DIO); 

}
for(i=0;i<8;i++)

dat2 = dat2 |((uchar)(DIO)< CLK = 1; _nop_(); _nop_();
CLK = 0; _nop_(); _nop_();

}
CS = 1;
return ((dat1 == dat2) ? dat1:0);
}         
void main()
{
uchar i;
uint d;
LCD_Initialise();
DelayMS(10);
while(1)
{
 d = Get_AD_Result()*500.0/255;
Display_Buffer[0]=d/100+‘0‘;
Display_Buffer[2]=d/10%10+‘0‘;
Display_Buffer[3]=d%10+‘0‘;
Set_Disp_Pos(0x01);
i = 0;
while(Line1[i]!=‘\0‘)
{
LCD_Write_Data(Line1[i]);
 i++;
 DelayMS(10);
}
Set_Disp_Pos(0x46);
i = 0;
while(Display_Buffer[i]!=‘\0‘)
{
LCD_Write_Data(Display_Buffer[i]);
 i++;
 DelayMS(10); 
}
}
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-01-06 12:26  无线测温系统 2017\
     目录           0  2018-01-06 12:23  无线测温系统 2017\0832cx\
     文件      137646  2017-11-30 20:19  无线测温系统 2017\0832cx\0832.uvgui.Administrator
     文件        5358  2017-11-30 20:19  无线测温系统 2017\0832cx\0832.uvopt
     文件       13958  2017-11-30 20:19  无线测温系统 2017\0832cx\0832.uvproj
     目录           0  2018-01-06 12:23  无线测温系统 2017\0832cx\Listings\
     文件       12700  2017-11-30 17:56  无线测温系统 2017\0832cx\Listings\0832.m51
     文件       14145  2017-11-30 17:56  无线测温系统 2017\0832cx\Listings\STARTUP.lst
     文件        5887  2017-11-30 17:56  无线测温系统 2017\0832cx\Listings\mian.lst
     目录           0  2018-01-06 12:23  无线测温系统 2017\0832cx\objects\
     文件        9976  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\0832
     文件         996  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\0832.build_log.htm
     文件        3789  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\0832.hex
     文件          99  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\0832.lnp
     文件         819  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\STARTUP.obj
     文件        9154  2017-11-30 17:56  无线测温系统 2017\0832cx\objects\mian.obj
     文件        6376  2009-05-07 14:37  无线测温系统 2017\0832cx\STARTUP.A51
     文件        2709  2017-11-30 17:56  无线测温系统 2017\0832cx\mian.c
     目录           0  2018-01-06 12:24  无线测温系统 2017\发送\
     目录           0  2018-01-06 12:24  无线测温系统 2017\发送\Bin\
     文件        6279  2017-12-07 21:57  无线测温系统 2017\发送\Bin\DHT11.obj
     文件        3005  2017-12-07 21:57  无线测温系统 2017\发送\Bin\adc0832.obj
     文件        6186  2017-12-07 21:57  无线测温系统 2017\发送\Bin\lcd1602.obj
     文件       11796  2017-12-07 21:57  无线测温系统 2017\发送\Bin\main.obj
     文件        9604  2017-12-07 21:57  无线测温系统 2017\发送\Bin\nRF24L01.obj
     文件       34339  2017-12-07 21:57  无线测温系统 2017\发送\Bin\nRF24L01Demo
     文件        1244  2017-12-07 21:57  无线测温系统 2017\发送\Bin\nRF24L01Demo.build_log.htm
     文件        7765  2017-12-07 21:57  无线测温系统 2017\发送\Bin\nRF24L01Demo.hex
     文件         159  2017-12-07 21:57  无线测温系统 2017\发送\Bin\nRF24L01Demo.lnp
     文件        1849  2017-12-08 22:41  无线测温系统 2017\发送\DHT11.C
     文件         499  2017-10-28 11:44  无线测温系统 2017\发送\DHT11.H
............此处省略362个文件信息

评论

共有 条评论