一些实用的单片机c程序

只看该作者 · 2009-11-19 20:15

一些实用的单片机c程序
//16进制<->10进制互换程序

unsigned char d[10]; //用于显示的10位显示缓存
//========================================================
   //16进制to10进制输出子程序:显示数据，起始位，结束位，有无小数点
//========================================================
void output(unsigned long dd,unsigned char s,unsigned char
e,unsigned char dip) {
   unsigned long div;
   unsigned char tm[8],i,j;
   div=10000000;
   for (i=0;i<8;i++) {
      tm[i]=dd/div;
      dd%=div;
      div/=10;
   }
   for (i=0;i<6;i++) {
      if (tm[i]!=0) break;
      tm[i]=nul;
   }
   tm[5]|=dip;          //小数点控制，请看“串行LED数码管显示驱动程序”
   j=7;
   for (i=s;i<e;i++) {
      d[i]=tm[j];
      j--;
   }
}
//把显示位5-9位的10进制数转换成为16进制数
unsigned int input(void) {
   unsigned int dd,dat;
   dd=10000;dat=0;
   for (i=5;i<10;i++) {
      dat+=dd*temp;
      dd/=10;
   }
   return(dat);
}
/* 89C51系列CPU编程器接收CPU程序*/
＃i nclude <reg51.h>
＃i nclude <intrins.h>
＃i nclude <absacc.h>
#define e 8
#define p 9
#define l 10
sbit led=P3^2;
sbit p27=P2^7;
sbit p26=P2^6;
sbit p36=P3^6;
sbit p37=P3^7;
sbit rst=P3^3;
sbit ale=P3^5;
sbit vpp=P3^4;
bit b_break;
unsigned int adds;

// 13.8mS
void int_t0(void) interrupt 1 {
   TH0=-100;
   b_break=1;
}
void wait(unsigned char w) {
   unsigned int t=w*184;
   b_break=0;
   TL0=-t%256-1;TH0=-t/256;
   while (b_break==0) {}
}
void nop(void) {
   _nop_();_nop_();_nop_();_nop_();
   _nop_();_nop_();_nop_();_nop_();
   _nop_();_nop_();_nop_();_nop_();
   _nop_();_nop_();_nop_();_nop_();
   _nop_();_nop_();_nop_();_nop_();
}
unsigned char command(void) {
   TH0=-100;b_break=0;
   while (RI==0) {if (b_break==1) return(0);}
   RI=0;
   return(SBUF);
}
void earsure(unsigned char cpu) {
   switch (cpu) {
   case 1:       //89C51
   case 2:rst=p26=1;p27=p36=p37=0;nop();vpp=1;nop();
      ale=0;wait(110);ale=1;nop();
      break;
   case 3:
   case 4:break;
   case 5:
   case 6:break;
   }
}
void program(unsigned char cpu) {
   unsigned int bdata adds=0;
   unsigned char d;
   switch (cpu) {
   case 1: //89C51
   case 2:
      p36=p37=1;rst=1;
      while (1) {
         TH0=-100;b_break=0;
         while (RI==0) {if (b_break==1) return;}
         RI=0;
         d=SBUF;
         //address
         P0=adds%256;
         P2=adds/256;
         p27=1;
         //data
         P1=d;
         nop(); //48clcl
         //vpp
         vpp=1;
         nop(); //48clcl
         //ale
         ale=0;
         wait(1);//100uS
         ale=1;
         nop(); //10uS
         vpp=0;
         nop(); //48clcl
         p27=0;
         nop(); //48clcl
         P1=0xff;
         TH0=-100;b_break=0;
         while (d!=P1) {if (b_break==1) return;} //data
polling
         SBUF=d;
         adds++;
      }
      break;
   case 3:
   case 4:
   case 5:
   case 6:break;
   }
}

只看该作者 · 2009-11-19 20:15

