16F877 + DS1820 + LCD + MatrixTastatur

[Adidactylus_IV]

hiho

ich brauch dringend hilfe...
sozusagen leben oder tod...

also ich soll ein system bis montag realisieren, bei dem ein DS1820 temperatur misst (ned schwer), daten werden dann vom PIC an das LCD gesendet und dargestellt...
so und jetzt kommts:
mit einer 12 Tastenmatrixtastatur gebe ich einen temp wert also zB 12*5 (12.5 soll das dann sein, weil die hat nur 0-9 und * und #) ist der wert kleiner als die temperatur am DS1820 soll ein Lamperl leuchten...
und wenn sie groeßer is, soll ein anderes lamperl leuchten....

bidde helfen, bin grad selber auch noch voll von der grippe dahingerafft worden und kann nicht denken....



greetz
adidactylus_IV

[Mobius]

Ja, das ist mMn net wirklich schwer.

Du liest die Tastatur aus (auf sprut.e kannst du nachschauen, wenn da Probleme bestehen). Dann speicherst du den eingegebenen Wert in ein (oder zwei) Bytes (einen für die Kommazahl) in der Memory, oder, wenn du es länger brauchst in den EEPROM (<-- wäre mMn fast einfacher zu handhaben) ab.
Bei der Abfrage des DS1820 (kenn das Ding leider nicht, nehm aber an, I²C-Protokoll) vergleichst die beiden Werte miteinander:

in C:

if ( DS_C <= Tast_C)
{
...
}


in Assembler substrahierst du von dem erhaltenen Wert den eingegebenen und guckst, welche Flags aktiviert wurden.
also:

movfw MATRIX_C
subwf DS_C
BZ temp_gleich
BNC temp_unter

erklärung:
-) schiebe den eingetippten Wert in den Arbeitsregister
-) substrahiere diesen dann von dem DS1820 Block
-) Wenn 0, dann waren beide Werte gleich, springe zu dem Befehl
-) Wenn Überlauf (VORSICHT, Carry Bit wird bei der substraktion gesetzt, wenn kein Überlauf passiert ist), springe anderswohin


Hoffe, konnte helfen ^^
MfG
Mobius

P.S.: Den LED an einem Port setzt du dann einfach mit "bsf PORTX,0-7"

[Adidactylus_IV]

ah

thx daweil, ich meld mich, wenn ich wieder was brauch
werd jetzt mal herum tippseln...

[Adidactylus_IV]

so, das is amal das, was ich noch vom Alex in der mailbox hatte...
kann mir wer sagen bitte, was da passt und was nicht?

list p=16f877
;**************************************************************
;*  	Pinbelegung
;*	----------------------------------	
;*	PORTA: 	0 -
;*		1 -
;*		2 -
;*		3 -
;*		4 -
;*		5 -
;*		6 -
;*		7 -
;*
;*	PORTB:	0 LCD Display E
;*		1 			Keyboard 1 4 7 *
;*		2 LCD Display RS	Keyboard 2 5 8 0
;*		3 LCD Display R/W	Keyboard 3 6 9 #
;*		4 LCD Display D4 	---------I I I I
;*		5 LCD Display D5	-----------+ I I
;*		6 LCD Display D6	-------------+ I
;*		7 LCD Display D7	---------------+
;*	
;**************************************************************
; Tastatur mit LCD-Display
;
; Prozessor 16F877 
;
; Prozessor-Takt 4 MHz
;
; LCD & Keyboard am PortB
;
;**********************************************************
; Includedatei für den 16F877 einbinden

	#include <P16f877.INC>

	


; Konfiguration festlegen:
; Power on Timer, kein Watchdog, HS-Oscillator, kein Brown out, kein LV-programming
	__CONFIG	_PWRTE_ON & _WDT_OFF & _HS_OSC & _BODEN_OFF & _LVP_OFF


; Variablen festlegen
loops		equ	0x20	; Wartezeit für WAIT in Millisekunden
loops2		equ	0x21	; interner timer für wait
LcdStatus	equ	0x22	; Puffer für aus dem LCD ausgelesenes Statusbyte
LcdDaten	equ	0x23	; Puffer für zum LCD zu schreibendes Byte
Taste		equ	0x24	; Tastaturpuffer


