Goedemiddag,
Vandaag een lcd gekregen van iemand met de vraag of ik daar iets op kan programmeren, nu is het mischien te lang geleden maar ik krijg het nog niet onder de knie. Als ik de datasheet erbij pak en stappen volg dan verschijnt er nog niets op het lcd. Het gaat om een HT1621 chip die ik op een Pic16F628a heb aangesloten.
pic basic code:
Device 16F628A ;Gebruik een 16F628A type
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
Declare Xtal = 4
;===============================================================================
;Symbolen
;===============================================================================
Symbol LCDCS = PORTA.1
Symbol LCDWR = PORTA.2
Symbol LCDDATA = PORTA.7
Symbol Led = PORTA.6
;===============================================================================
;Variabelen
;===============================================================================
;===============================================================================
;Poort instellingen
;===============================================================================
;76543210
TRISA = %00000000 ;TRIS instellingen : 1 is ingang - 0 is uitgang
TRISB = %00000000
PORTA = %00000000 ;PORT instellingen : 1 is hoog - 0 is laag
PORTB = %00000000
;===============================================================================
;Declares
;===============================================================================
All_Digital TRUE
Declare PortB_Pullups = On ;Zet PoortB pullups aan
;===============================================================================
;Includes
;===============================================================================
;===============================================================================
;Instellingen
;===============================================================================
Clear
GoTo Main
;===============================================================================
;Main
;===============================================================================
Main:
LCDCS = 0
SHOut LCDDATA ,LCDWR ,MsbFirst,[%10000000010\12] ;System enable
LCDCS = 1
LCDCS = 0
SHOut LCDDATA ,LCDWR ,MsbFirst,[%10000000110\12] ;LCD ON
LCDCS = 0
While 1 = 1
DelayMS 300
Toggle PORTA.6
LCDCS = 0
SHOut LCDDATA ,LCDWR ,MsbFirst,[%10100000011110\14] '101 is Write, 6 bits Adress, 4 bits voor data + 1 Dont's care
LCDCS = 0
Wend
End
Dit is de code die ik tot nu toe heb. Iemand die ervaring heeft met deze chip's? Of iemand die me een duwtje kan geven?
Mvg
Martin