void lock(unsigned char cpu) {
   unsigned char i;
   switch (cpu) {
   case 1: //89c51
   case 2:
      //lock 1
      rst=p26=p36=p27=p37=1;nop();
      vpp=1;
      nop();
      ale=0;
   // for (i=0;i<6;i++) wait(100);
      wait(1);
      ale=1;
      nop();
      vpp=0;
      nop();

      //lock 2
      rst=p26=p27=1;p36=p37=0;nop();
      vpp=1;
      nop();
      ale=0;
   // for (i=0;i<6;i++) wait(100);
      wait(1);
      ale=1;
      nop();
      vpp=0;
      nop();

      //lock 3
      rst=p26=p36=1;p27=p37=0;nop();
      vpp=1;
      nop();
      ale=0;
   // for (i=0;i<6;i++) wait(100);
      wait(1);
      ale=1;
      nop();
      vpp=0;
      nop();
      break;
   case 3:
   case 4:
   case 5:
   case 6:break;
   }
}

void main(void) {
   unsigned char disp,flash,temp,cpu;
   EA=1;
   SCON=0xd8;PCON=0x80;
   TMOD=0x21;
   TL1=TH1=0xff;TR1=1;
   TH0=-100;ET0=TR0=1;

   flash=0x80;

   while (1) {
      temp=command();
      switch (temp) {
      case 0:
      case 1:       //89c51
      case 2:       //89C52
      case 3:       //80f51
      case 4:       //80F52
      case 5:       //87F51
      case 6:cpu=temp;SBUF=temp;break;//87f52
      case e:SBUF=temp;earsure(cpu);break; //erasure
      case p:SBUF=temp;program(cpu);break; //program
      case l:lock(cpu);SBUF=temp;break; //lock
      default:SBUF=temp;break;
      }
      b_break=0;
      if ((++disp)>flash) {disp=0;led=!led;}
   }
}
//HT1380实时时钟驱动程序

sbit clock_dat=P0^1;
sbit clock_clk=P0^2;
sbit clock_rst=P0^3;

sbit a0=ACC^0;
sbit a1=ACC^1;
sbit a2=ACC^2;
sbit a3=ACC^3;
sbit a4=ACC^4;
sbit a5=ACC^5;
sbit a6=ACC^6;
sbit a7=ACC^7;

void clock_out(unsigned char dd) {
   ACC=dd;
   clock_dat=a0;clock_clk=1;clock_clk=0;
   clock_dat=a1;clock_clk=1;clock_clk=0;
   clock_dat=a2;clock_clk=1;clock_clk=0;
   clock_dat=a3;clock_clk=1;clock_clk=0;
   clock_dat=a4;clock_clk=1;clock_clk=0;
   clock_dat=a5;clock_clk=1;clock_clk=0;
   clock_dat=a6;clock_clk=1;clock_clk=0;
   clock_dat=a7;clock_clk=1;clock_clk=0;
}
unsigned char clock_in(void) {
   clock_dat=1;
   a0=clock_dat;
   clock_clk=1;clock_clk=0;a1=clock_dat;
   clock_clk=1;clock_clk=0;a2=clock_dat;
   clock_clk=1;clock_clk=0;a3=clock_dat;
   clock_clk=1;clock_clk=0;a4=clock_dat;
   clock_clk=1;clock_clk=0;a5=clock_dat;
   clock_clk=1;clock_clk=0;a6=clock_dat;
   clock_clk=1;clock_clk=0;a7=clock_dat;
   return(ACC);
}
unsigned char read_clock(unsigned char ord) {
   unsigned char dd=0;
   clock_clk=0;
   clock_rst=0;
   clock_rst=1;
   clock_out(ord);
   dd=clock_in();
   clock_rst=0;
   clock_clk=1;
   return(dd);
}
void write_clock(unsigned char ord,unsigned char dd) {
   clock_clk=0;
   clock_rst=0;
   clock_rst=1;
   clock_out(ord);
   clock_out(dd);
   clock_rst=0;
   clock_clk=1;
}
/*单个汉字库字摸提取程序，tc2.0编译*/
＃i nclude "stdio.h"
＃i nclude "dos.h"
＃i nclude "process.h"
＃i nclude "string.h"

