SSD1306 OLED (72x40) I2C display from scratch

+ Reply to Thread
Results 1 to 40 of 74

Hybrid View

  1. - 24th November 2023, 14:37 #1
    flotulopex's Avatar
    flotulopex
    flotulopex is offline Senior Member
    Join Date
    Aug 2006
    Location
    SWITZERLAND (french speaking)
    Posts
    938

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (72x40) I2C display from scratch

    Are you using my exact code ?
    Absolutely!

    With this "untouched" code, I get this display:
    Name: org_code_.png Views: 13395 Size: 372.0 KB

    Then, with the new value of $67, here is what I get:
    Name: org_code_.png Views: 13139 Size: 389.5 KB
    Roger
    Reply With Quote Reply With Quote
  2. - 24th November 2023, 20:11 #2
    richard's Avatar
    richard
    richard is offline Prolific Poster
    Join Date
    May 2013
    Location
    australia
    Posts
    2,645

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (42x40) I2C display from scratch

    try this, looking for full white screen

    re pull up resistors for i2c bus , looking at the pic in post #1 that module has none on board , every other module i can find on ebay etc has resistors on board
    so you might need them after all


    Code:
    #CONFIG  __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOD_ON & _IESO_ON & _FCMEN_ON
#ENDCONFIG
define OSC 8
OSCCON = 10000 'Internal RC set to 8MHZ
' ====== VARIABLES ================================================== ===============================
I2CDevice var byte
SDA VAR PORTB.6 ' I2C Data
SCL VAR PORTB.4 ' I2C Clock
LCD_DATA VAR BYTE
COM VAR BYTE ' COMMAND
I VAR BYTE
J VAR BYTE
X VAR BYTE 'LCD POSITION X(0 TO 127)
Y VAR BYTE 'LCD POSITION Y(0 TO 7)
' ====== INITIALIZE VARIABLES ================================================== ====================
I2CDevice = $78
'======= SSD1306 I2C OLED initialization ================================================== =========
COM = $AE : GOSUB SEND_COMMAND ' turn off oled panel
COM = $D5 : GOSUB SEND_COMMAND ' set display clock divide ratio/oscillator frequency
COM = $80 : GOSUB SEND_COMMAND ' set divide ratio
COM = $A8 : GOSUB SEND_COMMAND ' set multiplex ratio
COM = $3F : GOSUB SEND_COMMAND ' 1/40 duty
COM = $D3 : GOSUB SEND_COMMAND ' set display offset
COM = $0 : GOSUB SEND_COMMAND
COM = $20 : GOSUB SEND_COMMAND
COM = $0 : GOSUB SEND_COMMAND
COM = $AD : GOSUB SEND_COMMAND ' Internal IREF Setting
COM = $30 : GOSUB SEND_COMMAND ' --
COM = $8D : GOSUB SEND_COMMAND ' set Charge Pump enable/disable
COM = $14 : GOSUB SEND_COMMAND ' set(0x10) disable
COM = $68 : GOSUB SEND_COMMAND ' set start line address
COM = $A6 : GOSUB SEND_COMMAND ' set normal display
COM = $A4 : GOSUB SEND_COMMAND ' Disable Entire Display On
COM = $A1 : GOSUB SEND_COMMAND ' set segment re-map 128 to 0
COM = $C8 : GOSUB SEND_COMMAND ' Set COM Output Scan Direction 64 to 0
COM = $DA : GOSUB SEND_COMMAND ' set com pins hardware configuration
COM = $12 : GOSUB SEND_COMMAND '
COM = $81 : GOSUB SEND_COMMAND ' set contrast control register
COM = $7F : GOSUB SEND_COMMAND '
COM = $D9 : GOSUB SEND_COMMAND ' set pre-charge period
COM = $22 : GOSUB SEND_COMMAND '
COM = $DB : GOSUB SEND_COMMAND ' set vcomh
COM = $40 : GOSUB SEND_COMMAND '
COM = $AF : GOSUB SEND_COMMAND ' turn on oled panel


' ====== PROGRAM ================================================== =================================


