单片机控制1602液晶滚动显示字符

这是一个用51单片机控制1602液晶显示器显示一串字符的C语言程序以及proteus仿真图。

#include
#define uchar unsigned char
#define uint unsigned int
uchar code table[]=“windway a good news“;
sbit en=P3^4;
sbit rs=P3^5;
uchar i;


void delay（uint z）
{
	uint xy;
	for（x=z;x>0;x--）
		for（y=110;y>0;y--）;
}
void write_com（uchar com）
{
	rs=0;
	P0=com;
	delay（5）;
	en=1;
	delay（5）;
	en=0;
}

void write_data（uchar dat）
{
	rs=1;
	P0=dat;
	delay（5）;
	en=1;
	delay（5）;
	en=0;
}
void init（）
{
	en=0;
	write_com（0x38）;
	write_com（0x0e）;
	write_com（0x06）;
	write_com（0x01）;
	write_com（0x80）;
}
void main（）
{
	init（）;
	for（i=0;i<15;i++）
	{
		write_data（table[i]）;
		delay（20）;
	}
	write_com（0x80+0x40）;
	for（i=15;i<19;i++）
	{
		write_data（table[i]）;
		delay（20）;
	}
	while（1）;
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      74810  2011-05-06 20:05  text8\Last Loaded text8.DBK

     文件       6376  2005-03-22 15:22  text8\STARTUP.A51

     文件      14051  2011-05-06 20:11  text8\STARTUP.LST

     文件        749  2011-05-06 20:11  text8\STARTUP.OBJ

     文件       4039  2011-05-06 20:11  text8\text8

     文件        751  2011-05-06 20:11  text8\text8.c

     文件      78167  2011-05-06 20:11  text8\text8.DSN

     文件        602  2011-05-06 20:11  text8\text8.hex

     文件         43  2011-05-06 20:11  text8\text8.lnp

     文件       2705  2011-05-06 20:11  text8\text8.LST

     文件       7049  2011-05-06 20:11  text8\text8.M51

     文件       3993  2011-05-06 20:11  text8\text8.OBJ

     文件       1040  2011-05-07 09:41  text8\text8.Opt

     文件        169  2011-05-07 09:41  text8\text8.plg

     文件        742  2011-05-07 17:15  text8\text8.PWI

     文件       2188  2011-05-06 20:11  text8\text8.Uv2

     文件       1040  2011-05-06 21:57  text8\text8_Opt.Bak

     文件          0  2011-05-06 20:05  text8\text8_Uv2.Bak

     目录          0  2011-05-14 10:40  text8

----------- ---------  ---------- -----  ----

               198514                    19