update to ssd1306 include to allow easier configuration for 40x72 displays
eg
Code:
'****************************************************************'* Name : SSD1306 FOR PIC 18 DEMO *
'* Author : Richard *
'* Notice : *
'* : *
'* Date : 27/12/2023 *
'* Version : 1.0 *
'* Notes : *
'* :18f26k22 @64Mhz *
'****************************************************************
#CONFIG
CONFIG FOSC = INTIO67
CONFIG PLLCFG = ON
CONFIG PRICLKEN = ON
CONFIG FCMEN = OFF
CONFIG IESO = OFF
CONFIG PWRTEN = ON
CONFIG BOREN = SBORDIS
CONFIG BORV = 190
CONFIG WDTEN = ON
CONFIG WDTPS = 32768
CONFIG CCP2MX = PORTC1
CONFIG PBADEN = OFF
CONFIG CCP3MX = PORTB5
CONFIG T3CMX = PORTC0
CONFIG HFOFST = ON
CONFIG P2BMX = PORTB5
CONFIG MCLRE = EXTMCLR
CONFIG STVREN = ON
CONFIG LVP = OFF
CONFIG XINST = OFF
CONFIG DEBUG = OFF
CONFIG CP0 = OFF
CONFIG CP1 = OFF
CONFIG CP2 = OFF
CONFIG CP3 = OFF
CONFIG CPB = OFF
CONFIG CPD = OFF
CONFIG WRT0 = OFF
CONFIG WRT1 = OFF
CONFIG WRT2 = OFF
CONFIG WRT3 = OFF
CONFIG WRTC = OFF
CONFIG WRTB = OFF
CONFIG WRTD = OFF
CONFIG EBTR0 = OFF
CONFIG EBTR1 = OFF
CONFIG EBTR2 = OFF
CONFIG EBTR3 = OFF
CONFIG EBTRB = OFF
#ENDCONFIG
DEFINE OSC 64
;set these to match display
ssd1306_addr con $78
#DEFINE colours 1 ;1 mono 2 rg or 3 rgb
width con 72;128
height con 40;64
h_offset con 28
include "grx.pbpMOD"
include "SSD1306.pbpMOD"
include "Arial_Narrow18x39.bas"
' include "bignum.bas"
' include "bigchr.bas"
BUFF VAR BYTE[10]
J VAR word
ANSELB=0
ANSELC=0
ANSELA=0
OSCCON=$70
gosub glcd_init
gosub grf_clr
SETFONT Arial_Narrow18x39
gosub show
main:
while j <1000
colour=1
fillrect 0,0,72,40
ARRAYWRITE BUFF,[dec2 j/10,":",dec1 j,0]
DMDSTR 1,0,buff,0
gosub show
pause 10
j=j+1
wend
j=0
goto main
Bookmarks