历史上的今天
返回首页

历史上的今天

今天是:2025年01月16日(星期四)

正在发生

2020年01月16日 | PIC单片机如何实现单按键输入LED灯点亮

2020-01-16 来源:elecfans

IO输出和输入

/*

按键连接RB1,点亮LED,PORTA RA0控制输出。按一次点亮,再按一次熄灭,如此循环。

RB外接上拉电阻。

PIC单片机如何实现单按键输入LED灯点亮

*/

#include

#define uchar unsigned char

#define uint unsigned int

// CONFIG

#pragma config FOSC = HS //

#pragma config WDTE = OFF // Watchdog Timer Enable bit (WDT disabled)

#pragma config PWRTE = OFF // Power-up TImer Enable bit (PWRT disabled)

#pragma config BOREN = ON // Brown-out Reset Enable bit (BOR enabled)

#pragma config LVP = ON // Low-Voltage (Single-Supply) In-Circuit Serial Programming Enable bit (RB3/PGM pin has PGM funcTIon; low-voltage programming enabled)

#pragma config CPD = OFF // Data EEPROM Memory Code ProtecTIon bit (Data EEPROM code protecTIon off)

#pragma config WRT = OFF // Flash Program Memory Write Enable bits (Write protection off; all program memory may be written to by EECON control)

#pragma config CP = OFF // Flash Program Memory Code Protection bit (Code protection off)

uchar count;

void delay(uint x)

{

uint y,z;

for(y=x;y》0;y--)

for(z=25;z》0;z--);

}

void Init_GPIO()

{

TRISA = 0X00; // RA0 output direction

PORTA=0X00;

TRISB = 0x02; // RB1 input

PORTB = 0x00;

}

void Keyscan()

{

//temp = PORTB&0x02;

if(RB1==0)

{

delay(200); // delay time 根据机械按键的抖动情况调整,

if(RB1==0)

{

count++;

}

}

}

void main(void)

{

count = 0;

Init_GPIO();

while(1)

{

Keyscan();

if((count%2)==1)

{

PORTA=0x01;

}

else

PORTA = 0x00;

}

}


推荐阅读

史海拾趣

Hamamatsu公司的发展小趣事

Habia Cable公司电子行业发展的五个故事

故事一:聚四氟乙烯的先驱

Habia Cable的故事始于1941年,由Carl Herbert Jacobsson在瑞典斯德哥尔摩创立。起初,公司是一家聚合物制造商,专注于胶木部件的生产。然而,Jacobsson的远见卓识使Habia成为欧洲首批使用聚四氟乙烯(PTFE)的公司之一,并在1946年在美国推出了第一款商业聚四氟乙烯产品。这一创新不仅为Habia奠定了技术基础,也使其迅速在电线电缆领域崭露头角。随着时间的推移,Habia成为最早制造聚四氟乙烯电线和电缆的公司之一,这一技术突破为公司后续的发展奠定了坚实的基础。

故事二:国际扩张的征程

自1957年Habia制造其第一条电缆以来,公司便踏上了国际扩张的征途。1969年,Habia在荷兰布雷达开设了其第一家国际销售办公室,这标志着公司正式进入全球市场。随后,Habia在70年代至80年代经历了迅速的国际扩张,工厂和销售办事处相继在法国、德国、英国、西班牙、比利时和美国等地成立或收购。这一时期的快速扩展不仅增强了Habia在全球范围内的市场竞争力,也为其后续的发展积累了宝贵的经验和资源。

故事三:技术创新的引领

Habia Cable一直以来都是技术创新的引领者。在2000年,公司收购了德国Norderstedt的高温电线和电缆制造商Isotec Kabel GmbH,这一举措使德国成为Habia最大的市场,并为其在欧洲的进一步发展提供了强有力的支持。此外,Habia Cable还不断投资于新技术和新设备的研发,以满足市场对高性能电缆和线束的需求。例如,在2016年,Habia Cable投资独特设备制造含氟聚合物电线和电缆的长截面和大截面产品,以满足离岸部门等苛刻应用的需求。

故事四:亚洲市场的布局

随着全球化进程的加速,Habia Cable也开始将目光投向亚洲市场。2000年,Habia Cable在中国常州设立工厂,生产同轴电缆,这标志着公司正式进入亚洲市场。此后,Habia在亚洲的扩张步伐不断加快,不仅在中国建立了多个生产基地,还在韩国、香港和日本等地设立了销售办事处。这些举措不仅提升了Habia在亚洲市场的知名度,也为其在全球范围内的业务增长提供了新的动力。

故事五:定制解决方案的提供

Habia Cable一直致力于为客户提供定制化的解决方案。公司拥有一支知识渊博的销售团队和设计工程师团队,他们能够与客户紧密合作,根据客户的独特需求开发满足其要求的电缆和线束产品。Habia Cable的制造灵活性、低订单数量要求和短交货周期等特点使其在市场上具有很强的竞争力。无论是电信、核电、国防还是海洋和工业领域,Habia Cable都能为客户提供高质量、高性能的电缆和线束产品,满足其苛刻的应用需求。

