radovi forumasa sa ubrzanog kursa pbp

Post by **pedja089** » 05-09-2008, 22:41

evo ovako jos jedna tema vezana za kurs. neka tamo budu iskljucivo primeri za ucenje.
a ovde stvaljajte vase radove kodove, rasprave o kodovima, semama i td

zelim vam puno srece u radu i da ova tema bude puna radova

e jos da dodam da bi voleo da vidim i slike i snimke, zanima me na cega to lici

RIDIK · Post by **RIDIK** » 05-09-2008, 22:51

ova e kodot za so dve led diodi koj se gasat i palat najizmenicno

Code: Select all

output PORTB.7
 OUTPUT PORTB.6
pocetok:
       High PORTB.7
       LOW PORTB.6
       PAUSE 1000
       LOW PORTB.7
       HIGH PORTB.6
       PAUSE 1000
       GOTO pocetok
       End

http://www.elektronika.ba/forum/uploadz ... int_63.GIF

RIDIK · Post by **RIDIK** » 05-09-2008, 22:53

eve eden primer za semafor

Code: Select all

 SYMBOL CRVENALED = PORTB.7

 SYMBOL ZOLTALED = PORTB.6
 SYMBOL ZELENALED = PORTB.5
 output CRVENALED
 OUTPUT ZOLTALED
 OUTPUT ZELENALED
 PORTB=0 ' gi isklucuva site led 
 
pocetok:
       High CRVENALED ' se vklucuva crvenata led
       LOW ZELENALED  ' se isklucuva zelenata led
       PAUSE 1000        ' pauza od 1 sekundi
       LOW CRVENALED  ' se isklucuva crvenata led
       HIGH ZOLTALED  ' se vklucuva zoltata led
       PAUSE 3000     ' pauza od 3 sekundi
       LOW ZOLTALED   ' se isklucuva zoltata led
       High ZELENALED ' se vklucuva zelenata led
       PAUSE 5000     ' pauza od 5 sekunda
       GOTO pocetok   ' vrati se na pocetok
       End

http://www.elektronika.ba/forum/uploadz ... emafor.GIF

Dariolo · Post by **Dariolo** » 05-09-2008, 23:14

evo od mene source za blinkajuće LED kada je pritisnut taster!

Code: Select all

LOW OPTION_REG.7
    SYMBOL LED1 = PORTB.7     'preimenuj PORTB.7 u LED1
    SYMBOL LED2 = PORTB.6     'preimenuj PORTB.6 u LED2
    SYMBOL TASTER = PORTB.0 'preimenuj PORTB.0 u TASTER
    OUTPUT LED1                     'postavi LED1 kao izlazni
    OUTPUT LED2                     'postavi LED2 kao izlazni
    INPUT TASTER                    'postavi TASTER kao ulaz

pocetak:                                'pocetak programa
    LOW LED1                          'ugasi obe LED
    LOW LED2
tipkalo:
    IF TASTER=0 THEN              'detektiranje stanja tastera(ako je pritisnut)
    HIGH LED1                         'upali LED1
    LOW LED2                          'ugasi LED2
    PAUSE 1000                        'pauza od 1s
    LOW LED1                          'ugasi LED1
    HIGH LED2                         'upali LED2
    PAUSE 1000                        'pauza 1s
    else                                   'u suprotnom (ako nije pritisnut)
    LOW LED1                             'ugasi LED1
    LOW LED2                           'ugasi LED2
    ENDIF
    GOTO tipkalo                      'vrati se na labelu tipkalo (petlja)
END

evo i videa kako to sve fercera

http://www.youtube.com/watch?v=Vf6tTcd-u90

Post by **pedja089** » 05-09-2008, 23:16

sta ce biti kada budete znali vise naredbi. ja vam pokazao 2-3 a vi se vec razradili

Dariolo · Post by **Dariolo** » 05-09-2008, 23:22

ma samo nek se radi dok su ove jednostavne

sutra ako uspijem snimit pa stavim snjimke što sam radio

Dariolo · Post by **Dariolo** » 07-09-2008, 22:01

evo i programčića za 7 segmentni LED display!
program broji do 9 i stoji na 9 dok ne pritisnemo taster, kada pritisnemo taster počinje odbrojvanje unazad, i kad dođe do 0 automatski ponovo broji do 9

Code: Select all

    symbol TASTER = PORTA.3
    INPUT TASTER            ' postavili smo TASTER kao ulazni
    TRISB = 0               ' postavili smo sve pinove porta B kao izlazne
