汉字式lcd移位显示.c

基于Proteus的51系列单片机设计与仿真

#include"reg51.h"
#define uchar unsigned char
#define uint unsigned int
sbit cs1= P1^1;
sbit cs2= P1^2;
sbit rs=P1^7;
sbit rw=P1^6;
sbit e= P1^5;
uchar x=0xb8, y=0x40;
uint i=0;
code uchar d[]={
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x61,0x00,0x5d,0x80,0x23,0x70,0x21,
0x4e,0x21,0x40,0x13,0x20,0x0d,0x20,0x11,
0x10,0x31,0x08,0x21,0x04,0x21,0x86,0x00,//(长)
0x00,0x00,0x00,0x00,0x00,0x60,0x00,0x18,
0xe0,0x06,0x00,0x41,0xc4,0x40,0x28,0x40,
0x10,0x40,0x08,0x20,0x08,0x5c,0x88,0x43,
0x78,0x40,0x08,0x40,0x08,0x20,0x08,0x00,//(江)
0x00,0x80,0x00,0x40,0x00,0x20,0x00,0x10,
0x00,0x0c,0x80,0x43,0x70,0x38,0x48,0x27,
0x48,0x22,0x48,0x22,0x48,0x22,0x48,0x22,
0x48,0x62,0x44,0x1e,0x44,0x03,0x44,0x00,//(后)
0x00,0x00,0x00,0x00,0x00,0x48,0x00,0x38,
0xc0,0x0c,0x00,0x03,0x80,0x40,0x6c,0x78,
0x20,0x46,0xe0,0x21,0x58,0x03,0x48,0x1d,
0x48,0x29,0x4a,0x45,0xcc,0x45,0x78,0x02,//(浪)
0x00,0x00,0x00,0x00,0x00,0x42,0x00,0x62,
0x00,0x1d,0xa0,0x03,0x70,0x01,0xac,0x61,
0x92,0x58,0xd0,0x47,0x70,0x44,0x88,0x3c,
0x96,0x47,0xf4,0x44,0x92,0x24,0x8c,0x04,//(推)
0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x38,
0x10,0x07,0xd0,0x4a,0x50,0x6a,0x50,0x1e,
0xd0,0x03,0x4e,0x00,0x14,0x5c,0x10,0x43,
0xc8,0x60,0x14,0x1c,0x92,0x03,0x70,0x00,//(前)
0x00,0x00,0x00,0x00,0x00,0x48,0x00,0x38,
0xc0,0x0c,0x00,0x03,0x80,0x40,0x6c,0x78,
0x20,0x46,0xe0,0x21,0x58,0x03,0x48,0x1d,
0x48,0x29,0x4a,0x45,0xcc,0x45,0x78,0x02,//(浪)
0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x28,
0x00,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//(，)
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x70,
0x40,0x4e,0xc0,0x41,0x30,0x40,0x48,0x58,
0x40,0x47,0xc0,0x48,0x38,0x48,0x44,0x48,
0x40,0x4c,0xc0,0x43,0x70,0x40,0x4e,0x00,//(世)
0x00,0x00,0x00,0x80,0x00,0x80,0x00,0x48,
0x00,0x44,0x00,0x24,0x60,0x1a,0x5c,0x07,
0x54,0x03,0xd4,0x80,0x74,0x70,0xdc,0x0e,
0x54,0x05,0x54,0x02,0x54,0x02,0x3c,0x04,//(界)
0x00,0x00,0x00,0x20,0x00,0x10,0x00,0x0a,
0x80,0x46,0x88,0x3a,0xb8,0x87,0xc8,0x56,
0xa6,0x2a,0x98,0x12,0x48,0x0c,0x88,0x03,
0x78,0x60,0x8c,0x1c,0x88,0x03,0x84,0x00,//(新)
0x00,0x00,0x00,0x40,0x00,0x40,0x00,0x20,
0x00,0x20,0x00,0x10,0x00,0x08,0x00,0x06,
0x00,0x01,0xc0,0x00,0xf8,0x01,0x3e,0x1e,
0x00,0x30,0x00,0x60,0x00,0x00,0x00,0x00,//(人)
0x00,0x00,0x00,0x80,0x00,0x82,0x00,0x81,
0x10,0x51,0xe8,0x4f,0x24,0x22,0x94,0x12,
0xec,0x0a,0xaa,0x05,0x70,0x21,0x90,0x22,
0x6c,0x5e,0x28,0x43,0xf8,0x00,0x2e,0x01,//(赞)
0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x38,
0x00,0x07,0xe0,0x00,0x1c,0x60,0x00,0x1c,
0x80,0x23,0x70,0x21,0x0c,0x21,0x08,0x21,
0x08,0x61,0x08,0x39,0x08,0x07,0xe8,0x00,//(旧)
0x00,0x00,0x00,0x40,0x00,0x40,0x00,0x20,
0x00,0x20,0x00,0x10,0x00,0x08,0x00,0x06,
0x00,0x01,0xc0,0x00,0xf8,0x01,0x3e,0x1e,
0x00,0x30,0x00,0x60,0x00,0x00,0x00,0x00,//(人)
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x38,
0x00,0x28,0x00,0x18,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//(。)
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x09,
0x00,0x09,0x00,0x09,0x00,0x09,0x10,0x69,
0x70,0x19,0x10,0x0f,0x10,0x09,0x8a,0x08,
0x54,0x09,0x30,0x0d,0x10,0x09,0x08,0x01,//(辛)
0x00,0x00,0x00,0x40,0x00,0x40,0x00,0x52,
0xc0,0x35,0x68,0x5a,0x58,0xd7,0xe6,0x52,
0x68,0x2a,0xd8,0x23,0x46,0x10,0x2a,0x0c,
0x24,0x43,0xe0,0x60,0x3c,0x18,0x22,0x07,//(勤)
0x00,0x00,0x00,0x80,0x00,0x80,0x00,0x40,
0x80,0x42,0x48,0x22,0x48,0x12,0x48,0x0a,
0x68,0x06,0xdc,0x43,0x4a,0x42,0x48,0x62,
0x68,0x1a,0x58,0x06,0x4e,0x00,0xc8,0x00,//(劳)
0x00,0x00,0x00,0x00,0x00,0x18,0x40,0x14,
0x40,0x12,0x48,0x91,0xc8,0x48,0x48,0x3e,
0x48,0x28,0x48,0x10,0x48,0x0c,0x20,0x42,
0xe0,0x41,0x30,0x20,0x2e,0x1c,0x20,0x03,//(动)
0x00,0x80,0x00,0x40,0x00,0x30,0x00,0x0c,
0x00,0x13,0xe0,0x10,0x10,0x31,0x20,0x4d,
0x20,0x43,0x20,0x20,0x20,0x10,0xe0,0x1f,
0x1e,0x34,0x20,0x62,0xa0,0x71,0xec,0x10,//(成)
0x00,0x00,0x00,0x20,0x00,0x10,0x00,0x4a,
0x80,0x45,0x40,0x39,0x50,0x87,0x50,0x57,
0x4e,0x29,0xd0,0x10,0x50,0x0c,0x48,0x63,
0xe0,0x5c,0xdc,0x43,0x42,0x60,0x40,0x00,//(就)
0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x91,
0x80,0x88,0x40,0x48,0x50,0x4d,0xf0,0x52,
0x1c,0x25,0xf2,0x14,0x88,0x14,0x50,0x0c,
0xf0,0x05,0x30,0x06,0x3e,0x00,0xd0,0x00,//(梦)
0x00,0x00,0x00,0x40,0x00,0x22,0x00,0x11,
0x80,0x00,0x50,0x72,0xf0,0x49,0x38,0x40,
0xd6,0x40,0x12,0x5a,0xd0,0x41,0xb0,0x62,
0xac,0x02,0xa4,0x0a,0xa4,0x3a,0xe4,0x01,};//(想)
code uchar dd[]={
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",0*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",1*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",2*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",3*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",4*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",5*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",6*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",7*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",0*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",1*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",2*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",3*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",4*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",5*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",6*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,/*" ",7*/
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x80,0x00,0x40,0x01,0x20,0x02,
0x90,0x04,0x48,0x09,0x24,0x12,0x12,0x24,
0x09,0x48,0x04,0x90,0x02,0x20,0x00,0x00,//(《)
0x00,0x11,0x04,0x51,0x04,0x49,0x04,0x4d,
0xff,0x4b,0x54,0x49,0x54,0x49,0x54,0x7d,
0x54,0x49,0x54,0x49,0xff,0x4b,0x04,0x45,
0x04,0x4d,0x04,0x59,0x00,0x09,0x00,0x00,//(基)
0x40,0x00,0x40,0x00,0x42,0x00,0x42,0x00,
0x42,0x20,0x42,0x40,0x42,0x80,0xfe,0x7f,
0x42,0x00,0x42,0x00,0x42,0x00,0x42,0x00,
0x42,0x00,0x42,0x00,0x40,0x00,0x00,0x00,//(于)
0x08,0x20,0xF8,0x3F,0x08,0x21,0x08,0x01,
0x08,0x01,0x08,0x01,0xF0,0x00,0x00,0x00,//*"P"
0x80,0x20,0x80,0x20,0x80,0x3F,0x00,0x21,
0x80,0x20,0x80,0x00,0x80,0x01,0x00,0x00,//*"r"
0x00,0x00,0x00,0x1F,0x80,0x20,0x80,0x20,
0x80,0x20,0x80,0x20,0x00,0x1F,0x00,0x00,//*"o"
0x00,0x00,0x80,0x00,0x80,0x00,0xE0,0x1F,
0x80,0x20,0x80,0x20,0x00,0x00,0x00,0x00,//*"t"
0x00,0x00,0x00,0x1F,0x80,0x22,0x80,0x22,
0x80,0x22,0x80,0x22,0x00,0x13,0x00,0x00,//*"e"
0x80,0x00,0x80,0x1F,0x00,0x20,0x00,0x20,
0x00,0x20,0x80,0x10,0x80,0x3F,0x00,0x20,//*"u"
0x00,0x00,0x00,0x33,0x80,0x24,0x80,0x24,
0x80,0x24,0x80,0x24,0x80,0x19,0x00,0x00,//*"s"
0x00,0x00,0x38,0x00,0x08,0x00,0x08,0x3f,
0xC8,0x00,0x38,0x00,0x08,0x00,0x00,0x00,//*"7"
0x00,0x00,0x00,0x30,0x00,0x30,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//*"."
0x00,0x00,0x10,0x20,0x10,0x20,0xF8,0x3F,
0x00,0x20,0x00,0x20,0x00,0x00,0x00,0x00,//*"1"
0x00,0x00,0xf8,0x7f,0x8c,0x10,0x8b,0x10,
0x88,0x10,0xf8,0x3f,0x40,0x00,0x30,0x00,
0x8f,0x00,0x08,0x03,0x08,0x26,0x08,0x40,
0x08,0x20,0xf8,0x1f,0x00,0x00,0x00,0x00,//(的)
0x00,0x08,0x00,0x08,0xF8,0x0B,0x28,0x09,
0x29,0x09,0x2E,0x09,0x2A,0x09,0xF8,0xFF,
0x28,0x09,0x2C,0x09,0x2B,0x09,0x2A,0x09,
0xF8,0x0B,0x00,0x08,0x00,0x08,0x00,0x00,//*"单"
0x00,0x80,0x00,0x40,0x00,0x30,0xFE,0x0F,
0x10,0x01,0x10,0x01,0x10,0x01,0x10,0x01,
0x10,0x01,0x1F,0x01,0x10,0x01,0x10,0xFF,
0x10,0x00,0x18,0x00,0x10,0x00,0x00,0x00,//*"片"
0x08,0x04,0x08,0x03,0xC8,0x00,0xFF,0xFF,
0x48,0x00,0x88,0x41,0x08,0x30,0x00,0x0C,
0xFE,0x03,0x02,0x00,0x02,0x00,0x02,0x00,
0xFE,0x3F,0x00,0x40,0x00,0x78,0x00,0x00,//*"机"
0x40,0x00,0x20,0x00,0x10,0x00,0xec,0x7f,
0x07,0x40,0x0a,0x20,0x08,0x18,0x08,0x06,
0xf9,0x01,0x8a,0x10,0x8e,0x20,0x88,0x40,
0x88,0x20,0xcc,0x1f,0x88,0x00,0x00,0x00,//(仿)
0x00,0x10,0x04,0x90,0x04,0x90,0x04,0x50,
0xf4,0x5f,0x54,0x35,0x5c,0x15,0x57,0x15,
0x54,0x15,0x54,0x35,0x54,0x55,0xf4,0x5f,
0x04,0x90,0x06,0x90,0x04,0x10,0x00,0x00,//(真)
0x02,0x20,0x04,0x90,0x09,0x48,0x12,0x24,
0x24,0x12,0x48,0x09,0x90,0x04,0x20,0x02,
0x40,0x01,0x80,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//(》)
0x00,0x00,0x00,0x00,0xf0,0x7f,0x10,0x21,
0x10,0x21,0x10,0x21,0x10,0x21,0xff,0x3f,
0x10,0x21,0x10,0x21,0x10,0x21,0x10,0x21,
0xf0,0x7f,0x00,0x00,0x00,0x00,0x00,0x00,//(由)
0x00,0x00,0x00,0x00,0xf8,0x0f,0x48,0x04,
0x48,0x04,0x48,0x04,0x48,0x04,0xff,0x3f,
0x48,0x44,0x48,0x44,0x48,0x44,0x48,0x44,
0xf8,0x4f,0x00,0x40,0x00,0x70,0x00,0x00,//(电)
0x00,0x01,0x00,0x01,0x02,0x01,0x02,0x01,
0x02,0x01,0x02,0x41,0x02,0x81,0xe2,0x7f,
0x12,0x01,0x0a,0x01,0x06,0x01,0x02,0x01,
0x00,0x01,0x80,0x01,0x00,0x01,0x00,0x00,//(子)
0x00,0x20,0x00,0x20,0x02,0x20,0x02,0x20,
0x02,0x20,0x02,0x20,0x02,0x20,0xfe,0x3f,
0x02,0x20,0x02,0x20,0x02,0x20,0x02,0x20,
0x02,0x20,0x02,0x20,0x00,0x20,0x00,0x00,//(工)
0x00,0x20,0x10,0x20,0x60,0x20,0x80,0x23,
0x00,0x21,0xff,0x3f,0x00,0x20,0x00,0x20,
0x00,0x20,0xff,0x3f,0x00,0x22,0x80,0x21,
0x60,0x20,0x38,0x30,0x10,0x20,0x00,0x00,//(业)
0x00,0x00,0x00,0x00,0xfc,0x7e,0x40,0x20,
0x40,0x20,0x40,0x20,0x40,0x20,0xff,0x3f,