Suche Bascom Library für ILI9488 Grafik Display

$regfile = "m128def.Dat"

$hwstack = 128

$swstack = 128

$framesize = 128

$crystal = 16000000

$baud = 19200

'*******************************************************************************

'Beginn der Library

'ILI9488 Library im 8Bit Paralel Modus

'DBI = 101

'IM = 011

'*******************************************************************************

'*******************************************************************************

'Display Configuration

'*******************************************************************************

CSX alias Porte.4

RESX alias Porte.3

DCX alias porte.5

WRX alias Porte.6

RDX alias Porte.7

DATA_PORT alias PortC

Const Wait_S = 150

Dim a as long

'*******************************************************************************

'Colors

'*******************************************************************************

Const Red = &HF800

Const Green = &H07E0

Const Blue = &H001F

Const White = &HFFFF

Const Black = &H0000

Const Yellow = &HFFE0

Const Cyan = &H0410

Const Magenta = &H8010

Const Brown = &HFC00

Const Olive = &H8400

Const Bright_red = &HF800

Const Bright_green = &H07E0

Const Bright_blue = &H001F

Const Bright_yellow = &HFFE0

Const Bright_cyan = &H07FF

Const Bright_magenta = &HF81F

Const Light_gray = &H8410

Const Dark_gray = &H4208

Const Light_blue = &H841F

Const Light_green = &H87F0

Const Light_cyan = &H87FF

Const Light_red = &HFC10

Const Light_magenta = &HFC1F

Const Gray0 = &HE71C

Const Gray1 = &HC618

Const Gray2 = &HA514

Const Gray3 = &H630C

Const Gray4 = &H4208

Const Gray5 = &H2104

Const Gray6 = &H3186

Const Blue0 = &H1086

Const Blue1 = &H3188

Const Blue2 = &H4314

Const Blue3 = &H861C

Const Cyan0 = &H3D34

Const Cyan1 = &H1DF7

Const Green0 = &H0200

Const Green1 = &H0208

'*******************************************************************************

'Config Pins

'*******************************************************************************

config CSX = output

config RESX = output

config DCX = output

config WRX = output

config RDX = output

config DATA_PORT = output

CSX = 1

RESX = 1

DCX = 0

WRX = 0

RDX = 1

DATA_PORT = 0

'*******************************************************************************

'Subs for Display

'*******************************************************************************

Declare Sub LCD_Init()

Declare Sub LCD_Clear(byval Color as Word)

Declare Sub Write_LCD_Command(byval Command as Byte)

Declare Sub Write_LCD_Data(byval Command as Byte)

'*******************************************************************************

'Start Programm

'*******************************************************************************

waitms 5

resx = 0

waitms 100

resx = 1

waitms 100

csx = 1

wrx = 1

CSX = 0

call Write_LCD_Command(&h11) 'Exit Sleep

waitms 200

call Write_LCD_Command(&hD1) 'VCOM

call Write_LCD_Data(&h00)   'SEL/VCM

call Write_LCD_Data(&h0C)   'VCM

call Write_LCD_Data(&h0F)   'VDV

call Write_LCD_Command(&hD0) 'Power Setting

call Write_LCD_Data(&h07)

call Write_LCD_Data(&h04)

call Write_LCD_Data(&h00)

call Write_LCD_Command(&h36) 'Power Setting

call Write_LCD_Data(&h48)

' 48 = 0b01001000

' 0 - top to bottom

' 1 - right to left

' 0 - normal mode of columns order

' 0 - refresh top to bottom

' 1 - RGB or BGR  (here BGR order)

' 0 - <skip>

' 0 - no hflip

' 0 - no flip

call Write_LCD_Command(&hE0)

call Write_LCD_Data(&h00)

call Write_LCD_Data(&h04)

call Write_LCD_Data(&h0E)

call Write_LCD_Data(&h08)

call Write_LCD_Data(&h17)

call Write_LCD_Data(&h0A)

call Write_LCD_Data(&h40)

call Write_LCD_Data(&h79)

call Write_LCD_Data(&h4D)

call Write_LCD_Data(&h07)

call Write_LCD_Data(&h0E)

call Write_LCD_Data(&h0A)

call Write_LCD_Data(&h1A)

call Write_LCD_Data(&h1D)

call Write_LCD_Data(&h0F)

call Write_LCD_Command(&hE1)

