自动升降旗控制程序c

1、程序清单#include <reg52.h>#define uchar unsigned char#define uint unsigned intuchar code FFW8=0xfL0xf3,0xf2.0xf6.0xf4,0xfc,0xf8.0xf9;uchar code REV|8=0xf9.0xf8.0xfc.0xf4,0xf6,0xf2,0xf3,0xfl;uchar keysbuLavonum=0,temp;bit keyflag=O.upflag= 1 .bquptlag= 1;uint t= 1425.rate= Lm=0,n=0,x,g,l=0,count=0;

2、void display(unsigned int i,k);char code anjian= 7,8,9.12,4,5,6,13,123,10, 0,14,15,11;unsigned char dis| 10=0x3f.0x06.0x5b.0x4L0x66,0x6d.0x7d,0x07.0x7f,0x6f); uint a.b.cde,f;/*/*延时/* 11.0592MHz 时钟,/*在*/void delayO步进电机延时子程序uchark;uint s;k = rate;for(;k>0;k-)for(s = 0;s <340;s+);display(n.l);voi

3、d delay 1 (int a) uint i;for(i=0;i<a;i+);显示延时子函数电机每转1cm,显示高度加一void motor_ffw() uchar i;for (i=0; i<8: i+)Pl =FFWi;delayO;m+;if(m%63=0)n+;if(m%264=0)电机正转子程序一个周期转30度取数据调门转速1+;显示时间加一void motor_REV()电机反转子程序电机每转1cm,显示高度减一显示时间加一 uchar i;for (i=0; i<8; i+) Pl =REVi:delayO;m+;if(m%63=0)n-;if(m%264=

4、0)1+；一个周期转30度取数据调节转速匀速匀速键盘扫描子程序消抖/*步进电机运行*/void motorjumO for(;t>0;t-) motor_ffw();)void motor_REVl()for(;t<g;t+) motor_REV();)keyscan()char Inunhrnum;P2=0x0f;/keyflag=O;if(P2&0x0f)!=0x0f)delay 1( 100);if(P2&0x0f)!=0x0f) if(P2=0x0e) rnum=0: if(P2=0x0d) rnum=l;if(P2=0x0b) rnum=2;if(P2=0

5、x07)rnum=3;P2=0xf0;if(P2&0xf0)!=0xf0) if(P2=0xe0)lnum=O;if(P2=OxdO) lnum=l;if(P2=OxbO)lnum=2;if(P2=0x70)lnum=3;keyflag=l;keysbuf=mum*4+lnum;)/*键盘扫描*/niain()TMOD=0x01;/TO 一方式TH0=-10000/256;TL0=-10000%256;EA=1;ETO=1;TRO=1;Pl=OxfO;while(l) if(keyflag!=O)有按键否？keyflag=O;teinp=anjiankcysbuf；avonum=20;

6、if(temp= 1 &&upflag= 1)按键为1，电机正转运行TR0=0; 关掉定时中断motorjurnO;TRO=1;启动定时中断teinp=3:m=O;upflag=O;bqupflag=O;)else if(temp=12&&upflag=0)按键为 12.电机反转运行TR0=0;g=1425;1=0;motor_REVl();TRO=1;temp=3;upflag=l ;bqupflag=l;else if(temp=4&&bqupflag= 1) TR0=0;motorjurn();m=0;g=475;motor_REVl();

7、teinp=3:bqupflag=O;upflag=O;t=475;TRO=1;else if(tenip= 10&&bqupflag=0) TRO=O;motorjurn();g=1425;m=0;motor_REVl();temp=3:bqupflag=l;upflag=l;按键为4,电机正反转运行到半旗状态按键为10,电机反正转运行到半旗状态TRO=1;)timed)。interrupt 1 using 1TR0=0;TH0=-10000/256;TLO=-1OOOO%256;TRO=1;if(temp=3)count+;if(avonum>0)avonum-;if(avonum=0)&&(keyflag=0)理keyscanO;/T0中断服务程序重装冲数初值防重读数减一达到检测键盘条件且上个按键己处调用键盘扫描子程序if(count/1000=l)count=0:temp=7;1=0；10秒到，时间显示清零display(n,1);调用显示子程序)/*显示子程序*/void display(unsigned int i.k)(a=i/100;b=i%100/10;c=i%100%10;d=l/10;e=l%10;PO=disc;Pl=0xa0;delay 1(48);if(blla)!=O