pocetak:
    PORTB = %11000000       ' 0
    PAUSE 1000              ' pauza 1s
    PORTB = %11111001       ' 1
    PAUSE 1000
    PORTB = %10100100       ' 2
    PAUSE 1000
    PORTB = %10110000       ' 3
    PAUSE 1000
    PORTB = %10011001       ' 4
    PAUSE 1000
    PORTB = %10010010       ' 5
    PAUSE 1000
    PORTB = %10000010       ' 6
    PAUSE 1000
    PORTB = %11111000       ' 7
    PAUSE 1000
    PORTB = %10000000       ' 8
    PAUSE 1000
    PORTB = %10010000       ' 9
    PAUSE 1000
unazad:
    IF TASTER = 0 THEN      ' ako je pritisnut taster broji unazad
    PORTB = %10010000       ' 9
    PAUSE 1000
    PORTB = %10000000       ' 8
    PAUSE 1000
    PORTB = %11111000       ' 7
    PAUSE 1000
    PORTB = %10000010       ' 6
    PAUSE 1000
    PORTB = %10010010       ' 5
    PAUSE 1000
    PORTB = %10011001       ' 4
    PAUSE 1000 
    PORTB = %10110000       ' 3
    PAUSE 1000
    PORTB = %10100100       ' 2
    PAUSE 1000 
    PORTB = %11111001       ' 1
    PAUSE 1000
    PORTB = %11000000       ' 0
    PAUSE 1000
    ELSE                    ' ako nije pritisnu stoji na 9 (nisam probo možel bez ovog)
    GOTO UNAZAD
    ENDIF
    GOTO POCETAK            ' broji ponovo do 9
END

http://www.elektronika.ba/forum/uploadz ... disp_l.gif
to je shema samo što je dodan taster na RA3 sa otpornikom od 4,7K

evo i video:
http://www.youtube.com/watch?v=8zG7uCT76H4

Post by **pedja089** » 07-09-2008, 22:08

odlicno. ne moze bez onoga jer bi se program svaki put vracao na pocetak pa bi prvo broio pa gledao dali je taster stisnut

Code: Select all

    PORTB = %11000000       ' 0
    PAUSE 1000
    ELSE                    ' ako nije pritisnu stoji na 9 (nisam probo možel bez ovog)
    GOTO UNAZAD
    ENDIF
    GOTO POCETAK            ' broji ponovo do 9

ali uz malo izmene moze

Code: Select all

    PORTB = %11000000       ' 0
    PAUSE 1000
    ENDIF
    GOTO UNAZAD
    'sada ceka da se stisne taster. ako nije stisnut vraca se na ispitivanje dali je stisnut

Post by **pedja089** » 08-09-2008, 14:05

evo jos jedan zanimljiv primer. kockica za covece ne ljuti se

Code: Select all

symbol TASTER=PORTA.3
INPUT TASTER
TRISB=0
pocetak:
if taster=0 then goto pocetak
    
    PORTB=%11111001
    PAUSE 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif

    PORTB=%10100100
    PAUSE 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif

    PORTB=%10110000
    PAUSE 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif

    PORTB=%10011001
    PAUSE 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif
    
    PORTB=%10010010
    PAUSE 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif
   
    PORTB=%10000010
    pause 200
    
    IF taster=0 then
    pause 2000
    goto pocetak
    endif
    
goto pocetak
End

sema

http://www.elektronika.ba/forum/uploadz ... _kocka.gif

DaTi · Post by **DaTi** » 08-09-2008, 15:09

e svaka cast na temi

evo jedan kod koji se koristi za pravljenje menija.

Code: Select all

@ DEVICE HS_OSC,WDT_OFF,PROTECT_OFF 
define OSC 4    
'pic16f84

symbol ULAZ  = portb.7  'imenuje pobtb.7 kao ULAZ
INPUT ULAZ 'Postavlja za ulaz pin portb.7
portb = 0

b0 var byte 'promenjiva 

lcdout $fe,1,   "Meni "      '|Odmah  ispisuje 
lcdout $fe,$c0, "picbasic"

loop:  'pocetak petlje
    if ULAZ = 0 then  'ceka da dodje 0 na pin ULAZ ako dodje 0, dodaje za 1 vrednost u promenjivu
        b0 = b0+1     'i bira onaj CASE u zavisnosti koliko smo puta pritisnuli.
    
select case b0

case 1
    pause 250
    lcdout $fe,1,   "11111111"
    lcdout $fe,$c0, "22222222"

case 2
   pause 250
    lcdout $fe,1,   "333333333"
    lcdout $FE,$c0, "444444444"

