Pic brojac do 999

Pic brojac do 999 23.09.2010. u 23:17 · pre 195 meseci #1

Pozdrav svima! Hteo sam da napravim brojac za motalicu od 000 do 999, sa ulaznim signalom koji ce brojac ustvari da odbrojava (koji ce biti induktivni davac) sa varijantom podesavanja pre samog pocetka tog odbrojavanja,pa kad dodje do tog podesenog broja da se zaustavi i pic pusti "izlaz" na jedan od pinova koji ce upaliti relej...E sad, semu sam zamisljao sa 6 tastera; 1-start, 2- pauza, 3- stop, 4- jedinice, 5- desetice 6- stote . Tasteri 4,5,6 su za pocetno podesavanje broja na kom treba da se zaustavi odbrojavanje.
Znaci: Upali se uredjaj, podesi broj do kojeg ce da broji brojac (tasterima 4,5 i 6), stisne taster start i brojac odbrojava do podesenog broja. Brojac bi imao i pauzu u smislu -kad se stisne taster pauze (dok brojac broji)da se zaustavi odbrojavanje signala sa induktivca i opet pusti izlaz na isti pin za relej sve dok se oped nestisne start taster kada opet iskljucuje relej i nastavlja se "citanje" tj brojanje ulaznog signala.
Za mene je ovo jako komplikovano pa ako neko ima ideju kako da napisem program tj da mi pomogne oko ovoga bio bih mu jakooooooooo zahvalan!
Imam alll pic programator, a od pic kontrolera imam 16f73, 16f76, 16c77. Hvala unapred svima!

Re: Pic brojac do 999 24.09.2010. u 19:07 · pre 195 meseci #2

nije to nesto komplikovano, mada ne verujem da ce neko da ti napise ceo program . . . postavi semu ako ti nije frka kako si to zamislio da povezes i koji deo programa te zeza . . . pretpostavljam da ces da koristis 3 sedmosegmentna display-a? inace PIC mozes da koristis bilo koji jeftiniji sa nesto vise pinova . . . i program pises u PIC basic-u?

Re: Pic brojac do 999 25.09.2010. u 11:46 · pre 195 meseci #3

Da, kontao sam da pisem u Basic-u, posto njega mogu donekle da razumem :).Koristim 3 sedmosegmentna display-a a semu kacim ubrzo! Te pic-e ve imam trenutno zato bih njih koristio

Re: Pic brojac do 999 25.09.2010. u 15:13 · pre 195 meseci #4

Evo i seme kako sam otprilike zamislio to.Pic na semi nije onaj koji ja imam ali je isti broj nozica kao 16f73 pa sam ga zato ubacio. Nisam crtao neke stvari koje se podrazumevaju(kvarc,napajanje pic-a...).Taster s7 je impuls sa davaca koji je negativan.
[img][/img]

SEMA.JPG80.21k

Re: Pic brojac do 999 25.09.2010. u 16:08 · pre 195 meseci #5

Nele, nemoj da svircas, napisi coveku ceo program da se ne muci.xD

Re: Pic brojac do 999 25.09.2010. u 16:28 · pre 195 meseci #6

pa ako vec moze.... :) Sala, ne znam kako da postavim petlju za tastere "start", "stop" i "pause" a tek za one pri podesavanju tj na pocetku kada podesavas zeljeni br. do kojeg ce brojac da broji... ju! nemam ideju kako da pocnem uopste!

Re: Pic brojac do 999 26.09.2010. u 11:30 · pre 195 meseci #7

