My Account | Logout | Checkout


 
Coleman Air - FAQ
 

Driving an OLED with a Picaxe microcontroller using the I2C bus

OLED Display Module

 

While designing the LCD and OLED display portions of our newest controllers, we found that there was simply no documentation to be found on how to interface a Picaxe to the OLED SSD1306 based display using the I2C data bus. These little displays offer great resolution at a great price and can be a real asset to your project, so I just wanted to share what we originally devolped, that others might have this information as well to further the knowledge base in DIY electronics.

The code below is a very basic example of how to interface these two. The Picaxe has a limited amount of memory, so some concesssions had to be made. In our case, we decided not to include the lower case characters. However, if our project is small, there is enough code space to add additional font items.

 

Please link back to this site if you would like to share this code.

Enjoy your projects!

 



' Example of how to use a SSD1306 based Oled DISPLAY with a Picaxe
' A 20x2 was used in this design, but any picaxe having SDA/SDL will work but may require pin tweaking
' 1/22/15 -- Craig Allen -- CCS Software/Coleman Air, INC

' http://colemanAir.us


' Portions of this code were derived from the ADA Fruit Library used with the Arduino
' You may copy and use this code in your projects free of charge.



SYMBOL TWI_BUFFER_LENGTH = 32
SYMBOL SSD1306_LCDWIDTH = 128
SYMBOL SSD1306_LCDHEIGHT = 64

SYMBOL SSD1306_SETCONTRAST =0x81
SYMBOL SSD1306_DISPLAYALLON_RESUME =0xA4
SYMBOL SSD1306_DISPLAYALLON =0xA5
SYMBOL SSD1306_NORMALDISPLAY =0xA6
SYMBOL SSD1306_INVERTDISPLAY =0xA7
SYMBOL SSD1306_DISPLAYOFF =0xAE
SYMBOL SSD1306_DISPLAYON =0xAF

SYMBOL SSD1306_SETDISPLAYOFFSET =0xD3
SYMBOL SSD1306_SETCOMPINS =0xDA

SYMBOL SSD1306_SETVCOMDETECT =0xDB

SYMBOL SSD1306_SETDISPLAYCLOCKDIV =0xD5
SYMBOL SSD1306_SETPRECHARGE =0xD9

SYMBOL SSD1306_SETMULTIPLEX =0xA8

SYMBOL SSD1306_SETLOWCOLUMN =0x00
SYMBOL SSD1306_SETHIGHCOLUMN =0x10

SYMBOL SSD1306_SETSTARTLINE =0x40

SYMBOL SSD1306_MEMORYMODE =0x20
SYMBOL SSD1306_COLUMNADDR =0x21
SYMBOL SSD1306_PAGEADDR =0x22 ; Page 0-7 represents line 0 - 7

SYMBOL SSD1306_COMSCANINC =0xC0
SYMBOL SSD1306_COMSCANDEC =0xC8

SYMBOL SSD1306_SEGREMAP =0xA0 | 1

SYMBOL SSD1306_CHARGEPUMP =0x8D

SYMBOL SSD1306_EXTERNALVCC =0x1
SYMBOL SSD1306_SWITCHCAPVCC =0x2

;Scrolling SYMBOLs
SYMBOL ACTIVATE_SCROLL =0x2F
SYMBOL DEACTIVATE_SCROLL =0x2E
SYMBOL SET_VERTICAL_SCROLL_AREA =0xA3
SYMBOL RIGHT_HORIZONTAL_SCROLL =0x26
SYMBOL LEFT_HORIZONTAL_SCROLL =0x27
SYMBOL VERT_AND_RIGHT_HORIZONTAL =0x29
SYMBOL VERT_AND_LEFT_HORIZONTAL =0x2A


;**************************************************************

;


SYMBOL SSD1306_ADDR = $3C << 1 ; this is the I2C address ($78)

' b0-b3 are used for temp loops

SYMBOL DispNum = W2

SYMBOL row = b6
SYMBOL col = b7


SYMBOL temp = b11
SYMBOL aByte = b12
SYMBOL index = b13


