Alarmna sirena sa pic12c508

[alpino005]

Problem sa sirenom za auto alarm koja je bila riješena sa pic12c508 a hex fajl izgubljen. Pokušao sam sa naredbom sound ali problem predstavlja izlazni stepen pa se jedan ton pojavi na izlaznom pin-u a drugi kasni na drugom izlaznom pinu.Možda sa HPWM ali nemam ni jedan primjer za ovaj slučaj .Izlazi prema pojačalu sa tranzistorima moraju ostati na 0 volti u stanju mirovanja.

[alpino005]

Prvi test cod sa pic16f84 . Na početku jedan ton za indikaciju ukjlučen isključen alarm.
Drugi ulazni pin se nekoristi jer je izbačena baterija za slučaj skidanja napajanja.

Code: Select all

SYMBOL  TASTER= PORTB.0  ; 1-off 0- on
SYMBOL  NAPON= PORTB.1   ; kontrola napona
PIEZO   VAR     PORTB.2       ' 
PIEZOA  VAR     PORTB.3
INPUT TASTER                    
INPUT NAPON

POCETAK             
IF TASTER = 0 Then  ' Taster 1 
            GOSUB STALNI
    ENDIF
   IF NAPON = 0 Then  ' taster 2 
           GOSUB PROM
       ENDIF
 IF NAPON = 1 Then  ' taster 2 
            GOSUB POCETAK
  ENDIF
 IF TASTER =1  Then  ' taster 2 
           GOSUB POCETAK 
   ENDIF    
GOTO POCETAK    

STALNI:
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF
Sound PIEZO,[120,1]:SOUND PIEZOA,[120,1] ' Jednolican zvuk
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF

PROM:
SOUND PIEZO,[120,10,110,10]:SOUND PIEZOA,[120,10,110,10] ;dva tona
GOSUB POCETAK
END  

[alpino005]

Pitanje : napišem kod sa pic16f84 za sirenu i sve radi bez problema ali kad ga prepravim za pic12f508
pravi probleme .Uvjek jedan od izlaza ostaje na logičkoj jedinici "gp1" dok sa pic16f84 ostaje na nuli ?

Code: Select all

 ;-----------------------------------------------------
;                       _______  _______
;                      |       \/       |
;                Vdd --+ 1 <<     >> 8  +-- Vss
;                      |                |
;           GP5/OSC1 --+ 2        >> 7  +-- GP0  izlaz sirena
;                      |                |
;ulaz alarm GP4/OSC2 --+ 3           6  +-- GP1  izlaz sirena
;                      |                |
;napon Bat GP3/!MCLR --+ 4           5  +-- GP2/T0CKI
;                      |                |
;                      +----------------+
;                       PIC12C508


TRISIO=%0011000
SYMBOL  TASTER= GPIO.4
PIEZO   var     GPIO.0       
PIEZOA  var     GPIO.1
INPUT TASTER                    


POCETAK             
clear
low GPIO.0
LOW GPIO.1
 If TASTER = 0 Then  ' Taster 1 
            Gosub STALNI
    Endif
 If TASTER =1  Then  ' taster 2 
           Gosub POCETAK 
   Endif    
GOTO POCETAK    

STALNI:
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF
Sound PIEZO,[120,2]:SOUND PIEZOA,[120,2] ' Jednolican zvuk
IF TASTER=1 THEN
GOSUB POCETAK
ENDIF
Sound PIEZO,[120,2]:SOUND PIEZOA,[120,2]
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF
SOUND PIEZO,[115,5]:SOUND PIEZOA,[115,5]
GOsub POCETAK

END  

Code: Select all

;PIC16F84
TRISB.0 = 1
TRISB.1 = 1
SYMBOL  TASTER= PORTB.0
PIEZO   var     PORTB.2        
PIEZOA  var     PORTB.3
TON     var     Byte          
INPUT TASTER                    


POCETAK             
clear
low PORTB.2
LOW PORTB.3
 If TASTER = 0 Then  ' Taster 1 
            Gosub STALNI
    Endif
 If TASTER =1  Then  ' taster 2 
           Gosub POCETAK 
   Endif    
GOTO POCETAK    

STALNI:
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF
Sound PIEZO,[120,2]:SOUND PIEZOA,[120,2] ' Jednolican zvuk
IF TASTER=1 THEN
GOSUB POCETAK
ENDIF
Sound PIEZO,[120,2]:SOUND PIEZOA,[120,2]
IF TASTER=1 THEN 
GOSUB POCETAK
ENDIF
SOUND PIEZO,[115,5]:SOUND PIEZOA,[115,5]
GOsub POCETAK

END