logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

1602液晶显示程序

 共同成长888 2015-06-30

C语言源程序

/******************************************************************
** 1602A液晶屏驱动程序
** 晶 振  频 率:11.0592M


 








** 线路-> 单片机 实验开发板A->中国电子进修网
******************************************************************/
#include <reg51.h>
#define uchar unsigned char
#define uint unsigned int
sbit LCM_E=P3^5;//定义接口
sbit LCM_RW=P3^6;
sbit LCM_RS=P3^7;
#define LCM_Data P1//数据接口
void LCM_WritEDAta(uchar WDLCM);
void LCM_WriteCommand(uchar WCLCM,BuysC);
uchar LCM_ReadData(void);
uchar LCM_ReadStatus(void);
void LCM_Init(void);
void DisplayOneChar(uchar X, uchar Y, uchar DData);
void DisplayListChar(uchar X, uchar Y, uchar code *DData);
void Delay5Ms(void);
void Delay400Ms(void);
uchar code uctech[] = {"1602A"};
uchar code net[] = {"www.52c51.com"};
void main(void)
{
        Delay400Ms();//启动等待，等LCM讲入工作状态
        LCM_Init();//LCM初始化
        Delay5Ms();//延时片刻(可不要)
        
        DisplayListChar(6, 1, uctech);
        DisplayListChar(0, 0, net);
        LCM_ReadData();//测试用句无意义
        LCM_Data=255;
        while(1);
}
/****************************1602A写数据函数**************************/
/*函数原型:void LCM_WriteData(uchar WDLCM)
/*函数功能:1602A写数据
/*输入参数:要写入的数据
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void LCM_WriteData(uchar WDLCM)
{
        LCM_ReadStatus();//检测忙
        LCM_Data = WDLCM;
        LCM_RS = 1;
        LCM_RW = 0;
        LCM_E = 0;//若晶振速度太高可以在这后加小的延时
        LCM_E = 0;//延时
        LCM_E = 1;
}
/****************************1602A写指令函数**************************/
/*函数原型:void LCM_WriteCommand(uchar WCLCM,BuysC)
/*函数功能:1602A写指令
/*输入参数:要写入的指令
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void LCM_WriteCommand(uchar WCLCM,BuysC)//BuysC为0时忽略忙检测
{
        if (BuysC) LCM_ReadStatus();//根据需要检测忙
        LCM_Data = WCLCM;
        LCM_RS = 0;
        LCM_RW = 0;
        LCM_E = 0;
        LCM_E = 0;
        LCM_E = 1;
}
/****************************1602A读数据函数**************************/
/*函数原型:uchar LCM_ReadData(void)
/*函数功能:1602A读数据
/*输入参数:无
/*输出参数:1602A返回的数据
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
uchar LCM_ReadData(void)
{
        LCM_RS = 1;
        LCM_RW = 1;
        LCM_E = 0;
        LCM_E = 0;
        LCM_E = 1;
        return(LCM_Data);
}
/****************************1602A读状态函数**************************/
/*函数原型:uchar LCM_ReadData(void)
/*函数功能:1602A读状态
/*输入参数:无
/*输出参数:1602A返回的状态
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
uchar LCM_ReadStatus(void)
{
        LCM_Data = 0xFF;
        LCM_RS = 0;
        LCM_RW = 1;
        LCM_E = 0;
        LCM_E = 0;
        LCM_E = 1;
        while (LCM_Data & 0x80);//检测忙信号
        return(LCM_Data);
}
/****************************1602A初始化函数**************************/
/*函数原型:void LCM_Init(void)
/*函数功能:1602A初始化
/*输入参数:无
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void LCM_Init(void)
{
        LCM_Data = 0;
        LCM_WriteCommand(0x38,0);//三次显示模式设置，不检测忙信号
        Delay5Ms();
        LCM_WriteCommand(0x38,0);
        Delay5Ms();
        LCM_WriteCommand(0x38,0);
        Delay5Ms();
        
        LCM_WriteCommand(0x38,1);//显示模式设置,开始要求每次检测忙信号
        LCM_WriteCommand(0x08,1);//关闭显示
        LCM_WriteCommand(0x01,1);//显示清屏
        LCM_WriteCommand(0x06,1);// 显示光标移动设置
        LCM_WriteCommand(0x0C,1);// 显示开及光标设置
}
/******************1602A按指定位置显示一个字符函数**********************/
/*函数原型:void DisplayOneChar(uchar X, uchar Y, uchar DData)
/*函数功能:1602A按指定位置显示一个字符
/*输入参数:X坐标 Y坐标 要显示的字符
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void DisplayOneChar(uchar X, uchar Y, uchar DData)
{
        Y &= 0x1;
        X &= 0xF;//限制X不能大于15，Y不能大于1
        if (Y) X |= 0x40;//当要显示第二行时地址码+0x40;
        X |= 0x80;// 算出指令码
        LCM_WriteCommand(X, 0);//这里不检测忙信号，发送地址码
        LCM_WriteData(DData);
}
/*******************1602A按指定位置显示一串字符函数*********************/
/*函数原型:void DisplayListChar(uchar X, uchar Y, uchar code *DData)
/*函数功能:1602A按指定位置显示一个字符
/*输入参数:X坐标 Y坐标 要显示字符串的首地址
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void DisplayListChar(uchar X, uchar Y, uchar code *DData)
{
        uchar ListLength;
        ListLength = 0;
        Y &= 0x1;
        X &= 0xF;//限制X不能大于15，Y不能大于1
        while (DData[ListLength]>0x20)//若到达字串尾则退出
        {
                if (X <= 0xF)//X坐标应小于0xF
                {
                        DisplayOneChar(X, Y, DData[ListLength]);//显示单个字符
                        ListLength++;
                        X++;
                }
        }
}
/********************5ms延时函数************************/
/*函数原型:void Delay5Ms(void)
/*函数功能:5ms延时
/*输入参数:无
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void Delay5Ms(void)
{
        unsigned int TempCyc = 5552;
        while(TempCyc--);
}
/********************400ms延时延时函数************************/
/*函数原型:void Delay400Ms(void)
/*函数功能:400ms延时延时
/*输入参数:无
/*输出参数:无
/*调用模块:
/*建立时间:2005/11/14
/*作者:站长
/**********************************************************************/
void Delay400Ms(void)
{
        uchar TempCycA = 5;
        unsigned int TempCycB;
        while(TempCycA--)
        {
                TempCycB=7269;
                while(TempCycB--);
        };
}