main:

'20X2 bit0-bit7 = C.0, C.6, C.7, B.0, B.1 B.5, B.6, B.7
' i2c requires pullups (either internal or extranl) on the SDA/SDL pins
pullup %10100000 ;enable pullups on b.5/b.7


GOSUB InitialiseLcd ; Initialise the LCD

mainloop:

gosub ADA_FruitLogo

pause 5000

gosub Display_Font

pause 5000

gosub clearDisplay

row = 3
col = 10

gosub setposition


eeprom 31, ("0123456789 TEST")
eeprom 46, ("HELLO WORLD")

for index = 31 TO 45
read index,aByte
gosub displayChar;
next index

row = 5
col = 2
gosub setposition

for index = 46 to 56
read index,aByte
gosub displayChar;
next index


DispNum = 32016 ' Display any word sized number.
row = 6
col = 8
gosub setposition
gosub displayNum



row = 1 ' Display in top yellow section.
col = 1
gosub setposition

eeprom 57, ("HIGH TEMP - ")
for index = 57 to 68
read index,aByte
gosub displayChar;
next index


DispNum = 180

gosub displayNum

abyte = "C"
gosub displayChar



pause 10000



goto mainloop

 

 

' INITIALIZE LCD
' -----------------------------------------------------------------
'
InitialiseLcd:


' initialize I2C
PAUSE 500
i2cslave SSD1306_ADDR, i2cfast, i2cbyte

for index = 0 TO 23
read index,aByte
gosub DirectSendCmd
next


eeprom 0, (SSD1306_DISPLAYOFF); ; 0xAE
eeprom 1, (SSD1306_SETDISPLAYCLOCKDIV); ; 0xD5
eeprom 2, (0x80); ; the suggested ratio 0x80
eeprom 3, (SSD1306_SETMULTIPLEX); ; 0xA8
eeprom 4, (0x3F);
eeprom 5, (SSD1306_SETDISPLAYOFFSET); ; 0xD3
eeprom 6, (0x0); ; no offset
eeprom 7, (SSD1306_SETSTARTLINE); ; line #0
eeprom 8, (SSD1306_CHARGEPUMP); ; 0x8D
eeprom 9, (0x14); ; INTERNAL VCC
eeprom 10, (SSD1306_MEMORYMODE); ; 0x20
eeprom 11, (0x00); ; Horiz mode. 0x0 act like ks0108
eeprom 12, (SSD1306_SEGREMAP);
eeprom 13, (SSD1306_COMSCANDEC);
eeprom 14, (SSD1306_SETCOMPINS); ; 0xDA
eeprom 15, (0x12);
eeprom 16, (SSD1306_SETCONTRAST); ; 0x81
eeprom 17, (0xCF) ; INTERNAL VCC
eeprom 18, (SSD1306_SETPRECHARGE); ; 0xd9
eeprom 19, (0xF1) ; INTERNAL VCC
eeprom 20, (SSD1306_SETVCOMDETECT); ; 0xDB
eeprom 21, (0x40);
eeprom 22, (SSD1306_DISPLAYALLON_RESUME); ; 0xA4
eeprom 23, (SSD1306_DISPLAYON); ; 0xA4

'eeprom 24, (SSD1306_DISPLAYALLON); ; 0xA5

return

 

 

' SEND INIT CMD BYTE - SEND CMD BYTE - SEND DATA BYTE
' -----------------------------------------------------------------
'

 

SetPosition:

'20 line x 4 rows is accompished by wrapping the text on each line past 20 characters to two lines down (not next line down). Position 20 (dec) is row 3, col 1

abyte= SSD1306_PAGEADDR
GOSUB DirectSendCmd
abyte = row
GOSUB DirectSendCmd
abyte = 7
GOSUB DirectSendCmd


abyte= SSD1306_COLUMNADDR
col = col * 5 'columns per character
GOSUB DirectSendCmd
abyte = col
GOSUB DirectSendCmd
abyte = 127
GOSUB DirectSendCmd


return


DISPLAY_FONT:

