Suche Bascom Library für ILI9488 Grafik Display

[Steffen W. (woern92)]

Guten abend,

ich habe mir bei dem Versandhaus meines Vertrauens einen Tft Display 
bestellt mit dem Controller ili9488, jetzt bin ich auf der suche nach 
einer Library für Bascom.
Mr. Google konnte mir auch nicht weiterhelfen.... Vielleicht hat ja 
einer von euch eine gute idee das ding zum Laufen zu bekommen.

[Joe (Gast)]

Siehe:

https://www.youtube.com/watch?v=f_43H6X0RTQ

[Mitlesa (Gast)]

Steffen W. schrieb:
> Vielleicht hat ja
> einer von euch eine gute idee das ding zum Laufen zu bekommen.

Eine Library von ILI9235 oder ILI9341 suchen und anpassen.
Diese Controller sind dem ILI9488 sehr ähnlich, siehe auch
Datenblatt.

Um das Lesen des Datenblatts kommst du aber fast nicht herum, es
sei denn der Schreiber hat schon für das ILI9488 mitgedacht.

Hier auch etwas zum ILI9488:

Beitrag "LCD 480x320 mit wenig Aufwand zum Anbinden"

[Steffen W. (woern92)]

Sooo,

Ich habe mal ein wenig das Datenblatt durchsucht und Mr. Google 
gefragt...
Nun habe ich ein kleinen Code der aber nicht läuft, vielleicht kann ja 
mal einer schauen wo das Problem liegt.

$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

[Mitlesa (Gast)]

Du hast es unterlassen zu beschreiben wie du das Display angeschlossen
hast. Wie sollen wir dann wissen ob dein Programm zur Hardware passt
und funktioniert?

[Steffen W. (woern92)]

CS -> PE4
RST -> PE3
D/CX -> PE5
WR -> PE6
RD -> PE7

D0 -> PC0
.
.
.
.
.
D7 -> PC7

[Steffen W. (woern92)]

Guten abend nochmal,

eben ist mir aufgefallen das bei dem oben stehendem Code der Display 
etwas dunkler wird, aber sonst nichts.. :( weiß niemand eine Lösung?

[Arduinoquäler (Gast)]

Ich würde ja gern helfen und habe auch ein paar Erfahrungen mit
diesen LCDs, aber die Syntax dieses Basics ist mir zu undurchsichtig
und ich habe kein Lust dafür jetzt Basic zu lernen oder mir Bascom
zu kaufen um das nachzuvollziehen.

Hier nur eins:

In beiden Fällen wo geschrieben wird

-----------------------
CSX = 0
DCX = 1
WRX = 0

Data_port = Command
waitus Wait_s
WRX = 1
waitus Wait_S
-----------------------

fällt auf dass zuerst Chip Select und Write aktiv low gezogen und
dann erst Daten geschrieben werden. Da sträuben sich jeden Bus-
Designer die Haare bzw stellen sich die Zehennägel auf.

Also wenn es nach dem Papst ging dann sollten erst Daten anliegen
dann der CS aktiviert und dann erst ein Write Zyklus ausgeführt
werden. Danach (zweite verdächtige Stelle:) sollte der CS auch
wieder deaktiviert werden.

-----------------------
Data_port = xxxxxx ....  Rem Datum auf Port ausgeben
DCX = xxxxxx ...         Rem Data oder Command Modus auswählen
CSX = 0                  Rem Chip Select aktivieren
WRX = 0                  Rem Write Zyklus fallende Flanke
waitus Wait_s            Rem Write Zyklus Verzögerung
WRX = 1                  Rem Write Zyklus beenden steigende Flanke
CSX = 0                  Rem Chip Select deaktivieren
-----------------------

Ob das die Lösung aller deiner Probleme ist weiss ich nicht ...

[Arduinoquäler (Gast)]

Arduinoquäler schrieb:
> CSX = 0                  Rem Chip Select deaktivieren

muss natürlich CSX = 1 heissen.

[Steffen W. (woern92)]

Leider keine Änderung :(