GOSUB CLEAR_LCD
MAIN:
';7x5 "A"
'X = 15 : Y = 0 : GOSUB SET_7
'I2CWrite SDA,SCL,I2CDevice,[$40,$fc,$12,$12,$12,$fc]
';14x10 "A"
'X = 15 : Y = 2 : GOSUB SET_14
'I2CWrite SDA,SCL,I2CDevice,[$40,$f0,$f8,12,12,14,14,12,12,$f8,$f0_
',$ff,$ff,6,6,6,6,6,6,$ff,$ff]
PAUSE 1000
GOTO MAIN
END
' ====== CLEAR LCD ================================================== ===============================
CLEAR_LCD:
COM = $21 : GOSUB SEND_COMMAND
COM = 20 : GOSUB SEND_COMMAND
COM = 91 : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = 0 : GOSUB SEND_COMMAND
COM = 4 : GOSUB SEND_COMMAND
LCD_DATA = $ff
FOR J = 0 TO 4
FOR I = 0 TO 71
I2CWrite SDA,SCL,I2CDevice,[$40,LCD_DATA]
NEXT I
NEXT J
RETURN
' ====== SEND COMMAND ================================================== ============================
SEND_COMMAND:
I2CWrite SDA,SCL,I2CDevice,[0,COM]
RETURN
'======= SET_XY ================================================== ==================================
SET_7: '7x5
COM = $21 : GOSUB SEND_COMMAND
COM = X : GOSUB SEND_COMMAND
COM = x+4 : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = Y : GOSUB SEND_COMMAND
COM = y : GOSUB SEND_COMMAND
RETURN
SET_14: ;14x10
COM = $21 : GOSUB SEND_COMMAND
COM = X : GOSUB SEND_COMMAND
COM = x+9 : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = Y : GOSUB SEND_COMMAND
COM = y+1 : GOSUB SEND_COMMAND
RETURN
    Last edited by richard; - 24th November 2023 at 20:16.
    Warning I'm not a teacher
    Reply With Quote Reply With Quote
  3. - 24th November 2023, 22:06 #3
    flotulopex's Avatar
    flotulopex
    flotulopex is offline Senior Member
    Join Date
    Aug 2006
    Location
    SWITZERLAND (french speaking)
    Posts
    938

    Did you find this post helpful? Yes | No

    Default SSD1306 OLED (72x40) I2C display from scratch

    Thanks Richard.

    This it looks now, with your code ni post #26.


    https://drive.google.com/file/d/1Ud4...usp=drive_link
    Roger
    Reply With Quote Reply With Quote
  4. - 24th November 2023, 22:14 #4
    flotulopex's Avatar
    flotulopex
    flotulopex is offline Senior Member
    Join Date
    Aug 2006
    Location
    SWITZERLAND (french speaking)
    Posts
    938

    Did you find this post helpful? Yes | No

    Default SSD1306 OLED (72x40) I2C display from scratch

    These few changes will fill the whole screen in white.

    Code:
    ' ====== CLEAR LCD ================================================== ===============================
CLEAR_LCD:
COM = $21 : GOSUB SEND_COMMAND
COM = 28 : GOSUB SEND_COMMAND
COM = 99 : GOSUB SEND_COMMAND '91
COM = $22 : GOSUB SEND_COMMAND
COM = 0 : GOSUB SEND_COMMAND
COM = 4 : GOSUB SEND_COMMAND
LCD_DATA = $ff
FOR J = 0 TO 4
FOR I = 28 TO 99
I2CWrite SDA,SCL,I2CDevice,[$40,LCD_DATA]
NEXT I
NEXT J
RETURN
    Last edited by flotulopex; - 24th November 2023 at 22:19.
    Reply With Quote Reply With Quote
  5. - 24th November 2023, 22:24 #5
    richard's Avatar
    richard
    richard is offline Prolific Poster
    Join Date
    May 2013
    Location
    australia
    Posts
    2,645

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (42x40) I2C display from scratch

    ok, then this should be pretty close

    Code:
    #CONFIG  __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOD_ON & _IESO_ON & _FCMEN_ON
