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