Code:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : NELE                                              *
'*  Notice  : Copyright (c) 2010 fu*k copyright                 *
'*          : All Rights Reserved                               *
'*  Date    : 9/26/2010                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
b0 var byte
jedinice var byte
desetice var byte
stotine var byte
brojac var word
zadatibr var word
maskiranacifra var byte
i var byte
temp var bit
TRISA=%11111
TRISB=0
TRISC=%00000001
b0=0
brojac=0
temp=0
main:
Button porta.3,1,1,1,B0,0,uvecajjedinice
Button porta.4,1,1,1,B0,0,uvecajdesetice
Button porta.5,1,1,1,B0,0,uvecajstotine
zadatibr = jedinice + desetice*10 + stotine *100
goto prikazibr
Button porta.0,1,1,1,B0,0,start
goto main
uvecajjedinice:
jedinice=jedinice+1
if jedinice>9 then jedinice=0
b0=0
return
uvecajdesetice:
desetice=desetice+1
if desetice>9 then desetice=0
b0=0
return
uvecajstotine:
stotine=stotine+1
if stotine>9 then stotine=0
b0=0
return
prikazibr:
for i = 0 to i = 4 step 1 'ovde sam stavio for da prikaze broj nekoliko puta da bi se cifre bolje videle :)
lookup jedinice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.5
pause 1
low portc.5
lookup desetice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.6
pause 1
low portc.6
lookup stotine,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.7
pause 1
low portc.7
NEXT i
return
start:
if brojac<zadatibr then
high portc.4
else
low portc.4
goto main
endif
if portc.0 = 0 AND temp = 1 then brojac = brojac +1
if portc.0 = 1 then temp = 1
if portc.0 = 0 then temp = 0
Button porta.2,1,1,1,B0,0,pauza
Button porta.1,1,1,1,B0,0,stopp
b0=0
goto start
pauza:
low portc.4
Button porta.0,1,1,1,B0,0,start
Button porta.1,1,1,1,B0,0,stopp
b0=0
goto pauza
stopp:
low portc.4
b0=0
'ovde ako hoces ubaci brojac = 0 da ga resetujes
goto main

end

obrati paznju na display kako si povezao, sa ovim adresama u lookup naredbi a ide na RB0, b na RB2 . . . g na RB6. uopste ako prikazuje neke zvrljotine moraces da sam adresiras cifre . . . relej moras da palis preko tranzistora i obavezno stavi diodu da pojede samoindukciju, pretpostavljam da to spada u ono sto nisi nacrtao a podrazumeva se :)

_{[Ovu poruku je menjao NELEwb dana 26.09.2010. u 12:49 GMT+1]}

Re: Pic brojac do 999 26.09.2010. u 11:53 · pre 195 meseci #8

HVALA puno! Ne znam kako bih ti se oduzio...tranzistor se podrazumeva kao i dioda :) Hvala jos jednom, nadam se da cu sutra zavrsiti to pa se javljam kako je ispalo!

Re: Pic brojac do 999 27.09.2010. u 19:16 · pre 195 meseci #9

NELE, Odradio sam plocicu danas,evo seme kako je na kraju sve vezano(nisam samo na semi prepravio izlaze na 7 segmentni displej,a povezao sam kako si mi i rekao), povezao sve kako treba i kad sam postavio programiran pic 16f76 - nista!
Ne radi nista ni ne reaguje ni na jedan taster!Kad sam video da ne radi probao da iscitam program iz njega ividim da je to- to tj da je dobro predhodno usnimljen.
Probao sam da isprogramiram tako da mi pali -gasi relej i neke delove displeja( sa tim tranzistorom da mu da masu) i kad sam ga stavio na podnozje sve je radilo.
Ne znam u cemu je problem...da li napisani program nije uskladjen sa semom dobro,ili sam pogresno objasnio kako sam zamislio?
Zaboravih jos reci da su 7-segmentni displeji fizicki sa zajednickom katodom,a ne kao na semi sa anodom(mozda je u tome problem?) Nemam pojma, ispratio sam sve vodove na plocici i sve je ok. Pa eto ako moze neka pomoc....Nadam se da negnjavim puno :)

NOVA SEMA.JPG89.73k

Re: Pic brojac do 999 27.09.2010. u 21:48 · pre 195 meseci #10

Rodjo,
Onako kako si ti vezao displej(e) .... veza je za displeje sa zajednickom katodom (bez obzira sto ti je shematska oznaka za displej sa zajednickom anodom) ... znaci to nije problem. Problem je u kodu....

Code:

Button porta.3,1,1,1,B0,0,uvecajjedinice

Ovo je isto kao da je napisano

Code:

if porta.3 = 1 then
goto uvecajjedinice ' a ne gosub uvecajjedinice
endif

Prva greska je sto je tebi (prema semi) aktivno stanje tastera = 0, a ne 1 ... tj kad stisnes taster imas logicku nulu, a ne jedinicu. Druga greska je sto je kolega koji je pisao ovaj kod, mislio da je kod komande BUTTON implementirana naredba GOSUB (a ne GOTO), pa je posle svakog LABEL-a gde se iz komande button program preusmerava - stavio RETURN, misleci da ce se izvrsenje programa nastaviti naredbom koja je posle naredbe BUTTON. Aber medjutim, kako je ovo u stvari GOTO, PIC se nece vratiti nazad da izvrsi ispitivanje sledecih tastera, vec ce nastaviti sa izvrsavanjem koda koji se nalazi posle 'Uvecajjedinice:' .

