Now display the x value on LCD , like "hello 012" .
In main loop, the text is scrolling from right to left on 2 lines.
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
Thank you very much for your help!
Bookmarks