tm1638仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）
TM1638仿真程序
单片机源程序如下:
- #ifndef _TM1638_H
- #define _TM1638_H
- #include <REGX51.H>
- #define DATA_COMMAND 0X40
- #define DISP_COMMAND 0x80
- #define ADDR_COMMAND 0XC0
- //TM1638模块引脚定义
- sbit DIO=P1^0;
- sbit CLK=P1^1;
- sbit STB=P1^2;
- //共阴数码管显示代码
- unsigned char code tab[]={0x3F,0x06,0x5B,0x4F,0x66,0x6D,0x7D,0x07,
- 0x7F,0x6F,0x77,0x7C,0x39,0x5E,0x79,0x71};
- void TM1638_Write(unsigned char DATA) //写数据函数
- {
- unsigned char i;
- for(i=0;i<8;i++)
- {
- CLK=0;
- if(DATA&0X01)
- DIO=1;
- else
- DIO=0;
- DATA>>=1;
- CLK=1;
- }
- }
- unsigned char TM1638_Read(void) //读数据函数
- {
- unsigned char i;
- unsigned char temp=0;
- DIO=1; //设置为输入
- for(i=0;i<8;i++)
- {
- temp>>=1;
- CLK=0;
- if(DIO)
- temp|=0x80;
- CLK=1;
- }
- return temp;
- }
- void Write_COM(unsigned char cmd) //发送命令字
- {
- STB=0;
- TM1638_Write(cmd);
- STB=1;
- }
- unsigned char Read_key(void)
- {
- unsigned char c[4],i,key_value=0;
- STB=0;
- TM1638_Write(0x42); //读键扫数据 命令
- for(i=0;i<4;i++)
- c[i]=TM1638_Read();
- STB=1; //4个字节数据合成一个字节
- for(i=0;i<4;i++)
- key_value|=c[i]<<i;
- for(i=0;i<8;i++)
- if((0x01<<i)==key_value)
- break;
- return i;
- }
- void Write_DATA(unsigned char add,unsigned char DATA) //指定地址写入数据
- {
- Write_COM(0x44);
- STB=0;
- TM1638_Write(0xc0|add);
- TM1638_Write(DATA);
- STB=1;
- }
- /*
- void Write_oneLED(unsigned char num,unsigned char flag) //单独控制一个LED函数，num为需要控制的led序号，flag为0时熄灭，不为0时点亮
- {
- if(flag)
- Write_DATA(2*num+1,1);
- else
- Write_DATA(2*num+1,0);
- } */
- void Write_allLED(unsigned char LED_flag) //控制全部LED函数，LED_flag表示各个LED状态
- {
- unsigned char i;
- for(i=0;i<8;i++)
- {
- if(LED_flag&(1<<i))
- //Write_DATA(2*i+1,3);
- Write_DATA(2*i+1,1);
- else
- Write_DATA(2*i+1,0);
- }
- }
- //TM1638初始化函数
- void init_TM1638(void)
- {
- unsigned char i;
- Write_COM(0x8b); //亮度 (0x88-0x8f)8级亮度可调
- Write_COM(0x40); //采用地址自动加1
- STB=0; //
- TM1638_Write(0xc0); //设置起始地址
- for(i=0;i<16;i++) //传送16个字节的数据
- TM1638_Write(0x00);
- STB=1;
- }
- #endif
TM1638.DLL文件要放到MODELS目录里面才能仿真,还有LIBRARY目录的文件也要放进去,要用Proteus7.8版本:
TM1638C51仿真和程序.zip
(86.13 KB, 下载次数: 216)
|
[复制链接]