Evo Nele je pokusao da ti pomogne, napisao je kakav-takav kod i verujem da vecina kolega ima volje da pomogne da se kod dotera do kraja. Ali, ne moze se ocekivati ni od koga da nekome napise kod od A-Z, a da taj prethodno nije mrdnuo ni repom .... . Pomoc DA, ali pisanje kompletnog koda (za dzabe) NE!. Neki razvojni put mora da postoji, ne moze se odmah krenuti sa slozenim projektima.

Pozdrav,
za pomoc uvek raspolozen... idemo dalje...

Potpis

73 de YU1OL

Re: Pic brojac do 999 27.09.2010. u 22:35 · pre 195 meseci #11

Vidi covek stvarno napisa program. :)

Evo moje izmene:

Code:

Code:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : NELE                                              *
'*  Notice  : Copyright (c) 2010 fu*k copyright                 *
'*          : All Rights Reserved                               *
'*  Date    : 9/26/2010                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
b0 var byte
jedinice var byte
desetice var byte
stotine var byte
brojac var word
zadatibr var word
maskiranacifra var byte
i var byte
temp var bit
TRISA=%11111
TRISB=0
TRISC=%00000001
b0=0
brojac=0
temp=0
main:
Button porta.3,0,1,1,B0,1,uvecajjedinice
Button porta.4,0,1,1,B0,1,uvecajdesetice
Button porta.5,0,1,1,B0,1,uvecajstotine
Button porta.0,0,1,1,B0,1,start
goto prikazibr

goto main
uvecajjedinice:
jedinice=jedinice+1
if jedinice>9 then jedinice=0
b0=0
zadatibr = jedinice + desetice*10 + stotine *100
goto prikazibr
uvecajdesetice:
desetice=desetice+1
if desetice>9 then desetice=0
b0=0
zadatibr = jedinice + desetice*10 + stotine *100
goto prikazibr
uvecajstotine:
stotine=stotine+1
if stotine>9 then stotine=0
b0=0
zadatibr = jedinice + desetice*10 + stotine *100
goto prikazibr
prikazibr:
for i = 0 to i = 4 step 1 'ovde sam stavio for da prikaze broj nekoliko puta da bi se cifre bolje videle :)
lookup jedinice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.5
pause 1
low portc.5
lookup desetice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.6
pause 1
low portc.6
lookup stotine,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.7
pause 1
low portc.7
NEXT i
goto main
start:
if brojac<zadatibr then
high portc.4
else
low portc.4
goto main
endif
if portc.0 = 0 AND temp = 1 then brojac = brojac +1
if portc.0 = 1 then temp = 1
if portc.0 = 0 then temp = 0
Button porta.2,0,1,1,B0,1,pauza
Button porta.1,0,1,1,B0,1,stopp
b0=0
goto start
pauza:
low portc.4
Button porta.0,0,1,1,B0,1,start
Button porta.1,0,1,1,B0,1,stopp
b0=0
goto pauza
stopp:
low portc.4
b0=0
'ovde ako hoces ubaci brojac = 0 da ga resetujes
goto main

end

Mislim da ima jos neka greska, ali proveri prvo ovako. Pozdrav...

Re: Pic brojac do 999 27.09.2010. u 22:46 · pre 195 meseci #12

@mj7 ko ti rek'o da menjas kod, nemoj da ti dodjem tamo

:)

Re: Pic brojac do 999 27.09.2010. u 23:21 · pre 195 meseci #13

@NELEwb, koji si ti saban. xD

Priznaj da si ovo namerno uradio. :)

Re: Pic brojac do 999 27.09.2010. u 23:35 · pre 195 meseci #14

Pa verovatno da bi i ja malo se pomucio :) Evo upravo pustio kroz simulator, i gledam...menja stanja non-stop bez pritiskanja tastera....ubacio na plocu kad ono svetle sva tri displeja i nemenja nista na nijedan taster! Neka bar nesto svetli! :)
Ne znam te komande, ne mogu da pohvatam sve tako brzo,a i ovo sto znam naucio sam iz knjiga i sa neta i dobrih ljudi kao sto ste vi!
Izgleda program skace na labele posle provere tastera,tj uopste nesagledava stanje na tasterima, jel moguce?

Re: Pic brojac do 999 28.09.2010. u 00:13 · pre 195 meseci #15

Zbog toga, opasan je on.:) Sve je moguce. Za pocetak ovako:

Code:

