|
|
本帖最后由 nius 于 2015-4-10 02:49 編輯
單片機電路圖：http://www.torrancerestoration.com/f/ks51.pdf
#include<reg51.h>
sbit ADDR0 = P1^0;
sbit ADDR1 = P1^1;
sbit ADDR2 = P1^2;
sbit ADDR3 = P1^3;
sbit ENLED = P1^4;
sbit KEY_IN1 = P2^4;
sbit KEY_IN2 = P2^5;
sbit KEY_IN3 = P2^6;
sbit KEY_IN4 = P2^7;
sbit KEY_OUT1 = P2^3;
sbit KEY_OUT2 = P2^2;
sbit KEY_OUT3 = P2^1;
sbit KEY_OUT4 = P2^0;
void timer(unsigned int x)
{
unsigned int s,d;
for(s=0;s<110;s++)
for(d=0;d<x;d++);
}
void main()
{
unsigned char code LedChar[]={0xC0, 0xF9, 0xA4, 0xB0, 0x99, 0x92, 0x82, 0xF8,0x80, 0x90, 0x88, 0x83, 0xC6, 0xA1, 0x86, 0x8E};
ENLED = 0;
ADDR3 = 1;
ADDR2 = 0;
ADDR1 = 0;
ADDR0 = 0;
P0 = LedChar[0];
KEY_OUT4=1;
P2=0xff;
while(1)
{
unsigned Num1,ss;
switch(Num1)
{
case 0: KEY_OUT4=1;KEY_OUT1=0;
if(KEY_IN1==0){timer(10);if(KEY_IN1==0){ ss=0;while(!KEY_IN1);};};
if(KEY_IN2==0){timer(10);if(KEY_IN2==0){ss=1;while(!KEY_IN2);}};
if(KEY_IN3==0){timer(10);if(KEY_IN3==0){ss=2;while(!KEY_IN3);};};
if(KEY_IN4==0){timer(10);if(KEY_IN4==0){ss=3;while(!KEY_IN4);};};
break;
case 1: KEY_OUT1=1;KEY_OUT2=0;
if(KEY_IN1==0){timer(10);if(KEY_IN1==0){ss=4;while(!KEY_IN1);};};
if(KEY_IN2==0){timer(10);if(KEY_IN2==0){ss=5;while(!KEY_IN2);};};
if(KEY_IN3==0){timer(10);if(KEY_IN3==0){ss=6;while(!KEY_IN3);};};
if(KEY_IN4==0){timer(10);if(KEY_IN4==0){ss=7;while(!KEY_IN4);};};
break;
case 2: KEY_OUT2=1;KEY_OUT3=0;
if(KEY_IN1==0){timer(10);if(KEY_IN1==0){ss=8;while(!KEY_IN1);};};
if(KEY_IN2==0){timer(10);if(KEY_IN2==0){ss=9;while(!KEY_IN2);};};
if(KEY_IN3==0){timer(10);if(KEY_IN3==0){ss=10;while(!KEY_IN3);};};
if(KEY_IN4==0){timer(10); if(KEY_IN4==0){ss=11;while(!KEY_IN4);};};
break;
case 3: KEY_OUT3=1;KEY_OUT4=0;
if(KEY_IN1==0){timer(10);if(KEY_IN1==0){ss=12;while(!KEY_IN1);};};
if(KEY_IN2==0){timer(10);if(KEY_IN2==0){ss=13;while(!KEY_IN2);};};
if(KEY_IN3==0){timer(10);if(KEY_IN3==0){ss=14;while(!KEY_IN3);};};
if(KEY_IN4==0){timer(10);if(KEY_IN4==0){ss=15;while(!KEY_IN4);};};
break;
}
P0 = LedChar[ss];
Num1++;
Num1=Num1&0x03;
}
}
這個程序跟上一個程序功能一樣但是改的更簡潔了一點
設(shè)計者：薛羽豪
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