gosub cleardisplay


eeprom 25, (SSD1306_COLUMNADDR)
eeprom 26, (0) ; ;Column start address (0 = reset)
eeprom 27, (127) ;Column end address (127 = reset)
eeprom 28, (SSD1306_PAGEADDR)
eeprom 29, (0) ;Page start address (0 = reset)
eeprom 30, (7) ;Page end address



for index = 25 TO 30
read index,aByte
gosub DirectSendCmd
next

Writei2c (0x40, 0x00, 0x07, 0x00, 0x07, 0x00)
Writei2c (0x40, 0x14, 0x7F, 0x14, 0x7F, 0x14)
Writei2c (0x40, 0x24, 0x2A, 0x7F, 0x2A, 0x12)
Writei2c (0x40, 0x23, 0x13, 0x08, 0x64, 0x62)
Writei2c (0x40, 0x36, 0x49, 0x56, 0x20, 0x50)
Writei2c (0x40, 0x00, 0x08, 0x07, 0x03, 0x00)
Writei2c (0x40, 0x00, 0x1C, 0x22, 0x41, 0x00)
Writei2c (0x40, 0x00, 0x41, 0x22, 0x1C, 0x00)
Writei2c (0x40, 0x2A, 0x1C, 0x7F, 0x1C, 0x2A)
Writei2c (0x40, 0x08, 0x08, 0x3E, 0x08, 0x08)
Writei2c (0x40, 0x00, 0x80, 0x70, 0x30, 0x00)
Writei2c (0x40, 0x08, 0x08, 0x08, 0x08, 0x08)
Writei2c (0x40, 0x00, 0x00, 0x60, 0x60, 0x00)
Writei2c (0x40, 0x20, 0x10, 0x08, 0x04, 0x02)
Writei2c (0x40, 0x3E, 0x51, 0x49, 0x45, 0x3E)

Writei2c (0x40, 0x00, 0x42, 0x7F, 0x40, 0x00) ; 00
Writei2c (0x40, 0x72, 0x49, 0x49, 0x49, 0x46)
Writei2c (0x40, 0x21, 0x41, 0x49, 0x4D, 0x33)
Writei2c (0x40, 0x18, 0x14, 0x12, 0x7F, 0x10)
Writei2c (0x40, 0x27, 0x45, 0x45, 0x45, 0x39)
Writei2c (0x40, 0x3C, 0x4A, 0x49, 0x49, 0x31)
Writei2c (0x40, 0x41, 0x21, 0x11, 0x09, 0x07)
Writei2c (0x40, 0x36, 0x49, 0x49, 0x49, 0x36)
Writei2c (0x40, 0x46, 0x49, 0x49, 0x29, 0x1E)
Writei2c (0x40, 0x00, 0x00, 0x14, 0x00, 0x00)
Writei2c (0x40, 0x00, 0x40, 0x34, 0x00, 0x00)
Writei2c (0x40, 0x00, 0x08, 0x14, 0x22, 0x41)
Writei2c (0x40, 0x14, 0x14, 0x14, 0x14, 0x14)
Writei2c (0x40, 0x00, 0x41, 0x22, 0x14, 0x08)
Writei2c (0x40, 0x02, 0x01, 0x59, 0x09, 0x06)
Writei2c (0x40, 0x3E, 0x41, 0x5D, 0x59, 0x4E)
Writei2c (0x40, 0x7C, 0x12, 0x11, 0x12, 0x7C)
Writei2c (0x40, 0x7F, 0x49, 0x49, 0x49, 0x36)
Writei2c (0x40, 0x3E, 0x41, 0x41, 0x41, 0x22)
Writei2c (0x40, 0x7F, 0x41, 0x41, 0x41, 0x3E)
Writei2c (0x40, 0x7F, 0x49, 0x49, 0x49, 0x41)
Writei2c (0x40, 0x7F, 0x09, 0x09, 0x09, 0x01)
Writei2c (0x40, 0x3E, 0x41, 0x41, 0x51, 0x73)
Writei2c (0x40, 0x7F, 0x08, 0x08, 0x08, 0x7F)
Writei2c (0x40, 0x00, 0x41, 0x7F, 0x41, 0x00)
Writei2c (0x40, 0x20, 0x40, 0x41, 0x3F, 0x01)
Writei2c (0x40, 0x7F, 0x08, 0x14, 0x22, 0x41)
Writei2c (0x40, 0x7F, 0x40, 0x40, 0x40, 0x40)
Writei2c (0x40, 0x7F, 0x02, 0x1C, 0x02, 0x7F)
Writei2c (0x40, 0x7F, 0x04, 0x08, 0x10, 0x7F)
Writei2c (0x40, 0x3E, 0x41, 0x41, 0x41, 0x3E)
Writei2c (0x40, 0x7F, 0x09, 0x09, 0x09, 0x06)
Writei2c (0x40, 0x3E, 0x41, 0x51, 0x21, 0x5E)
Writei2c (0x40, 0x7F, 0x09, 0x19, 0x29, 0x46)
Writei2c (0x40, 0x26, 0x49, 0x49, 0x49, 0x32)
Writei2c (0x40, 0x03, 0x01, 0x7F, 0x01, 0x03)
Writei2c (0x40, 0x3F, 0x40, 0x40, 0x40, 0x3F)
Writei2c (0x40, 0x1F, 0x20, 0x40, 0x20, 0x1F)
Writei2c (0x40, 0x3F, 0x40, 0x38, 0x40, 0x3F)
Writei2c (0x40, 0x63, 0x14, 0x08, 0x14, 0x63)
Writei2c (0x40, 0x03, 0x04, 0x78, 0x04, 0x03)
Writei2c (0x40, 0x61, 0x59, 0x49, 0x4D, 0x43) ; Z