; Konstanten festlegen
; das demonstriert die Nutzung des define-Kommandos im Assembler
; für LCD-Pins
#define	LcdE	PORTB,0		; enable Lcd
#define	LcdRw	PORTB,3		; read Lcd
#define	LcdRs	PORTB,2		; Daten Lcd (nicht control)	
#define LcdPort PORTB		; Datenbus des LCD (obere 4 Bit)
				; für Tastatur-Anschluß
#define	KRow1	PORTB,1		;Keyboard 1 4 7 *
#define	KRow2	PORTB,2		;Keyboard 2 5 8 0
#define	KRow3	PORTB,3		;Keyboard 3 6 9 #
#define	KLine1	PORTB,4		;Keyboard 1 2 3
#define	KLine2	PORTB,5		;Keyboard 4 5 6
#define	KLine3	PORTB,6		;Keyboard 7 8 9
#define	KLine4	PORTB,7		;Keyboard * 0 #

; Konstanten für OPTIN_REG and INTCON
; diese Werte werden im Programm wärend der Initialisierung verwendet
; sie hier abzulegen vereinfacht spätere Änderungen
Ini_con Equ	B'00000000'	; Interupt disable
Ini_opt	Equ	B'00000010'	; pull-up


;********************************************************
; Das Programm beginnt mit der Initialisierung

Init	bsf     STATUS, RP0	; Bank 1
	movlw   Ini_opt     	; pull-up Wiederstände ein
	movwf   OPTION_REG 
	movlw	B'00000000'	; PortB alle outputs 
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0
	clrf	PORTB		
	movlw   Ini_con     	; Interupt disable
	movwf   INTCON   

;Display initialisieren
	call	InitLcd

mainloop
	call	Tastfrei	; darauf warten, das keine Taste gedrückt ist	
	call	WAIT		

press
	call	Tastatur	; wird nun eine Taste gedrückt?
	movfw	Taste		; Tastencode nach w; Taste=0 dann Z=1  
	btfsc	STATUS, Z	; skip wenn Taste<>0 
	goto	press		; Tastencode=0 d.h. keine Taste gedrückt, weiter warten

	call	OutLcdDaten	; Tastencode am LCD ausgeben
	goto	mainloop	; auf ein neues



;*****************************************************
;+++LCD-Routinen**************************************
;*****************************************************
;LCD initialisieren, Begrüßung ausgeben

InitLcd
	movlw	D'255'		
	movwf	loops	
	call	WAIT		

	movlw	B'00110000'	; 1
	movwf	LcdPort
	bsf	LcdE
	nop	
	bcf	LcdE
	
	movlw	D'50'		; 50 ms Pause
	movwf	loops
	call	WAIT
	
	movlw	B'00110000'	; 2
	call	Control8Bit
	movlw	B'00110000'	; 3
	call 	Control8Bit
	movlw	B'00100000'	; 4
	call 	Control8Bit

	movlw	B'00000001'	; löschen und cusor home
	call	OutLcdControl	
	movlw	B'00101000'	; 5 function set, 4-bit  2-zeilig,  5x7
	call	OutLcdControl	
	movlw	B'00001000'	; 6 display off
	call	OutLcdControl
	movlw	B'00000110'	; 7 entry mode, increment, disable display-shift
	call	OutLcdControl
	movlw	B'00000011'	; 8 cursor home, cursor home
	call	OutLcdControl
	movlw	B'00001111'	; 9 display on
	call	OutLcdControl

	movlw	'B'		
	call	OutLcdDaten
	movlw	'i'
	call	OutLcdDaten
	movlw	'n'
	call	OutLcdDaten
	movlw	'i'
	call	OutLcdDaten
	movlw	'_'
	call	OutLcdDaten
	movlw	'd'
	call	OutLcdDaten
	movlw	'a'
	call	OutLcdDaten
	movlw	'!'
	call	OutLcdDaten

	return

;*****************************************************
; ein Steuerbyte aus W 8-bittig übertragen
Control8Bit
	movwf	LcdPort
	bsf	LcdE
	nop
	bcf	LcdE
	movlw	D'10'
	movwf	loops
	call 	WAIT
	return

