1、【實例98】智能 充電器設計程序代碼如下：#include <reg51.h>unsigned int T3HOUS=3600;unsigned int T1NUM=0;unsigned int INTONUM=0;sbit SPEAK=P0 A 1;sbit EN/OK=P0 a 2;void main(void) system_init(); /*調用系統初始化函數*/EA=1; EX0=1;/*使能 INT0 中斷 */while(1) EN/OK=1;/* 使能 MAX1898*/void int0_interrupt(void) if(INTONUM=0) TR1=1;

2、SPEAK=0; /* 使能定時器 1*/ INTONUM+;void t1_interrupt(void) T1NUM+;T3HOUS-;if(T3HOUS!=0 )&&(INTONUM =1)if(T1NUM=6000)/*3s*/ T1NUM=0;SPEAK=0;else EN/OK=0; /* 禁止 MAX1898*/T3HOUS =0;SPEAK=1;void system_init(void) SPEAK=1; /*禁止蜂鳴器*/EN/OK=0; /* 禁止 MAX1898*/TMOD=0X20;/*設置定時器1*/TCON |=0X01;TH1=0;TL1=0;【

3、實例99】單片機控制門禁系統程序代碼如下：unsigned char Buff30;/*解碼緩沖區*/unsigned char readbit()/*檢測數據位子程序*/unsigned int mk=TIME10;/*裝入超時值，TIME10=600,*/TLO=THO=O;/*初始化計時器*/TR0=1;/*開始計時*/while(-mk)/*超時機制，防止死等*/if(bitin!=INPORT)/*有跳變 INP0RT=P0.0*/break;TR0=0;/*停止計時*/if(mk=0)/*超時退岀*/return 0;bitin=INPORT;/*保存狀態*/mk=TH0*256+

4、TL0;/*計算這樣跳變的脈寬*/if(mk>TIME05)&&( mk<=TIME10)/* 一個周期*/return 1;if(mk>=TIME00)&&( mk<=TIME05)/*半個周期*/return 2;return 0;/*岀錯*/readdata()函數實現讀取一個完整的數據位的子程序，注意應用這個函數時需要在循環中不斷查詢，程序代碼如下：文檔來自于網絡搜索unsigned char readdata()/*讀一個完整的數據位子程序*/switch(readbit() case 1:/* 一個周期*/return !bi

5、tin;case 2:/*半個周期*/if(readbit()!=2) return 2;/*再讀一次半個周期*/return !bitin;default:return 2;CheckData()函數實現接收并解碼子程序，程序中調用了readdata()函數，bit CheckData()unsigned char i,j;bitin=INPORT;/*保存位狀態*/for(i=0;i<9;i+)/*檢測9個數據位1*/if(readdata()!=1)return 0;for(i=0;i<11;i+)/*讀取數據*/Buffi=0x00;for(j=0;j<5;j+)Bu

6、ffi<<=1;switch(readdata()case 0:break;case 1:Buffi|=0x08;break;case 2:/*err*/return 0;/*結束位*/if(Buff10&0x08!=0x00)return 0;/*行奇校驗位*/for(i=0;i<10;i+)if(Buffi>>4) A(Buffi>>3) A(Buffi>>2) A(Buffi>>1) ABuffi)&0x08)!=0)文檔來自于網絡搜索return 0;/*列奇校驗位*/j=0;for(i=0;i<1

7、1;i+)j=j a (Buffi&0x80); if(j!=O)return 0; for(i=0;i<11;i+) j=j A (Buffi&0 x40); if(j!=0)return 0; for(i=0;i<11;i+) j=j a (Buffi&0x20); if(j!=0)return 0; for(i=0;i<11;i+) j=j a (Buffi&0x10); if(j!=0)return 0;/*完成*/return 1;那么卡號信息存ReadCardNo()函數實現讀取卡號的功能。程序中如果檢測到卡信息正確,放在Buff緩沖區中，程序代碼如下：文檔來自于網絡搜索bit ReadCardNo()if(CheckData()/*檢測卡*/unsigned char i;/*編碼輸岀*/Buff0=(Buff2 & 0xF0) | (Buff3>>4 & 0x0F);Buff1=(Buff4 & 0xF0) | (Buff5>>4 & 0x0F);Buff2=(Buff6 & 0xF0) | (B