51单片机16x16点阵显示汉字可左移 带仿真源程序

kinidrily

51单片机16x16点阵显示汉字可左移 带仿真源程序
1 U% }, l4 n. G
/ P# y% w6 @/ J' O6 h
/ ?7 k: \% R: L) \8 I& i51单片机 16x16点阵显示汉字左移proteus仿真原理图：
4 j* ?; P) G& n; ]& k2 i
, X1 o4 r0 _  D7 y8 V

16x16点阵单片机左移源程序：
8 p  v/ v, h" c$ B3 R#include
#define uchar unsigned char
#define uint unsigned int
uchar m,n,i,b;
sbit hang0=P0^6;
sbit hang1=P0^7;
, y/ I! a% [* ~6 Muchar code lie[16]={0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0a,0x0b,0x0c,0x0d,0x0e,0x0f};
uchar code hang[6][32]={{0xFF,0xBF,0xFD,0xBF,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0x01,0x80,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0x7D,0xBF,0xFD,0xBF,0xFF,0xBF,0xFF,0xFF},/*"王",0*/
{0xBF,0x7F,0xBD,0xBF,0xBB,0xDF,0xA7,0xE7,0x3F,0xF8,0xBF,0xFF,0x80,0xFF,0xBF,0xFF,0x3F,0xC0,0xAF,0xBF,0xB7,0xBF,0xB9,0xBF,0xBF,0xBF,0xBF,0x87,0xFF,0xFF,0xFF,0xFF},/*"光",1*/
% X; n. f5 Y" s. x{0xEF,0xFD,0xF3,0xFD,0xDB,0xFD,0xDB,0xFD,0xDB,0xFD,0xDB,0xBD,0xDA,0x7D,0x19,0x80,0xDB,0xFD,0xDB,0xFD,0xDB,0xFD,0xDB,0xFD,0xDB,0xFD,0xEB,0xFD,0xF3,0xFD,0xFF,0xFF},/*"宇",2*/
* c- ?, p9 @# k' {% i  F0 D: |{0xFF,0x7E,0xFF,0xBE,0xFF,0xDE,0x80,0xE2,0xB6,0xDE,0xB6,0xBE,0xB6,0x7E,0xB6,0x00,0xB6,0x76,0xB6,0x76,0xB6,0x76,0x80,0x76,0xFF,0x76,0xFF,0x7E,0xFF,0x7E,0xFF,0xFF},/*"是",3*/
{0xFF,0x7F,0xFF,0x9F,0x07,0xE0,0xF7,0xFF,0xB7,0xC1,0xB7,0xED,0xB7,0xED,0xB7,0x41,0xF7,0xBF,0x00,0xDE,0xF7,0xE9,0xF6,0xE7,0xF5,0xD9,0x37,0xBE,0xF7,0x07,0xFF,0xFF},/*"咸",4*/
{0xBF,0xBF,0xDF,0xBF,0x0F,0xB0,0xD7,0xB6,0xDB,0xB6,0xD8,0xB6,0xDB,0xB6,0x1B,0xB0,0xDB,0xB6,0xCB,0xB6,0xD3,0xB6,0xDF,0xB6,0x1F,0xB0,0xFF,0xBF,0xFF,0xBF,0xFF,0xFF},/*"鱼",5*/
};
delayms(uint tms)
{
  t9 T% X2 \% s( i7 A7 H7 R        uint x,y;
        for(x=tms;x>0;x--)
& \0 @* S$ {& d! Q  L/ f: }2 a2 F         for(y=110;y>0;y--);
. C4 }) D, N: g3 j# [0 @! V% k% D3 I}
main()
7 V" m/ h/ ^, k8 ]( t8 z{
2 ^$ D( y4 K2 e        while(1)
/ M+ E  Y. j( P1 c        {
                for(m=0;m<6;m++)
                 for(b=0;b<16;b++)
: F9 a' p0 q/ f  U- y7 V) B                 for(n=0;n<20;n++)
0 A/ ^5 V* B! T) ?" X                  for(i=0;i<16;i++)
9 Q6 H+ z0 S% d$ E                  {
$ x* F* b' ]8 h/ W- H! q                   hang0=1;
' r. |: p1 r. P' B- z                   P2=lie;
3 E. v, I3 s1 {/ A                   P1=hang[m][2*(i+b)];
                   hang0=0;
2 M1 B1 c& e# a8 ?9 Z+ m2 {                   P1=0xff;
; ?) c9 x+ _, r0 P$ A                   hang1=1;
                   P2=lie;
5 q6 [6 a) h9 I1 Q$ [& X0 e                   P1=hang[m][2*(i+b)+1];
                   hang1=0;
                   delayms(1);
$ B* `! [5 r6 u" |9 q4 r6 d                   P1=0xff;
9 w4 J% j' ]" h: m
…………限于本文篇幅 余下代码请从论坛下载附件…………

游客，如果您要查看本帖隐藏内容请回复

2 j! L5 l  O6 T

fanichicl

学习一下

gaoxings

路过 谢谢楼主分享