;*****************************************************
; darauf warten, daß das Display bereit zur Datenannahme ist
; dazu wird das busy-Bit des LCD abgefragt
LcdBusy
        bsf     STATUS, RP0	; make Port B4..7 input
	movlw	B'11110000'
	iorwf   TRISB, f 
        bcf     STATUS, RP0
BusyLoop		
	bcf	LcdRs		; Steuerregister
	bsf	LcdRw		; Lesen
	bsf	LcdE
	nop
	movf	LcdPort, w	; 4 obere Bits lesen (D7..D4)
	movwf	LcdStatus	; und in LcdStatus speichern
	bcf	LcdE
	nop
	bsf	LcdE
	nop			; 4 untere Bits lesen (D3..D0) und ignorieren
	bcf	LcdE
	btfsc	LcdStatus, 7	; teste bit 7
	goto	BusyLoop
	bcf	LcdRw
        bsf     STATUS, RP0	; make Port B4..7 output
	movlw	B'00001111'
	andwf   TRISB, f    
        bcf     STATUS, RP0
	return	

;*****************************************************
; aus W ein Byte mit Steuerdaten zum Display übertragen
OutLcdControl
	movwf	LcdDaten	; Byte in LcdDaten zwischenspeichern
	call	LcdBusy		; warten bis Display bereit ist
	movf	LcdDaten, w	; Byte zurück nach W holen
	andlw	H'F0'		; low-Teil löschen
	movwf	LcdPort		; Hi-teil Daten schreiben
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus
	swapf	LcdDaten, w	; Byte verdreht nach W holen
	andlw	H'F0'		; High Teil löschen
	movwf	LcdPort		; Low-teil Daten schreiben
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus
	return

;*****************************************************
; aus W ein Datenbyte (zum Anzeigen) an's Display übertragen
OutLcdDaten
	movwf	LcdDaten	; Byte in LcdDaten zwischenspeichern
	call	LcdBusy		; warten bis Display bereit ist
	movf	LcdDaten, w	; Byte zurück nach W holen
	andlw	H'F0'		; low-Teil löschen
	movwf	LcdPort		; Hi-teil Daten schreiben
	bsf	LcdRs		; Daten
	bsf	LcdE		; Enable LcdBus
	nop
	bcf	LcdE		; Disable LcdBus	
	swapf	LcdDaten, w	; Byte verdreht nach W holen
	andlw	H'F0'		; High Teil löschen
	movwf	LcdPort		; Low-teil Daten schreiben
	bsf	LcdRs		; Daten
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus	
	bcf	LcdRs		;
	return


;*****************************************************
;+++Tastatur-Routinen*********************************
;*****************************************************
; warten darauf, daß keine Taste mehr gedrückt ist

Tastfrei			; Warten auf freie Tastatur
	call	Tastatur	; Tastencode nach Taste & W
	movfw	Taste		; wenn code=0 dann Z=1
	btfss	STATUS, Z	; wenn Z=1 dann skip
	goto	Tastfrei	; weiter warten
	return			; Tastatur ist frei

;#define	KRow1	PORTB,1		;Keyboard 1 4 7 *
;#define	KRow2	PORTB,2		;Keyboard 2 5 8 0
;#define	KRow3	PORTB,3		;Keyboard 3 6 9 #
;#define	KLine1	PORTB,4		;Keyboard 1 2 3
;#define	KLine2	PORTB,5		;Keyboard 4 5 6
;#define	KLine3	PORTB,6		;Keyboard 7 8 9
;#define	KLine4	PORTB,7		;Keyboard * 0 #

