12864LCD液晶屏如何滚动显示汉字?51单片机 求程序 汇编语言

如题所述

第1个回答  2012-12-25
RS
EQU P2.0
RW EQU P2.1
E EQU P2.2
PSB EQU P2.3
RST EQU
P2.5
;-----------------------------------------------
LCD_X EQU
30H
LCD_Y EQU 31H
COUNT EQU 32H
COUNT1 EQU 33H
COUNT2 EQU
34H
COUNT3 EQU
35H
;-----------------------------------------------
LCD_DATA EQU
36H
LCD_DATA1 EQU 37H
LCD_DATA2 EQU 38H
STORE EQU
39H

;-----------------------------------------------
ORG 0000H
LJMP
MAIN
ORG
0100H
;-----------------------------------------------
MAIN:
MOV
SP,#5FH
CLR RST ;复位
LCALL DELAY4
SETB RST
NOP
SETB PSB
;通讯方式为8位数据并口

;********************初始化**********************
LGS0: MOV
A,#34H ;34H--扩充指令操作
LCALL SEND_I
MOV A,#30H ;30H--基本指令操作
LCALL
SEND_I
MOV A,#01H ;清除显示
LCALL SEND_I
MOV A,#06H
;指定在资料写入或读取时,光标的移动方向
LCALL SEND_I ;DDRAM 的地址计数器(AC)加1
MOV A,#0CH
;开显示,关光标,不闪烁
LCALL
SEND_I
;===============================================
TU_PLAY1:
MOV
DPTR,#TU_TAB1 ;显示图形
LCALL PHO_DISP
LCALL
DELAY3

;=================================================
;;显示汉字和字符
;加入80ms的延时,使你能够看清楚显示的过程
;根据汉字显示坐标分段写入(顺序写入)
;=================================================
HAN_WR2:
LCALL
CLEAR_P
HAN_WR2A:
MOV DPTR,#TAB1A ;显示汉字和字符
MOV COUNT,#10H
;地址计数器设为16。
MOV A,#80H ;第一行起始地址
LCALL SEND_I
LCALL
QUSHU
HAN_WR2B:
MOV DPTR,#TAB1B ;显示汉字和字符
MOV COUNT,#10H
;地址计数器设为16。
MOV A,#90H ;第二行起始地址
LCALL SEND_I
LCALL
QUSHU
HAN_WR2C:
MOV DPTR,#TAB1C ;显示汉字和字符
MOV COUNT,#10H
;地址计数器设为16。
MOV A,#88H ;第三行起始地址
LCALL SEND_I
LCALL
QUSHU
HAN_WR2D:
MOV DPTR,#TAB1D ;显示汉字和字符
MOV COUNT,#10H
;地址计数器设为16。
MOV A,#98H ;第四行起始地址
LCALL SEND_I
LCALL QUSHU
LCALL
DELAY3
LCALL FLASH
LCALL CLEAR_P
JMP
TU_PLAY2
;----------------------------------------------
;TU_PLAY1:
MOV
DPTR,#TU_TAB1 ;显示图形
LCALL PHO_DISP
LCALL
DELAY3

;----------------------------------------------
TU_PLAY2:
MOV
DPTR,#TU_TAB2 ;显示图形
LCALL PHO_DISP
LCALL
DELAY3

;----------------------------------------------
TU_PLAY3:
MOV
DPTR,#TU_TAB4 ;显示图形
LCALL PHO_DISP
LCALL
DELAY3

;-----------------------------------------------
;显示点阵
;-----------------------------------------------
LATPLAY1:
MOV
A,#01H ;清屏
LCALL SEND_I
MOV LCD_DATA1,#0CCH ;显示点阵
MOV
LCD_DATA2,#0CCH
LCALL LAT_DISP
LCALL DELAY3
LCALL
CLEAR_P

KU_PLAY2:

LJMP
TU_PLAY1

;===============================================
;全屏显示图形子程序
;===============================================
PHO_DISP:
MOV
COUNT3,#02H
MOV LCD_X,#80H
PHO_DISP1:
MOV LCD_Y,#80H
MOV
COUNT2,#20H
PHO_DISP2:
MOV COUNT1,#10H
LCALL WR_ZB
PHO_DISP3:
CLR
A
MOVC A,@A+DPTR
LCALL SEND_D
INC DPTR
DJNZ COUNT1,PHO_DISP3
INC
LCD_Y
DJNZ COUNT2,PHO_DISP2
MOV LCD_X,#88H
DJNZ
COUNT3,PHO_DISP1