汇编语言源程序

            LCM_RS EQU P3.7     ;//定义接口
            LCM_RW EQU P3.6
            LCM_E EQU P3.5
            
            LCM_DATA EQU P1     ;数据接口
            
            ORG 0000H           ;从0000H处开始
            SJMP MAIN           ;跳转到MAIN处
            
            ORG 0030H           ;主程序从0030H处开始
MAIN:       MOV SP,#70H         ;堆栈指针指向70H
            LCALL INITIAL       ;调用启动LCM子程序进行初始化
            LCALL CLS           ;调用清除LCM子程序
            MOV A,#80H          ;向A送立即数80H设定显示地址为第一行第一列
            LCALL WRITE_COM     ;调用写指令到LCM子程序
            MOV DPTR,#LINE1     ;将第一行字符串的启始地址送如DPTR中
            LCALL DISP          ;调用显示字符串到LCM子程序
            MOV A,#0C0H         ;向A送立即数0C0H设定显示地址为第二行第一列
            LCALL WRITE_COM     ;调用写指令到LCM子程序
            MOV DPTR,#LINE2     ;将第二行字符串的启始地址送如DPTR中
            LCALL DISP          ;调用显示字符串到LCM子程序
            SJMP $              ;程序动态停机
            
LINE1:      DB " WWW.52C51.COM ",00H;第一行字符串
LINE2:      DB " 1602A ",00H    ;第二行字符串
            
INITIAL:    MOV A,#38H          ;启动LCM子程序
            LCALL WRITE_COM
            MOV A,#0EH
            LCALL WRITE_COM
            MOV A,#06H
            LCALL WRITE_COM
            RET
            
CHECK_BUSY: PUSH ACC            ;查询忙碌信号子程序
BUSY_LOOP:  CLR LCM_E
            SETB LCM_RW
            CLR LCM_RS
            SETB LCM_E
            MOV A,LCM_DATA
            CLR LCM_E
            JB ACC.7,BUSY_LOOP
            POP ACC
            LCALL DEL
            RET
            
WRITE_COM:  LCALL CHECK_BUSY    ;写指令到LCM子程序
            CLR LCM_E
            CLR LCM_RS
            CLR LCM_RW
            SETB LCM_E
            MOV LCM_DATA,A
            CLR LCM_E
            RET
            
WRITE_DATA: LCALL CHECK_BUSY    ;写数据到LCM子程序
            CLR LCM_E
            SETB LCM_RS
            CLR LCM_RW
            SETB LCM_E
            MOV LCM_DATA,A
            CLR LCM_E
            RET
            
CLS:        MOV A,#01H          ;清除LCM子程序
            LCALL WRITE_COM
            RET
            
DEL:        MOV R6,#5           ;2.7MS延时子程序
D1:         MOV R7,#248
            DJNZ R7,$
            DJNZ R6,D1
            RET
            
DISP:       PUSH ACC            ;将A的内容压栈
DISP_LOOP:  CLR A               ;A清零
            MOVC A,@A+DPTR      ;查表将字符串内容送入A
            JZ END_DISP         ;若查到的内容为0则终止查表
            LCALL WRITE_DATA    ;调用写数据到LCM子程序
            INC DPTR            ;DPTR加1指向下一个对象
            SJMP DISP_LOOP      ;跳转到DISP_LOOP循环执行
END_DISP:   POP ACC             ;弹出压栈内容至A
            RET
            
            END                 ;程序结束

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： 共同成长888 > 《单片机程序》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多