当前位置: 首页 > 周易密码 > 太极八卦

用 proteus+keilC51 制作八卦阵:工程文件及资料获取指南

2024-06-30 10:13:40  人看过

用 proteus+keilC51 制作八卦阵:工程文件及资料获取指南

+制作八卦阵前言

本文展示用keil c51 + 制作一个八卦阵的过程。

文末获取工程文件及其他资料,建议结合keil工程阅读本文。

效果

组成

MCU

受到和笔者电脑性能的限制,stm32模型运行及其卡顿,所以此处使用51单片机,完成这个简单的任务。为了整体的观赏性,避免八卦和阴阳鱼像干扰,用了两个相互独立的51芯片。

锁存器

为了实现一组管脚控制多个LED和点阵,这里使用了锁存器,使用方法非常简单用 proteus+keilC51 制作八卦阵:工程文件及资料获取指南,OE置0,当LE脚输入高电平,Q[0 7]=D[0 7],当LE脚输入低电平,Q[0 7]锁死。

显示

因为在,所以将单片机引脚直接接LED正极,逻辑1点亮太极八卦阵寓意,实际上51单片机可能没有足够的驱动能力点亮LED,一般将引脚接为负极,正极接上拉电阻,逻辑0点亮,移植需要注意。

一共16个引脚,8个控制第n行太极八卦阵寓意,8个控制某行中的n点,具体操作可以自己实验尝试。以上模型都可以在找到并放置。

阴阳鱼

按八卦阵的顺序摆好LED。因为阴阳鱼眼睛和周围反颜色用 proteus+keilC51 制作八卦阵:工程文件及资料获取指南,所以将中间这一圈设为一组,内外两圈设为一组。

新建51工程,添加预定义,这里选择P2.0,P2.1连接两个LE脚,并定义数组和顺序号,方便后面的循环。

sbit Elock=P2^0;        //控制眼锁存
sbit Llock=P2^1;        //控制阴阳锁存
uchar code yang[8]={0x87,0x0f,0x1e,0x3c,0x78,0xf0,0xe1,0xc3};
uchar code eye[8]={0xa5,0x4b,0x96,0x2d,0x5a,0xb4,0x69,0xd2};
uchar i=1;

手动添加延时函数,这里大概是1毫秒

void delay(unsigned int num)    //延时函数
{
    unsigned x, y;
    for(x=num;x>0;x--)
    for(y=120;y>0;y--);
}

LED控制函数,按i的顺序读取两个数组,让i在0 7循环,就可以实现阴阳鱼在旋转的效果。

void circle()
{
    Llock=1;        //锁存器八个管脚控制16个灯
    P1=yang[i];
    Llock=0;
    Elock=1;
    P1=eye[i];
    Elock=0;
    i++;
    if(i==8)        //数组循环,阴阳相济
    i=0;
}

主函数中,先让LED全灭,然后开始循环。

void main(void)
{
    P1 = 0xff;  //先全灭
    
    P1=eye[2];  //开始位置,可以自己尝试其他位置
    Elock=1;
    Elock=0;
    P1=yang[2];
    Llock=1;
    Llock=0;
    
    while(1)
    {
        circle();
        delay(999);
    }
}

到此,八卦阵就做好了,点击开始仿真,可以显示循环效果。

八卦阵

8个点阵需要8个锁存器,此处选用P0作为8个锁存器的le控制,注意这款51单片机的P0需要接上拉电阻才可以输出信号。

这里使用P2口来控制点阵显示在哪一行,P1口控制显示在哪一点,循环到一个点阵时,其他点阵的锁存器都是关闭信号且锁住,然后控制显示内容。定义八个数组和一些变量。

uchar code Qian[8]={0x00,0x00,0xff,0x00,0xff,0x00,0xff,0x00};
uchar code Xun[8]={0x10,0x48,0x24,0x92,0x49,0x04,0x12,0x08};
uchar code Kan[8]={0x00,0x00,0xe7,0x00,0xff,0x00,0xe7,0x00};
uchar code Gen[8]={0x10,0x48,0x24,0x82,0x41,0x04,0x12,0x08};
uchar code Kun[8]={0x00,0x00,0xe7,0x00,0xe7,0x00,0xe7,0x00};
uchar code Zhen[8]={0x10,0x48,0x20,0x82,0x41,0x24,0x12,0x08};
uchar code Li[8]={0x00,0x00,0xff,0x00,0xe7,0x00,0xff,0x00};
uchar code Dui[8]={0x10,0x48,0x20,0x92,0x49,0x24,0x12,0x08};
uchar i=0,j=1;
uint l=0;

变量i作为行数的记号,j是下一个点阵的记号和分组点阵记号,l是在主函数中记录时间的变量。受到或硬件性能限制太极八卦阵寓意,同时八个点阵循环视觉效果非常差,所以设置的逻辑是四个对角点阵显示,过一段时间l之后轮到另外四个对角点阵显示。

void ddelay(uint num)               //延时函数
{
    uint x,y;
    for(x=num;x>0;x--)
    for(y=45;y>0;y--);
}

手动延时,当视觉效果不理想时可以试试更改y值。

下面是八个点阵对应控制函数中的一个,其他见工程,j代表下一个点阵的标号,在后面的中调用判断。

void bagua_Q()
{
    
    P2=1<7){i=0;j=3;}
}

整体循环函数,每次先刷新后判断到哪一个点阵。

void bagua_circle()
{
    P1=0xff;
    P2=0x00;
    switch(j)
    {
        case 1:P0=0x01;
        bagua_Q();break;
        case 2:P0=0x02;
        bagua_X();break;
        case 3:P0=0x04;
        bagua_K();break;
        case 4:P0=0x08;
        bagua_G();break;
        case 5:P0=0x10;
        bagua_KU();break;
        case 6:P0=0x20;
        bagua_Z();break;
        case 7:P0=0x40;
        bagua_L();break;
        case 8:P0=0x80;
        bagua_D();break;
    }
}

主函数循环内调用bagua ();循环显示八卦阵,同一时间只会看到[乾 坎坤 离]或者[巽 艮 震兑]四个卦象,同时l变量计时,超过对应值时切换一组,更改对应值可以更改单组显示时间。

void main(void)
{
    P2=0x00;
    ddelay(1);
    while(1)
    {
        
        P2=0x00;
        bagua_circle();
        
        l++;
        if(l>999)
        {
            l=0;
            if(j==2)
            {
                j=1;
            }
            else if(j==1) 
            {
                j=2;
            }
        }
    }
}

这个八卦阵是笔者51单片机大作业的一部分,全文件已更新到网盘。

51单片机大作业—太极八卦阵

到此,太极八卦阵就做好啦,感兴趣的同学可以换上stm32等更快的单片机,设计PCB板,做出实物哦(●'◡'●)

下载链接

链接:https://pan.baidu.com/s/1oXmYgVkh0gdzHd46MvwZ4Q 
提取码:tEGO 
复制这段内容后打开百度网盘手机App,操作更方便哦

Top