void main(void) {
   long int num_bytes,qm,wm;
   unsigned char d,i,j,k,a[132],b[132];
   unsigned char * data;
   unsigned char * hz;
   static unsigned  char dd[103];
   FILE *fp;

   if ((fp=fopen("hzk16f","rb"))==NULL) {
      printf("can't open hzk16\n");
      exit(1);
   }
   clrscr();
   while (1) {

      data=(unsigned char *) malloc(33);
      printf("please input:\n");
      scanf("%s",dd); /*输入一个汉字*/

      qm=* dd;       /*通过区位码计算其在hzk16f文件中的偏移地址*/
      qm=qm-161;
      if (qm>87) exit(0);
      wm=* (dd+1);
      wm=wm-161;
      if (wm>94) exit(0);
      num_bytes=((long)qm*94+wm)*32;
      fseek(fp,num_bytes,SEEK_SET);
      fgets(data,33,fp);
      for (i=0;i<32;i++) b[i]=* data++;
      for (i=0;i<32;i+=2) a[i/2]=b[i];
      for (i=0;i<32;i+=2) a[i/2+16]=b[i+1];
      for (i=8;i<16;i++) b[i]=a[i];
      for (i=8;i<16;i++) a[i]=a[i+8];
      for (i=8;i<16;i++) a[i+8]=b[i];

      /*转换，hzf16f在电脑的储存格式是以行为字节计算的，一般的lcd都采用以列为字节计算*/
      for (k=0;k<32;k+=8) {
         for (j=0;j<8;j++) {
               d=0;
               for (i=0;i<8;i++) {
                  if (a[i+k]>=0x80) {
                     switch (i) {
                     case 0:d+=1;break;
                     case 1:d+=2;break;
                     case 2:d+=4;break;
                     case 3:d+=8;break;
                     case 4:d+=0x10;break;
                     case 5:d+=0x20;break;
                     case 6:d+=0x40;break;
                     case 7:d+=0x80;break;
                     }
                  }
               }
               for (i=0;i<8;i++) a[i+k]<<=1;
               b[j+k]=d;
         }
      }
      clrscr();
      printf("/*%s:*/\n",dd);       /*输出0x00格式的16进制数*/
      for (k=0;k<32;k+=8) {
         for (j=0;j<8;j++) printf("0x%x,",b[j+k]);
         printf("\n");
      }
      getch();
   }
}
//按键扫描驱动程序

只看该作者 · 2009-11-19 20:16

unsigned char key,key_h,kpush;
unsigned int key_l;

//按键连接到p1.0、p1.1、p1.2

