Etepic

#use i2c(Master,fast=100000,sda=PIN_B4,scl=PIN_B3, force_sw)
#define LCD_ADDR              0x4E        //I2C slave address for LCD module
#define lcd_total_rows        2           //Number of rows: 1,2,3 or 4
#define lcd_total_columns     16          //Number of columns: 1...20
#include <i2c_Flex_LCD.c>

//-----------------------------------------------------------------------------
	// Title:         i2c_Flex_LCD
	// Description:   Driver for common LCD with 1/2/3 or 4 rows by 1...20 columns
	//                using PCF8574T interface board with I2C protocol.
	// Date:          Nov-2013
	// Ver.Rev.:      1.1
	// Author:        Hugo Silva (sergio-hugo@bol.com.br) #Based on the routines of
	//                "20X4_LCD_I2C_DRIVER.h" from Pumrin S. and "lcd4_i2c.c" from XP8100
	//-----------------------------------------------------------------------------
	//
	// lcd_init() Must be called before any other function.
	//
	// lcd_putc(c) Will display c on the next position of the LCD.
	// 
	//     \f Clear LCD display
	//     \n Set write position on next lcd line
	//     \b LCD backspace
	//     lcd_gotoxy(x,y) Set write position on LCD (upper left is 1,1)
	//
	// lcd_backlight_led(ON)/lcd_backlight_led(OFF) = Turn ON/OFF LCD Backlight LED
	//
	//-----------------------------------------------------------------------------
	// LCD pins D0-D3 are not used.
	//-----------------------------------------------------------------------------
	//
	// Comment   : Control of a compatible LCD (1...4 rows by 1...4 columns) from
	//              a bus I2C with an EXPANDER of I/O with connection I2C.
	//              The tests of these routines have been programmed using the IC
	//              Phillips PCF8574T. I've used 4 bits mode programming.
	//              The 8 bits mode programming is possible if you use 2 x PCF8574T.
	//              RW Pin is not being used.
	//
	// As defined in the following structure the pin connection is as follows:
	//
	//  PCF8574P     LCD
	//  ========     ======
	//     P0        RS
	//     P1        RW    (Not used!)
	//     P2        Enable 
	//     P3        Led Backlight
	//     P4        D4
	//     P5        D5
	//     P6        D6
	//     P7        D7
	//
	//  The SCL and SDA pins should be pull-up resistor as shown below:
	//
	//             +5v
	//               |
	//               <
	//               > 4.7K       
	//               <         
	//To PIC         |          To i2c slave
	//pin xx ------------------ SDA pin 
	//(SDA)                     
	//              +5v
	//               |
	//               <
	//               > 4.7K       
	//               <         
	//To PIC         |          To i2c slave
	//pin xx ------------------ SCL pin 
	//(SCL)
	//
	//To PIC                    To i2c slave
	//Vss pin ----------------- Vss or ground pin 
	//                |
	//              -----
	//               ---  Ground
	//                - 
	// 
	// THIS DOCUMENT IS PROVIDED TO THE USER "AS IS"
	//-----------------------------------------------------------------------------
	#ifndef LCD_ADDR
	#define LCD_ADDR              0x4E        //Default I2C slave address for LCD module
	#endif
	#ifndef lcd_total_rows
	#define lcd_total_rows        4           //Default number of rows: 1,2,3 or 4
	#endif
	#ifndef lcd_total_columns
	#define lcd_total_columns     20          //Default number of columns: 1...20
	#endif    
	 
	#define RS                    0b00000001  //P0 - PCF8574T Pin connected to RS
	#define RW                    0b00000010  //P1 - PCF8574T Pin connected to RW
	#define ENABLE                0b00000100  //P2 - PCF8574T Pin connected to EN
	#define LCD_BACKLIGHT         0b00001000  //P3 - PCF8574T Pin connected to BACKLIGHT LED
	 
	#define addr_row_one          0x00        //LCD RAM address for row 1
	#define addr_row_two          0x40        //LCD RAM address for row 2
	#define addr_row_three        0x14        //LCD RAM address for row 3
	#define addr_row_four         0x54        //LCD RAM address for row 4
	 
	#define ON                    1
	#define OFF                   0
	#define NOT                   ~
	#define data_shifted          data<<4
	int8 new_row_request=1, BACKLIGHT_LED=LCD_BACKLIGHT;
	 
	void lcd_backlight_led(byte bl)
	{ 
	      If (bl) BACKLIGHT_LED=LCD_BACKLIGHT; else BACKLIGHT_LED=OFF;
	}
	 
	void i2c_send_nibble(byte data, byte type)
	{   
	   switch (type)
	   {     
	      case 0 :     
	      i2c_write(data_shifted | BACKLIGHT_LED);
	      delay_cycles(1);
	      i2c_write(data_shifted | ENABLE | BACKLIGHT_LED );
	      delay_us(2);
	      i2c_write(data_shifted & NOT ENABLE | BACKLIGHT_LED);
	      break;
	     
	      case 1 :
	      i2c_write(data_shifted | RS | BACKLIGHT_LED);
	      delay_cycles(1);
	      i2c_write(data_shifted | RS | ENABLE | BACKLIGHT_LED );
	      delay_us(2);
	     i2c_write(data_shifted | RS | BACKLIGHT_LED); //fix
	      break;
	   }
	} 
	   
	void lcd_send_byte(byte data, byte type)
	   {
	        i2c_start();
	        i2c_write(LCD_ADDR);
	        i2c_send_nibble(data >> 4 , type);
	        i2c_send_nibble(data & 0xf , type);
	        i2c_stop();       
	   }
	 
	void lcd_clear()
	{ 
	        lcd_send_byte(0x01,0);
	        delay_ms(2);
	        new_row_request=1;
	}
	 
	void lcd_init(void)
	{
	   byte i;
	   byte CONST lcd_type=2;  // 0=5x7, 1=5x10, 2=2 lines
	   byte CONST LCD_INIT_STRING[4] = {0x20 | (lcd_type << 2), 0xc, 1, 6}; // These bytes need to be sent to the LCD to start it up.
	 
	   disable_interrupts(GLOBAL);
	   delay_ms(50); //LCD power up delay
	   
	   i2c_start();
	   i2c_write(LCD_ADDR);
	      i2c_send_nibble(0x00,0);
	      delay_ms(15);
	   
	   for (i=1;i<=3;++i)   
	   {
	      i2c_send_nibble(0x03,0);
	      delay_ms(5);
	   }   
	      i2c_send_nibble(0x02,0);
	      delay_ms(5);
	   i2c_stop();
	   
	   for (i=0;i<=3;++i) {
	   lcd_send_byte(LCD_INIT_STRING[i],0);
	   delay_ms(5);
	   }
	   lcd_clear();  //Clear Display
	   enable_interrupts(GLOBAL);
	}
	 
	void lcd_gotoxy( byte x, byte y)
	{
	byte row,column,row_addr,lcd_address;
	static char data;
	 
	   if (y>lcd_total_rows) row=lcd_total_rows; else row=y;
	 
	   switch(row)
	   {
	      case 1:  row_addr=addr_row_one;     break;
	      case 2:  row_addr=addr_row_two;     break;
	      case 3:  row_addr=addr_row_three;   break;
	      case 4:  row_addr=addr_row_four;    break;
	      default: row_addr=addr_row_one;     break; 
	   } 
	   
	   if (x>lcd_total_columns) column=lcd_total_columns; else column=x; 
	   lcd_address=(row_addr+(column-1));
	   lcd_send_byte(0x80|lcd_address,0);
	}
	 
	//Display the character on LCD screen.
	void LCD_PUTC(char in_data)
	{   
	  switch(in_data)
	   { 
	     case '\f': lcd_clear();                       break;               
	     
	     case '\n':
	     new_row_request++;
	     if (new_row_request>lcd_total_rows) new_row_request=1;
	     lcd_gotoxy(1, new_row_request);
	     break;
	                 
	     case '\b': lcd_send_byte(0x10,0);             break;
	       
	     default: lcd_send_byte(in_data,1);            break;     
	     
	   }
	} 