case 3
    pause 250
    lcdout $fe,1,   "555555555"

end select
endif

goto loop 'idi na pocetak

End

http://www.elektronika.ba/forum/uploadz ... ematic.GIF

Post by **pedja089** » 08-09-2008, 15:20

da ne mislis da si malo pozurio sa tim?
i to nije bas idealno resenje menija. ovde ti uvek prikazuje po 2 stvari. lepsi je efekat kada listas jednu po jednu stvar, tj da ako se spustas nadole ona stvar koja je bila najdonja predje za jedan red nagore. i obrnuto

DaTi · Post by **DaTi** » 08-09-2008, 18:14

pa mozda sam malo pozurio...

pa po meni je ok i nije ga tesko shvatiti kako radi....

RIDIK · Post by **RIDIK** » 09-09-2008, 20:36

ova e kodot koj sto pritiskanje na tasterot broi do 9 pocnuvajki od 0

Code: Select all

SYMBOL TASTER=PORTA.2
INPUT TASTEr
novapolozba var bit
starapolozba var bit
i VAR BYTE
i=0
trisb=0
starapolozba=TASTER
pocetok:
novapolozba=taster    
if starapolozba<novapolozba then
i=i+1
if i>9 then i=0
endif
lookup i, [192,249, 164,176,153, 146, 130, 248, 128, 152], portb
starapolozba=novapolozba
goto pocetok
end

Post by **pedja089** » 09-09-2008, 20:58

super. @Dariolo malo kasnis

u svakom slucaju vaka cast momci

Dariolo · Post by **Dariolo** » 09-09-2008, 21:06

izgleda nije danas moj dan

@RIDIK ubaci PAUSE da ti ljepše radi, jer vako sam primjetio da preskače nekad brojeve

Post by **pedja089** » 22-10-2008, 20:22

Amir_Hadzic wrote:U proteusu imam ovu prikacenu semu.

Program:

Code:

TRISB = %10000000

SYMBOL LED = PORTB.6
SYMBOL SW = PORTB.7

start:
LOW LED
IF SW = 1 THEN HIGH LED
PAUSE 1000
goto start

Kada se prekidac zatvori LED ide na logicku jedinicu. Eh sada po ovom kodu bi nakon sto se prekidac otvori trebala biti logicka nula na LED. Problem je u tome sto i nakon otvaranja prekidaca na LED ostaje logicka jedinica....

http://www.elektronika.ba/forum/uploadz ... 8_sema.png

premestio sam ti post ovde, jer mu tamo nije mesto

Post by **pedja089** » 22-10-2008, 20:24

a da se vratimo na pocetak. picevi(kao i ostali procesori)su glupi kao k..., stoga rade samo ono sto im se napise....
a ti si lepo ovom picu napisao da on upali ledicu u koliko je na portb.7 logicka jedinica. a nigde mu u kodu nisi rekao da je ugasi ako je logicka nula....
stoga moras dodati ili else, ili jos jedan red if naredbe ili jednostavno napisati

Code: Select all

.
.
.
.
.
led=sw
pause 1000
.
.

DaTi · Post by **DaTi** » 22-10-2008, 20:52

Probaj ovo:

Code: Select all

Probaj ovo:

@ DEVICE pic16f84a,HS_OSC,WDT_OFF,PROTECT_OFF


SYMBOL LED = PORTB.6
SYMBOL SW = PORTB.7

input sw

output led
PORTB = 0
loop:

if sw = 1 then
led = 1
else
led = 0
endif
pause 1000
goto loop
end

Amir_Hadzic · Post by **Amir_Hadzic** » 22-10-2008, 22:05

Nisam stavio da ako je nula na SW ali zato prvo postavi LED na 0 pa onda provjeri da li je SW 1 i stavi HIGH LED ako jeste.

UPDATE:
1.
Probao sam sve sto ste mi predlozili i jos uvijek ne radi. Pokusao sam samo staviti da blinka neovisno od ulaza i uredu je pa zato sumnjam na ovaj prekidac. Koji vi simbol koristite u proteusu za prekidac jer ima ih vise...
2.
Prikopcao sam gen. impulsa na ulaz rb7 i sve radi, znaci ipak je bilo do prekidaca... kako cu ubuduce rijesavati ovaj problem?

DaTi · Post by **DaTi** » 22-10-2008, 22:26

stavi pull up taster sto znaci da onda ako taster pritisnut dodje 0 a ne 1. I naj bolje uzmi probnu plocu imas za 600 din i slozi na njoj i tako isprobavaj.