Writei2c (0x40, 0x00, 0x7F, 0x41, 0x41, 0x41)
Writei2c (0x40, 0x02, 0x04, 0x08, 0x10, 0x20)
Writei2c (0x40, 0x00, 0x41, 0x41, 0x41, 0x7F)
Writei2c (0x40, 0x04, 0x02, 0x01, 0x02, 0x04)
Writei2c (0x40, 0x40, 0x40, 0x40, 0x40, 0x40)
Writei2c (0x40, 0x00, 0x03, 0x07, 0x08, 0x00)
Writei2c (0x40, 0x20, 0x54, 0x54, 0x78, 0x40)
Writei2c (0x40, 0x7F, 0x28, 0x44, 0x44, 0x38)
Writei2c (0x40, 0x38, 0x44, 0x44, 0x44, 0x28)
Writei2c (0x40, 0x38, 0x44, 0x44, 0x28, 0x7F)
Writei2c (0x40, 0x38, 0x54, 0x54, 0x54, 0x18)
Writei2c (0x40, 0x00, 0x08, 0x7E, 0x09, 0x02)
Writei2c (0x40, 0x18, 0xA4, 0xA4, 0x9C, 0x78)
Writei2c (0x40, 0x7F, 0x08, 0x04, 0x04, 0x78)
Writei2c (0x40, 0x00, 0x44, 0x7D, 0x40, 0x00)
Writei2c (0x40, 0x20, 0x40, 0x40, 0x3D, 0x00)
Writei2c (0x40, 0x7F, 0x10, 0x28, 0x44, 0x00)
Writei2c (0x40, 0x00, 0x41, 0x7F, 0x40, 0x00)
Writei2c (0x40, 0x7C, 0x04, 0x78, 0x04, 0x78)
Writei2c (0x40, 0x7C, 0x08, 0x04, 0x04, 0x78)
Writei2c (0x40, 0x38, 0x44, 0x44, 0x44, 0x38)
Writei2c (0x40, 0xFC, 0x18, 0x24, 0x24, 0x18)
Writei2c (0x40, 0x18, 0x24, 0x24, 0x18, 0xFC)
Writei2c (0x40, 0x7C, 0x08, 0x04, 0x04, 0x08)
Writei2c (0x40, 0x48, 0x54, 0x54, 0x54, 0x24)
Writei2c (0x40, 0x04, 0x04, 0x3F, 0x44, 0x24)
Writei2c (0x40, 0x3C, 0x40, 0x40, 0x20, 0x7C)
Writei2c (0x40, 0x1C, 0x20, 0x40, 0x20, 0x1C)
Writei2c (0x40, 0x3C, 0x40, 0x30, 0x40, 0x3C)
Writei2c (0x40, 0x44, 0x28, 0x10, 0x28, 0x44)
Writei2c (0x40, 0x4C, 0x90, 0x90, 0x90, 0x7C)
Writei2c (0x40, 0x44, 0x64, 0x54, 0x4C, 0x44)
Writei2c (0x40, 0x00, 0x08, 0x36, 0x41, 0x00)
Writei2c (0x40, 0x00, 0x00, 0x77, 0x00, 0x00)
Writei2c (0x40, 0x00, 0x41, 0x36, 0x08, 0x00)
Writei2c (0x40, 0x02, 0x01, 0x02, 0x04, 0x02)
Writei2c (0x40, 0x3C, 0x26, 0x23, 0x26, 0x3C)
Writei2c (0x40, 0x1E, 0xA1, 0xA1, 0x61, 0x12)
Writei2c (0x40, 0x3A, 0x40, 0x40, 0x20, 0x7A)
Writei2c (0x40, 0x38, 0x54, 0x54, 0x55, 0x59)
Writei2c (0x40, 0x21, 0x55, 0x55, 0x79, 0x41)