#ENDCONFIG
define OSC 8
OSCCON = %01110000 'Internal RC set to 8MHZ
' ====== VARIABLES ================================================== ===============================
I2CDevice var byte
SDA VAR PORTB.6 ' I2C Data
SCL VAR PORTB.4 ' I2C Clock
LCD_DATA VAR BYTE
COM VAR BYTE ' COMMAND
I VAR BYTE
J VAR BYTE
X VAR BYTE 'LCD POSITION X(0 TO 127)
Y VAR BYTE 'LCD POSITION Y(0 TO 7)
hshift con 28
' ====== INITIALIZE VARIABLES ================================================== ====================
I2CDevice = $78
'======= SSD1306 I2C OLED initialization ================================================== =========
COM = $AE : GOSUB SEND_COMMAND ' turn off oled panel
COM = $D5 : GOSUB SEND_COMMAND ' set display clock divide ratio/oscillator frequency
COM = $80 : GOSUB SEND_COMMAND ' set divide ratio
COM = $A8 : GOSUB SEND_COMMAND ' set multiplex ratio
COM = $3F : GOSUB SEND_COMMAND ' 1/40 duty
COM = $D3 : GOSUB SEND_COMMAND ' set display offset
COM = $0 : GOSUB SEND_COMMAND
COM = $20 : GOSUB SEND_COMMAND
COM = $0 : GOSUB SEND_COMMAND
COM = $AD : GOSUB SEND_COMMAND ' Internal IREF Setting
COM = $30 : GOSUB SEND_COMMAND ' --
COM = $8D : GOSUB SEND_COMMAND ' set Charge Pump enable/disable
COM = $14 : GOSUB SEND_COMMAND ' set(0x10) disable
COM = $68 : GOSUB SEND_COMMAND ' set start line address
COM = $A6 : GOSUB SEND_COMMAND ' set normal display
COM = $A4 : GOSUB SEND_COMMAND ' Disable Entire Display On
COM = $A1 : GOSUB SEND_COMMAND ' set segment re-map 128 to 0
COM = $C8 : GOSUB SEND_COMMAND ' Set COM Output Scan Direction 64 to 0
COM = $DA : GOSUB SEND_COMMAND ' set com pins hardware configuration
COM = $12 : GOSUB SEND_COMMAND '
COM = $81 : GOSUB SEND_COMMAND ' set contrast control register
COM = $7F : GOSUB SEND_COMMAND '
COM = $D9 : GOSUB SEND_COMMAND ' set pre-charge period
COM = $22 : GOSUB SEND_COMMAND '
COM = $DB : GOSUB SEND_COMMAND ' set vcomh
COM = $40 : GOSUB SEND_COMMAND '
COM = $AF : GOSUB SEND_COMMAND ' turn on oled panel


' ====== PROGRAM ================================================== =================================