call Write_LCD_Data(&h00)

call Write_LCD_Data(&h1B)

call Write_LCD_Data(&h1F)

call Write_LCD_Data(&h02)

call Write_LCD_Data(&h10)

call Write_LCD_Data(&h05)

call Write_LCD_Data(&h32)

call Write_LCD_Data(&h34)

call Write_LCD_Data(&h43)

call Write_LCD_Data(&h02)

call Write_LCD_Data(&h0A)

call Write_LCD_Data(&h09)

call Write_LCD_Data(&h33)

call Write_LCD_Data(&h37)

call Write_LCD_Data(&h0F)

call Write_LCD_Command(&hB1)

call Write_LCD_Data(&hB0)

call Write_LCD_Command(&hB4)

call Write_LCD_Data(&h02)

call Write_LCD_Command(&hF7)

call Write_LCD_Data(&hA9)

call Write_LCD_Data(&h51)

call Write_LCD_Data(&h2C)

call Write_LCD_Data(&h82)

call Write_LCD_Command(&hB0)

call Write_LCD_Data(&h00)

call Write_LCD_Command(&h3A )     ' Set pixel format

call Write_LCD_Data(&h55 )

call Write_LCD_Command(&hC1 )     ' Display timing setting for normal/partial mode

call Write_LCD_Data(&h41 )

call Write_LCD_Command(&hC0 )     ' Set Default Gamma

call Write_LCD_Data(&h18 )

call Write_LCD_Data(&h16 )

call Write_LCD_Command(&hC5 )     ' Set frame rate

call Write_LCD_Data(&h00 )

call Write_LCD_Data(&h1E )

call Write_LCD_Data(&h80 )

call Write_LCD_Command(&hD2 )     ' Power setting

call Write_LCD_Data(&h01 )

call Write_LCD_Data(&h44 )

call Write_LCD_Command(&hC8 )     ' Set Gamma

call Write_LCD_Data(&h04 )

call Write_LCD_Data(&h67 )

call Write_LCD_Data(&h35 )

call Write_LCD_Data(&h04 )

call Write_LCD_Data(&h08 )

call Write_LCD_Data(&h06 )

call Write_LCD_Data(&h24 )

call Write_LCD_Data(&h01 )

call Write_LCD_Data(&h37 )

call Write_LCD_Data(&h40 )

call Write_LCD_Data(&h03 )

call Write_LCD_Data(&h10 )

call Write_LCD_Data(&h08 )

call Write_LCD_Data(&h80 )

call Write_LCD_Data(&h00 )

call Write_LCD_Command(&h2A )

call Write_LCD_Data(&h00 )

call Write_LCD_Data(&h00 )

call Write_LCD_Data(&h01 )

call Write_LCD_Data(&h3F )

call Write_LCD_Command(&h2B )

call Write_LCD_Data(&h00 )

call Write_LCD_Data(&h00 )

call Write_LCD_Data(&h01 )

call Write_LCD_Data(&hDF )

call Write_LCD_Command(&h29 ) 'display on

call Write_LCD_Command(&h2C ) 'display on

'Malen====================

call Write_LCD_Command(&h2a) ' Set_column_address

call Write_LCD_Data(&h10)

call Write_LCD_Data(&h00)

call Write_LCD_Data(&h20)

call Write_LCD_Data(&h00)

call Write_LCD_Command(&h2b) ' Set_page_address

call Write_LCD_Data(&h10)

call Write_LCD_Data(&h00)

call Write_LCD_Data(&h20)

call Write_LCD_Data(&h00)

call Write_LCD_Command(&h2c) ' Write_memory_start

for a = 0 to 1000

   call Write_LCD_Data(&hF8)

   call Write_LCD_Data(&h0)

next a

CSX = 1

Do

Loop

'*******************************************************************************

'Subs for Display

'*******************************************************************************

Sub LCD_Init()

End Sub

Sub LCD_Clear(byval Color as Word)

End Sub

Sub Write_LCD_Command(byval Command as Byte)

CSX = 0

DCX = 0

WRX = 0

Data_port = Command

waitus Wait_s

WRX = 1

waitus Wait_S

End sub

Sub Write_LCD_Data(byval Command as Byte)

CSX = 0

DCX = 1

WRX = 0

Data_port = Command

waitus Wait_s

WRX = 1

waitus Wait_S

End sub