找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2054|回复: 1
打印 上一主题 下一主题
收起左侧

51单片机制作65k频率计程序

[复制链接]
跳转到指定楼层
楼主
ID:218318 发表于 2017-7-9 18:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
频率计   最高测56kHZ

单片机源程序如下:
  1. #include<reg52.h>
  2. #include<math.h>

  3. #define uchar unsigned char
  4. #define uint unsigned int
  5.        
  6. sbit lcdrs=P1^0;
  7. sbit lcdrw=P1^1;
  8. sbit lcden=P1^2;
  9. //sbit lcdpsb=P1^3;

  10. uchar  table[]={"F=HZ.KTUS"};
  11. uchar        table1[]={"0123456789"};
  12. long pv=0,T=0,fh=0,fl=0;
  13. double ts=0;

  14. void delay(uint x)
  15. {
  16.         uint i,j;
  17.         for(i=x;i>0;i--)
  18.                 for(j=110;j>0;j--);
  19. }

  20. void lcdwrite_com(uchar com)
  21. {
  22.         lcdrs=0;
  23.         lcdrw=0;
  24.         lcden=0;
  25.         P0=com;       
  26.         delay(5);
  27.         lcden=1;
  28.         delay(5);
  29.         lcden=0;
  30.        
  31. }

  32. void lcdwrite_date(uchar date)
  33. {
  34.         lcdrs=1;
  35.         lcdrw=0;
  36.         lcden=0;
  37.         P0=date;
  38.         delay(5);
  39.         lcden=1;
  40.         delay(5);
  41.         lcden=0;
  42. }

  43. void lcdinit()
  44. {
  45. //        lcdpsb=1;
  46.         lcdwrite_com(0x38);
  47.         delay(5);
  48.         lcdwrite_com(0x0c);
  49.         delay(5);
  50.         lcdwrite_com(0x06);
  51.         delay(5);
  52.         lcdwrite_com(0x01);       
  53.         delay(5);
  54. }

  55. void Exint() interrupt 0//外部中断
  56. {
  57.         pv++;
  58.        
  59. }

  60. void Etint() interrupt 1//定时器中断
  61. {
  62.         uchar i;
  63.         TH0=0x63;
  64.         TL0=0xc0;
  65.         i++;
  66.         if(i==50)
  67.         {
  68.                 f=pv;
  69.                 pv=0;
  70.                 i=0;
  71.         }
  72.        
  73.        
  74. }

  75. void Etinit()//中断初始化
  76. {
  77.         TMOD=0x01;
  78.         TH0=0x63;
  79.         TL0=0xc0;
  80.         EA=1;
  81.         ET0=1;
  82.         EX0=1;
  83.         IT0=1;
  84.         TR0=1;
  85. }

  86. void Display(uint x,uint y)//显示
  87. {
  88.         uchar i;
  89.         lcdwrite_com(0x80);
  90.         for(i=0;i<2;i++)
  91.         {
  92.                 lcdwrite_date(table[i]);
  93.         }
  94.         lcdwrite_com(0x80+2);
  95.         lcdwrite_date(table1[x/1000000]);
  96.         lcdwrite_com(0x80+3);
  97.         lcdwrite_date(table1[x%1000000/100000]);
  98.         lcdwrite_com(0x80+4);
  99.         lcdwrite_date(table1[x%100000/10000]);
  100.         lcdwrite_com(0x80+5);
  101.         lcdwrite_date(table1[x%10000/1000]);
  102.         lcdwrite_com(0x80+6);
  103.         lcdwrite_date(table1[x%1000/100]);
  104.         lcdwrite_com(0x80+7);
  105.         lcdwrite_date(table1[x%100/10]);
  106.         lcdwrite_com(0x80+8);
  107.         lcdwrite_date(table1[x%10]);
  108.        
  109.         lcdwrite_com(0x80+9);
  110.         for(i=2;i<4;i++)
  111.         {
  112.                 lcdwrite_date(table[i]);
  113.         }
  114.        
  115.        
  116.         lcdwrite_com(0x80+0x40);
  117.         lcdwrite_date(table[6]);
  118.         lcdwrite_com(0x80+0x40+1);
  119.         lcdwrite_date(table[1]);

  120.        
  121.         lcdwrite_com(0x80+0x40+2);
  122.         lcdwrite_date(table1[y/100000]);
  123.         lcdwrite_com(0x80+0x40+3);
  124.         lcdwrite_date(table1[y%100000/10000]);
  125.         lcdwrite_com(0x80+0x40+4);
  126.         lcdwrite_date(table1[y%10000/1000]);
  127.         lcdwrite_com(0x80+0x40+5);
  128.         lcdwrite_date(table1[y%1000/100]);
  129.         lcdwrite_com(0x80+0x40+6);
  130.         lcdwrite_date(table1[y%100/10]);
  131.         lcdwrite_com(0x80+0x40+7);
  132.         lcdwrite_date(table1[y%10]);
  133.        
  134.         lcdwrite_com(0x80+0x40+8);
  135.         lcdwrite_date(table[7]);
  136. ……………………

  137. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
频率计 (2).zip (70.78 KB, 下载次数: 14)


评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:201936 发表于 2017-7-10 18:18 | 只看该作者
谢谢分享,下载先
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表