Fractus公司的发展小趣事

随着技术的不断成熟和产品的市场推广,Fractus逐渐获得了业界的广泛认可。公司在多个国际展会上展示了其创新的天线技术,并赢得了多项重要奖项,包括欧洲联盟IST奖项的特等奖等。这些荣誉不仅提升了Fractus的品牌知名度,也进一步巩固了其在天线技术领域的领先地位。

EMS GmbH公司的发展小趣事

作为欧洲最领先的生产商之一,EMS GmbH公司与各大国际整车厂建立了长期稳定的合作关系。这些合作不仅为公司带来了稳定的订单和收入来源,还使EMS GmbH能够深入了解市场需求和技术趋势,从而不断优化产品和服务。通过与国际整车厂的紧密合作,EMS GmbH公司在汽车转换器注塑件领域赢得了良好的口碑和声誉。

GE Power Electronics Inc公司的发展小趣事
在教育产品中引入声控技术,可以设计出声控故事机、声控学习机等,帮助儿童在玩耍中学习知识。
CMOSIS公司的发展小趣事

近年来,随着人工智能、物联网等技术的快速发展,CMOS图像传感器行业也面临着深刻的变革。CMOSIS公司敏锐地把握住了这一趋势,积极调整战略方向,加大了在人工智能算法、低功耗设计等方面的研发投入。通过不断创新和优化产品,公司成功应对了行业变革带来的挑战,保持了稳健的发展态势。

Crouzet公司的发展小趣事

经过多年的发展,Crouzet已经成为全球知名的自动化产品供应商之一。公司在全球拥有20家工厂和5家研发中心,分布在欧洲、亚洲、北美洲等地区。同时,Crouzet还在全球17个国家设有销售网络,为全球客户提供优质的产品和服务。展望未来,Crouzet将继续秉承创新、卓越的理念,不断推动自动化技术的发展,为全球客户提供更加高效、可靠的自动化解决方案。

通过以上五个故事,我们可以看到Crouzet公司在电子行业发展的历程中,始终保持着对技术创新和市场需求的敏锐洞察,通过不断的产品创新和市场拓展,逐步发展成为全球知名的自动化产品供应商之一。

问答坊 | AI 解惑

关于向量转换工具!

大家好:我想了解一下有没有新的向量转换工具,类似于VTRAN ,Testinsight的,把仿真向量转换成ATE设备适合的向量格式。给我推荐一下吧…

查看全部问答>

cadence原理图设计详解

cadence原理图设计详解…

查看全部问答>

关于Source Insight

使用该软件,如何修改文本中的字体大小哈~…

查看全部问答>

SSCOM32发送的文件为什么不能大于512K

最近用SSCOM32给ARM发送一个1M的BIN文件,结果每次只能发送到0X80000(512K)的时候就停止了,如果文件小于512K就正常,也就是说这个软件只能发送512K以下的文件,不知道有没有能发送更大文件的软件。…

查看全部问答>

WinCE自带的简单数据库排序字段问题

就是用CeCreateDatabaseEx2 / CeOpenDatabaseEx2.....等API创建打开的简单数据库 现在的情况是:创建、打开、添加、删除、关闭等,统统OK 。 我的问题出现再排序字段上:   我的一条记录有5个字段,其中有两个字段(都是字符串类型) ...…

查看全部问答>

mini2440 如何输出串口调试信息?

我用的友善的mini2440开发板,这个板子默认不输出调试信息,该怎么样才可以输出? 谢谢。 …

查看全部问答>

lattice 1016

怎么大家都不用LATTICE公司的芯片的吗?怎么相关的帖子这样稀少呢?…

查看全部问答>

所有人都进来看看(我是新人)

大家好,我是一个爱好单片机的初学者。 这几天我一直在关注这个论坛,真的不错这个论坛,   学习单片机是因为我看到汽车的底盘灯很好看,自己想做一个,然后想让他呈流水状,就是流水灯,跑马灯,开始以为就是像汽车的转向器一样,结果上网 ...…

查看全部问答>

LaunchPad Flash不够用

前段时间,同学让用LaunchPad 帮做个毕设,好不容易克服了管脚不够用(毕设需要1602做显示,Sht11采集温湿度,还要控制电机,可只有P1   8个口......) 现在遇到一个很现实的问题就是,程序太大了,下进去不够用了呐,哪个高人遇到过, ...…

查看全部问答>

【视频】TI制胜解决方案(二):高输入电压、低噪音电源解决方案

好东西陆续有来。 今天给大家介绍TI制胜解决方案——高输入电压、低噪音电源解决方案,该方案主要面向医疗、车载以及工业等对噪音敏感的领域。 欢迎大家评价并关注我的更新与分享哟!…

查看全部问答>