Tastatur
	; zuerst müssen die Tastaturzeilen-Pins auf Eingang gestellt werden
	bsf     STATUS, RP0	; Bank 1
	movlw   Ini_opt     	; pull-up Widerstände ein
	movwf   OPTION_REG 
	movlw	B'11110000'	; RB0 .. RB3 output, RB4 .. RB7 input
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0

	; das Enable-Pin des Displays muß auf Low stehen, damit das Display 
	; abgeschaltet ist solange wir die Tastatur abfragen
	clrf	PORTB		; Display inaktiv am Bus

	; w wird auf 0 gesetzt, dieser Wert wird durch ein ASSCI-Zeichen
	; überschrieben, falls eine Taste gedrückt ist
	; falls keine Taste gedrückt ist, bleibt 0 erhalten
	movlw	0		; W=0

	bcf	KRow1		; 1. spalte aktivieren
	bsf	KRow3
	bsf	KRow2

	call	key1		; 1. Spalte abfragen

	bcf	KRow2		; 2.Spalte aktivieren
	bsf	KRow1		; 1.Spalte ausschalten

	call	key2		; 2. Spalte

	bcf	KRow3		; 3. Spalte aktivieren
	bsf	KRow2		; 2. spalte ausschalten

	call	key3		; 3. Spalte
	
	bsf	KRow3		; 3. Spalte ausschalten
	movwf	Taste

	; PortB wieder komplett zu Output machen
	bsf     STATUS, RP0	; Bank 1
	movlw	B'00000000'	; RB1 .. RB7 output
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0
	return

key1
	btfss	KLine1
	retlw	'1'
	btfss	KLine2
	retlw	'4'
	btfss	KLine3
	retlw	'7'
	btfss	KLine4
	retlw	'*'
	return
key2
	btfss	KLine1
	retlw	'2'
	btfss	KLine2
	retlw	'5'
	btfss	KLine3
	retlw	'8'
	btfss	KLine4
	retlw	'0'
	return
key3
	btfss	KLine1
	retlw	'3'
	btfss	KLine2
	retlw	'6'
	btfss	KLine3
	retlw	'9'
	btfss	KLine4
	retlw	'#'
	return


WAIT
top     movlw   .500           
        movwf   loops2
top2    nop                    ; warten und nichts tun
        nop
        nop
        nop
	nop
        nop
        nop
        decfsz  loops2, F      
        goto    top2           
                               
        decfsz  loops, F       
        goto    top            
        retlw   0              


	end

greetz
big thx
Adidactylus

[Adidactylus_IV]

hiho...

ich habe jetzt sozusagen 2 programmteile die ich noch innernander verschachteln muesste....

1. LCD ausgabe und tastatur eingabe...

	list p=16f877
;**************************************************************
;*  	Pinbelegung
;*	----------------------------------	
;*	PORTA: 	0 -
;*		1 -
;*		2 -
;*		3 -
;*		4 -
;*		5 -
;*		6 -
;*		7 -
;*
;*	PORTB:	0 LCD Display E
;*		1 			Keyboard 1 4 7 *
;*		2 LCD Display RS	Keyboard 2 5 8 0
;*		3 LCD Display R/W	Keyboard 3 6 9 #
;*		4 LCD Display D4 	---------I I I I
;*		5 LCD Display D5	-----------+ I I
;*		6 LCD Display D6	-------------+ I
;*		7 LCD Display D7	---------------+
;*	
;**************************************************************
; Tastatur mit LCD-Display
;
; Prozessor 16F877 
;
; Prozessor-Takt 4 MHz
;
; LCD & Keyboard am PortB
;
;**********************************************************
; Includedatei für den 16F877 einbinden

	#include <P16f877.INC>

	


; Konfiguration festlegen:
; Power on Timer, kein Watchdog, HS-Oscillator, kein Brown out, kein LV-programming
	__CONFIG	_PWRTE_ON & _WDT_OFF & _HS_OSC & _BODEN_OFF & _LVP_OFF


; Variablen festlegen
loops		equ	0x20	; Wartezeit für WAIT in Millisekunden
loops2		equ	0x21	; interner timer für wait
LcdStatus	equ	0x22	; Puffer für aus dem LCD ausgelesenes Statusbyte
LcdDaten	equ	0x23	; Puffer für zum LCD zu schreibendes Byte
Taste		equ	0x24	; Tastaturpuffer


; Konstanten festlegen
; das demonstriert die Nutzung des define-Kommandos im Assembler
; für LCD-Pins
#define	LcdE	PORTB,0		; enable Lcd
#define	LcdRw	PORTB,3		; read Lcd
#define	LcdRs	PORTB,2		; Daten Lcd (nicht control)	
#define LcdPort PORTB		; Datenbus des LCD (obere 4 Bit)
				; für Tastatur-Anschluß