void int_t0(void) interrupt 1 {
   unsigned char dd,i;
   TL0=TL0+30;TH0=0xfb; //800
   /* 按键判别 */
   if ((P1&0x7)==0x7) {
      if ((key_l>30)&&(key_l<800)&&(key_h>30)) {
//释放按键，如果之前按键时间少于1秒，读入键值
         key=kpush;
      }
      if ((++key_h)>200) key_h=200;
      key_l=0;
      if (key>=0x80) key=0;
//如果之前的按键为长按1秒，清除键值
   } else {
      kpush=P1&0x7;
      key_l++;
      if ((key_l>800)&&(key_h>30)) {
//如果按键超过1秒，键值加0x80标志长按键
         key=kpush|0x80;
         key_h=0;
         key_l=0;
      }
   }
}
void main(void) {
   TMOD=0x1;TR0=1;ET0=1;EA=1;
   while (1) {
      while (!key) {}
      switch (key) {
      case 1:break;
      case 2:break;
      }
   }
//串行驱动led显示，
//一个74hc595位移寄存器驱动三极管驱动led位，
//两个74hc595驱动led段，方式位5位x8段x2=10个数码管
//5分频，每次扫描时间位1.25ms

//定义特殊符号

#define nul 0xf
#define qc 0xc
#define qb 0xb
#define q_ 0xa
#define q__ 0xd
#define q___ 0xe
#define qp 0x10
#define qe 0x11
#define qj 0x12
#define qn 0x13
#define qf 0x14
#define qa 0x15
#define qr 0x16
#define qd 0x17
#define qu 0x18
#define ql 0x19
#define qh 0x1a
#define qwen 0x1b
#define qt 0x1c
#define qla 0x1d
#define qlb 0x1e
#define qlc 0x1f
#define qld 0x20
#define qle 0x21
#define qlf 0x22
#define qlg 0x23
#define qldp 0x24

//显示段信息，不同led排列组合的段信息只需更改8个数值即可。
//因此，该定义具有通用性。

// 显示
//       -d 20
// |c 40 |e 10
//       - g       80
// |b 2 |f 4
//       _a1 .dp 8
#define pa 1
#define pb 2
#define pc 0x40
#define pd 0x20
#define pe 0x10
#define pf 4
#define pg 0x80
#define pdp 8

//--------------
#define l0 pdp+pg
#define l1 255-pf-pe
#define l2 pdp+pc+pf
#define l3 pdp+pc+pb
#define l4 pdp+pa+pb+pd
#define l5 pdp+pb+pe
#define l6 pdp+pe
#define l7 pdp+pc+pg+pb+pa
#define l8 pdp
#define l9 pdp+pb
#define la pdp+pa
#define lb pdp+pd+pe
#define lc pdp+pg+pe+pf
#define ld pdp+pc+pd
#define le pdp+pe+pf
#define lf pdp+pe+pf+pa
#define l_ 255-pg
#define lnul 255
#define ll pdp+pg+pd+pf+pe
#define lp pdp+pa+pf
#define lt pdp+pd+pe+pf
#define lr pdp+pe+pf+pg+pa
#define ln pdp+pg+pa
#define lh pdp+pd+pe+pa
#define ly pdp+pb+pd
#define lu pdp+pg+pd
#define l__ pdp+pg+pb+pc+pe+pf
#define l___ l__-pg
#define l_1 255-pa
#define l_2 255-pa-pg
#define lj 255-(pe+pf+pa)
#define lwen 255-(pd+pe+pg+pb)
#define lall 0

#define lla 255-pa
#define llb 255-pb
#define llc 255-pc
#define lld 255-pd
#define lle 255-pe
#define llf 255-pf
#define llg 255-pg
#define lldp 255-pdp

//串行送出的位信息，目前是10位led显示。
unsigned char code un_dig[]={0x7f,0xbf,0xdf,0xef,0xf7,0xfb};
//串行送出的短信息。
unsigned char code
un_disp[]={l0,l1,l2,l3,l4,l5,l6,l7,l8,l9,l_,lb,lc,l__,l___,lnul,lp,le,lj,ln,lf,la,lr,ld,lu,
ll,lh,lwen,lt,lla,llb,llc,lld,lle,llf,llg,lldp,lnul};

sbit d_clk=P0^0;       //移位时钟
sbit d_dat=P0^1;       //移位数据
sbit d_st=P0^2;          //移位锁定

unsigned char dig;          //位扫描计数器
unsigned char d[10];                         //显示缓冲

//送出8位串行数据
void out_disp(unsigned char dd) {
   unsigned char i;
   for (i=0;i<8;i++) {
      if (dd&1) d_dat=1; else d_dat=0;
      d_clk=0;
      dd>>=1;
      d_clk=1;
   }
}
//控制小数点和闪烁，显示数据|0x040表示有小数点；显示数据|0x80表示闪烁。
void out_displ(unsigned char dd) {
   if (dd>=0x80) {
      if (s001>flash_time) {out_disp(0xff);return;}
   }
   dd&=0x7f;
   if (dd>=0x40) {
      dd=un_disp[dd&0x3f]^pdp;
   } else dd=un_disp[dd];
   out_disp(dd);
}

unsigned int s001; //闪烁时间参考
void int_t0(void) interrupt 1 {
   unsigned char dd;
   TL0=TL0+30;TH0=0xfb; //800
   time++;
   if ((++s001)>=800) s001=0;
   // 显示
   if ((++dig)>4) dig=0;
   d_st=0;
   dd=d[dig+5];
   out_displ(dd);
   dd=d[dig];
   out_displ(dd);
   out_disp(un_dig[dig]);
   d_st=1;
}
void main(void) {
   unsigned char i;
   TMOD=0x1;
   TR0=ET0=1;
   EA=1;
   for (i=0;i<10;i++) d[i]=i; //display test
   while (1) {}
}