GOSUB CLEAR_LCD
MAIN:
;7x5 "A"
X = 15 : Y = 0 : GOSUB SET_7
I2CWrite SDA,SCL,I2CDevice,[$40,$fc,$12,$12,$12,$fc]
;14x10 "A"
X = 15 : Y = 2 : GOSUB SET_14
I2CWrite SDA,SCL,I2CDevice,[$40,$f0,$f8,12,12,14,14,12,12,$f8,$f0_
,$ff,$ff,6,6,6,6,6,6,$ff,$ff]
PAUSE 1000
GOTO MAIN
END
' ====== CLEAR LCD ================================================== ===============================
CLEAR_LCD:
COM = $21 : GOSUB SEND_COMMAND
COM = hshift : GOSUB SEND_COMMAND
COM = 71 + hshift : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = 0 : GOSUB SEND_COMMAND
COM = 4 : GOSUB SEND_COMMAND
LCD_DATA = 0
FOR J = 0 TO 4
FOR I = 0 TO 71
I2CWrite SDA,SCL,I2CDevice,[$40,LCD_DATA]
NEXT I
NEXT J
RETURN
' ====== SEND COMMAND ================================================== ============================
SEND_COMMAND:
I2CWrite SDA,SCL,I2CDevice,[0,COM]
RETURN
'======= SET_XY ================================================== ==================================
SET_7: '7x5
COM = $21 : GOSUB SEND_COMMAND
COM = X+hshift : GOSUB SEND_COMMAND
COM = x+hshift+4 : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = Y : GOSUB SEND_COMMAND
COM = y : GOSUB SEND_COMMAND
RETURN
SET_14: ;14x10
COM = $21 : GOSUB SEND_COMMAND
COM = X+hshift: GOSUB SEND_COMMAND
COM = x+hshift+9 : GOSUB SEND_COMMAND
COM = $22 : GOSUB SEND_COMMAND
COM = Y : GOSUB SEND_COMMAND
COM = y+1 : GOSUB SEND_COMMAND
RETURN
    Warning I'm not a teacher
    Reply With Quote Reply With Quote
  6. - 24th November 2023, 22:27 #6
    richard's Avatar
    richard
    richard is offline Prolific Poster
    Join Date
    May 2013
    Location
    australia
    Posts
    2,645

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (42x40) I2C display from scratch

    the google drive link is a dud
    Warning I'm not a teacher
    Reply With Quote Reply With Quote
  7. - 24th November 2023, 22:49 #7
    flotulopex's Avatar
    flotulopex
    flotulopex is offline Senior Member
    Join Date
    Aug 2006
    Location
    SWITZERLAND (french speaking)
    Posts
    938

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (42x40) I2C display from scratch

    the google drive link is a dud
    Sorry for that.

    How do I post a small video then?
    Roger
    Reply With Quote Reply With Quote
  8. - 24th December 2024, 22:41 #8
    Acetronics2's Avatar
    Acetronics2
    Acetronics2 is offline Fanatical Contributor
    Join Date
    May 2004
    Location
    NW France
    Posts
    3,653

    Did you find this post helpful? Yes | No

    Default Re: SSD1306 OLED (72x40) I2C display from scratch

    Hi, flotul,

    did you try to send the initialization sequence twice in a row ???

    I read in I-do-not remember-wich-datasheet to do that with some LCDs ...

    BTW some oleds are really slow to init, did you try more than 500ms ???

    Alain
    Last edited by Acetronics2; - 24th December 2024 at 22:44.
    ************************************************** ***********************
    Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
    ************************************************** ***********************
    IF there is the word "Problem" in your question ...
    certainly the answer is " RTFM " or " RTFDataSheet " !!!
    *****************************************
    Reply With Quote Reply With Quote
  9. - 24th November 2023, 22:39 #9
    flotulopex's Avatar
    flotulopex
    flotulopex is offline Senior Member
    Join Date
    Aug 2006
    Location
    SWITZERLAND (french speaking)
    Posts
    938

    Did you find this post helpful? Yes | No

    Default SSD1306 OLED (72x40) I2C display from scratch

    I also adjusted your code as:
    Code:
    ' ====== PROGRAM ================================================== =================================
GOSUB CLEAR_LCD

MAIN:
    '7x5 "A"
    X = 28 : Y = 0 : GOSUB SET_7
    I2CWrite SDA,SCL,I2CDevice,[$40,$fc,$12,$12,$12,$fc]
    
    '14x10 "A"
    X = 28 : Y = 2 : GOSUB SET_14
    I2CWrite SDA,SCL,I2CDevice,[$40,$f0,$f8,12,12,14,14,12,12,$f8,$f0_
    ,$ff,$ff,6,6,6,6,6,6,$ff,$ff]
    PAUSE 1000
    GOTO MAIN
END
    Name: WhatsApp Image 2023-11-24 at 23.38.15.jpeg Views: 13261 Size: 72.6 KB
    Roger
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Similar Threads

  1. big char oled display
    By mombasa in forum mel PIC BASIC Pro
    Replies: 2
    Last Post: - 19th September 2020, 07:02
  2. SSD1306 start display problem
    By harryweb in forum mel PIC BASIC Pro
    Replies: 1
    Last Post: - 14th December 2016, 19:16
  3. Cannot drive I2C Oled :(
    By elcrcp in forum mel PIC BASIC Pro
    Replies: 21
    Last Post: - 20th August 2016, 12:19
  4. OLED Display Noise problem
    By gunayburak in forum mel PIC BASIC Pro
    Replies: 24
    Last Post: - 5th July 2016, 10:15
  5. Help With OLED Display / 128X64 SSD1306
    By Denner in forum General
    Replies: 6
    Last Post: - 25th May 2013, 15:40

Members who have read this thread : 23

You do not have permission to view the list of names.

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules