急求一个单片程序
发布网友
发布时间：2022-04-24 14:01
共3个回答
热心网友
时间：2023-10-15 12:48
sbit K1=P1^0;
sbit K2=P1^1;
sbit K3=P1^2;
sbit K4=P1^3;
sbit L1=P1^4;
sbit L2=P1^5;
sbit L3=P1^6;
sbit L4=P1^7;
sbit BEEP=P2^0;
bit FLAG_beep;
void delay_10ms(void);
void delay_1s(void);
void main(void)
{
while(1)
{
if(K1==0)
{
delay_10ms();
if(K1==0)
{
L1=~L1;
FLAG_beep=~FLAG_beep;
}
}
if(K2==0)
{
delay_10ms();
if(K2==0)
{
L2=~L2;
FLAG_beep=~FLAG_beep;
}
}
if(K3==0)
{
delay_10ms();
if(K3==0)
{
L3=~L3;
FLAG_beep=~FLAG_beep;
}
}
if(K4==0)
{
delay_10ms();
if(K4==0)
{
L4=~L4;
FLAG_beep=~FLAG_beep;
}
}
if(FLAG_beep==1)
{
BEEP=1;
delay_1s();
BEEP=0;
}
}
}
void delay_10ms()
{;}
void delay_1s()
{;}
热心网友
时间：2023-10-15 12:48
/* 按键状态显示试验 *
/* *
/* 连接方法：连接JP10（P0)与JP5（按钮接口) *
/* JP11 (P2)与JP1(LED接口) *
*
/*按键则点亮LED灯，8路指示灯接p0口 *
/******************************************************************/
#include <reg51.h>
#include <intrins.h>
sbit BEEP = P1^5;
sbit RELAY = P1^4;
sbit K1 = P0^0; sbit K2 = P0^1;
sbit K3 = P0^2; sbit K4 = P0^3;
sbit K5 = P0^4; sbit K6 = P0^5;
void beep();
/*********************************************************/
main()
{
while(1)
{
P2 = 0xff;
if(K1==0)
P2 = 0xfe;
if(K2 == 0)
P2 = 0xfd;
if(!K3)
P2 = 0xfb;
if(!K4)
P2 = 0xf7;
if (!K5 )
beep(); //喇叭发声
RELAY = 1;
if (!K6 )
RELAY = 0; //通过了反相器
}
}
/**********************************************************/
void beep()
{
unsigned char i , j;
for (i=0;i<100;i++)
{
BEEP=!BEEP; //BEEP取反
for (j = 0 ; j<250 ; j++) //需要产生方波
_nop_();
}
BEEP=1; //关闭蜂鸣器
}
热心网友
时间：2023-10-15 12:49
1．实验任务
开关K1接在P3.2管脚上，在AT89S51单片机的P0.0端口接有1个发光二极管，上电的时候，L1接在P1.0管脚上的发光二极管在亮，当一次按下开关K1的时候,灯灭,再按一次,灯亮，如此轮流下去。
2．系统板上硬件连线
把“单片机系统”区域中的P3.2端口连接到“独立式键盘”区域中的K1端口上；把P0.0连到L1上
3.程序设计方法
（1． 设计思想由来
在我们生活中，我们很容易通过这个叫张三，那个叫李四，另外一个是王五；那是因为每个人有不同的名子，我们就很快认出，同样，对于要通过一个按键来识别每种不同的功能，我们给每个不同的功能模块用不同的ID号标识，这样，每按下一次按键，ID的值是不相同的，所以单片机就很容易识别不同功能的身份了。
（2． 设计方法
从上面的要求我们可以看出，L1到亮灭受开关K1来控制，我们给L1亮灭定义出不同的ID号，当L1在亮时，ID＝0；当L1在灭时，ID＝1；分别给出不同的ID号我们就能够完成上面的任务了
4.汇编程序:
ID EQU 30H
K1 BIT P3.2
L1 BIT P0.0
ORG 0000H
CLR P1.7
MOV ID,#00H
START: JB K1,REL ；K1没闭合转
LCALL DELAY10MS ；K1闭合，延时消抖动
JB K1,REL ：再判断
INC ID
MOV A,ID
CJNE A,#02,REL
MOV ID,#00H
REL: JNB K1,$ ；等待开关弹起
MOV A,ID
CJNE A,#00H,IS0 ；判断相应ID
CLR L1 ：ID=0，灯亮
LCALL DELAY光 ;延时
SJMP START
IS0: CJNE A,#01H,START;
SETB L1
LCALL DELAY
SJMP START
DELAY10MS: MOV R6,#20 ;延时10MS子程序
LOOP1: MOV R7,#248
DJNZ R7,$
DJNZ R6,LOOP1
RET
DELAY: MOV R5,#20 ;延时20MS子程序
LOOP2: LCALL DELAY10MS
DJNZ R5,LOOP2
RET
END
