找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3624|回复: 3
打印 上一主题 下一主题
收起左侧

PIC18F25K80+LCD1602程序

[复制链接]
跳转到指定楼层
楼主
ID:139397 发表于 2016-9-14 13:04 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
lcd1602.c和lcd1602.h文件加入工程即可。
PIC18F25K80 开发环境MPLAB X IDE v3.35,PIC的芯片都可以,需要适当修改void LCD_DelayMs(uint16_t Ms)函数。
PIC18F25K80_LCD1602.X.rar (1.63 KB, 下载次数: 34)

  1. /*
  2. * File:   lcd1602.c
  3. * Author: BG8LY
  4. *
  5. * Created on 2016年9月13日, 下午12:16
  6. */

  7. #include <xc.h>
  8. #include <stdint.h>
  9. #include "lcd1602.h"

  10. //LCD ms毫秒延时函数
  11. void LCD_DelayMs(uint16_t Ms)
  12. {
  13.         uint16_t x,y;
  14.         for(x=Ms; x>0; x--)
  15.     {
  16.         for(y=250; y>0; y--);
  17.     }
  18. }

  19. //忙检测
  20. void LCD_Read_Busy(void)
  21. {
  22.         LCD_BUSY_TRIS = 1;        // 置忙检测端口设置为输入
  23.         do
  24.         {
  25.                 LCD_E = 0;
  26.                 LCD_RS = 0;
  27.                 LCD_RW = 1;
  28.                 Nop();
  29.                 LCD_E = 1;
  30.                 Nop();
  31.         Nop();
  32.         }while(LCD_BUSY);
  33.         LCD_BUSY_TRIS = 0;        // 恢复忙检测位端口为输出
  34. }

  35. //写指令,busyDect=0时不需要忙检测
  36. void LCD_Write_Reg(uint8_t Cmd, uint8_t BusyDect)
  37. {
  38.         if(BusyDect==1)
  39.     {
  40.                 LCD_Read_Busy();
  41.     }
  42.         LCD_E = 0;
  43.         LCD_RS = 0;
  44.         LCD_RW = 0;
  45.         DATA_PORT = Cmd;
  46.         Nop();
  47.         LCD_E = 1;
  48.         Nop();
  49.     Nop();
  50.         LCD_E = 0;
  51. }

  52. //写字节数据,写数据总需要忙检测
  53. void LCD_Write_Data(uint8_t Data)
  54. {
  55.         LCD_Read_Busy();
  56.         LCD_E = 0;
  57.         LCD_RS = 1;
  58.         LCD_RW = 0;
  59.         DATA_PORT = Data;
  60.     Nop();
  61.         LCD_E = 1;
  62.         Nop();
  63.     Nop();
  64.         LCD_E = 0;
  65. }

  66. //写数据到(x,y)
  67. void LCD_Display_Char(uint8_t x, uint8_t y, uint8_t Data)
  68. {
  69.         x &= 0x0F;        // 限制列数不大于16个字符
  70.         y &= 0x01;        // 限制行数不大于2行
  71.     if(y == 0x01)
  72.     {
  73.         x |= 0x40;
  74.     }
  75.     x | = 0x80;
  76.    
  77.         LCD_Write_Reg(x, 1);
  78.    
  79.         LCD_Write_Data(Data);
  80. }

  81. //从(x,y)开始写字符串
  82. void LCD_Display_String(uint8_t x, uint8_t y, char *str)
  83. {
  84.         x &= 0x0F;        // 限制列数不大于16个字符
  85.         y &= 0x01;        // 限制行数不大于2行
  86.     if(y == 0x01)
  87.     {
  88.         x |= 0x40;
  89.     }
  90.     x | = 0x80;
  91.    
  92.         LCD_Write_Reg(x, 1);
  93.    
  94.     while(*str != '\0')
  95.         {
  96.                 LCD_Write_Data(*str++);       
  97.         }       
  98. }

  99. //LCD清屏
  100. void LCD_Clear(void)
  101. {
  102.     LCD_Write_Reg(0x01,1);                // 清屏
  103.     LCD_Read_Busy();
  104. }

  105. //LCD初始化
  106. void LCD_Init(void)
  107. {
  108.         // LCD 控制端口初始化
  109.     LCD_RS_TRIS = 0;        // 数据命令选择端口方向->输出
  110.     LCD_RW_TRIS = 0;        // 读写选择端口方向->输出
  111.     LCD_E_TRIS = 0;         // 使能信号端口方向->输出
  112.     DATA_PORT_TRIS = 0x00;  // 数据端口方向->输出
  113.    
  114.     // LCD 功能寄存器初始化
  115.     LCD_DelayMs(5);
  116.         LCD_Write_Reg(0x38,0);
  117.         LCD_DelayMs(5);
  118.         LCD_Write_Reg(0x38,0);
  119.         LCD_DelayMs(5);
  120.         LCD_Write_Reg(0x38,0);                // 三次写入0x38,初始化1602,前三次不用忙检测,以后需要
  121.         LCD_Write_Reg(0x38,1);                // 设置5*7的1602模式       
  122.         LCD_Write_Reg(0x08,1);                // 关闭显示
  123.         LCD_Write_Reg(0x01,1);                // 清屏
  124.         LCD_Write_Reg(0x06,1);                // 显示光标移动设置:读写一字指针+1,屏幕不动
  125.         LCD_Write_Reg(0x0C,1);                // 开显示,不显示光标,光标不闪烁
  126. }
复制代码




评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

沙发
ID:226856 发表于 2017-8-11 09:32 | 只看该作者
謝謝教學
正在學習中
回复

使用道具 举报

板凳
ID:226856 发表于 2017-8-11 14:08 | 只看该作者
想請教大大
如果顯示器有偏光板正/負模式可選用
想用負模式 指令如何改呢?
回复

使用道具 举报

地板
ID:286059 发表于 2020-1-14 21:00 | 只看该作者
非常好,解决我的大问题,非常感谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表