return

DirectSendCmd:

' Commands are preceeded by a 0 filled byte
writei2c (0,abyte)


return

ClearDisplay:

b0 = SSD1306_LCDWIDTH

FOR b1 = 0 to b0

' 0x40 = 01000000 (C/O = 0, D/C = 1) -- Not a command, but data follows.

' Clear 16 columns at a time
writei2c(0x40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)

next b1


for index = 25 TO 30
read index,aByte
gosub DirectSendCmd
next

return

ADA_FruitLogo:

for index = 25 TO 30
read index,aByte
gosub DirectSendCmd
pause 5
next




' These values were copied from the ADA_Fruit Library to demonstrate the bitmap capability
; Line 0 (page 0)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80)
WriteI2C (0X40,0x80, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x80, 0x80, 0xC0, 0xC0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)

; Line 1 (page 1)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x80, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC, 0xF8, 0xE0, 0x00, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x80, 0x80)
WriteI2C (0X40,0x80, 0x80, 0x00, 0x80, 0x80, 0x00, 0x00, 0x00, 0x00, 0x80, 0x80, 0x80, 0x80, 0x80, 0x00, 0xFF)
WriteI2C (0X40,0xFF, 0xFF, 0x00, 0x00, 0x00, 0x00, 0x80, 0x80, 0x80, 0x80, 0x00, 0x00, 0x80, 0x80, 0x00, 0x00)
WriteI2C (0X40,0x80, 0xFF, 0xFF, 0x80, 0x80, 0x00, 0x80, 0x80, 0x00, 0x80, 0x80, 0x80, 0x80, 0x00, 0x80, 0x80)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x80, 0x00, 0x00, 0x8C, 0x8E, 0x84, 0x00, 0x00, 0x80, 0xF8)
WriteI2C (0X40,0xF8, 0xF8, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)

WriteI2C (0X40,0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xF0, 0xE0, 0xE0, 0xC0, 0x80)
WriteI2C (0X40,0x00, 0xE0, 0xFC, 0xFE, 0xFF, 0xFF, 0xFF, 0x7F, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFE, 0xFF, 0xC7, 0x01, 0x01)
WriteI2C (0X40,0x01, 0x01, 0x83, 0xFF, 0xFF, 0x00, 0x00, 0x7C, 0xFE, 0xC7, 0x01, 0x01, 0x01, 0x01, 0x83, 0xFF)
WriteI2C (0X40,0xFF, 0xFF, 0x00, 0x38, 0xFE, 0xC7, 0x83, 0x01, 0x01, 0x01, 0x83, 0xC7, 0xFF, 0xFF, 0x00, 0x00)
WriteI2C (0X40,0x01, 0xFF, 0xFF, 0x01, 0x01, 0x00, 0xFF, 0xFF, 0x07, 0x01, 0x01, 0x01, 0x00, 0x00, 0x7F, 0xFF)
WriteI2C (0X40,0x80, 0x00, 0x00, 0x00, 0xFF, 0xFF, 0x7F, 0x00, 0x00, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0x01, 0xFF)
WriteI2C (0X40,0xFF, 0xFF, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)

