数字电压表proteus仿真+程序资料

数字电压表proteus仿真+程序资料

 #include
unsigned char code dispbitcode[]={0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f};
unsigned char dispbuf[4];
unsigned int i;
unsigned int j;
unsigned int getdata;
unsigned int temp;
unsigned int temp1;
unsigned char count;
unsigned char d;
sbit ST=P2^4;
sbit OE=P2^5;
sbit EOC=P2^6;
sbit CLK=P2^7;
sbit ADD_A=P3^4;  //选择AD的输入端
sbit ADD_B=P3^5;
sbit ADD_C=P3^6;
sbit D0=P2^0;  //数码管的位控制端
sbit D1=P2^1;
sbit D2=P2^2;
sbit D3=P2^3;
sbit P17=P1^7;  //确定小数点的位置
sbit s1=P3^2;
sbit s2=P3^3;
#define	 _v0_5 {s1=1;s2=0;}
#define _v10 {s1=0;s2=1;}
 

unsigned char m;

void TimeInitial（）;
void Delay（unsigned int i）;

void TimeInitial（）
{ TMOD=0x10;
 TH1=（65536-200）/256;
 TL1=（65536-200）%256;
 EA=1;
 ET1=1;
 TR1=1;
 }
void Delay（unsigned int i）
{
  unsigned int j;
  for（;i>0;i--）
  {
  for（j=0;j<125;j++）
  {;}
  }
}
 
void Display（）

{ 
P1=dispbitcode[dispbuf[3]];

 D0=0;	
 D1=1;
 D2=1;
 D3=1;
 Delay（10）;
 P1=0x00;

 P1=dispbitcode[dispbuf[2]];
 if（m==2）
 {
 P17=1;
 }
 D0=1;
 D1=0;
 D2=1;
 D3=1;
 Delay（10）; 
 P1=0x00;
 P1=dispbitcode[dispbuf[1]];
  if（m==10）
 {
	P17=1;
  }
 D0=1;
 D1=1;
 D2=0;
 D3=1;
 Delay（10）;
 P1=0x00;
 P1=dispbitcode[dispbuf[0]]; 
 D0=1;
 D1=1;
 D2=1;
 D3=0;
 Delay（10）;
 P1=0x00;
}
void main（）
{
TimeInitial（）;
ADD_A=0;
ADD_B=0;
ADD_C=0;
_v10;
m=2;
while（1）
{  			 


	ST=0;
	OE=0;
	ST=1;
	ST=0;
	while（EOC==0）;
	OE=1;
	getdata=P0;
	OE=0;
		 if （（s1==0） && （s2==1） && （getdata<6））
	{ 	
		ADD_A=1;
		_v0_5;

		m=10; 	
	}
	else if	（（s1==1）&&（s2==0） && （getdata>254））
	{
		ADD_A=0;
		_v10;
	
		m=2;
	}


	temp=（getdata*1.0/255）*500*m;
	dispbuf[0]=temp%10;
	dispbuf[1]=temp/10%10;
	dispbuf[2]=temp/100%10;
	dispbuf[3]=temp/1000;
	Display（）;

}
}

void t1（void） interrupt 3 using 0
 {
  TH1=（65536-200）/256;
  TL1=（65536-200）%256;
  CLK=~CLK;
  }

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      61772  2015-11-12 19:22  电压电流表（已完成）\214241gh1vrv82v1svhtco.jpg

     文件     161710  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Backup Of dsfssfs.DBK

     文件       1698  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\dsfssfs.PWI

     文件       1951  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\Text12.c

     文件       5001  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\Text12.LST

     文件       7098  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\Text12.OBJ

     文件       7207  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz

     文件        209  2015-10-30 14:16  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.build_log.htm

     文件       3255  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.hex

     文件         41  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.lnp

     文件       9898  2015-10-30 13:47  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.M51

     文件        981  2015-10-30 14:16  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.Opt

     文件        189  2015-10-28 12:46  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.plg

     文件       2134  2015-10-30 14:16  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz.Uv2

    .......       976  2015-10-28 13:16  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz_Opt.Bak

    .......      1987  2015-10-28 13:16  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\zzz_Uv2.Bak

     文件     161778  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\keil2\电压表.DSN

     文件       7064  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf

     文件       3198  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.hex

     文件         26  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.lnp

     文件       9584  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.M51

     文件        756  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.Opt

     文件        203  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.plg

     文件       2049  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf.Uv2

     文件        913  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf_Opt.Bak

     文件       1931  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\asdf_Uv2.Bak

     文件       1847  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\Text1.c

     文件       4902  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\Text1.LST

     文件       6893  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\Text1.OBJ

     文件       1951  2012-02-21 14:10  电压电流表（已完成）\量程自动切换数字电压表proteus仿真+程序资料\Keil源程序\Text12.c

............此处省略26个文件信息