#define	KRow1	PORTB,1		;Keyboard 1 4 7 *
#define	KRow2	PORTB,2		;Keyboard 2 5 8 0
#define	KRow3	PORTB,3		;Keyboard 3 6 9 #
#define	KLine1	PORTB,4		;Keyboard 1 2 3
#define	KLine2	PORTB,5		;Keyboard 4 5 6
#define	KLine3	PORTB,6		;Keyboard 7 8 9
#define	KLine4	PORTB,7		;Keyboard * 0 #

; Konstanten für OPTIN_REG and INTCON
; diese Werte werden im Programm wärend der Initialisierung verwendet
; sie hier abzulegen vereinfacht spätere Änderungen
Ini_con Equ	B'00000000'	; Interupt disable
Ini_opt	Equ	B'00000010'	; pull-up


;********************************************************
; Das Programm beginnt mit der Initialisierung

Init	bsf     STATUS, RP0	; Bank 1
	movlw   Ini_opt     	; pull-up Wiederstände ein
	movwf   OPTION_REG 
	movlw	B'00000000'	; PortB alle outputs 
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0
	clrf	PORTB		
	movlw   Ini_con     	; Interupt disable
	movwf   INTCON   

;Display initialisieren
	call	InitLcd

mainloop
	call	Tastfrei	; darauf warten, das keine Taste gedrückt ist	
	call	WAIT		

press
	call	Tastatur	; wird nun eine Taste gedrückt?
	movfw	Taste		; Tastencode nach w; Taste=0 dann Z=1  
	btfsc	STATUS, Z	; skip wenn Taste<>0 
	goto	press		; Tastencode=0 d.h. keine Taste gedrückt, weiter warten

	call	OutLcdDaten	; Tastencode am LCD ausgeben
	goto	mainloop	; auf ein neues



;*****************************************************
;+++LCD-Routinen**************************************
;*****************************************************
;LCD initialisieren, Begrüßung ausgeben

InitLcd
	movlw	D'255'		
	movwf	loops	
	call	WAIT		

	movlw	B'00110000'	; 1
	movwf	LcdPort
	bsf	LcdE
	nop	
	bcf	LcdE
	
	movlw	D'50'		; 50 ms Pause
	movwf	loops
	call	WAIT
	
	movlw	B'00110000'	; 2
	call	Control8Bit
	movlw	B'00110000'	; 3
	call 	Control8Bit
	movlw	B'00100000'	; 4
	call 	Control8Bit

	movlw	B'00000001'	; löschen und cusor home
	call	OutLcdControl	
	movlw	B'00101000'	; 5 function set, 4-bit  2-zeilig,  5x7
	call	OutLcdControl	
	movlw	B'00001000'	; 6 display off
	call	OutLcdControl
	movlw	B'00000110'	; 7 entry mode, increment, disable display-shift
	call	OutLcdControl
	movlw	B'00000011'	; 8 cursor home, cursor home
	call	OutLcdControl
	movlw	B'00001111'	; 9 display on
	call	OutLcdControl

	movlw	'B'		
	call	OutLcdDaten
	movlw	'i'
	call	OutLcdDaten
	movlw	'n'
	call	OutLcdDaten
	movlw	'i'
	call	OutLcdDaten
	movlw	'_'
	call	OutLcdDaten
	movlw	'd'
	call	OutLcdDaten
	movlw	'a'
	call	OutLcdDaten
	movlw	'!'
	call	OutLcdDaten

	return

;*****************************************************
; ein Steuerbyte aus W 8-bittig übertragen
Control8Bit
	movwf	LcdPort
	bsf	LcdE
	nop
	bcf	LcdE
	movlw	D'10'
	movwf	loops
	call 	WAIT
	return

;*****************************************************
; darauf warten, daß das Display bereit zur Datenannahme ist
; dazu wird das busy-Bit des LCD abgefragt
LcdBusy
        bsf     STATUS, RP0	; make Port B4..7 input
	movlw	B'11110000'
	iorwf   TRISB, f 
        bcf     STATUS, RP0