Code:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : NELE                                              *
'*  Notice  : Copyright (c) 2010 fu*k copyright                 *
'*          : All Rights Reserved                               *
'*  Date    : 9/26/2010                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
b0 var byte
jedinice var byte
desetice var byte
stotine var byte
maskiranacifra var byte
i var byte
TRISA=%11111
TRISB=0
TRISC=%00000001
b0=0
jedinice=0
desetice=0
stotine=0

main:

Button porta.3,0,1,1,B0,1,uvecajjedinice
Button porta.4,0,1,1,B0,1,uvecajdesetice
Button porta.5,0,1,1,B0,1,uvecajstotine
goto prikazibr

uvecajjedinice:
jedinice=jedinice+1
if jedinice>9 then jedinice=0
b0=0
goto prikazibr

uvecajdesetice:
desetice=desetice+1
if desetice>9 then desetice=0
b0=0
goto prikazibr

uvecajstotine:
stotine=stotine+1
if stotine>9 then stotine=0
b0=0
goto prikazibr

prikazibr:
for i = 0 to i = 4 step 1
lookup jedinice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.5
pause 1
low portc.5
lookup desetice,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.6
pause 1
low portc.6
lookup stotine,[$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F],maskiranacifra
portb = maskiranacifra
high portc.7
pause 1
low portc.7
NEXT i
goto main

end

Prvo da proradi ovo, pa ces dalje lako. Sad ce Nele opet da se zali sto mu menjam kod. xD

Re: Pic brojac do 999 28.09.2010. u 11:20 · pre 195 meseci #16

Ispravi me ako gresim,ali mislim da je problem u konfiguraciji ulaza na "a" portu?
Kontam da na pocetku koda gde pise komanda "trisa=%11111" mozda da stavim "trisa=1" (ili je to isto),posto imam osecaj da pic brljavi u smislu kao da mu non stop stiskas sva tri tastera setovanja broja- taster jedinice,desetice,stote...jer displej treperi na sve tri cifre jako brzo,kao da mu se same menjaju vrednosti tj brojevi.Nisam probao u kolu kako se ponasa sa ovim "trisa=1", na poslu sam pa samo razmisljam.... :)

Re: Pic brojac do 999 28.09.2010. u 12:28 · pre 195 meseci #17

trisa = %11111 i trisa = 1 ne mogu nikako da budu isto! trisa = %11111 je isto sto i trisa = 31; trisa = 1 je isto sto i trisa = %00000001

Moras malo da citas i data sheets od uC. Po difoltu, kod skoro svih PICova koji imaju AD konvertore, odgovarajuci ulazi za AD konvertore su postavljeni kao analogni. Konkretno kod tvog 16F73 - analogni su ti ulazi na PORTA, bas oni na koje si ti vezao tastere. Da bi ti port A postao 'digitalan' moras da podesis odgovarajuci registar, u ovom slucaju ADCON1. Mozda ce neki simulator i da radi onako kako si ti zamislio, ali in real life - PIC nece sigurno!

ADCON1 = 7 (ili ADCON1 = %00000111) bi trebalo da resi (deo) tvojih problema

. Ispod dela koda gde si definisao TRISove, dodaj i ovo!

Pozdrav,

_{[Ovu poruku je menjao foxhunter1 dana 28.09.2010. u 14:58 GMT+1]}

Potpis

73 de YU1OL

Re: Pic brojac do 999 28.09.2010. u 16:24 · pre 195 meseci #18

E sad ide nekako :) dodao ADCON1=7, pored trisa dodao jos jednu "1"-cu, isad kad ga upalim svetli komplet displej!
Tasteri proradili! :)menjaju stanje na displeju (svaki taster menja ono sto i treba da menja) ali brljavi.... menja on svaki put ali jako brzo(ali nije problem) i te promene nikada nebudu ispisane tj ni jedna nelici na broj.Mozda zato sto sam ja krenuo po Neletovom upustvu da vezem displej (b0 na a,b1 na b...)
Tasteri start,stop,pause rade kako i trebaju,samo sto posle stiskanja starta nema nikakvog broja na displeju,a inace relej se i pali i gasi kako bi i trebalo. Gledao sam u labeli "prikazibroj" hex cod pa ga u binarni konvertovao i po meni je ok, tj idu brojevi od 0 do 9. Znaci sam sebi sam vise dosadan sto vam pisem a mogu zamisliti kako je vama ! Stvarno se trudim,prepravljam,ubacujem komande ali ne ide mi nikako, samo zabrljam jos vise.

_{[Ovu poruku je menjao pesakms dana 28.09.2010. u 17:35 GMT+1]}

Re: Pic brojac do 999 28.09.2010. u 19:02 · pre 195 meseci #19

Ajd' probaj ovo, pa javi da li ti i sada preskace