MOV A,#36H
LCALL SEND_I
MOV A,#30H
LCALL
SEND_I
RET
;----------------------------------------------
CLRRAM:
MOV
LCD_DATA1,#00H ;GDRAM写0子程序
MOV LCD_DATA2,#00H
LCALL
LAT_DISP
RET
;==============================================
;显示点阵子程序
;==============================================
LAT_DISP:
MOV
COUNT3,#02H
MOV LCD_X,#80H
LAT_DISP1:
MOV LCD_Y,#80H
CLR F0
MOV
COUNT2,#20H
LAT_DISP2:
MOV COUNT1,#10H
LCALL WR_ZB
LAT_DISP3:
JB
F0,LAT_DISP32
MOV LCD_DATA,LCD_DATA1
AJMP LAT_DISP31
LAT_DISP32:
MOV
LCD_DATA,LCD_DATA2
LAT_DISP31:
MOV A,LCD_DATA
LCALL SEND_D
DJNZ
COUNT1,LAT_DISP31
INC LCD_Y
CPL F0
DJNZ COUNT2,LAT_DISP2
MOV
LCD_X,#88H
DJNZ COUNT3,LAT_DISP1

MOV A,#36H
LCALL SEND_I
MOV
A,#30H
LCALL
SEND_I
RET
;---------------------------------------------
WR_ZB:
MOV
A,#34H
LCALL SEND_I
MOV A,LCD_Y
LCALL SEND_I
MOV A,LCD_X
LCALL
SEND_I
MOV A,#30H
LCALL
SEND_I
RET

;===============================================
FLASH:
MOV
A,#08H ;关闭显示
LCALL SEND_I
LCALL DELAY5
MOV A,#0CH ;开显示,关光标,不闪烁
LCALL
SEND_I
LCALL DELAY5
MOV A,#08H ;关闭显示
LCALL SEND_I
LCALL
DELAY5
MOV A,#0CH ;开显示,关光标,不闪烁
LCALL SEND_I
LCALL DELAY5
MOV A,#08H
;关闭显示
LCALL SEND_I
LCALL
DELAY5
RET
;==================================================
;清屏
;==================================================
CLEAR_P:
MOV
A,#01H ;清屏
LCALL SEND_I
MOV A,#34H
LCALL SEND_I
MOV A,#30H
LCALL
SEND_I
RET
;==================================================
;查表取数据送显示
;==================================================
QUSHU:
CLR
A
MOVC A,@A+DPTR ;查表取数据
LCALL SEND_D ;送显示
INC DPTR
LCALL DELAY4
;延时80ms,
DJNZ
COUNT,QUSHU
RET

;===============================================
;写数据子程序
;RS=1,RW=0,E=高脉冲,D0-D7=数据
;===============================================
SEND_D:
LCALL
CHK_BUSY ;写数据子程序
SETB RS
CLR RW
MOV P0,A
SETB E
NOP
NOP
CLR
E
RET
;===============================================
;写指令子程序
;RS=0,RW=0,E=高脉冲,D0-D7=指令码
;===============================================
SEND_I:
LCALL
CHK_BUSY
CLR RS
CLR RW
MOV P0,A
SETB E
NOP
NOP
CLR
E
RET
;================================================
;读数据子程序
;RS=1,RW=1,E=H,D0-D7=数据
;================================================
READ_D:
LCALL
CHK_BUSY ;读数据子程序
SETB RS
SETB RW
SETB E
NOP
MOV A,P0
CLR
E
MOV
STORE,A
RET
;================================================
;;测忙碌子程序
;RS=0,RW=1,E=H,D0-D7=状态字
;================================================
CHK_BUSY:
MOV
P0,#0FFH ;测忙碌子程序
CLR RS
SETB RW
SETB E
JB P0.7,$
CLR
E
RET
;================================================
;延时子程序

DELAY3:
MOV
R5,#16H
DEL31: MOV R6,#100
DEL32: MOV R7,#0FFH
DEL33: DJNZ
R7,DEL33
DJNZ R6,DEL32
DJNZ R5,DEL31
RET

DELAY2:
MOV
R6,#0CH
DEL21: MOV R7,#18H
DEL22: DJNZ R7,DEL22
DJNZ
R6,DEL21
RET

DELAY1:
MOV R6,#06H
DEL11: MOV R7,#08H
DEL12:
DJNZ R7,DEL12
DJNZ R6,DEL11
RET

DELAY4:
MOV R6,#100
DEL41:
MOV R7,#200
DEL42: DJNZ R7,DEL42
DJNZ
R6,DEL41
RET

DELAY5:
MOV R5,#05H
DEL51: MOV R6,#100
DEL52:
MOV R7,#0FFH
DEL53: DJNZ R7,DEL53
DJNZ R6,DEL52
DJNZ
R5,DEL51
RET
;***********************************************
TAB1:
TAB1A:
DB ' 51单片机学习网(深圳学林电子有限公司) ' ;显示在第一行
TAB1C: DB '自学单片机第一站' ;显示在第三行
TAB1B: DB
' www.8951.COM ' ;显示在第二行
TAB1D: DB 'TEL 755-89956892'
;显示在第四行

;*--------------------------------------------------------------------
*
;* Bitmap点阵数据表 *
;* 图片: E:\图形8.bmp,横向取模左高位,数据排列:从左到右从上到下 *
;* 图片尺寸:
128 * 64
*
;*--------------------------------------------------------------------
*本回答被提问者和网友采纳
第2个回答  2012-12-25
楼下正解
相似回答