找回密码
 立即注册

QQ登录

只需一步,快速开始

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

数字电压表0809

[复制链接]
跳转到指定楼层
楼主
多路数字电压表


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

  5. sbit ale=P2^6;
  6. sbit start=P2^7;
  7. sbit eoc=P3^0;
  8. sbit oe=P3^1;

  9. sbit adda=P2^0;
  10. sbit addb=P2^1;
  11. sbit addc=P2^2;

  12. uchar add;
  13. uint voltdata,realvolt;

  14. void addselect()
  15. {
  16. switch(add)
  17. {
  18. case 0:adda=0;addb=0;addc=0;break;
  19. case 1:adda=1;addb=0;addc=1;break;
  20. case 2:adda=0;addb=1;addc=0;break;
  21. default:break;
  22. }
  23. }

  24. uint adtrans()
  25. {
  26.     addselect();
  27.         ale=1;
  28.         ale=0;
  29.         start=1;                         //启动AD转换。
  30.         start=0;
  31.         while(eoc==0);                 //等待转换结束。
  32.         oe=1;
  33.         voltdata=P1;         //出入转换结果。
  34.         delay(1);
  35.         oe=0;
  36.         voltdata=(100*voltdata)/51;                   //处理运算结果。
  37.         return voltdata;
  38. }

  39. void disvolt()
  40. {
  41. uchar qian,bai,shi,ge;
  42. switch(add)
  43. {
  44. case 0:realvolt=voltdata;writelcd_cmd(0x80+15);writelcd_dat('0');writelcd_cmd(0xc0+4);writelcd_dat('0');writelcd_dat('5');break;
  45. case 1:realvolt=voltdata*2;writelcd_cmd(0x80+15);writelcd_dat('1');writelcd_cmd(0xc0+4);writelcd_dat('1');writelcd_dat('0');break;
  46. case 2:realvolt=voltdata*10;writelcd_cmd(0x80+15);writelcd_dat('2');writelcd_cmd(0xc0+4);writelcd_dat('5');writelcd_dat('0');break;
  47. default:break;
  48. }
  49. qian=realvolt/1000;
  50. bai=realvolt%1000/100;
  51. shi=realvolt%100/10;
  52. ge=realvolt%10;
  53. writelcd_cmd(0xc0+9);
  54. writelcd_dat(qian+0x30);
  55. writelcd_dat(bai+0x30);
  56. writelcd_cmd(0xc0+12);
  57. writelcd_dat(shi+0x30);
  58. writelcd_dat(ge+0x30);
  59. }

  60. void init()
  61. {
  62. EA=1;
  63. EX0=1;
  64. IT0=1;
  65. add=0;
  66. lcd_init();
  67. }

  68. void main()
  69. {
  70.         init();
  71. ……………………

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

所有资料51hei提供下载:
数字电压表.rar (102.52 KB, 下载次数: 52)


评分

参与人数 1黑币 +1 收起 理由
zam + 1 很给力!

查看全部评分

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

使用道具 举报

沙发
ID:232023 发表于 2017-9-9 10:23 | 只看该作者
好东西正是我需要的
回复

使用道具 举报

板凳
ID:232023 发表于 2017-9-9 13:24 | 只看该作者
兄弟加下你微信
回复

使用道具 举报

地板
ID:259533 发表于 2017-12-11 09:17 | 只看该作者
兄弟 你这没有源程序啊  只有电路图
回复

使用道具 举报

5#
ID:318191 发表于 2018-5-7 02:56 | 只看该作者
看起来不错~~~!!!支持
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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