#include <16F628A.h>
#use delay(crystal=8000000)
#use i2c(Master,fast=100000,sda=PIN_B4,scl=PIN_B3, force_sw)
   #define LCD_ADDR              0x70        //I2C slave address for LCD module
   #define lcd_total_rows        2           //Number of rows: 1,2,3 or 4
   #define lcd_total_columns     16          //Number of columns: 1...20
   #include <i2c_Flex_LCD.c>

void main()
{
lcd_init();
delay_ms(100);
lcd_gotoxy(1,2);
lcd_putc("etepic.com");
int i=0;
   while(TRUE)
   {
   lcd_gotoxy(1,1);
lcd_putc("deneme    ");
 lcd_gotoxy(8,1);  
printf(lcd_putc,"%d",i);
delay_ms(200);
i++;
if (i==100) i=0;


      //TODO: User Code
   }

}

@ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _LVP_OFF & _CP_OFF
'DEFINE I2C_HOLD 1
DEFINE  OSC            4
DEFINE I2C_SLOW 1

OPTION_REG.7 = 0
SCL      VAR PORTB.1
SDA      var PORTB.0
LCD_Addr CON 78
'LCD_BuffSize    CON 30
'LCD_Buff        VAR BYTE[LCD_BuffSize]
'LCD_BuffAddr    CON EXT : @LCD_BuffAddr = _LCD_Buff
'LCD_BuffLen    VAR WORD        ; Length of data in buffer
LCD_Data        VAR BYTE        ; Data to Send to LCD
LCD_Byte        VAR BYTE        ; Nibbles to Send
LCD_RS          VAR LCD_Byte.0  ; Register Select bit
LCD_RW          VAR LCD_Byte.1  ; Read/Write bit
LCD_E          VAR LCD_Byte.2  ; Enable bit
LCD_BackLight  VAR LCD_Byte.3  ; Backlight 0=ON
LCD_WriteMode  VAR BYTE        ; 1=LowNibble, 2=HighNibble, 3=Both
LCD_CommandMode VAR BIT        ; Indicates next byte is a command
LCD_Byte2      VAR BYTE        ; Same nibble without E bit
LCD_Idx        VAR BYTE
testmode        var byte



