/*******************************************************************
*                                                                   
*ME300B單片機開發系統演示程序 - LCD1602 滾動顯示                    
*                                                                   
* 顯示內容：WLCOME TO WWW.WILLAR.COM                                
*                                                                   
* 顯示方式：                                                        
* 1、從左到右逐字顯示，閃動二次，清屏。                             
* 2、再從右到左逐字顯示，閃動二次，清屏。                           
* 3、周期性地重復上述顯示方式。                                     
*                                                                   
;* 創作時間：2004/12/20                                                  
;* 修改時間：2006/01/20                            
;* 作者： gguoqing (Email: gguoqing@willar.com)                           
;* 網站： www.willar.com(偉納電子)   www.mcusj.com(偉納單片機世界)
;* 郵箱： support@willar.com                                           
*                                                                   
*【版權】Copyright(C)偉納電子 www.willar.com All Rights Reserved    
*【聲明】此程序僅用于學習與參考，引用請注明版權和作者信息！         
*                                                                   
*******************************************************************/



#include <reg51.h>
#include <intrins.h>

typedef unsigned char BYTE;
typedef bit BOOL;  

sbit LCD_RS = P2^0;             
sbit LCD_RW = P2^1;
sbit LCD_EP = P2^2;

BYTE code dis1[] = {"   WLCOME  TO   "};
BYTE code dis2[] = {"      l-f-f     "};
BYTE code dis3[] = {"   OT  EMOCLW   "};
BYTE code dis4[] = {"    987654321   "};

delay(int ms)
{                           // 延時子程序
int i;
while(ms--)
{
  for(i = 0; i< 250; i++)
  {
   _nop_();
   _nop_();
   _nop_();
   _nop_();
  }
}
}

BOOL lcd_bz()
{                          // 測試LCD忙碌狀態
BOOL result;
LCD_RS = 0;
LCD_RW = 1;
LCD_EP = 1;
_nop_();
_nop_();
_nop_();
_nop_();
result = (BOOL)(P0 & 0x80);
LCD_EP = 0;
return result; 
}

lcd_wcmd(BYTE cmd)
{                          // 寫入指令數據到LCD
while(lcd_bz());
LCD_RS = 0;
LCD_RW = 0;
LCD_EP = 0;
_nop_();
_nop_(); 
P0 = cmd;
_nop_();
_nop_();
_nop_();
_nop_();
LCD_EP = 1;
_nop_();
_nop_();
_nop_();
_nop_();
LCD_EP = 0;  
}

lcd_pos(BYTE pos)
{                          //設定顯示位置
lcd_wcmd(pos | 0x80);
}

lcd_wdat(BYTE dat) 
{                          //寫入字符顯示數據到LCD
while(lcd_bz());
LCD_RS = 1;
LCD_RW = 0;
LCD_EP = 0;
P0 = dat;
_nop_();
_nop_();
_nop_();
_nop_();
LCD_EP = 1;
_nop_();
_nop_();
_nop_();
_nop_();
LCD_EP = 0; 
}

lcd_init()
{                        //LCD初始化設定
lcd_wcmd(0x38);          //16*2顯示，5*7點陣，8位數據
delay(1);
lcd_wcmd(0x0c);          //顯示開，關光標
delay(1);
lcd_wcmd(0x06);          //移動光標
delay(1);
lcd_wcmd(0x01);          //清除LCD的顯示內容
delay(1);
}

main()
{
      BYTE i;
      lcd_init();               // 初始化LCD
      delay(10);

    while(1)              
   { 
      lcd_wcmd(0x06);            //向右移動光標
      lcd_pos(0);                //設置顯示位置為第一行的第1個字符
      i = 0;
     while(dis1[ i ] != '\0')
     {                           //顯示字符"Welcome TO"
       lcd_wdat(dis1[ i ]);
       i++;
       delay(30);                //控制兩字之間顯示速度
     }
      lcd_pos(0x40);             //設置顯示位置為第二行第1個字符
      i = 0;
     while(dis2[ i ] != '\0')
     {
       lcd_wdat(dis2[ i ]);      //顯示字符" WWW.WILLAR.COM "
       i++;
       delay(30);                //控制兩字之間顯示速度
     }
      delay(800);                //控制停留時間

      lcd_wcmd(0x01);            //清除LCD的顯示內容
      delay(1);
      lcd_wcmd(0x04);            //向左移動光標
     
      lcd_pos(15);               //設置顯示位置為第一行的第16個字符
      i = 0;
     while(dis3[ i ] != '\0')
     {                           //顯示字符"Welcome TO"
       lcd_wdat(dis3[ i ]);
       i++;
       delay(30);                //控制兩字之間顯示速度
     }
      lcd_pos(0x4F);             //設置顯示位置為第二行的第16個字符
      i = 0;
     while(dis4[ i ] != '\0')
     {
       lcd_wdat(dis4[ i ]);      //顯示字符" WWW.WILLAR.COM "
       i++;
       delay(30);                //控制兩字之間顯示速度
     }
      delay(800);                //控制停留時間

      lcd_wcmd(0x01);            //清除LCD的顯示內容
      delay(200);                //控制兩屏轉換時間
          
   }
}