primer tajmera sa pic 16F84A

[ lm741 @ 22.11.2008. 00:03 ] @

potreban mi je primer u picbasic programu za vežbu sa pic 16F84A

-led na portu RB1 svetli 2 minute
-pauza 10 sekundi
-led na portu RB2 svetli 2 minute
-pauza 10 sekundi

da se ta dva porta smenjuju narednih 30 minuta

hvala vam unapred,..
može i asembler

[ Sepa011 @ 23.11.2008. 09:10 ] @

Evo u Proton Basic-u, lako ces ga prepraviti za PicBasic:

Code:
Device 16F84A
XTAL 4
PORTB_PULLUPS FALSE

Symbol LED1 PORTB.1
Symbol LED2 PORTB.2

Dim i As Byte

Output PORTB
Output PORTA

PORTB = 0

For i = 1 To 7
    High LED1
    DelayMS 60000
    DelayMS 60000
    Low LED1
    DelayMS 10000
    High LED2
    DelayMS 60000
    DelayMS 60000
    Low LED2
    DelayMS 10000
Next i

End

[ lm741 @ 23.11.2008. 15:33 ] @

Sepo pozdrav pokušao sam da prepravim tvoj KOD ali mi neide

program koji sam napisao, uspevam da blinkam dve ledice na pinovima porta B
ali nemogu da ograničim vreme izvršavanja te dve radnje
i nekako mi se čini jako dugačak program a samo blinkanje dve led
koliki bi to program bio kada bi trbalo nešto složenije

evo kod

Code:
'blink  led na portu RB
    TRISB = $00     'postavi sve pinove porta b kao izlazne
Pocetak:
    PORTB.0 = 0     'pin RB.0 postavi na niski nivo
    pause 2000      'zadrži program dve sekundu
    PORTB.0 = 1     'pin RB.0 postavi na visoki nivo
    pause 5000      'zadrži program jednu sekundu
    PORTB.0 = 0    'pin RB.0 postavi na niski nivo

    PORTB.1 = 0    'pin RB.1 postavi na niski nivo
    PAUSE 2000     'zadrži program dve sekunde
    PORTB.1 = 1    'pin RB.1 postavi na visoki nivo
    PAUSE 5000     'zadrži program pet sekundi
    PORTB.1 = 0    'pin RB.1 postavi na niski nivo
    goto Pocetak   'vrati se ponovo na početak programa

    end

ne mogu da se snađem u knjizi koju ima,.. previše mi je nejasna pa vas molim za pomoć,..

[ Sepa011 @ 24.11.2008. 17:37 ] @

Evo u dijalektu PBP:

Code:
LED1 var PORTB.1
LED2 var PORTB.2

i var byte

TRISB = 0
PORTB = 0        ' postavljanje svih pinova B porta na log. 0
                 ' za svaki slucaj
end

for i = 1 to 7   ' 7 puta cemo izvrteti ovu petlju
    high LED1    ' upali LED na PORTB.1
    pause 60000  ' sacekaj 1 minut
    pause 60000  ' sacekaj jos 1 minut
                 ' posto je trazeno da LED bude upaljena 2 minuta
    low LED1     ' ugasi LED na PORTB.1
    pause 10000  ' sacekaj 10 sekundi
    high LED2    ' upali LED na PORTB.2
    pause 60000  ' sacekaj 1 minut
    pause 60000  ' sacekaj jos 1 minut
                 ' posto je trazeno da LED bude upaljena 2 minuta
    low LED2     ' ugasi LED na PORTB.2
    pause 10000  ' sacekaj 10 sekundi
next i           ' kraj petlje

end

Posto se petlja izvrsava 7 puta, ukupno trajanje programa je 7*260 sec = 1820 sec => 30.3333333333 minuta

Trazio si, dobio si

[ lm741 @ 24.11.2008. 18:33 ] @

Uspelo!!!!!! Sepo svaka ti čast,...HVALA!!!

e sad, ja mogu to da razmatram, menjam vrednosti,kompajliram i posmatram šta se dešava,...SUPER

[ lm741 @ 24.11.2008. 22:17 ] @

naravno da sam uklonio ono prvo END
to sam primetio čim sam prvi put pogledao kod

odlično radi i već pravim razne kombinacije,..