@impulso
mi puoi dire gentilmente il modello esatto del display grafico ks108 e quanti piedini ci sono sul connettore strip?
dovrebbe avere una risoluzione di 128x64 e 20 pin compresi i pin per i led.
Il bascom lo supporta senza problemi, ha una libreria dedicata scritta in assembly e quindi molto ottimizzata.
ti mostro una applicazione che ho scritto per un corso che legge la temperatura attraverso un sensore 1wire DS1820 e la visualizza con caratteri 5x7 sul display ks108. Per non complicarti le idee ho rimosso la parte riguardante la gestione e lettura 1wire...
- Code: Select all
'*******************************************************************************
' Corso BASCOM-AVR
' 2° esempio - Gestione di display grafico e sensore temperatura 1Wire
' Giovanni De Luca - INFN Laboratori Nazionali del Sud
' BASCOM-AVR 2.0.7.4
'*******************************************************************************
$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 128
$swstack = 128
$framesize = 128
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portd , _
Ce1 = 2 , Ce2 = 3 , Cd = 4 , Rd = 5 , Reset = 7 , Enable = 6
Config 1wire = Portc.7
Declare Sub Read_1820()
Dim Bd1 As Byte
Dim Bd2 As Byte
Dim Bd7 As Byte
Dim Bd8 As Byte
Dim I As Byte , Tmp As Byte
Dim T As Integer , T1 As Integer
Dim Bd(9) As Byte
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2
Cls
Setfont Font5x7
'------------------------------[ main ]-----------------------------------------
Do
Call Read_1820()
Lcdat 1 , 1 , "Temperatura=" ; T1 ; "." ; T
Waitms 1000
Loop
End
'-------------------------------------------------------------------------------
Sub Read_1820()
End Sub
'-------------------------------------------------------------------------------
$include "font5x7.font"
ciao