I'm back after exactly 1 year. 
I changed the 16LF1824 with 16F1503 and now LCD is working !
Many thx to Dave and Robert !
Now I need again a your help. How i can display a variable ? (for example, x from my code )
Working code:
Code:
DEFINE I2C_HOLD 1
TRISA = 000000
TRISC = 000000
ANSELA = 000000
ANSELC = 000000
OPTION_REG.7 = 0
SCL VAR PORTC.0
SDA var PORTC.1
Reset var PORTC.2
x var byte :x=12
com con $78
pause 100
HIGH Reset
goto StartProgram
'********************************************************************************
'=============Initializing LCD==========
ST7036Init:
I2CWRITE SDA,SCL,com,[$00,$38]'function set
pause 1
I2CWRITE SDA,SCL,com,[$00,$39]'function set
pause 1
I2CWRITE SDA,SCL,com,[$00,$14]'internal OSC
pause 1
I2CWRITE SDA,SCL,com,[$00,$6A]'follower control
pause 1
I2CWRITE SDA,SCL,com,[$00,$0C]'display on/off
pause 1
I2CWRITE SDA,SCL,com,[$00,$01]'clear display
pause 1
I2CWRITE SDA,SCL,com,[$00,$06]'entry mode set
pause 1
Return
'********************************************************************************
startProgram:
gosub ST7036Init
I2CWRITE SDA, SCL,com,$40,"hello"
Main:
'program
goto Main
Bookmarks