-         

Ergebnis 1 bis 2 von 2

Thema: 4x27 LCD am P16F84A

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    01.01.2005
    Beiträge
    79

    4x27 LCD am P16F84A

    Anzeige

    Hallo!

    Mühe mich schon seit einiger Zeit ab, mit der Initialisierung eines LCDs mithilfe eines PICs.
    Wie schon bemerkt handelt es sich um den P16F84A und ein 4x27 LCD mit 2xHD44780.
    Hier ist übrigens etwas über die Vorgehensweise bei der Initialisierung des LCDs zu finden: http://home.arcor.de/stowoda/Text-LCDs.pdf

    Code:
    list p=16f84a
    
    ;***************************************************************************
    ;			PINBELEGUNG
    ;			   
    ;
    ; 	PORTA:		0 - RS
    ;			1 - RW
    ;			2 - E1 1.Controller
    ;			3 - E2 2.Controller
    ;			4 - 
    ;	
    ; 	PORTB:  		0 - D0
    ;			. - ..
    ;			. - ..
    ;			7 - D7
    ;
    ;**************************************************************************
    
    
    	#include <P16F84A.INC>
    
    
    	__CONFIG	_PWRTE_ON & _WDT_OFF & _XT_OSC
    
    
    
    
    ;***********************************************
    ;		VARIABLEN
    
    
    schleife	 equ		 0x20
    schleife2	equ		0x21
    schleife3	equ		0x22
    Daten		equ		0x23
    count		 equ		 0x24
    count2		equ		0x25
    
    
    #define		RS		PORTA, 0
    #define     	RW	       PORTA, 1
    #define		E1		PORTA, 2
    #define         E2		PORTA, 3
    
    
    
    
    
    
    ;***********************
    ;Initialisierung
    
    Init
    		
    		bsf		STATUS, RP0
    		movlw		B'00000000'
    		movwf		TRISA
     		movwf		TRISB
    		bcf		STATUS, RP0
    		clrf		PORTA
    		clrf		PORTB
    		
    		
    
    ;****************************
    ;LCD Initialisierung
    
    LCD_Init
    		
    	
    		movlw		0x30				
    		movwf		Daten
    		movlw		D'15'			; 15 ms
    		movwf		count
    		call 	         Wait_ms
    		call		LCD_write_conf		; 30h ins Steuerregister
    		movlw		D'5'			; 5 ms 
    		movwf		count		
    		call 		Wait_ms
    		call		LCD_write_conf		; 30h ins Steuerregister
    		call		Wait_us			; 100 us
    		call		LCD_write_conf		; 30h ins Steuerregister
    	
    	
    		movlw		0x30			; System Set, eine Zeile
    		movwf		Daten
    		call		LCD_write_conf
    		movlw		B'00001000'		; LCD off
    		movwf		Daten
    		call		LCD_write_conf
    		movlw		B'00000001'		; LCD clear
    		movwf		Daten
    		call		LCD_write_conf
    		movlw		B'00000110'		; Entry mode set
    		movwf		Daten
    		call		LCD_write_conf
    		movlw		B'00001101'		; LCD on
    		movwf		Daten
    		call		LCD_write_conf
    		
    ;**************************************************
    ;		TEST, sende den Buchstaben A zum LCD
    		
    		movlw		B'00110000'
    		movwf		Daten	
    		call		LCD_write
    	
    
    Main	
    		goto	Main
    
    
    ;*************************************************************
    LCD_write_conf
    			
    		bcf		RS					; RS=0 --> Steuerregister
    		bcf		RW					; RW=0 --> Schreiben
    		nop
    		bsf		E1
    		nop					
    		movf		Daten, w
    		movwf		PORTB
    		nop
    		bcf		E1					; fallende Flanke von E
    		nop
    		return
    		
    		
    ;******************************************************************		
    LCD_write
    
    		call		Wait_us
    		call		Wait_us
    		bsf		RS
    		bcf		RW
    		nop
    		bsf		E1
    		nop
    		movlw		Daten
    		movwf		PORTB
    		nop
    		bcf		E1
    		nop
    		return
    
    
    
    
    
    
    
    
    
    ;********************************************************
    ;Warteschleife
    
    Wait_ms
    		movf	count, 0
    		movwf	schleife
    		
    Wait2
    		movlw	.110						; Konstante
    		movwf	schleife2
    
    Wait3	
    		nop
    		nop
    		nop
    		nop
    		nop
    		nop							; 
    		nop							; 
    		decfsz	schleife2, F					; 	
    		goto	Wait3						; 
    		
    		decfsz	schleife, F
    		goto	Wait2
    		return
    
    ;***************************************************************
    ; Warteschleife 100us
    
    
    		
    Wait_us
    		movlw	.25						; Konstante
    		movwf	schleife2
    
    Wait_us2
    		
    		nop
    		nop							; 
    		nop							; 
    		decfsz	schleife2, F					; 	
    		goto	Wait_us2						; 
    		return
    
    	end
    Wenn ich den Saft einschalte dann seh ich manchmal einen Cursor und anschliessend ein Rautezeichen in der ersten Zeile, manchmal tauchen die Zeichen aber an anderen Stellen auf nicht immer am Anfang. Jedoch immer in der ersten Zeile.
    Nach mehrmaliger Betätigung des Reset-Tasters sehe ich verschiedene Resultate und der Cursor springt, anscheinend zufällig in der ersten Zeile rum.

    Kann es sein, dass in meinem Code das Timing nicht stimmt?
    Könnte das jemand nachprüfen ( ob die Verzögerungsschleifen richtig gebaut sind? )

    mfg und thx

  2. #2
    Benutzer Stammmitglied
    Registriert seit
    01.01.2005
    Beiträge
    79
    Endlich habe ich alles in den Griff bekommen!

    Habe nun alle "Bugs" gefunden und bin nun in der Lage Zeichen auf dem LCD anzeigen zu lassen. Nach Tagen...

    Hier der neue CODE:
    Code:
    	list p=16f84a
    
    ;*******************************************************************************
    ;*		PIN Belegung
    ;*
    ;*	PORTA:	0	-	RS
    ;*			1	-	RW
    ;*			2	-	E1
    ;*			3	-	TEST LED
    ;*
    ;*	PORTB:	0..7 - D0..D7
    ;*
    ;*******************************************************************************
    ;*******************************************************************************
    
    	#include <p16f84a.inc>
    
    
    ;*******************************************************************************
    ;*		Config
    
    	__CONFIG	_PWRTE_ON & _WDT_OFF & _XT_OSC
    
    
    
    ;******************************************************************************
    ;		Variablen
    
    count	equ		0x20
    time	equ		0x21
    confg	equ		0x22
    daten	equ		0x23
    flag	equ		0x24
    
    ;		Konstanten
    
    #define		RS	PORTA, 0
    #define		RW	PORTA, 1
    #define		E1	PORTA, 2
    #define		LED	PORTA, 3
    
    
    
    ;_____________________________________________________________________________
    ;*****************************************************************************
    ;		PROGRAMM START
    
    
    
    ;**************************
    ;* 	PIC Initialisierung	  *
    ;**************************
    
    Init
    	bsf     STATUS, RP0				; Bank 1
    	movlw	B'00000000'				; RA0 ..RA4 outputs
    	movwf	TRISA					; 
    	movlw	B'00000000'				; PortB alle outputs 
    	movwf	TRISB
    	bcf     STATUS, RP0				; Bank 0
    	clrf	PORTA		
    	clrf	PORTB		
    				
     
    	
    ;**************************
    ;*  LCD Initialisierung	  *
    ;**************************
    
    
    InitLCD
    	movlw	D'255'					; 250 ms Pause nach dem Einschalten
    	movwf	time	
    	call	w_ms		
    
    	movlw	B'00110000'				
    	movwf	PORTB
    	bsf		E1
    	nop	
    	bcf		E1
    	
    	movlw	.5						; 5 ms Pause
    	movwf	time
    	call	w_ms
    	movlw	B'00110000'				
    	movwf	PORTB
    	bsf		E1
    	nop	
    	bcf		E1
    	movlw	.20						; 100 mikro sekunden warten
    	movwf	time
    	call	w_us
    	movlw	B'00110000'				
    	movwf	PORTB
    	bsf		E1
    	nop	
    	bcf		E1
    	
    	movlw	B'00110000'				; function set, 8-bit  2-zeilig,  5x7
    	call	Lcd_set	
    	movlw	B'00001000'				; off
    	call	Lcd_set
    	movlw	B'00000110'				; entry mode, increment,  cursr shift
    	call	Lcd_set
    	movlw	B'00000011'				; cursor home
    	call	Lcd_set
    	movlw	B'00001111'				; on
    	call	Lcd_set
    ;**********************************************
    ;*	  Zeichen Test   	  					  *
    ;*											  *
    ;*    	(test)!!							  *
    ;**********************************************
    
    
    		bsf 	LED
    		call	w_ms
    		bcf		LED
    	
    
    		movlw	'1'
    		movwf	daten
    		call	wrte
    	
    		bsf 	LED
    		bcf		LED
    
    		movlw	'2'
    		movwf	daten
    		call	wrte
    		
    
    		bsf 	LED
    		bcf		LED
    
    		movlw	'3'
    		movwf	daten
    		call	wrte
    		
    
    		bsf 	LED
    		bcf		LED
    	
    		movlw	'4'
    		movwf	daten
    		call	wrte
    		
    		bsf 	LED
    		bcf		LED
    		
    		movlw	'5'
    		movwf	daten
    		call	wrte
    		
    		bsf 	LED
    		bcf		LED
    
    noend	
    		goto	noend
    ;************************************
    ;*	LCD Config	 (write)            *
    ;*		Steuerbefehle ausführen	    *
    ;************************************
    
    Lcd_set							; OK
    	movwf	confg
    	call	BusyFlag			; !! RS RW = 0 zu dem Zeitpunkt !!
    	movf	confg, w
    	movwf	PORTB				; Daten schreiben
    	bsf		E1
    	nop
    	bcf		E1					; Disable LcdBus
    	return
    ;***********************************
    ;*	LCD Ausgabe			           * 
    ;*		Zeichen ausgeben           *
    ;***********************************
    
    
    wrte
    	bsf		LED					; Test LED on
    	movwf	daten
    	call	BusyFlag
    	movf	daten, w
    	movwf	PORTB				; Daten schreiben
    	bsf		RS					; Daten
    	bsf		E1					; Enable LcdBus
    	nop
    	bcf		E1					; Disable LcdBus	
    	bcf		RS					;
    	bcf		LED					; Test LED off
    	return
    ;**************************
    ;*	CHCK BusyFlag		  *
    ;**************************
    
    BusyFlag
    	bsf		LED					; Test LED on
        bsf    	STATUS, RP0			; make Port B0..7 input
    	movlw	B'11111111'
    	movwf  	TRISB 
        bcf    	STATUS, RP0
    
    BusyLoop		
    	bcf		RS
    	bsf		RW					; LESEN
    	bsf		E1
    	nop
    	movf	PORTB, w
    	movwf	flag
    	bcf		E1
    	nop
    	bsf		E1					; Enable
    	nop
    	bcf		E1
    	btfsc	flag, 7		; teste bit 7
    	goto	BusyLoop
    	bcf		RW
        bsf     STATUS, RP0			; make Port B4..7 output
    	movlw	B'00000000'
    	andwf   TRISB, f    
        bcf     STATUS, RP0
    	bcf		LED					; Test LED off
    	return	
    ;*************************
    ;*	Warteschleife	µs	 *
    ;*************************
    
    w_us
    
    loop	nop
    		nop
    		decfsz		time, f
    		goto		loop
    		return
    ;*************************
    ;*	Warteschleife	ms	 *
    ;*************************
    
    w_ms
    
    		movlw		.112
    		movwf		count
    
    loop_ms	nop
    		nop
    		nop
    		nop
    		nop
    		nop
    		decfsz		count, f
    		goto		loop_ms
    
    		decfsz		time, f
    		goto		w_ms
    		return
    
    
    
    	
    	end
    falls es jemandem irgendwie weiterhelfen sollte...

    Gruß

    Lukas

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •