欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 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://m.raoushi.com/bbs/) Powered by Discuz! X3.1