;----[Initialize the LCD]-------------------------------------------------------
PAUSE 250            ; LCD Power-on delay
LCD_Backlight = 1    ; Backlight OFF
LCD_RW = 0            ; Write to LCD
LCD_RS = 0            ; Command Register

LCD_WriteMode = 1    ;-- Low Nibbles only
LCD_Data = 3          ; Reset 3 times
gosub LCD_Write_
PAUSEUS 6000
gosub LCD_Write_
PAUSEUS 1000
gosub LCD_Write_
PAUSEUS 1000

LCD_Data = 2          ; Start 4-bit mode
gosub LCD_Write_
PAUSEUS 1000

LCD_WriteMode = 3    ;-- Both Nibbles
LCD_Data = $28
gosub LCD_Write_      ; Function Set, 4-bit, 2-line, 5x7
LCD_Data = $0C
gosub LCD_Write_      ; Display ON
LCD_Data = $01
gosub LCD_Write_      ; Clear Screen
PAUSE 2
LCD_Data = $06 
gosub LCD_Write_      ; Entry Mode
                      
PAUSE 2              ; Let command finish
LCD_RS = 1  ' this is data
goto main

LCD_WRITE_:
  LCD_E = 1
  IF LCD_WriteMode.1 = 1 THEN                            ; Write High Nibble
    LCD_Byte = (LCD_Byte & $0F) | (LCD_Data  & $F0)
    LCD_Byte2 = LCD_Byte & $FB    
    I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
  ENDIF
  
  IF LCD_WriteMode.0 = 1 THEN                            ; Write Low Nibble
    LCD_Byte = (LCD_Byte & $0F) | ((LCD_Data << 4 )& $F0)
    LCD_Byte2 = LCD_Byte & $FB
    I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
  ENDIF
return

Main:
LCD_Backlight = 0
LCD_Data = "T"
gosub LCD_Write_: PAUSEUS 50
LCD_Data = "e" 
gosub LCD_Write_: PAUSEUS 50
LCD_Data = "s" 
gosub LCD_Write_: PAUSEUS 50 
LCD_Data = "t" 
gosub LCD_Write_: PAUSEUS 50 
pause 500
LCD_Backlight = 1
LCD_Data = "-" 
gosub LCD_Write_: PAUSEUS 50 
pause 500
goto main

LCD_WRITE_:
  LCD_E = 1
  IF LCD_WriteMode.1 = 1 THEN                            ; Write High Nibble
    LCD_Byte = (LCD_Byte & $0F) | (LCD_Data  & $F0)
    LCD_Byte2 = LCD_Byte & $FB    
    I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
  ENDIF
  
  IF LCD_WriteMode.0 = 1 THEN                            ; Write Low Nibble
    LCD_Byte = (LCD_Byte & $0F) | ((LCD_Data << 4 )& $F0)
    LCD_Byte2 = LCD_Byte & $FB
    I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
  ENDIF
