单片机红外遥控器解码实验 C语言和汇编2个版本的程序都有

fanichicl

单片机红外遥控器解码实验 C语言和汇编2个版本的程序都有

) V, i% @2 q8 \( s: ^

注：
每个EXP实验的文件夹下文件夹分别是P_ASM、P_EMULATOR_C，P_PROTEUS_C，P_EMULATOR_ASM。
P_PROTEUS_ASM        为PROTEUS汇编实例工程
P_PROTEUS_C        为PROTEUS C51仿真实例工程
P_EMULATOR_C        为硬件仿真器（可选配件）C51实例工程
P_EMULATOR_ASM        为硬件仿真器汇编实例工程
一般情况下P_PROTEUS_ASM，P_PROTEUS_C和P_EMULATOR_C和P_EMULATOR_ASM都支持ISP下载脱机运行

P_ISP_C，P_ISP_ASM为ISP下载脱机运行实例。比如看门狗实验，仿真器不支持，因为复位信号被仿真器接管，所以就只能做硬件脱机实验，通过ISP下载程序。
$ L6 c' p, [% U. B
9 x2 V2 @* Z- X0 T如果文件夹带有（缺省）说明暂时没有提供此程序，可根据需要再添加。
6 r. L7 f2 O2 a

汇编和c的代码都有很全面.

$ R0 y8 v  W" H3 h$ Oc语言程序：
1 a2 h' M9 x9 r" j  [/ F/ Z5 S

! w  F, R+ c3 W! N" N& [' F* l

/*************************************************  
*文件名称： main.c
! @7 d8 V& W& N! g*作 者：   
*版 本：    V1.00
*说 明：    红外遥控器解码实验
9 ?  d* v* @: M" Y# I*修改记录：  
) H3 ]. q% `$ l4 {--------------------------------------------------
*Descriptoon:
( v- ?5 ?4 s, Y+ {; c# t*接线说明：P32-红外接收,P25-RS,P26-RW,P27-EN,
           P00~P07-DB0~DB7                 
) [( R- Z  n! L9 a; y* F**************************************************/                        

#include <reg52.h>
* a" K; a, U2 D2 c6 l. P9 i
' l, j9 R8 D) H& E4 R; e0 a#define uchar unsigned char
6 p+ }6 b- [; D6 n5 x+ o' N" i5 z#define uint unsigned int
//char code SST516[3] _at_ 0x003b;
" [8 V3 G, u. L" Y: s/ `#define c(x)(x*110592/120000) //晶振11.0592
& n0 d2 Z6 J" F1 c8 |* s, c
uchar Lcd_Buf[4];             //显示数据缓冲区         
. z9 j$ q8 ]1 {0 f/ K- j% V4 e- i. qunsigned char Ir_Buf[4];      //用于保存解码结果
sbit Ir_Pin=P3^2;             //红外线数据接口
sbit rs=P2^0;                     //LCD数据命令端
sbit rw=P2^1;                          //读写接口
sbit lcde=P2^2;                          //使能接口
uchar code table[]=" WWW#WINDWAY$CN ";//LCD显示数据
! n0 }! W- t- ^  wuchar code table1[]="Wait for IR in..";
uchar code table2[]="  IR DATA...";

           unsigned char code Led_Tab[]={
3 E2 m0 A, S+ U5 f( r. b        0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xf8,
        0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E};   //共阳极数码显示码0-F
  N& m, b: w6 K  ]unsigned char code Led_Sel[]={0xf,0xf,0xb,0x7}; //数码管位选，屏蔽前两位
unsigned char Led_Buf[4]; //显示缓冲区
char Led_Index;           //定义位选         
; g5 V  Q& q6 R  ]3 S  Yunsigned char Ir_Buf[4];  //用于保存解码结果

5 c( {# y' Q1 c- R% z3 Psbit LCD_E = P2^7;
//========1MS延时====================================
8 H8 p/ ?  n2 y) _  ?6 Pvoid delay(uint z)
{
5 n: g, E7 M2 _' S( ?4 X- I- Q9 B        uint x,y;
        for(x=z;x>0;x--)
                for(y=113;y>0;y--);
}
: t  |0 ?8 T7 Z: m//======LCD写命令=====
+ d* B7 N% P! T. P" f: @! X3 wvoid write_com(uchar com)
{
8 ^: o1 \" _) H        rs=0;
        lcde=0;
        P0=com;
        lcde=1;
        delay(1);//延时1MS跳过忙信号
) g& P8 z  |; ^, x        lcde=0;
        delay(1);
}
* [+ I! @  J+ k1 M//======LCD写数据=====================================
6 g* j% X' z! g- S/ @: Cvoid write_date(uchar date)
: e5 S) e7 x2 j5 }1 `/ b1 X7 ?9 z, {3 \, j{
        rs=1;
        lcde=0;
        P0=date;
! H: f4 \  K3 X& {8 S0 x        lcde=1;
! H5 t# N7 [8 t9 l/ x        delay(1);
2 \0 B& n* T9 k3 T$ ~3 R# a3 h        lcde=0;
        delay(1);
}
# l( m! X) k! x% B3 U0 F& s//=====初始化函数=====================================
1 s+ Y- P: q! S; ovoid init()
- _. a. T3 q) p{        
        uchar num;
        rw=0;                //允许LCD写
7 _% ~  l$ z1 w% R        lcde=0;
        write_com(0x38);//显示模式设置                                                         
        write_com(0x0c);//显示开及光标设置
        write_com(0x06);//显示光标移动设置
        write_com(0x01);//清屏
% |: U) q, [) H4 O        write_com(0x80);//显示首地址
2 V. X' O7 b* Y        for(num=0;num<15;num++)//显示第一行
        {
4 U1 ^8 ^6 m0 z0 M3 U                write_date(table[num]);
                delay(1);
        }
        write_com(0x80+0x40);//显示第二行
0 ~& q( E$ R1 k        for(num=0;num<16;num++)
        {
                write_date(table1[num]);
                delay(1);
        }
$ w" G9 g5 b" Q- a        TMOD=0x10;                //设置定时器0、1工作模式为1
: g% T9 [7 K9 s$ j2 P}
//=====显示解码========================================
void write_ir(uchar date)
8 T4 ?- j& z. ^- N, ]1 m{
! B$ c) l3 M5 T; r        uchar tmp, num,ff;         
/ V' R% p& X$ l: J. a  g
        if(ff==0)
, l, W; a, _4 D; C: B  J/ X) h, `        {
6 p5 B  z3 o  F                ff++;
0 O6 u( R$ E7 k                write_com(0x01);
9 v: i: ^. ]& \9 u3 {; p                write_com(0x80);
                for(num=0;num<12;num++)
+ V  P5 m9 f4 N9 O0 G                {
                        write_date(table2[num]);
9 e4 |* _5 Z: ?  ^' r* z( Y                        delay(1);
                }                 
        }
& g8 r3 D2 @; E
        write_com(0xC0+6);//定位在第二行第六位
' P" ]% v- v* [9 l: m        tmp = date>>4;                        // 高四位         
        write_date(tmp > 9 ? 'A'+tmp-10 : '0'+tmp);
        write_com(0xC0+7);//定位第二行第七位           
        tmp = date&0x0F;                        // 低四位
' T& m& V9 @0 q7 R+ r1 h# U        write_date(tmp > 9 ? 'A'+tmp-10 : '0'+tmp);         

8 G9 r) {) E4 t5 E8 K: `" ?* ~0 Y}
1 T5 R) P" K) T) j% `3 s//======================================================
//解码取回低电平
0 J; a0 J+ ]+ K$ f9 }8 Xunsigned int Ir_Get_Low()
{
        TL1=0;
        TH1=0;
# d- u6 k5 t6 r9 T7 l% }( `        TR1=1;
" @2 n; X. ]/ h        while(!Ir_Pin && (TH1&0x80)==0);   //等待低电平到来              
! _; q: f  Y5 h1 x- L' O2 ]        TR1=0;           
        return TH1*256+TL1;//提取低电平时间间隔时长
}
6 U6 ~2 {. l4 F* X& w+ S//======================================================
//解码取回高电平========================================
- ~0 N/ n' I; Y. q) |unsigned int Ir_Get_High()
{
        TL1=0;
7 w* Q7 z7 |8 l7 A9 r- j; e        TH1=0;
        TR1=1;
6 ?# o4 p' ~9 z- B" z        while(Ir_Pin && (TH1&0x80)==0);//等待高电平到来
9 T/ i$ a! ~; h" o* ^# n) f" P        TR1=0;
        return TH1*256+TL1;//提取高电平时间间隔时长
% E9 [0 T* c( Z; P. S% c* Q  F}
+ s+ a' K- v# `: O//======================================================
3 q# ?" B5 H" c& v//======================================================

7 s8 x7 ?  K  T4 D: {2 o" Lvoid main()
  s& ~% e  O$ n/ E{
4 X9 E* w& ]9 Y1 q        unsigned int temp;
; Z8 H7 T) ]- I: x/ q5 X        char i,j;
; \! [& S2 g1 A: j: }9 z% l9 X* }        init();        //初始化
& [& a, n) q! e1 t4 K( J//=====用do做循环，等待遥控按键=========================
: O3 [# h* i: Q7 u+ q: ^2 ~, p        do{
restart:
0 o! L5 X! S  q3 o7 \$ d" j                while(Ir_Pin) ;//等待低电平
+ X4 u7 ^8 O7 m7 E* J5 y
3 Z" e' i' X9 ?4 x4 |7 S5 U' \1 C                temp=Ir_Get_Low();//把低电平附给变量
: U% J: K# W+ E6 |) Y0 i                if(temp<c(8500) || temp>c(9500)) continue;//引导脉冲低电平等待9000us
% V- D/ [0 S5 k. Y# ?! w) y                temp=Ir_Get_High();//把高电平附给变量
% Y5 R& Z2 ~4 x( W                if(temp<c(4000) || temp>c(5000)) continue;//引导脉冲高电平等待4500us
                //连续读出32个字节
7 u! U+ ?$ H( ]$ B/ r                for(i=0;i<4;i++) //4个字节
4 A  R( e1 U. d2 K0 Q9 v                {
8 e) M- p) d* X  m; [                        for(j=0;j<8;j++) //每个字节8位
* ~* t; H! C& i  e' P                        {
                                temp=Ir_Get_Low();
                                if(temp<c(200) || temp>c(800)) goto restart;//等待560us跳过低电平
                                temp=Ir_Get_High();
                                if(temp<c(200) || temp>c(2000)) goto restart;//等待1000us跳过高电平
                                Ir_Buf>>=1;//把电平移进数组


…………限于本文篇幅 余下代码请从论坛下载附件…………

  Y6 Z5 F  h* u8 y2 h4 m2 y" C0 K汇编语言：

- j  c& p+ S* d- Y: F( Q6 Q
# k) h8 i0 }% d0 @; j3 a;-----------------------------------------------
       IRCOM  EQU  20H       ;20H-23H IR使用
; C! d& F/ y) n' p        X     EQU  26H       ;LCD 地址变量
" ^& z/ ]/ L3 Z0 \0 @) w
& h" C. b. N+ i9 V% I! k       IRIN   EQU  P3.2
. A& R! S2 b% F;       BEEP   EQU  P3.7
;       RELAY  EQU  P1.0
4 d" l4 K% v, c9 k  o& O8 G6 W
0 d/ g; c# P: y. y; W* X- D        RS    EQU  P2.0
        RW    EQU  P2.1
        EN    EQU  P2.2
  [, p/ Q# j6 Q0 ?;------------------------------------------------
& H# \+ S+ Z  p+ X& V- D! B6 y" ^         ORG 0000H
# \/ `" U  S- L7 a         JMP  MAIN
;------------------------------------------------
          ORG 0100H
/ p! e/ X- N* n9 J0 rMAIN:
/ {: j- x7 l+ q6 h% j1 J% }. G          MOV   SP,#40H
          MOV   A,#00H
          MOV   R0,#20H
8 [9 x, }, T  zLOOP0:    MOV   @R0,A          ;20H-26H清零
          INC   R0
# Y. ]4 l7 i& m3 M          CJNE  R0,#27H,LOOP0
/ C) P8 Q; ]3 q9 X' Q( C  L. G          SETB  IRIN
$ ~: ]" y- H# u) r; e7 U& D          CALL  SET_LCD
' r& S4 m0 \1 Z9 w$ E6 a          CALL  MENU1
LOOP1:
9 v8 O- P3 |! l1 Y* C          CALL  IR_IN
: B3 I0 c5 _2 V; N' I          CALL  IR_SHOW
' `  ~- N. g8 L9 Q6 h0 j" B. g
;          MOV  A,22H
;          CJNE  A,#40H,LOOP2    ;K17键按下
, Y8 t( \9 B9 ]7 q6 Y;          CLR   RELAY           ;继电器吸合
* ?% \2 R$ o$ E& M;LOOP2:    CJNE  A,#04H,LOOP3    ;K19键按下
1 |* j: N( b8 ^  u;          SETB  RELAY           ;继电器关闭
;LOOP3:   
/ a" b6 I1 C' w. |           JMP   LOOP1
2 S; M. F) o  R) d
;-----------------------------------------------------
;  LCD 初始化设置
# \+ ?- c# N5 l;-----------------------------------------------------
SET_LCD:
1 \& R3 b! |. Q: B/ k          CLR  EN
          CALL  INIT_LCD     ;初始化 LCD
6 m/ {% J1 e3 k4 r1 q          CALL  DELAY1
4 G8 @3 d: x5 x. ^, f          MOV  DPTR,#INFO1   ;指针指到显示信息1
          MOV  A,#1          ;显示在第一行
          CALL  LCD_SHOW
, k% Y) e9 J: ~' _! o% i          MOV  DPTR,#INFO2   ;指针指到显示信息2
) {5 H& k/ `6 X/ O7 }" ^6 }          MOV  A,#2          ;显示在第二行
          CALL  LCD_SHOW
/ X: `. t2 L1 Z) |/ C; ?/ @7 {1 m          RET
;-----------------------------------------------------
2 B. L2 Z) j/ w; O% l# RINIT_LCD:                 ;8位I/O控制 LCD 接口初始化
7 y  P$ @" l' I" a: S9 b( R          MOV  A,#38H     ;双列显示，字形5*7点阵
          CALL  WCOM
( {5 l, {7 P+ ~9 g& }9 ?          CALL  DELAY1
          MOV  A,#38H     ;双列显示，字形5*7点阵
: X2 n3 K/ _3 q- O7 J          CALL  WCOM
3 }0 e; X, t) r6 B8 T' I          CALL  DELAY1
6 b9 a2 w/ n8 K- {; Q. F          MOV  A,#38H     ;双列显示，字形5*7点阵
          CALL  WCOM
          CALL  DELAY1
( |- ], S; p( Y& v2 I, x2 U2 D# }( u          MOV  A,#0CH     ;开显示，关光标，
( P/ k5 M$ ], t6 i3 I1 h          CALL  WCOM
! C; {+ n7 O( m" H( |! j" |4 p          CALL  DELAY1
          MOV  A,#01H     ;清除 LCD 显示屏
          CALL  WCOM
          CALL  DELAY1
: O# ^! c: q7 b5 @& J* d* `          RET
;----------------------------------------------------
; w1 f: b9 q. O% h8 hLCD_SHOW:       ;在LCD的第一行或第二行显示信息字符
9 o  w5 V0 {8 @- V& O3 _
          CJNE  A,#1,LINE2  ;判断是否为第一行
  LINE1:  MOV  A,#80H       ;设置 LCD 的第一行地址
$ m! r. o  P! m# P3 H          CALL  WCOM        ;写入命令
          CALL  CLR_LINE    ;清除该行字符数据
3 |; R, @2 r) {. |          MOV  A,#80H       ;设置 LCD 的第一行地址
  T% ]. c5 l( s          CALL  WCOM        ;写入命令
          JMP  FILL
9 f+ X) R# h( Z8 Q$ c& e9 g& ~2 p  `
$ N! a7 |, O: H  LINE2:  MOV  A,#0C0H      ;设置 LCD 的第二行地址
* Y3 ^) L  V* ?          CALL  WCOM        ;写入命令
8 D0 b( G$ R! c& y4 V, u; g          CALL  CLR_LINE    ;清除该行字符数据
          MOV  A,#0C0H      ;设置 LCD 的第二行地址
          CALL  WCOM
5 @6 U* f( v  R/ _7 w  FILL:   CLR  A            ;填入字符
2 n$ @: f  g3 f" q. Y          MOVC  A,@A+DPTR   ;由消息区取出字符
& w9 r9 k7 ]8 i: }: B/ Y          CJNE  A,#0,LC1    ;判断是否为结束码
          RET
  LC1:    CALL  WDATA       ;写入数据
5 ^, l7 ~- d0 m' T4 z          INC  DPTR         ;指针加1
0 Y; Z" S. s  I$ x# t6 G) G1 L5 c          JMP  FILL         ;继续填入字符
" f6 J9 L+ m8 i4 X          RET
;---------------------------------------------------
CLR_LINE:                  ;清除该行 LCD 的字符
5 w% b' I, K4 {2 V% Q2 ~9 M) l; ^          MOV  R0,#24
* g  I) J# }/ Y, N8 l   CL1:   MOV  A,#' '
          CALL  WDATA
& Y6 _) w; z4 O/ _! i% ?7 y8 _          DJNZ  R0,CL1
          RET
;----------------------------------------------------
MENU1:                      ;LCD 显示工作菜单信息
         MOV   DPTR,#MENU2
         MOV   A,#1         ;在第一行显示信息
/ C; D0 Q- a/ c, z' Q  z& Q& R         CALL  LCD_SHOW
         RET
MENU2:  DB  " REMOTE CONTROL ",0
. d  ~$ {; l& ~1 h( W' G" J;-----------------------------------------------------
- B' `2 b0 m5 T. YINFO1:  DB  "                ",0  ;LCD 第一行显示信息
INFO2:  DB  "  IR-CODE: --H  ",0  ;LCD 第二行显示信息
, E$ f: h9 c1 C0 W' z7 d; Q4 B;-----------------------------------------------------

1 @' P9 B4 I& O  I/ j2 r( v;-----------------------------------------------------
- _& ]8 R8 {( T$ k2 \2 W" z; 写指令、数据使能子程序
5 }  g2 f& I/ A, m& _! Q& @;-----------------------------------------------------
1 L/ g: n+ R- M' v, q) YWCOM:
/ i, x1 ?. x  Q. z. N          MOV  P0,A        ;写指令使能
' h" ?+ V0 f2 y1 ]9 ?: [' r          CLR RS           ;RS=L,RW=L,D0-D7=指令码，E=高脉冲
. N$ j5 _* D/ e" C, e, G1 R2 [6 |          CLR RW
          SETB EN
          CALL  DELAY0
          CLR EN
          RET

/ u" n8 |4 {5 d" |! y$ x9 pWDATA:
# ~4 k. r3 Y- M          MOV   P0,A      ;写数据使能
          SETB  RS        ;RS=H,RW=L,D0-D7=数据，E=高脉冲
          CLR   RW
          SETB  EN
          CALL  DELAY0
! H+ T  S4 N; l" f# u6 J          CLR   EN
          RET
, I% `, G* n" W5 _& ]  e$ m
3 S  C8 b1 B7 l1 V: SDELAY0:   MOV  R7,#250      ;延时500微秒
          DJNZ  R7,$
          RET
;---------------------------------------------------
;在 LCD 第二行显示字符
;A=ASC DATA, B=LINE X POS
6 ]2 F& w# i- ~* a( Q/ H; p;---------------------------------------------------
LCDP2:                    ;在LCD的第二行显示字符
         PUSH  ACC        ;
         MOV  A,B         ;设置显示地址
- e$ V- ?& i8 B- e) q$ E6 \         ADD  A,#0C0H     ;设置LCD的第二行地址
         CALL  WCOM       ;写入命令
         POP  ACC         ;由堆栈取出A
/ |# t; m+ d9 X         CALL  WDATA      ;写入数据
         RET
1 ]* n' S8 n" z5 K4 H, G- X;---------------------------------------------------
; IR 译码子程序
;---------------------------------------------------
3 H3 k+ h3 |/ C( c1 X, @' a0 pIR_IN:              
4 b+ w/ s6 f1 p* G1 c          MOV   R0,#IRCOM
: u8 G3 J* _) ?* e4 t I1:      JNB  IRIN,I2       ;等待 IR 信号出现
0 n9 G2 X* z) A/ u% O' M! F          JMP  I1
# F$ s0 R* ^9 X+ y- b* F I2:      MOV  R4,#20
# J0 j! \) }$ a9 T- k I20:     CALL  DEL
( a2 A8 V' k" p+ e5 e& t          DJNZ  R4,I20
" B% i0 Z& M/ v0 Y" X  B$ k          JB  IRIN,I1        ;确认IR信号出现
I21:     JB  IRIN,I3        ;等 IR 变为高电平
          CALL  DEL
: Y; o0 j3 L; L2 |6 w, S          JMP  I21
8 Y4 D/ n$ U; z5 v0 N- b3 N( B" G I3:      MOV  R3,#0         ;8位数清为0
LL:      JNB  IRIN,I4       ;等 IR 变为低电平
          CALL  DEL
          JMP  LL
! Y! f. z/ T; {9 j* ^. _ I4:      JB  IRIN,I5        ;等 IR 变为高电平
/ e, ?3 P5 w- ?) ]6 L          CALL  DEL
          JMP  I4
I5:      MOV  R2,#0         ;0.14ms 计数
. R  S) }2 c8 t0 E" R' u L1:      CALL  DEL
0 R- w; A7 T8 y! I# z          JB  IRIN, N1       ;等 IR 变为高电平
                             ;IR=0，检查R2中的计数值
          MOV  A,#8
/ r# w, g+ K; Z7 s( _          CLR  C
          SUBB  A,R2         ;判断高低位
                             ;IF C=0  BIT=0
: n& J  T- Z9 S1 @+ z( N) [9 ~6 X          MOV  A,@R0
  O) E7 G6 Q% D' s- ^; T$ T4 F+ r          RRC  A
          MOV  @R0,A         ;处理完一位
$ e0 U% x" @; ^8 S6 X5 ]3 |1 w          INC  R3
! Q; `# s6 \3 w9 U6 h          CJNE  R3,#8,LL     ;需处理完8位  
- p, }" m7 c6 o* \$ M          MOV  R3,#0
. i9 J% V. U- i/ P: k. R          INC  R0
          CJNE  R0,#24H,LL   ;收集到4字节了
          JMP  OK
N1:      INC  R2
- |6 m; b( c! R2 X9 R4 z" r/ t          CJNE  R2,#30,L1    ;0.14ms 计数过长则时间到自动离开
OK:      RET
" Z/ c& c! L' [6 |" \;--------------------------------------------------------------------
IR_SHOW:
          MOV A,22H
          CPL A                ;将22H取反后和23H比较
) o% _% q$ f8 ^* c1 o; s$ J          CJNE A,23H,IR_SHOW1  ;如果不等表示接收数据发生错误,放弃。
          CALL   CONV
6 ^# r+ N( V4 k. T) X;          CALL  BEEP_BL        ;蜂鸣器鸣响表示解码成功
; `6 {0 V2 [! \( g$ s  wIR_SHOW1: RET
& T  u  m) ?, @2 \6 E2 g;--------------------------------------------------------------------
;转换为 ASCII 码并显示
;--------------------------------------------------------------------
CONV:
5 e: u5 U, K0 u* s- z( R          MOV   X,#11        ;设置显示起始位置
9 a, N% \6 t2 w( l          MOV   A,22H
          ANL   A,#0F0H      ;取出高四位二进制数
. f3 o4 F/ X  T' H5 n1 `          SWAP  A            ;高四位与低四位互换
9 Z& H3 t1 a' u/ h) p6 H          PUSH  ACC          ;压入堆栈
          CLR   C            ;C=0
          SUBB  A,#0AH       ;减10
- Z% ^6 ~* n8 [          POP   ACC          ;弹出堆栈
          JC    ASCII0       ;该数小于10，转ASCII0
6 t% O+ C( Z$ @$ o* S          ADD   A,#07H       ;大于10的数加上37H
3 P9 j, e% d# bASCII0:   ADD   A,#30H       ;小于10的数加上30H
          MOV   B,X
4 L" }% J0 ?( J          CALL  LCDP2

          MOV   A,22H
& H/ i" \# \1 l% K9 A) Y          ANL   A,#0FH        ;取出低四位二进制数
          PUSH  ACC
' ~6 j1 ^9 P  o( w' |! J          CLR   C
- r9 W: T& w! z, e- x+ W: i& _7 R          SUBB  A,#0AH        ;减10
* |8 J( {3 V! [  Z8 M6 j          POP   ACC
8 }. c4 e& A7 M6 i          JC    ASCII1        ;该数小于10，转ASCII0
          ADD   A,#07H        ;大于10的数加上37H
& w& ^5 `: v1 x8 ]: M+ E# rASCII1:   ADD   A,#30H        ;小于10的数加上30H
          INC   X
          MOV   B,X
          CALL  LCDP2
          RET
;--------------------------------------------------------
;蜂鸣器响一声子程序
;--------------------------------------------------------
7 y* C$ j8 i: y" ~BEEP_BL:
+ x* L% Z2 ^/ C8 t* ]         MOV  R6,#100
  BL1:   CALL  DEX1
3 B, K$ K2 W0 c% U/ `9 x* Y;         CPL  BEEP
4 s% _5 F1 ^  f! d* |% A         DJNZ  R6,BL1
1 D& v3 F& p  H. z         MOV  R5,#25
         CALL  DELAY
  h7 E: L! H2 a. ?; A: x         RET
DEX1:   MOV  R7,#180
/ z- }2 ]% c" h DEX2:   NOP
* M5 m2 }! @* D+ G7 b0 i) J4 V. Y         DJNZ  R7,DEX2
& H) g6 f; ?5 O0 _$ S% s; Y2 D% s         RET
! w9 d- B9 A$ V; o: I; i DELAY:                    ;延时R5×10MS
         MOV  R6,#50
% R+ h9 ^3 F2 G' R4 V9 p5 Z. b( f1 @  D1:    MOV  R7,#100
- k; Q0 }7 W. d: F& a         DJNZ  R7,$
         DJNZ  R6,D1
         DJNZ  R5,DELAY
' l0 O% z8 E3 t: D/ H. g
+ R/ @- q* T+ t: H5 F: {
…………限于本文篇幅 余下代码请从论坛下载附件…………
* Z  a9 `8 i3 V

游客，如果您要查看本帖隐藏内容请回复

4 }" B# j1 `: u0 r

2 N; M; A5 p5 x3 K- g4 C$ w5 Y8 q: K

Demyar

厉害了 学习一下

cat12620

看看楼主的代码