Pocheo sam da radim taj kontroler, kupio sam pic 16f84A na 4MHz...
Hteo bih da napravim ovaj uredjaj da radi u kolima, zatvaranje prozora, otvaranje... Da ukljuci centralnu bravu, alarm... Da iskljuci napajenje na pumpi za gorivo ... ITD..
hex koji sam skinuo, sam prepravio tako da radi to shto mi treba, mada je to sve josh u fazi izrade.
Evo preradjeni deo:
;****** Setovanje bita ******
BitSt clrf TMP4 ; reci da se salje sms "Ukljucen "
movlw h'01' ; w=h'1' (ukljuciti i iskluciti pumpu)
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bsf stpB, 0 ; setuj nulti
movlw h'02' ; w=h'2' (ukljuciti i iskljuciti centralnu bravu, za pauzu koristi BigWait)
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
CALL PrekR1 ; poziva funkciju koja ce da drzi rele ukljuceno neko vreme
movlw h'03' ; w=h'3' (otvori prozor, za pauzu koristi BigWait)
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
CALL PrekR2
movlw h'04' ; w=h'4' (zatvori prozor, za pauzu koristi BigWait)
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
CALL PrekR3
movlw h'05' ; w=h'5'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bsf stpB, 4 ; setuj cetvrti
movlw h'06' ; w=h'6'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bsf stpB, 5 ; setuj peti
RETURN ; vrati se...
;***** Unsetovanje bita *****
BitUnSt movlw h'01' ; reci da je uredjaj ugasen
movwf TMP4 ; ...
movlw h'01' ; w=h'1'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 0 ; setuj nulti
movlw h'02' ; w=h'2'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 1 ; setuj prvi
movlw h'03' ; w=h'3'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 2 ; setuj drugi
movlw h'04' ; w=h'4'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 3 ; setuj treci
movlw h'05' ; w=h'5'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 4 ; setuj cetvrti
movlw h'06' ; w=h'6'
subwf SWBIT, 0 ; w=comnd2-w
btfsc STATUS, Z ; uradi ako je rez nula
bcf stpB, 5 ; setuj peti
RETURN ; vrati se...
;******Pauza za kontrolu rada releja koji treba da drze kratko, za releje 1,2,3 ... 0,4,5 nemaju tu funkciju*****;
PrekR1
bsf stpB, 1 ; setuj prvi
movlw 0x02
movwf TMP4
CALL BigWait
bcf stpB, 1 ; resetuj prvi
clrf TMP4 ;resetuj TMP4
RETURN
PrekR2
bsf stpB, 2 ; setuj drugi
movlw 0x04
movwf TMP4
CALL BigWait
bcf stpB, 2 ; resetuj drugi
clrf TMP4 ;resetuj TMP4
RETURN
PrekR3
bsf stpB, 3 ; setuj treci
movlw 0x1F
movwf TMP4
CALL BigWait
bcf stpB, 3 ; resetuj treci
clrf TMP4 ;resetuj TMP4
RETURN
Sve je to lepo, ali kad sam ubacio program u mikrokontroler, kad sam to sve povezao ... Ne radi
probao sam sa ericsson k700, i siemens A35... Da li moze malo pomoci da ispitam gde je greshka???
Inache kad to sve ukljucim deshava se da dioda na RA2 svetli, onda se ugasi na tren i za to vreme blicne dioda na RA3... Onda se opet ukljuci dioda na RA2.
Probao sam da preko tastera ukljucim ostale portove, nece ... Dajte malo pomoci.... Hvala...
PS. Ja sam pochetnik u programiranju PICa tako da nemojte zameriti ako pravim neku pocetnichku glupost...