WriteI2C (0X40,0x03, 0x0F, 0x3F, 0x7F, 0x7F, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xE7, 0xC7, 0xC7, 0x8F)
WriteI2C (0X40,0x8F, 0x9F, 0xBF, 0xFF, 0xFF, 0xC3, 0xC0, 0xF0, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFC, 0xFC, 0xFC)
WriteI2C (0X40,0xFC, 0xFC, 0xFC, 0xFC, 0xFC, 0xF8, 0xF8, 0xF0, 0xF0, 0xE0, 0xC0, 0x00, 0x01, 0x03, 0x03, 0x03)
WriteI2C (0X40,0x03, 0x03, 0x01, 0x03, 0x03, 0x00, 0x00, 0x00, 0x00, 0x01, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01)
WriteI2C (0X40,0x03, 0x01, 0x00, 0x00, 0x00, 0x01, 0x03, 0x03, 0x03, 0x03, 0x01, 0x01, 0x03, 0x03, 0x00, 0x00)
WriteI2C (0X40,0x00, 0x03, 0x03, 0x00, 0x00, 0x00, 0x03, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01)
WriteI2C (0X40,0x03, 0x03, 0x03, 0x03, 0x03, 0x01, 0x00, 0x00, 0x00, 0x01, 0x03, 0x01, 0x00, 0x00, 0x00, 0x03)
WriteI2C (0X40,0x03, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)

writei2c (0x40,0x00, 0x00, 0x00, 0x80, 0xC0, 0xE0, 0xF0, 0xF9, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x3F, 0x1F, 0x0F)
Writei2c (0x40,0x87, 0xC7, 0xF7, 0xFF, 0xFF, 0x1F, 0x1F, 0x3D, 0xFC, 0xF8, 0xF8, 0xF8, 0xF8, 0x7C, 0x7D, 0xFF)
Writei2c (0x40,0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F, 0x3F, 0x0F, 0x07, 0x00, 0x30, 0x30, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0xFE, 0xFE, 0xFC, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xE0, 0xC0, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x30, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)

