付江云的个人网站

/********************************
工程名：连续频率产生器
原作者：亓先军
修改者：付江云
说  明：将25M的频率通过82C54
 连续分频，产生各段连续
 频率信号。
原地址：http://www.dadwj.cn/post/371.html
修改处：数码管显示方式，输出连续频率时采用
 循环往返输出。
********************************/
#include<reg51.h>
#define uchar unsigned char
#define uint unsigned int

//按键宏定义
#define key1 0x0fa
#define key2 0x0f9
#define key3 0x0f3
#define key4 0x0eb
#define key5 0x0db
#define key6 0x0bb
#define key7 0x07b

//显示数字数组定义
uchar code num[]={0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,0xf8,0xf9};
/*
#define num0 0xf0
#define num1 0xf1
#define num2 0xf2
#define num3 0xf3
#define num4 0xf4
#define num5 0xf5
#define num6 0xf6
#define num7 0xf7
#define num8 0xf8
#define num9 0xf9
*/

//8254管脚定义
sbit wr=P2^4;
sbit rd=P2^3;
sbit cs=P2^2;
sbit a1=P2^1;
sbit a0=P2^0;

//4051地址位定义
sbit _4051a0=P2^5;
sbit _4051a1=P2^6;
sbit _4051a2=P2^7;

//4个数码管位选定义,4511选通位
sbit wei1=P1^4;
sbit wei2=P1^5;
sbit wei3=P1^6;
sbit wei4=P1^7;

//1毫秒延时函数
void delay(uint z)
{
 uint x,y;
 for(x=z;x>0;x–)
  for(y=124;y>0;y–);
}

/********8254模块函数*********/
void wr_c(uchar com) //8254写控制字函数
{
 uint i;
 a1=1;
 a0=1;
 P0=com;
 wr=0;
 for(i=0;i<1;i++);
 wr=1;
}

void wr_d(uchar dat,bit aa1,bit aa0) //8254写数据函数
{
 uint i;
 a1=aa1;
 a0=aa0;
 P0=dat;
 wr=0;
 for(i=0;i<2;i++);
 wr=1;
}
/**********8254模块函数结束**********/

/*****************各段分频子函数****************/
void fre100k_400k()  //100k到400K的连续分频
{
 uint cnt;
 uchar th,tl;
 _4051a0=0;
 _4051a1=0;
 _4051a2=0;
 for(cnt=0x00fa;cnt>0x003d;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
 for(cnt=0x003d;cnt<0x00fa;cnt++)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
}

void fre10k_100k()  //10k到100K的连续分频
{
 uint cnt;
 uchar th,tl;
 _4051a0=0;
 _4051a1=0;
 _4051a2=0;
 for(cnt=0x09c4;cnt>0x00fa;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
 for(cnt=0x00fa;cnt<0x09c4;cnt++)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
}

void fre1k_10k()  //1k到10K的连续分频
{
 uint cnt;
 uchar th,tl;
 _4051a0=0;
 _4051a1=0;
 _4051a2=0;
 for(cnt=0x61a6;cnt>0x09c4;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
 for(cnt=0x09c4;cnt<0x61a6;cnt++)
 {
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0);
 }
}

void fre500_1k()  //500到1K的连续分频
{
 uint cnt;
 uchar th,tl;
 _4051a0=0;
 _4051a1=0;
 _4051a2=0;    //开通4051通道0
 wr_c(0×36);   //通道0读写8位，工作方式3BCD计数
 for(cnt=0xc34e;cnt>0x61a6;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0); 
 }
 for(cnt=0x61a6;cnt<0xc34e;cnt++)
 {
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,0);
  wr_d(th,0,0); 
 }
}

void fre100_500()  //100到500的连续分频
{
 uint cnt;
 uchar th,tl;
 wr_d(0x3d,0,0);
 wr_d(0×00,0,0);
 wr_c(0×76);   //通道1读写8位，工作方式3BCD计数
 _4051a0=1;
 _4051a1=0;
 _4051a2=0;    //接通4051通道1
 for(cnt=0×1001;cnt>0×0332;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,1);
  wr_d(th,0,1); 
 }
 for(cnt=0×0332;cnt<0×1001;cnt++)
 {
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,1);
  wr_d(th,0,1); 
 }
}

void fre1_100()  //1到100的连续分频
{
 uint cnt;
 uchar th,tl;
 wr_d(0xa0,0,0);
 wr_d(0×01,0,0);
 wr_c(0×76);   //通道1读写8位，工作方式3BCD计数
 _4051a0=1;
 _4051a1=0;
 _4051a2=0;    //接通4051通道1
 for(cnt=0xeab8;cnt>0×257;cnt–)
 { 
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,1);
  wr_d(th,0,1); 
 }
 for(cnt=0×0257;cnt<0xeab8;cnt++)
 {
  tl=cnt%0×100;
  th=cnt/0×100;
  wr_d(tl,0,1);
  wr_d(th,0,1); 
 }
}

void fre1_400k()  //1到400K的连续分频
{
  fre100k_400k();
  fre10k_100k();
  fre1k_10k();
  fre500_1k();
  fre100_500();
  fre1_100();
  fre1_100();
  fre100_500();
  fre500_1k();
  fre1k_10k();
  fre10k_100k();
  fre100k_400k();
}
/*****************各段分频函数结束**************/

/***************数码管显示模块函数**************/
void display(uchar dat)
{
 P1=num[dat];
 wei1=0;
 delay(500);
 wei2=0;
 delay(500);
 wei3=0;
 delay(500);
 wei4=0;
}
/*************数码管显示模块函数结束************/

void main()  //主函数入口
{
 cs=0;
 wr_c(0×36);
 _4051a0=0;
 _4051a1=0;
 _4051a2=0;
 EA=1;
 EX0=1;
 display(4);
 while(1)
  fre500_1k();
}

void inter() interrupt 0
{
 uint i;
 EX0=0;
 delay(5);
 switch(P3)
 {
  case key1:
   display(1);
   for(i=0;i<20;i++)
    fre100k_400k();
   break;
  case key2:
   display(2);
   for(i=0;i<20;i++)
    fre10k_100k();
   break;
  case key3:
   display(3);
   for(i=0;i<20;i++)
    fre1k_10k();
   break;
  case key4:
   display(4);
   for(i=0;i<20;i++)
    fre500_1k();
   break;
  case key5:
   display(5);
   for(i=0;i<20;i++)
    fre100_500();
   break;
  case key6:
   display(6);
   for(i=0;i<20;i++)
    fre1_100();
   break;
  case key7:
   display(7);
   for(i=0;i<10;i++)
    fre1_400k();
   break;
 }
 EX0=1;
 display(4);
}