找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3303|回复: 0
打印 上一主题 下一主题
收起左侧

单片机制作—8X32点阵 电路+源程序

[复制链接]
跳转到指定楼层
楼主
ID:85192 发表于 2015-7-10 02:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式



#include <reg51.h>
#define uchar unsigned char
#define uint  unsigned int
sbit SH_CP=P2^0;
sbit DS=P2^1;
sbit ST_CP=P2^2;
uchar num,temp,n,t;
uchar code tab[ ]=

//PCTOLCD2002 取模  字体:Microsoft Sans Serif  12x12

//顺向、逐列、阳码 红色8X8 无旋转 绿色8X8左旋180度
//  (0) 0(1) 1(2) 2(3) 3(4) 4(5) 5(6) 6(7) 7(8) 8(9) 9(10) A(11) B(12) C(13) D(14) E(15)
// F(16) G(17)

{
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,/*" ",0*/

0xFF,0xC1,0xBE,0xBE,0xBE,0xC1,0xFF,0xFF,/*"0",1*/

0xFF,0xDF,0xDF,0x80,0xFF,0xFF,0xFF,0xFF,/*"1",2*/

0xFF,0xDC,0xBC,0xBA,0xB6,0xCE,0xFF,0xFF,/*"2",3*/

0xFF,0xDD,0xBE,0xB6,0xB6,0xC9,0xFF,0xFF,/*"3",4*/

0xFB,0xF3,0xEB,0xDB,0x80,0xFB,0xFF,0xFF,/*"4",5*/

0xFF,0x8D,0xAE,0xAE,0xAE,0xB1,0xFF,0xFF,/*"5",6*/

0xFF,0xC1,0x96,0xB6,0xB6,0xD9,0xFF,0xFF,/*"6",7*/

0xFF,0xBF,0xBC,0xB3,0xAF,0x9F,0xFF,0xFF,/*"7",8*/

0xFF,0xC9,0xB6,0xB6,0xB6,0xC9,0xFF,0xFF,/*"8",9*/

0xFF,0xCD,0xB6,0xB6,0xB4,0xC1,0xFF,0xFF,/*"9",10*/

0xFC,0xF3,0xCB,0x9B,0xEB,0xF3,0xFC,0xFF,/*"A",11*/

0xFF,0x80,0xB6,0xB6,0xB6,0xB6,0xC9,0xFF,/*"B",12*/

0xFF,0xE3,0xDD,0xBE,0xBE,0xBE,0xBE,0xDD,/*"C",13*/

0xFF,0x80,0xBE,0xBE,0xBE,0xBE,0xDD,0xE3,/*"D",14*/

0xFF,0x80,0xB6,0xB6,0xB6,0xB6,0xBE,0xFF,/*"E",15*/

0xFF,0x80,0xB7,0xB7,0xB7,0xB7,0xBF,0xFF,/*"F",16*/

0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,/*" ",0*/
};
void delay_ms(unsigned int ms)
{
uchar j;
while(ms--)
for(j=0;j<123;j++);
}

void WriteByte(uchar dat)  
{
uchar k;
for(k=0;k<8;k++)
{
  dat=dat>>1;
  DS=CY;
  SH_CP=0;
  SH_CP=1;
}
}
void main()
{
while(1)
{
  for(n=0;n<136;n++)  
  {
   for(t=0;t<10;t++)//重复显示10次
   {
    temp=0x01;
    {
     for(num=n;num<8+n;num++)
     {
      WriteByte(tab[num+0]);
      P1=temp;
      ST_CP=0;
      ST_CP=1;
      delay_ms(1);
      temp=temp<<1;
     }
    }
    }
  }
}
}


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表