Writei2c (0x40,0x00, 0xC0, 0xFE, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F, 0x7F, 0x3F, 0x1F)
Writei2c (0x40,0x0F, 0x07, 0x1F, 0x7F, 0xFF, 0xFF, 0xF8, 0xF8, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFE, 0xF8, 0xE0)
Writei2c (0x40,0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFE, 0xFE, 0x00, 0x00)
Writei2c (0x40,0x00, 0xFC, 0xFE, 0xFC, 0x0C, 0x06, 0x06, 0x0E, 0xFC, 0xF8, 0x00, 0x00, 0xF0, 0xF8, 0x1C, 0x0E)
Writei2c (0x40,0x06, 0x06, 0x06, 0x0C, 0xFF, 0xFF, 0xFF, 0x00, 0x00, 0xFE, 0xFE, 0x00, 0x00, 0x00, 0x00, 0xFC)
Writei2c (0x40,0xFE, 0xFC, 0x00, 0x18, 0x3C, 0x7E, 0x66, 0xE6, 0xCE, 0x84, 0x00, 0x00, 0x06, 0xFF, 0xFF, 0x06)
Writei2c (0x40,0x06, 0xFC, 0xFE, 0xFC, 0x0C, 0x06, 0x06, 0x06, 0x00, 0x00, 0xFE, 0xFE, 0x00, 0x00, 0xC0, 0xF8)
Writei2c (0x40,0xFC, 0x4E, 0x46, 0x46, 0x46, 0x4E, 0x7C, 0x78, 0x40, 0x18, 0x3C, 0x76, 0xE6, 0xCE, 0xCC, 0x80)

Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x01, 0x07, 0x0F, 0x1F, 0x1F, 0x3F, 0x3F, 0x3F, 0x3F, 0x1F, 0x0F, 0x03)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0F, 0x0F, 0x00, 0x00)
Writei2c (0x40,0x00, 0x0F, 0x0F, 0x0F, 0x00, 0x00, 0x00, 0x00, 0x0F, 0x0F, 0x00, 0x00, 0x03, 0x07, 0x0E, 0x0C)
Writei2c (0x40,0x18, 0x18, 0x0C, 0x06, 0x0F, 0x0F, 0x0F, 0x00, 0x00, 0x01, 0x0F, 0x0E, 0x0C, 0x18, 0x0C, 0x0F)
Writei2c (0x40,0x07, 0x01, 0x00, 0x04, 0x0E, 0x0C, 0x18, 0x0C, 0x0F, 0x07, 0x00, 0x00, 0x00, 0x0F, 0x0F, 0x00)
Writei2c (0x40,0x00, 0x0F, 0x0F, 0x0F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0F, 0x0F, 0x00, 0x00, 0x00, 0x07)
Writei2c (0x40,0x07, 0x0C, 0x0C, 0x18, 0x1C, 0x0C, 0x06, 0x06, 0x00, 0x04, 0x0E, 0x0C, 0x18, 0x0C, 0x0F, 0x07)

Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)
Writei2c (0x40,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)


return

' STANDARD FONT

' This is the ASCII Font Table starting at space and ending at Z -- lower case is not included (not enough memory)
' The first 8 are in program direct writes

'table (0x00, 0x00, 0x00, 0x00, 0x00) ' Space
'table (0x00, 0x00, 0x5F, 0x00, 0x00) ' !
'table (0x00, 0x07, 0x00, 0x07, 0x00) ' "
'table (0x14, 0x7F, 0x14, 0x7F, 0x14) ' #
'table (0x24, 0x2A, 0x7F, 0x2A, 0x12) ' $
'table (0x23, 0x13, 0x08, 0x64, 0x62) ' %
'table (0x36, 0x49, 0x56, 0x20, 0x50) ' &
'table (0x00, 0x08, 0x07, 0x03, 0x00) ' '

table (0x00, 0x1C, 0x22, 0x41, 0x00) ' (
table (0x00, 0x41, 0x22, 0x1C, 0x00) ' )
table (0x2A, 0x1C, 0x7F, 0x1C, 0x2A) ' *
table (0x08, 0x08, 0x3E, 0x08, 0x08) ' +
table (0x00, 0x80, 0x70, 0x30, 0x00) ' ,
table (0x08, 0x08, 0x08, 0x08, 0x08) ' -
table (0x00, 0x00, 0x5F, 0x00, 0x0) ' .
table (0x20, 0x10, 0x08, 0x04, 0x02) ' /

