RLC测试仪程序+proteus仿真

这是我第一次开发的作品,主要应用于测量电阻,电容,电感的仪器,精度还可以,已经亲身测试过了!

#include 
#include “1602.h“
#define DataPort P0
#define ADCPort P2
#define uchar unsigned char
sbit button_r=P1^0;
sbit button_c=P1^1;
sbit button_l=P1^2;
sbit button_q=P1^3;
sbit LED_R=P1^4;
sbit LED_C=P1^5;
sbit LED_L=P1^6;
sbit LED_Q=P1^7;
sbit RS=P3^0;
sbit RW=P3^1;
sbit EN=P3^2;
sbit START=P3^7;
unsigned char func;
unsigned long int  RCLfy;
uchar i=0;
uchar aabbcc;
//uchar code aa[5]=“free“;
uchar code meun[2][16]={“  is:   ““00000000      “};
uchar code m[10]=“0123456789“;
unsigned char T0count; 
unsigned char timecount; 
bit flag; 
void Intar_T0T1（void）
     {
	
         	flag=0; 
         	timecount=0; 
         	T0count=0; 
         	TH0=0; 													
         	TL0=0; 
         	TR0=1;
            TR1=1;
            
	}
void	delay1（void）
	{
	int i;
	for（i=80;i>0;i--）;
	}
void delay_ms（uchar t）
{
	unsigned char i=0;
	while（t--）for（i=0;i<120;i++）;
}

void WriteData（uchar dat）
{
	EN=0;
  	RS=0;             //********RS寄存器选择输入端，当RS=0；当进行写模块操作，指向指令寄存器。
  	RW=0;             //********当RS=1，无论是读操作还是写操作，都是指向数据寄存器。
  	RS=1;
  	RW=0;
  	EN=1;
  	DataPort=dat;
    EN=0;
  	RS=0;
  	RW=0;
  	for （i=0;i<20;i++）;
}

void WriteCmd（uchar cmd）
{
	EN=0;
  	RS=0;             //********RS寄存器选择输入端，当RS=0；当进行写模块操作，指向指令寄存器。
  	RW=0;             //********当RS=1，无论是读操作还是写操作，都是指向数据寄存器。
  	EN=1;
  	DataPort=cmd;
  	RS=0;
 	RW=0;
 	EN=0;
  	for （i=0;i<20;i++）;
}

void DisChar（uchar psuchar dat）
{
	WriteCmd（（0x80+ps））;
	WriteData（dat）;
}

void LcdInit（void）
{
	char pp=0;

	WriteCmd（0x38）;
    delay_ms（5）;
	WriteCmd（0x38）;
    delay_ms（5）;
	WriteCmd（0x38）;
    delay_ms（5）;
	
	WriteCmd（0x01）;delay_ms（5）;
	WriteCmd（0x06）;delay_ms（5）;
	WriteCmd（0x38）;
	WriteCmd（0x0c）; 
	WriteCmd（0x40）;
	
	for（pp=0;pp<16;pp++）DisChar（pp*（meun[0]+pp））;
	for（pp=0;pp<16;pp++）DisChar（pp+0x40*（meun[1]+pp））; 	
}

void Display（unsigned long int x）
{   DisChar（0aa）;
    DisChar（9+0x40bb）;
    DisChar（10+0x40cc）;
    DisChar（7+0x40m[x%10]）;x /= 10;
	DisChar（6+0x40m[x%10]）;x /= 10;
	DisChar（5+0x40m[x%10]）;x /= 10;
	DisChar（4+0x40m[x%10]）;x /= 10;
	DisChar（3+0x40m[x%10]）;x /= 10;
	DisChar（2+0x40m[x%10]）;x /= 10;
	DisChar（1+0x40m[x%10]）;x /= 10;
	DisChar（0+0x40m[x%10]）;x /= 10;
	delay_ms（200）;
}
button（）
	{
	//button_r=1;
	if（button_r==0）
		{
	        func=1;	//功能1：测电阻
            LED_R=0;
            LED_C=1;
            LED_L=1;
            LED_Q=1;
		}
    //button_c=1;
	if（button_c==0）
		{
			func=2;	//功能2：测电容
            LED_R=1;
            LED_C=0;
            LED_L=1;
            LED_Q=1;
          }
    //button_l=1;
	if（button_l==0）
		{
			func=3;	//功能3：测电感
            LED_R=1;
            LED_C=1;
            LED_L=0;
            LED_Q=1; 
			}
    if（button_q==0）
         {
            func=4;	//功能3：测电感
            LED_R=1;
            LED_C=1;
            LED_L=1;
            LED_Q=0;
           } 
   

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

     文件     144170  2009-08-24 23:13  智能RLC和晶体管电流放大系数测试仪\RLC智能测试仪调试.DSN

     文件       5371  2009-08-24 23:11  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.c

     文件         82  2009-08-24 15:38  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.h

     文件       5238  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.hex

     文件         40  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.lnp

     文件      11906  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.LST

     文件      17870  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.M51

     文件      16571  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.OBJ

     文件      13429  2009-08-24 23:05  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602

     文件      54440  2009-08-24 23:11  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.plg

     文件       1970  2009-08-24 23:11  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.Opt

     文件       1879  2009-08-23 16:48  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602_Opt.Bak

     文件        768  2009-08-22 21:14  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\fq.PWI

     文件       1717  2009-08-20 03:41  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602_Uv2.Bak

     文件      81272  2009-08-20 19:01  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\Last Loaded fq.DBK

     文件      83768  2009-08-21 04:41  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\fq.DSN

     文件       1721  2009-08-22 03:29  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪\1602.Uv2

     目录          0  2009-08-24 23:14  智能RLC和晶体管电流放大系数测试仪\智能RLC和晶体管电流放大系数测试仪

     目录          0  2009-08-24 23:11  智能RLC和晶体管电流放大系数测试仪

----------- ---------  ---------- -----  ----

               442212                    19