pic16f877a的AD实验学习
一、主函数
- //采集AD值
- #include <pic.h>
- #include "ad.h"
- #include "usart.h"
- __CONFIG(0xFF32);
- const uchar disp[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,
- 0x07,0x7f,0x6f};
- //延时函数
- void delayms(uint x)
- {
- uint j,k;
- for(j=x;j>0;j--)
- for(k=110;k>0;k--);
- }
- //显示4位,低位数码管显示不正常
- void display(uint x)
- {
- PORTD= disp[x/1000]|0x80;
- PORTA= 0x10;
- delayms(2);
- PORTD= disp[x/100%10];
- PORTA= 0x08;
- delayms(4);
- PORTD= disp[x/10%10];
- PORTA= 0x04;
- delayms(2);
- PORTD= disp[x%10];
- PORTA= 0x02;
- delayms(2);
- }
- //初始化IO
- void init()
- {
- TRISA = 0x01; //RA0 input mode
- TRISC = 0xff; //RC output mode
- TRISD = 0;
- PORTC = 0x01;
- ADCON0 = 0x41; //ADCS1:ADCS0=01,AN0,,A/D On
- ADCON1 = 0x8E; //right justified,ADCS2=0,1110
- delayms(10);
- }
- //获取AD值
- uint getad()
- {
- uint adval;
- float advalf;
- GO = 1;
- while(GO);
- adval = ADRESH;
- adval = adval<<8|ADRESL;
- advalf = adval/1023.0*5.0; //转换成电压
- adval = (uint)(advalf*1000); //转换成4位整型
- return (adval);
- }
- void main()
- {
- uint i = 0;
- uint temp;
- init();
- usart_init();
- while(1)
- {
- temp = getad();
- display(temp);
- if(i == 100)
- {
- usart_tx(temp>>8);
- usart_tx(temp);
- i=0;
- }
- delayms(5);
- i++;
- }
- }
二、usart函数
- #include <pic.h>
- #include "usart.h"
- //串口初始化
- void usart_init(void)
- {
- SPBRG = 0xC; //波特率19200
- TXSTA = 0x24; //开启发送,高速模式
- RCSTA = 0X90; //使能TXRX引脚,接收到CREN直到被清零
- RCIE = 0X1; //使能接受中断
- GIE = 0X1; //开启总中断
- PEIE = 0X1; //开启串口中断
- }
- void interrupt usart(void)
- {
- if(RCIE && RCIF)
- {
- TXREG = RCREG; //返回接收的数据
- }
- }
- void usart_tx(unsigned char date)
- {
- TXREG = date;
- while(TRMT!=1);
- }
pic16f877a的AD实验学习的更多相关文章
- pic16f877a的PWM实验学习
遇到的问题,编译时找不到TRISC.一开始以为头文件中没有定义,发现定义了. 所以是自己创建工程的时候,设备类型选错了. #include <pic.h> __CONFIG(0xFF32) ...
- Sharepoint2013 AD组用户不同步
背景: SP2013列表库使用AD安全组授权访问,向AD安全组添加一个用户A,在Sharepoint AD同步(增量和完全)后,用户A仍然无法访问列表库:原因: 参考:安全令牌上的缓存 SP2013 ...
- freeradius整合AD域作anyconncet认证服务器
一.服务器要求 Radius服务器:centos6.6.hostname.selinux disabled.stop iptables AD域服务器:Windows Server 2008 R2 E ...
- 讲座:Modeling User Engagement for Ad and Search
讲座:http://bdai.ruc.edu.cn/?p=118 Modeling User Engagement for Ad and Search ppt 链接: Dr. Ke(Adam) Zho ...
- Azure AD Connect 手动同步
我们目前采用工具Azure AD Connect 目录同步工具将本地域控制器的用户信息同步至office365和Azure 在之前目录同步工具中使用Windows 任务计划程序或单独的 Windows ...
- SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问
delphi ado 跨数据库访问 语句如下 ' and db = '帐套1' 报错内容是:SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATE ...
- 如何查看/统计当前AD域控制器的活动用户?
最近公司想知道某台AD域控制器上当前连接了多少活动用户? 此前个人只知道以下不是非常完善且统计起来比较麻烦的方法: 方法1:查看共享会话数.(不完全准确) 方法2:查看当前的DNS记录.(这种方法统计 ...
- AD域-让共享目录只显示用户有权限访问的文件夹
问题: 在AD域中,我们一般都会用到共享,如果有很多部门,我们可能还会按部门.职位配置权限.比如CSD,IT,PA等,但文件夹一多,用户看着就头大,而且用户没权限访问的文件夹误点击进去还会提示无权限访 ...
- AD域的安装(在Windows Server 2003中安装Active Directory)
在Active Directory中提供了一组服务器作为身份验证服务器或登录服务器,这类服务器被称作域控制器(Domain Controller,简称DC).建立一个AD域的过程实际就是在一台运行Wi ...
随机推荐
- 知道一个数组某个index对应的值 不知道下标的情况下删除该值
for (index,item) in Arr.enumerated() { if item == item { Arr.remove(at: index) } } 更好的方法是用数组的filter尾 ...
- Java Web学习总结(9)学习总结-JSTL
一,JSTL概述 JSTL(JSP Standard Tag Library),JSP标准标签库,可以嵌入在jsp页面中使用标签的形式完成业务逻辑等功能.jstl出现的目的同el一样也是要代替jsp页 ...
- codeforces 848A - From Y to Y(构造)
原题链接:http://codeforces.com/problemset/problem/848/A 题意:让我们构造一个字符串.这里有一种操作:取走这个字符串的若干部分,分成两部分,然后将这两部分 ...
- mysql8.0.15出错
昨天装了一个wireshark,一个fiddler,导致晚上项目启动一直报init database出错,卸载了两个软件,还是不行,后来一看mysql服务停止了,但启动总是失败.按照网上的方法好了. ...
- LOJ 6436 「PKUSC2018」神仙的游戏——思路+卷积
题目:https://loj.ac/problem/6436 看题解才会. 有长为 i 的 border ,就是有长为 n-i 的循环节. 考虑如果 x 位置上是 0 . y 位置上是 1 ,那么长度 ...
- react教程 — redux
一.概念: http://caibaojian.com/react/redux-basic.html 或 https://www.cnblogs.com/maopixin ...
- 听说你懂个J?——前端发展闲聊
刚好周末和朋友聊起"前端从受鄙视到变得重要"这个话题,感慨前端这四年来的发展,遂有本文. 1. 前情提要 毋庸讳言,在我刚工作的时候,前端是还是一个不受重视的岗位.切图狗,写网页的 ...
- AGC037C Numbers on a Circle
题目大意 给你一个序列a和序列b 每次操作是a[i]+=a[i-1]+a[i+1] 问a经过最少几次操作可以得到b 分析 用堆维护a 每次取出最大的 撤销操作直到不能撤销 将新数放入堆 不断维护即可 ...
- STM32几个IO的工作模式
浮空,顾名思义就是浮在空中,上面用绳子一拉就上去了,下面用绳子一拉就沉下去了. 开漏,就等于输出口接了个NPN三极管,并且只接了e,b. c极 是开路的,你可以接一个电阻到3.3V,也可以接一个电阻 ...
- JavaScript-Tool-截取头像:ShearPhoto
ylbtech-JavaScript-Tool-截取头像:ShearPhoto ShearPhoto 2.0 发布,支持HTML5本地截取头像,支持美图秀秀特效,支持几十M数码相片压缩截取 1.返回顶 ...