Now display the x value on LCD , like "hello 012" .
In main loop, the text is scrolling from right to left on 2 lines.
Thank you very much for your help!Code:SCL VAR PORTC.0 SDA var PORTC.1 Reset var PORTC.2 x var byte :x=12 com con $78 buff var byte[16] 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 here: I2CWRITE SDA,SCL,com,[$00,$01]'clear display pause 1 I2CWRITE SDA,SCL,com,[$00,$06]'entry mode set pause 1 Return '******************************************************************************** startProgram: ARRAYWRITE buff,[dec3 x] gosub ST7036Init I2CWRITE SDA, SCL,com,[$40,"hello ",str buff\x] Main: 'I2CWRITE SDA, SCL,com,[$40,"hello ",str buff\x] pause 1000 goto Main




Bookmarks