#include?
#include?“intrins.h“
#define?uchar?unsigned?char?
#define?uint?unsigned?int?

uchar?out0=0x7f?;???//賦初值
uchar?buf[3]={000};//全局數組
uchar?pr[]={0x570x6E0x5E0x3E0x6D0x5D0x3D0x6B0x5B0x3B};
uchar?discode[]={0x3f0x060x5b0x4f0x660x6d0x7d0x070x7f0x6f};
int?AD;	?//轉換結果，十六進制
int?uuusc=0;	?//帶小數部分數據處理結果
int?Int_resultfloat_result;?//Int_result?整數部分，float_result?小數部分
sbit?Dataout=P1^0;	?//數據線
sbit?cs=P1^1;		?//片選
sbit?sclk=P1^2;		?//io口時鐘
sbit?dx=P1^3;		?//斷碼顯示控制鎖存
sbit?wx=P1^4;		?//位控控制鎖存
sbit?sw=P1^7;
sbit?PWM=P1^5;
sbit?direction=P1^6;
void?delay1ms（uchar?T）	?//單位時間1ms延時
{
??uchar?time;
??while（T--）
????for（time=0;time<120;time++）;
}
/***********顯示程序*************/
void?display（uint?num）	??
{
??uchar?qianbaishige;
??qian=num/1000;	?//千，百，十，個處理
??bai=num/100%10;
??shi=num/10%10;
??ge=num%10;
??
??wx=0;			???
??P0=0xf7;
??wx=1;
??dx=0;
??P0=discode[ge];??//顯示個位
??dx=1;
??delay1ms（1）;?
?if（num>0）
?{
????wx=0;
????P0=0xfb;
????wx=1;
????dx=0;
????P0=discode[shi];//|0x80;???//顯示十位
????dx=1;
	delay1ms（1）;
????wx=0;
????P0=0xfd;
????wx=1;
????dx=0;
????P0=discode[bai];??//顯示百位，帶小數點
????dx=1;
	delay1ms（1）;
??}	??
}
/*************AD轉換程序************/
AD_val（）		????//TLC549處理
{
??uchar?itemp=0;
??cs=1;				//初始化，啟動
??sclk=0;
??cs=0;
??_nop_（）;		????
??for（i=0;i<8;i++）	//讀取采集數據，讀取的是上一次采集數據
????{
	??sclk=1;?
	??temp=temp<<1;
	??if（Dataout）?temp?|=0x01;?
	??sclk=0;
	}?	
??cs=1;
??AD=temp;
??for（i=0;i<5;i++）		?//延時17us以上，進行復位
????_nop_（）;
??Int_result=AD*100/256;	???//處理整數
??//float_result=AD*5%256*100/256;???//處理小數部分
??uuu=Int_result;//（（Int_result*100）+（float_result））;//整數部分和小數部分合成
return?uuu;}?
/****************鍵盤掃描程序*************/
void?KB_Scan1（）
{	uchar??tmplineijflagpress;
	line=0x7E;
	for（i=1;i<=4;i++）
	{	
?????P3=line;
	?tmp=P3;?
???	?tmp&=0x70;
		if（tmp!=0x70）
		{??tmp=P3;flag=1;break;}
		else???line=（line<<1）|0x01;
	}
	if（i==5）?{tmp=0xFF;flag=0;	}
	for（j=0;j<10;j++）
	{if（tmp==pr[j]）
	press=j;}
	??if（flag==1）?
	??{
	??//buf[3]=buf[2];
	??buf[2]=buf[1];
	??delay1ms（100）;
	??buf[1]=buf[0];
??????delay1ms（100）;
	??buf[0]=?press;
??????delay1ms（100）;
	??sc=buf[2]*100+buf[1]*10+buf[0];
	??}
}

/***************PID服務程序*************/
void?PID（）??????????????????
{?double?e0e1e2;?
uchar?duout1;?
uchar?kp=16?kd=0ki=0;//?ts=1;
??e0=e1;e1=e2;e2=（sc-uuu）;///10;???//設定值-采集量
??if（e2>=0）???????????????????????
???{?direction=1;
	if（e2>=20）??????????????//測得偏差值與設定偏差值進行比較，若不在設定范圍內則滿功率加熱。
?????{TR0=0;PWM=1;}
?????else
??????{??du=10*e2;//（e2-e1）+ki*e2+kd*（e2-2*e1+e0）;??//?PID算法
?????????out1=du;//+out0;
?????????TR0=1;???//若到達設定范圍則調用PID程序，進行有效功率加熱.
????????}?
????}

??else?if（e2<0）????????????//測得值與設定值比較，測得值大于設定值，關閉加熱設備，停止加熱。??
???{?direction=0;
	if（e2<-20）??????????????//測得偏差值與設定偏差值進行比較，若不在設定范圍內則滿功率加熱。
?????{TR0=0;PWM=1;}
?????else
??????{??du=10*e2;//（e2-e1）+ki*e2+kd*（e2-2*e1+e0）;??//?PID算法
?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件?????184320??2004-07-28?16:02??基于單片機的流量控制系統設計.doc

?????文件??????10808??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549

?????文件???????4148??2004-07-06?10:44??課設完整版（所有模塊）\ADTLC549.C

?????文件???????4422??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.hex

?????文件?????????48??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.lnp

?????文件???????8449??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.LST

?????文件??????13742??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.M51

?????文件??????11362??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.OBJ

?????文件???????1183??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.opt.bak

?????文件???????7306??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.plg

?????文件???????2006??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.Uv2.bak

?????文件??????56087??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.uvopt

?????文件??????13250??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549.uvproj

?????文件???????1194??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549_Opt.Bak

?????文件???????2153??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549_Uv2.Bak

?????文件??????56087??2004-07-05?20:25??課設完整版（所有模塊）\ADTLC549_uvopt.bak

?????文件?????177179??2004-07-07?19:57??課設完整版（所有模塊）\Last?Loaded?TLC549.DBK

?????文件???????5115??2002-04-16?15:32??課設完整版（所有模塊）\STARTUP.A51

?????文件?????177054??2004-07-07?20:38??課設完整版（所有模塊）\TLC549.DSN

?????文件??????10896??2004-07-07?20:31??課設完整版（所有模塊）\whj-de

?????文件???????4540??2004-07-07?20:45??課設完整版（所有模塊）\whj-de.c

?????文件???????4629??2004-07-07?20:31??課設完整版（所有模塊）\whj-de.hex

?????文件?????????44??2004-07-07?20:30??課設完整版（所有模塊）\whj-de.lnp

?????文件???????8945??2004-07-07?20:30??課設完整版（所有模塊）\whj-de.LST

?????文件??????14053??2004-07-07?20:31??課設完整版（所有模塊）\whj-de.M51

?????文件??????11393??2004-07-07?20:30??課設完整版（所有模塊）\whj-de.OBJ

?????文件????????192??2004-07-09?11:00??課設完整版（所有模塊）\whj-de.plg

?????文件???????1985??2004-07-06?11:38??課設完整版（所有模塊）\whj-de.Uv2

?????文件??????????0??2004-07-06?10:45??課設完整版（所有模塊）\whj-de_Uv2.Bak

?????文件???????1016??2004-07-08?17:43??課設完整版（所有模塊）\whj-de_Opt.Bak

............此處省略37個文件信息