table (0x3E, 0x51, 0x49, 0x45, 0x3E) ' 0
table (0x00, 0x42, 0x7F, 0x40, 0x00) ; 1
table (0x72, 0x49, 0x49, 0x49, 0x46)
table (0x21, 0x41, 0x49, 0x4D, 0x33)
table (0x18, 0x14, 0x12, 0x7F, 0x10)
table (0x27, 0x45, 0x45, 0x45, 0x39)
table (0x3C, 0x4A, 0x49, 0x49, 0x31)
table (0x41, 0x21, 0x11, 0x09, 0x07)
table (0x36, 0x49, 0x49, 0x49, 0x36)
table (0x46, 0x49, 0x49, 0x29, 0x1E)
table (0x00, 0x00, 0x14, 0x00, 0x00)
table (0x00, 0x40, 0x34, 0x00, 0x00)
table (0x00, 0x08, 0x14, 0x22, 0x41)
table (0x14, 0x14, 0x14, 0x14, 0x14)
table (0x00, 0x41, 0x22, 0x14, 0x08)
table (0x02, 0x01, 0x59, 0x09, 0x06)
table (0x3E, 0x41, 0x5D, 0x59, 0x4E)
table (0x7C, 0x12, 0x11, 0x12, 0x7C)
table (0x7F, 0x49, 0x49, 0x49, 0x36)
table (0x3E, 0x41, 0x41, 0x41, 0x22)
table (0x7F, 0x41, 0x41, 0x41, 0x3E)
table (0x7F, 0x49, 0x49, 0x49, 0x41)
table (0x7F, 0x09, 0x09, 0x09, 0x01)
table (0x3E, 0x41, 0x41, 0x51, 0x73)
table (0x7F, 0x08, 0x08, 0x08, 0x7F)
table (0x00, 0x41, 0x7F, 0x41, 0x00)
table (0x20, 0x40, 0x41, 0x3F, 0x01)
table (0x7F, 0x08, 0x14, 0x22, 0x41)
table (0x7F, 0x40, 0x40, 0x40, 0x40)
table (0x7F, 0x02, 0x1C, 0x02, 0x7F)
table (0x7F, 0x04, 0x08, 0x10, 0x7F)
table (0x3E, 0x41, 0x41, 0x41, 0x3E)
table (0x7F, 0x09, 0x09, 0x09, 0x06)
table (0x3E, 0x41, 0x51, 0x21, 0x5E)
table (0x7F, 0x09, 0x19, 0x29, 0x46)
table (0x26, 0x49, 0x49, 0x49, 0x32)
table (0x03, 0x01, 0x7F, 0x01, 0x03)
table (0x3F, 0x40, 0x40, 0x40, 0x3F)
table (0x1F, 0x20, 0x40, 0x20, 0x1F)
table (0x3F, 0x40, 0x38, 0x40, 0x3F)
table (0x63, 0x14, 0x08, 0x14, 0x63)
table (0x03, 0x04, 0x78, 0x04, 0x03)
table (0x61, 0x59, 0x49, 0x4D, 0x43) ; Z

DisplayChar:


temp = abyte - " "

if temp< 8 then

if temp=0 then
writei2c(0x40, 0x00, 0x00, 0x00, 0x00, 0x00) ' space
elseif temp=1 then
writei2c(0x40, 0x00, 0x00, 0x5F, 0x00, 0x00) ' !
elseif temp=2 then
writei2c(0x40, 0x00, 0x07, 0x00, 0x07, 0x00) ' "
elseif temp=3 then
writei2c(0x40, 0x14, 0x7F, 0x14, 0x7F, 0x14) ' #
elseif temp=4 then
writei2c(0x40, 0x24, 0x2A, 0x7F, 0x2A, 0x12) ' $
elseif temp=5 then
writei2c(0x40, 0x23, 0x13, 0x08, 0x64, 0x62) ' %
elseif temp=6 then
writei2c(0x40, 0x36, 0x49, 0x56, 0x20, 0x50) ' &
elseif temp=7 then
writei2c(0x40, 0x00, 0x08, 0x07, 0x03, 0x00) ' '
endif
return

endif


temp = temp - 8
temp = temp * 5

b1 = temp + 4

for b0 = temp to b1
readtable b0, aByte
writeI2C(0x40,abyte)

next b0
return



DisplayNum:

' Words are always 5 chars long, but may be zero led.


b3 = 1

for b2 = 0 to 4

temp = 4-b2
aByte = DispNum DIG temp + "0"

if aByte="0" and b3=1 then
goto DisplayNumCont ' Don't show leading spaces

elseif abyte<>"0" and b3=1 then
b3=0
endif

GOSUB DisplayChar

DisplayNumCont:

next b2

return


Click here to download the .bas file

 

If you are interested in how to link a 1602 or 2004 LCD display, please let me know and I will post that code as well.

 

 

 

Coleman Air HOME

Copyright 2009-2018 ColemanEnergy.com All rights reserved.