. Kod pisanja programa gledaj da imas sto vise GOSUB, a sto manje GOTO. Kod je neuporedivo laksi za pracenje i shvatanje, a o dibagovanju da ne govorim. Ovo ti je samo za postavljanje zadatih vrednosti i za prikaz, a nesto ces morati i sam. Ako ti presporo prihvata promene sa tastera, probaj da smanjis konstantu DebCnt.

Code:

Jedinice     var byte
Desetice     var byte
Stotine     var byte
CntJedinice    var    byte    ' brojac stisnutog tastera za jedinice
CntDesetice    var    byte
CntStotine    var    byte
CifZaPrikaz    var    byte
KeyJedPusten    var    bit
KeyDesPusten    var    bit
KeyStotPusten    var    bit
KeyJedStis    var    bit        ' taster za jedinice debaunsovan i kazemo da je stisnut
KeyDesStis    var    bit
KeyStotStis    var    bit

KeyJedinice    var    porta.3
KeyDesetice    var    porta.4
KeyStotine    var    porta.5
KatodaJed    var    portc.5
KatodaDes    var    portc.6
KatodaStot    var    portc.7

    DebCnt    con    3
    True    con    1
    False    con    0
    TRISA = 255        ' svi ulazi
    TRISB = 0        ' svi izlazi
    TRISC=%00000001
    ADCON1 = 7        ' svi digitalni

    clear
    keyjedpusten = true
    keydespusten = true
    keystotpusten = true

Main:

    gosub Debounce
    gosub odluke

    cifzaprikaz = jedinice
    gosub prikazibr
    katodajed = true
    pause 5
    katodajed = false
    cifzaprikaz = desetice
    gosub prikazibr
    katodades = true
    pause 5
    katodades = false
    cifzaprikaz = stotine
        gosub prikazibr          ' >>>>>>>>>>> i ovo sam bio ispustio :-)
    katodastot = true
    pause 5
    katodastot = false

    goto main

Debounce:
    if keyjedinice = 0 then
      cntjedinice = cntjedinice + 1
      else
      cntjedinice = 0
      keyjedstis = false
    endif

    if cntjedinice >= debcnt then
      keyjedstis = true
    endif

    if keydesetice = 0 then
      cntdesetice = cntdesetice + 1
      else
      cntdesetice = 0
      keydesstis = false
    endif

    if cntdesetice >= debcnt then
      keydesstis = true
    endif

    if keystotine = 0 then
      cntstotine = cntstotine + 1
      else
      cntstotine = 0
      keystotstis = false
    endif

    if cntstotine >= debcnt then
      keystotstis = true
    endif

    return

Odluke:
OdlJedinice:
    if keyjedstis = true then
      if keyjedpusten = true then
        keyjedpusten = false
        jedinice = jedinice + 1
        if jedinice > 9 then jedinice = 0
      endif
      else
      keyjedpusten = true
    endif

OdlDesetice:
    if keydesstis = true then
      if keydespusten = true then
            keydespusten = false           ' >>>>>>>>> ovo je bilo ispusteno
        desetice = desetice + 1
        if desetice > 9 then desetice = 0
      endif
      else
      keydespusten = true
    endif

OdlStotine:
    if keystotstis = true then
      if keystotpusten = true then
            keystotpusten = false         ' >>>>>>>>> i ovo je bilo ispusteno!
        stotine = stotine + 1
        if stotine > 9 then stotine = 0
      endif
      else
      keystotpusten = true
    endif

    return

PrikaziBr:
    'lookup cifzaprikaz, [$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F], portb
        LookUp cifzaprikaz, [$7E,$30,$6D,$79,$33,$5B,$5F,$70,$7F,$7B], PORTB ' ovo ti je za novo vezivanje
    return                                                                                         ' displeja .. RB0-RB6, G-A

end

_{[Ovu poruku je menjao foxhunter1 dana 29.09.2010. u 09:25 GMT+1]}

Potpis

73 de YU1OL

Re: Pic brojac do 999 28.09.2010. u 23:01 · pre 195 meseci #20

probao, ekran na pocetku miruje na sve tri cifre tj svetle na sva tri displeja iste diodice osim diode na poziciji "F' i "G".Kada stiskam taster za promenu jedinica, desava se promena kad god stisnem,ali ne u vidu broja, sve brka ali menja stanja,Kad stiskam desetice jako brzo se menjaju stanja na segmentu desetica i stotina (zajedno- u isto vreme).
Kda stiskas taster stotina, nista se nedesava.

Srodne teme