return

FOR sayi = 0 TO 5 
  LOOKUP2 sayi,["hello!"],LCD_data 
 gosub lcd_write_
 pauseus 50
NEXT sayi 

@ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _LVP_OFF & _CP_OFF
'DEFINE I2C_HOLD 1
DEFINE  OSC             4
DEFINE I2C_SLOW 1

OPTION_REG.7 = 0
SCL      VAR PORTB.1
SDA      var PORTB.0
W var word
LCD_Addr CON 78
'LCD_BuffSize    CON 30
'LCD_Buff        VAR BYTE[LCD_BuffSize]
'LCD_BuffAddr    CON EXT : @LCD_BuffAddr = _LCD_Buff
'LCD_BuffLen     VAR WORD        ; Length of data in buffer
LCD_Data        VAR WORD        ; Data to Send to LCD
LCD_Byte        VAR BYTE        ; Nibbles to Send
LCD_RS          VAR LCD_Byte.0  ; Register Select bit
LCD_RW          VAR LCD_Byte.1  ; Read/Write bit
LCD_E           VAR LCD_Byte.2  ; Enable bit
LCD_BackLight   VAR LCD_Byte.3  ; Backlight 0=ON
LCD_WriteMode   VAR BYTE        ; 1=LowNibble, 2=HighNibble, 3=Both
LCD_CommandMode VAR BIT         ; Indicates next byte is a command
LCD_Byte2       VAR BYTE        ; Same nibble without E bit
LCD_Idx         VAR BYTE
testmode        var byte
sayi            var byte
buffer          var byte

;----[Initialize the LCD]-------------------------------------------------------
PAUSE 250             ; LCD Power-on delay
LCD_Backlight = 1     ; Backlight OFF
LCD_RW = 0            ; Write to LCD
LCD_RS = 0            ; Command Register

LCD_WriteMode = 1     ;-- Low Nibbles only
LCD_Data = 3          ; Reset 3 times
gosub LCD_Write_
PAUSEUS 6000
gosub LCD_Write_
PAUSEUS 1000
gosub LCD_Write_
PAUSEUS 1000

LCD_Data = 2          ; Start 4-bit mode
gosub LCD_Write_
PAUSEUS 1000

LCD_WriteMode = 3     ;-- Both Nibbles
LCD_Data = $28
gosub LCD_Write_      ; Function Set, 4-bit, 2-line, 5x7

LCD_Data = $C0
gosub LCD_Write_      ; second line

LCD_Data = $0C
gosub LCD_Write_      ; Display ON
LCD_Data = $01
gosub LCD_Write_      ; Clear Screen
PAUSE 2
LCD_Data = $06 
gosub LCD_Write_      ; Entry Mode
                       
PAUSE 2               ; Let command finish
LCD_RS = 1   ' this is data
goto main

LCD_WRITE_:
   LCD_E = 1
   IF LCD_WriteMode.1 = 1 THEN                             ; Write High Nibble
     LCD_Byte = (LCD_Byte & $0F) | (LCD_Data  & $F0)
     LCD_Byte2 = LCD_Byte & $FB    
     I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
   ENDIF
  
   IF LCD_WriteMode.0 = 1 THEN                             ; Write Low Nibble
     LCD_Byte = (LCD_Byte & $0F) | ((LCD_Data << 4 )& $F0)
     LCD_Byte2 = LCD_Byte & $FB
     I2CWRITE SDA,SCL, LCD_Addr,[LCD_Byte, LCD_Byte2]
   ENDIF
return

Main:
w=10

FOR sayi = 0 TO 9 
  LOOKUP2 sayi,[W],LCD_data 
 gosub lcd_write_
 pauseus 50
NEXT sayi 

lcd_rs=0
LCD_Data = $C0
gosub LCD_Write_ :pause 2     ; second line
lcd_rs=1

FOR sayi = 0 TO 5 
  LOOKUP2 sayi,[#w],LCD_data 
 gosub lcd_write_
 pauseus 50
NEXT sayi 
pause 500
lcd_rs=0
LCD_Data = $80
gosub LCD_Write_ :pause 2     ; second line
LCD_Data = $01
gosub LCD_Write_
lcd_rs=1

pause 500
stop