000
22.02.2005, 17:42 Uhr
FloSoft
Medialer Over-Flow (Administrator)
|
So nun funktioniert meine Ampel gescheit ![](images/icon/biggrin_new.gif)
ASM: |
LIST P=PIC16F84A, F=INHX8M
#include <p16F84A.inc>
__CONFIG _PWRTE_ON & _WDT_OFF & _XT_OSC
;******************************************************************************; ; Variablen ; ;******************************************************************************;
irqh_w equ 0x0C irqh_status equ 0x0D
ampel_status equ 0x22 ampel_position equ 0x23
wait_zaehler equ 0x24
;******************************************************************************; ; Defines ; ;******************************************************************************;
#define LED_STATUS_BLINKEN PORTA, 0 #define LED_STATUS_AUS PORTA, 1 #define LED_STATUS_AN PORTA, 2 #define LED_STATUS_PRESSED PORTA, 3
#define LED_A1_ROT PORTB, 1 #define LED_A1_GELB PORTB, 2 #define LED_A1_GRUEN PORTB, 3
#define LED_A2_ROT PORTB, 5 #define LED_A2_GELB PORTB, 6 #define LED_A2_GRUEN PORTB, 7
#define STATUS_AUS ampel_status, 0 #define STATUS_AN ampel_status, 1 #define STATUS_BLINKEN ampel_status, 2
#define POSITION_A ampel_position, 0 #define POSITION_B ampel_position, 1 #define POSITION_C ampel_position, 2 #define POSITION_D ampel_position, 3
;******************************************************************************; ; Programm Beginn ; ;******************************************************************************; org 0x000 goto INIT ;******************************************************************************; ; Interrupthandler ; ;******************************************************************************; org 0x004 bcf INTCON, GIE
movwf irqh_w movf STATUS,w movwf irqh_status call IRQH
movf irqh_status,w movwf STATUS swapf irqh_w,f swapf irqh_w,w
bsf INTCON, GIE
retfie
;******************************************************************************; ; Initialisierung ; ;******************************************************************************;
INIT: clrwdt bsf STATUS, RP0 movlw B'00000000' ; RA0-4 Input movwf TRISA movlw B'00000001' ; RB0 Input, RB1-7 Output movwf TRISB movlw B'11000100' movwf OPTION_REG
bcf STATUS, RP0 movlw D'113' movwf TMR0
clrf PORTA clrf PORTB bsf INTCON, INTE bsf INTCON, T0IE bsf INTCON, GIE
call MAIN goto ENDE
;******************************************************************************; ; Hauptprogramm ; ;******************************************************************************;
MAIN: clrwdt call AMPEL_BLINK
MAIN_LOOP: call AMPEL_ZEIGESTATUS
call AMPEL_AUS btfsc STATUS_AUS goto MAIN_SLEEP
btfsc STATUS_AN call AMPEL_AN
btfsc STATUS_BLINKEN call AMPEL_BLINKEN
goto MAIN_ENDE MAIN_SLEEP: call WAIT call WAIT goto MAIN_ENDE
MAIN_ENDE: goto MAIN_LOOP return
;******************************************************************************; ; Subroutine für Interrupthandler ; ;******************************************************************************;
IRQH: btfsc INTCON, T0IF call IRQH_TIMER btfsc INTCON, INTF call IRQH_RB0
return
IRQH_TIMER: bcf INTCON, T0IF incf wait_zaehler return
IRQH_RB0: bcf INTCON, INTF btfsc LED_STATUS_PRESSED goto IRQH_ENDE btfsc STATUS_AUS goto IRQH_AN
btfsc STATUS_AN goto IRQH_BLINK
btfsc STATUS_BLINKEN goto IRQH_AUS goto IRQH_ENDE
IRQH_AUS: call AMPEL_OFF goto IRQH_ENDE
IRQH_AN: call AMPEL_ON goto IRQH_ENDE
IRQH_BLINK: call AMPEL_BLINK goto IRQH_ENDE
IRQH_ENDE: bsf LED_STATUS_PRESSED return
;******************************************************************************; ; Subroutine für Timer ; ;******************************************************************************;
WAIT: clrf wait_zaehler WAIT_LOOP: btfss wait_zaehler, 7 goto WAIT_LOOP return
;******************************************************************************; ; Subroutine für Ampel: AUS ; ;******************************************************************************;
AMPEL_AUS: bcf LED_A1_ROT bcf LED_A1_GELB bcf LED_A1_GRUEN
bcf LED_A2_ROT bcf LED_A2_GELB bcf LED_A2_GRUEN return
;******************************************************************************; ; Subroutine für Ampel: AN ; ;******************************************************************************;
AMPEL_AN: btfsc POSITION_A goto AMPEL_AN_PA
btfsc POSITION_B goto AMPEL_AN_PB
btfsc POSITION_C goto AMPEL_AN_PC
btfsc POSITION_D goto AMPEL_AN_PD
AMPEL_AN_PA: bsf LED_A1_ROT bsf LED_A2_GRUEN clrf ampel_position bsf POSITION_B goto AMPEL_AN_SLEEP
AMPEL_AN_PB: bsf LED_A1_ROT bsf LED_A1_GELB bsf LED_A2_GELB
clrf ampel_position bsf POSITION_C goto AMPEL_AN_ENDE
AMPEL_AN_PC: bsf LED_A1_GRUEN bsf LED_A2_ROT clrf ampel_position bsf POSITION_D goto AMPEL_AN_SLEEP
AMPEL_AN_PD: bsf LED_A1_GELB bsf LED_A2_ROT bsf LED_A2_GELB clrf ampel_position bsf POSITION_A goto AMPEL_AN_ENDE
AMPEL_AN_SLEEP: call WAIT call WAIT call WAIT
AMPEL_AN_ENDE: call WAIT return
;******************************************************************************; ; Subroutine für Ampel: BLINKEN ; ;******************************************************************************;
AMPEL_BLINKEN: bcf LED_A2_GELB call WAIT bsf LED_A2_GELB call WAIT return
;******************************************************************************; ; Subroutine für Ampel: Ausschalten ; ;******************************************************************************;
AMPEL_OFF: clrf ampel_status bsf STATUS_AUS return
;******************************************************************************; ; Subroutine für Ampel: Anschalten ; ;******************************************************************************;
AMPEL_ON: clrf ampel_status bsf STATUS_AN clrf ampel_position bsf POSITION_A return
;******************************************************************************; ; Subroutine für Ampel: auf Blinken schalten ; ;******************************************************************************;
AMPEL_BLINK: clrf ampel_status bsf STATUS_BLINKEN return
;******************************************************************************; ; Subroutine für Ampel: Ampelstatus darstellen ; ;******************************************************************************;
AMPEL_ZEIGESTATUS: clrf PORTA btfsc STATUS_AUS bsf LED_STATUS_AUS
btfsc STATUS_AN bsf LED_STATUS_AN
btfsc STATUS_BLINKEN bsf LED_STATUS_BLINKEN return
;******************************************************************************;
ENDE: end ;******************************************************************************;
|
Bild dazu:
![](http://ma.ra-doersch.de/docs/elektronik/pic/Ampel.jpg)
groß
Aufbau:
GND -> 680kOhm -> RB0 <- Taster <- +5V RB1-3: Ampel 1 (LED's) RB5-7: Ampel 2 (LED's) RA0: Status Blinken (LED) RA1: Status Aus (LED) RA2: Status An (LED) RA3: Status Wechseln (LED, ist an wenn taster gedrückt wurde bzw während Ampel Status ändert)
Man muss den Interrupteingang RB0 über einen (hohen) Widerstand mit Masse verbinden, sonst funktioniert der Taster nicht richtig, da der PIC sonst keinen gescheiten Unterschied zwischen "High"/"gedrückt" und "Low"/"nicht gedrückt" erkennt. -- class God : public ChuckNorris { }; Dieser Post wurde am 22.03.2005 um 19:33 Uhr von FloSoft editiert. |