标题: 51单片机AD电压采集仿真程序 PCF8591模拟量采集 用8*8点阵翻页显示 [打印本页]
作者: huiqingm    时间: 2023-4-17 16:48
标题: 51单片机AD电压采集仿真程序 PCF8591模拟量采集 用8*8点阵翻页显示
包含程序及仿真，pcf8951驱动程序，不仅可以检测电压，还能检测光照强度以及温度，很适合小白


仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源程序如下:
  1.                               
  2. #include <reg52.h>
  3. #include <I2C.H>
  4. #define uchar unsigned char
  5. #define uint unsigned int


  8. #define  PCF8591 0x90    //PCF8591 地址

  10. unsigned char code tab[]={0xfe,0xfd,0xfb,0xf7,
  11. 0xef,0xdf,0xbf,0x7f};
  12. unsigned char code graph[11][8]={
  13. {0x0,0x18,0x24,0x24,0x24,0x24,0x24,0x18},//0
  14. {0x0,0x8,0x18,0x8,0x8,0x8,0x8,0x8},//1
  15. {0x0,0x18,0x24,0x24,0x8,0x10,0x20,0x3C},//2
  16. {0x0,0x18,0x24,0x4,0x8,0x24,0x24,0x18},//3
  17. {0x0,0x8,0x8,0x18,0x28,0x3C,0x8,0x8},//4
  18. {0x0,0x3C,0x20,0x38,0x4,0x4,0x24,0x18},//5
  19. {0x0,0x18,0x24,0x20,0x38,0x24,0x24,0x18},//6
  20. {0x0,0x3C,0x24,0x4,0x8,0x10,0x10,0x10},//7
  21. {0x0,0x18,0x24,0x24,0x18,0x24,0x24,0x18},//8
  22. {0x0,0x18,0x24,0x24,0x1C,0x4,0x24,0x18},//9
  23. {0x4C,0xD2,0x52,0x52,0x52,0x52,0x52,0xEC},//10
  24. };

  26. unsigned char count;
  27. unsigned char cnta;

  29. unsigned char AD_CHANNEL;
  30. unsigned int  D[4];

  32. void delay11(unsigned int cnt)
  33. {
  34. while(--cnt);
  35. }



  39.                  

  41. /*******************************************************************
  42. ADC发送字节[命令]数据函数               
  43. *******************************************************************/
  44. bit ISendByte(unsigned char sla,unsigned char c)
  45. {
  46.    Start_I2c();              //启动总线
  47.    SendByte(sla);            //发送器件地址
  48.    if(ack==0)return(0);
  49.    SendByte(c);              //发送数据
  50.    if(ack==0)return(0);
  51.    Stop_I2c();               //结束总线
  52.    return(1);
  53. }

  55. /*******************************************************************
  56. ADC读字节数据函数               
  57. *******************************************************************/
  58. unsigned char IRcvByte(unsigned char sla)
  59. {  unsigned char c;

  61.    Start_I2c();          //启动总线
  62.    SendByte(sla+1);      //发送器件地址
  63.    if(ack==0)return(0);
  64.    c=RcvByte();          //读取数据0

  66.    Ack_I2c(1);           //发送非就答位
  67.    Stop_I2c();           //结束总线
  68.    return(c);
  69. }

  71. //******************************************************************/
  72. main()
  73. { unsigned char jj,kk,ll,bb,cc,dd;
  74. double Data; //
  75. double V;         //转化成的电压值

  77. while(1)
  78. {  
  79.          ISendByte(PCF8591,0x40);
  80.          Data=IRcvByte(PCF8591);  //ADC0 模数转换1
  81.                  V=Data*5/256;
  82.                  D[0]=V*100;   

  84.         for(bb=0;bb<10;bb++){
  85.                 for(jj=0;jj<8;jj++)   //共要扫描八行  
  86.                 {
  87.                 P1=graph[D[0]/100][jj];   //送字模数据
  88.                         P2=tab[jj];
  89.                     delay11(200);   //选中第一行
  90.                         P2=0xff;
  91.                         delay11(500);
  92.               }
  93.            delay11(500);}

  95.                     for(bb=0;bb<10;bb++){
  96.                 for(jj=0;jj<8;jj++)   //共要扫描八行  
  97.                 {
  98.                 P1=0x06;
  99.                         P2=0x7f;
  100.                         delay11(500);
  101.                         P2=0xbf;
  102.                         delay11(500);
  103.               }
  104.            delay11(500);}



  108.                  for(cc=0;cc<10;cc++){
  109.                 for(kk=0;kk<8;kk++)   //共要扫描八行  
  110.                 {
  111.                 P1=graph[D[0]%100/10][kk];   //送字模数据
  112.                         P2=tab[kk];
  113.                     delay11(200);   //选中第一行
  114.                         P2=0xff;
  115.                         delay11(500);
  116.               }
  117.            delay11(500);}  

  119.                 for(dd=0;dd<10;dd++)
  120.                 {
  121.                  for(ll=0;ll<8;ll++)   //共要扫描八行  
  122.                 {
  123.                 P1=graph[D[0]%10][ll];   //送字模数据
  124.                         P2=tab[ll];
  125.                     delay11(200);   //选中第一行
  126.                         P2=0xff;
  127.                         delay11(500);
  128.               }
  129.            delay11(500);}
  130.    

  132.    }


  135. }  
复制代码
注意现在用的8*8一次只能显示一个字符 所以需要翻页显示 不太直观  大家可以改为数码管或者 多点阵显示
Keil代码与Proteus8.13仿真下载:
仿真程序.7z (79.42 KB, 下载次数: 23)





欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1