- 4
- 0
- 约4.92千字
- 约 5页
- 2016-09-12 发布于天津
- 举报
汉字流水显示的C语言代码.doc
按下K1,LCD显示一种内容同时显示一种花样流水灯,按下K2,K3,K4也有不同的花 样和内容。 代码如下:
/**************************************************/
#include reg52.h
#include intrins.h
#define uchar unsigned char
#define uint unsigned int
#define out P0
#define LED P3
uchar i,flag1,flag2,flag3,flag4;
/*****定义端口******/
sbit rs=P2^0;
sbit rw=P2^1;
sbit e=P2^2;
sbit k1=P2^4;
sbit k2=P2^5;
sbit k3=P2^6;
sbit k4=P2^7;
//////////子函数///////////////
void check_busy(void);
void write_command(uchar com);
void write_data(uchar dat);
void LCD_initial(void);
void string(uchar ad ,uchar *s);
void lcd_test(void); void delay(uint);
/************************流水灯花样设计********************/
uchar table1[]={0xfe,0xfc,0xf8,0xf0,0xe0,0xc0,0x80,0x00,0x01,0x03,0x07,0x0f,0x1f,0x3f,0x7f,0xff};
/***从右到左点亮再灭之**/
uchar table2[]={0xe7,0xc3,0x81,0x00,0x81,0xc3,0xe7,0xff};/****两头分开点亮再靠拢熄灭****/
uchar table3[]={0xfc,0xf9,0xf3,0xe7,0xcf,0x9f,0x3f,0x9f,0xcf,0xe7,0xf3,0xf9};/****两灯左右循环****/
uchar table4[]={0x7f,0xbf,0xdf,0xef,0xf7,0xfb,0xfd,0xfe,0x7e,0xbe,0xde,0xee,0xf6,0xfa,0xfc,0x7c,0xbc,0xdc,0xec, 0xf4,0xf8,0x78,0xb8,0xd8,0xe8,0xf0,0x70,0xb0,0xd0,0xe0,0x60,0xa0,0xc0,0x40,0x80, 0x00,0xff};/****叠加点亮****/
/******************判断按键***********************/
void keyscan()
{ if(k1==0)
{ delay(10);
if(k1==0)
{ flag2=0;
flag3=0;
flag4=0;
flag1=1;
}
}
if(k2==0)
{ delay(10);
if(k2==0)
{ flag3=0;
flag1=0;
flag4=0;
flag2=1;
}
}
if(k3==0)
{ delay(10);
if(k3==0)
{ flag1=0;
flag2=0;
flag4=0;
flag3=1;
}
}
if(k4==0)
{ delay(10);
if(k4==0)
{ flag1=0;
flag2=0;
flag3=0;
flag4=1;
}
}
}
////////////////////主程序///////////////////////////////////////////////////
void main(void)
{ LCD_initial();
while(1)
{ keyscan();
if(flag1==1)
您可能关注的文档
最近下载
- ISO 28004-1_2007 供应链安全管理体系实施指南培训课件.pptx VIP
- 部编版六年级语文下册 第一单元(10课时)大单元作业设计.pdf VIP
- 2025年高考试题上海高考英语(含答案解析版).docx VIP
- 【真题研究】同等学力教育学.pdf VIP
- 蓝天救援技能培训课件.ppt VIP
- 2025外交部所属事业单位招聘95人笔试试题附答案解析.docx VIP
- 2026年学校党风廉政和反腐败工作计划.docx VIP
- 五求职策略与就业技巧.pptx VIP
- 2025绍兴市交通控股集团有限公司招聘3人笔试备考题库附答案详解(完整版).docx VIP
- 医学实验动物学教程第五堂实验动物学.ppt VIP
原创力文档

文档评论(0)