BusyLoop		
	bcf	LcdRs		; Steuerregister
	bsf	LcdRw		; Lesen
	bsf	LcdE
	nop
	movf	LcdPort, w	; 4 obere Bits lesen (D7..D4)
	movwf	LcdStatus	; und in LcdStatus speichern
	bcf	LcdE
	nop
	bsf	LcdE
	nop			; 4 untere Bits lesen (D3..D0) und ignorieren
	bcf	LcdE
	btfsc	LcdStatus, 7	; teste bit 7
	goto	BusyLoop
	bcf	LcdRw
        bsf     STATUS, RP0	; make Port B4..7 output
	movlw	B'00001111'
	andwf   TRISB, f    
        bcf     STATUS, RP0
	return	

;*****************************************************
; aus W ein Byte mit Steuerdaten zum Display übertragen
OutLcdControl
	movwf	LcdDaten	; Byte in LcdDaten zwischenspeichern
	call	LcdBusy		; warten bis Display bereit ist
	movf	LcdDaten, w	; Byte zurück nach W holen
	andlw	H'F0'		; low-Teil löschen
	movwf	LcdPort		; Hi-teil Daten schreiben
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus
	swapf	LcdDaten, w	; Byte verdreht nach W holen
	andlw	H'F0'		; High Teil löschen
	movwf	LcdPort		; Low-teil Daten schreiben
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus
	return

;*****************************************************
; aus W ein Datenbyte (zum Anzeigen) an's Display übertragen
OutLcdDaten
	movwf	LcdDaten	; Byte in LcdDaten zwischenspeichern
	call	LcdBusy		; warten bis Display bereit ist
	movf	LcdDaten, w	; Byte zurück nach W holen
	andlw	H'F0'		; low-Teil löschen
	movwf	LcdPort		; Hi-teil Daten schreiben
	bsf	LcdRs		; Daten
	bsf	LcdE		; Enable LcdBus
	nop
	bcf	LcdE		; Disable LcdBus	
	swapf	LcdDaten, w	; Byte verdreht nach W holen
	andlw	H'F0'		; High Teil löschen
	movwf	LcdPort		; Low-teil Daten schreiben
	bsf	LcdRs		; Daten
	bsf	LcdE
	nop
	bcf	LcdE		; Disable LcdBus	
	bcf	LcdRs		;
	return


;*****************************************************
;+++Tastatur-Routinen*********************************
;*****************************************************
; warten darauf, daß keine Taste mehr gedrückt ist

Tastfrei			; Warten auf freie Tastatur
	call	Tastatur	; Tastencode nach Taste & W
	movfw	Taste		; wenn code=0 dann Z=1
	btfss	STATUS, Z	; wenn Z=1 dann skip
	goto	Tastfrei	; weiter warten
	return			; Tastatur ist frei

;#define	KRow1	PORTB,1		;Keyboard 1 4 7 *
;#define	KRow2	PORTB,2		;Keyboard 2 5 8 0
;#define	KRow3	PORTB,3		;Keyboard 3 6 9 #
;#define	KLine1	PORTB,4		;Keyboard 1 2 3
;#define	KLine2	PORTB,5		;Keyboard 4 5 6
;#define	KLine3	PORTB,6		;Keyboard 7 8 9
;#define	KLine4	PORTB,7		;Keyboard * 0 #

Tastatur
	; zuerst müssen die Tastaturzeilen-Pins auf Eingang gestellt werden
	bsf     STATUS, RP0	; Bank 1
	movlw   Ini_opt     	; pull-up Widerstände ein
	movwf   OPTION_REG 
	movlw	B'11110000'	; RB0 .. RB3 output, RB4 .. RB7 input
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0

	; das Enable-Pin des Displays muß auf Low stehen, damit das Display 
	; abgeschaltet ist solange wir die Tastatur abfragen
	clrf	PORTB		; Display inaktiv am Bus

	; w wird auf 0 gesetzt, dieser Wert wird durch ein ASSCI-Zeichen
	; überschrieben, falls eine Taste gedrückt ist
	; falls keine Taste gedrückt ist, bleibt 0 erhalten
	movlw	0		; W=0

	bcf	KRow1		; 1. spalte aktivieren
	bsf	KRow3
	bsf	KRow2

	call	key1		; 1. Spalte abfragen

	bcf	KRow2		; 2.Spalte aktivieren
	bsf	KRow1		; 1.Spalte ausschalten

	call	key2		; 2. Spalte

	bcf	KRow3		; 3. Spalte aktivieren
	bsf	KRow2		; 2. spalte ausschalten

	call	key3		; 3. Spalte
	
	bsf	KRow3		; 3. Spalte ausschalten
	movwf	Taste

	; PortB wieder komplett zu Output machen
	bsf     STATUS, RP0	; Bank 1
	movlw	B'00000000'	; RB1 .. RB7 output
	movwf	TRISB
	bcf     STATUS, RP0	; Bank 0
	return

key1
	btfss	KLine1
	retlw	'1'
	btfss	KLine2
	retlw	'4'
	btfss	KLine3
	retlw	'7'
	btfss	KLine4
	retlw	'*'
	return
key2
	btfss	KLine1
	retlw	'2'
	btfss	KLine2
	retlw	'5'
	btfss	KLine3
	retlw	'8'
	btfss	KLine4
	retlw	'0'
	return
key3
	btfss	KLine1
	retlw	'3'
	btfss	KLine2
	retlw	'6'
	btfss	KLine3
	retlw	'9'
	btfss	KLine4
	retlw	'#'
	return


WAIT
top     movlw   .500           
        movwf   loops2
top2    nop                    ; warten und nichts tun
        nop
        nop
        nop
	nop
        nop
        nop
        decfsz  loops2, F      
        goto    top2           
                               
        decfsz  loops, F       
        goto    top            
        retlw   0              


	end

[Adidactylus_IV]

2. temp ausgabe auf LCD


-> was jetzt noch fehlen wuerde, is abspeichern des eingegebenen temp wertes und vergleich mit dem wert des DS1820
und das zusammenschachteln eben,...

PLEASE HELP...

[PicNick]

Ich hab mich versucht, schlau zu machen. In der Zeit kann ich leider nicht jede Zeile nachvollziehen, ich hoffe, daß die vorhandenen Routinen halbwegs dicht sind
Isses richtig, daß
Du den DB1820 auslesen kannst und die akutelle Temperatur umgewandelt auf dem LCD zeigen kannst ?
Isses richtig, daß
Du die Tasten richtig lesen kannst und ebenfalls auf das LCD bringst (dzt. isses glaub ich nur der Hex code ?

In den vorhandenen Routinen wird der DS.. gelesen und umgewandelt
Hund:Ten:One
Da Bin->Dec vorhanden ist, umgekehrt aber nicht, bleib am Besten glecih bei dec.
d.h. die Ds.. kopierst du in drei Felder DsHund, DsTen, DsOne und schreibst sie nach jeder Meßung rein. Ideal, wenn du sie auch zeigen kannst,
Für die Tasten brauchst du Vergleichsfelder KyHund, KyTen, KyOne
Da brauchst du einen Cursor, den du bei jeder Eingabe inkrementierst.
Die gedrückte Taste zeigst du her UND kopierst
Bei 0 --> KyHund,
Bei 1--> KyTen
Bei 2 --> KyOne
Verzichte aus Zeitmangel auf alle extras, wie ausbessern der Eingabe und so: Du verlangst IMMER alle drei Zahlen.
bei Eingabe '*' (löschen) kannst du den Cursor wieder auf Null setzen--> neue Eingabe

HauptSchleife:
1 Tastenabfrage wenn Taste--> je nach Cursor speichern / Cursor +1
2 Temperatur holen ---> nach Dshund, -... etc. speichern
3 Vergleich:
Erst hunderter vergl., dann Ten, dann One.
Bei der ersten Ungleichheit ist der Vergleich zu Ende --> LED an oder aus
--> Schleife

Cursor >= 3 ---> keine Eingabe zulässig, außer "*"

Hilft das ein wenig ? (oder is eh schon alles zu spät ?)
Tut leid, zaubern is nich

[Adidactylus_IV]

k very big thx,...

zumindest kenn ich mich jetzt bereits a bissal mit asm aus...

hiflt mir schon was und zu spaet is es auch noch ned

rotinen sind dicht, ausgabe auf dem lcd funzt auch und eingabe auch...

jetzt muss ich das ganze zusammenschaufeln

[PicNick]

Tät' mich freuen, wenn's was nutzt.

[Adidactylus_IV]

bin grad dabei die beiden proggis zusammen zu fuegen,...

nur hab ich irgendwie probs mit dem timeing...

ich halt dich auf dem laufenden...