skraceni kurs ucenja picbasica

[pedja089]

Probaj nesto naci na picbasic.co.uk.

[VFDisplay]

imao sam isti problem i riješio sam tako da sam skinuo Asembler (MPASM),instalirao ga, otišao u PBP pod View->Complie And Program Options->Asembler, kliknuo na "Find Manually",našao mapu gdje sam instalirao MPASM te sam naravno kliknuo na "Use MPASM"

[electron]

E ovako, hteo sam da pitam nesto u vezi neke automatike i prilozene sheme. Naime, dali bi moglo da se isprogramira PIC 16f84 tako da ima 9 ulaza i dva izlaza, gde bi prema shemi, ako bilo koji ulaz (taster) S1,S2,S3...do S8 ima visok nivo high sija LED 1 i LED 2, stim sto ce LED1 sijati dogod svi S1 do S8 ne budu na 0, odnsno LOW,a LED2 se gasi pritiskom i otpustanjem na taster S9?

[Branez]

Može!
Bolje veži LED-ice prema plusu.

[electron]

OK, imas neki predlog kako bi shema i kod izgledali?

[Branez]

Za šemu sam ti već napisao, a za program malo pređi gornje retke (od početka), pa budeš bez problema napisao sam.

[electron]

OK, sve sam vec po ko zna koji put, ali me pati ovaj 9 taster

[pedja089]

Pa lako ti je detektovati promenu na pinu. Imas kod za detektovanje rastuce i opadajuc ivice, samo zameni znak < ili znak >sa <> i ti me ako se razlikuju sadasnje i prethodno stanje odradice ti ispod deo koda. A sad nisam te skontao bas za led2, dali treba da menja stanje svakim pritiskom/ otpustanjem, ili da se sa pritiskom pali ili gasi, ali i to ti je vec sve lako...
Ajde postavi kod za p;rvih 8 tastera...

[electron]

Led2 treba da se ugasi pritiskom na taster S9 i tako treba da ostane ugasena sve do se opet neki od tastera ne pritisne, odnosno ne predje u high. Jednostavnije nazvano majstorskim zargonom sluzio bi za kvintiranje alarmne sirene. Znaci tasteri s1-s8 signalizuju kvar, led1 ostaje aktivna dok se kvar ne otkloni a led2 je ustvari sirena koja se gasi pritiskom na taster s9 kako nebi parala usi. Pokusacu uraditi kod danas pa postaviti

[sasa45]

po meni najlakse 9 if petlji za svaki taster... i jedna promenljiva... na svakoj if petlji za tastere od 1-8 stavis da je aa=1 a na tateru 9 stavis da je aa=0 i onda jedna if petlja dak je aa=1 led2=1... ako sam dobro razumeo to bi trebalo da ti resi problem...

[sindja1204]

Zasto 9 if petlji? Moze i jedna sa if s1=0 or s2=0 or...or s8=0 then.. high led 1 ili ako led1 treba da bude ugasena ako nijedan senzor nije aktiviran moze i if s1=1 and s2=1 and.....s8=1 then.....low led1

[sasa45]

pa ok to je isto 9 if petlji ili devet uslova u jednoj petlji to je isto...

ovo je suvise prost kod i moze se napraviti u nekoliko varijacija...

[pedja089]

A moze i samo 1 if
Spakuju se svi ulazi u 1 word, i ako word nije jednak nuli ukljuci se alarm. Svaka naredna promena vrednosti vorda aktivira alarm. a ponistavanje je samo spustanje pina na 0. I to je to.

[sasa45]

he he vidi se ko je ovde najiskusniji

mudro zboris ucitelju

[sindja1204]

pa ok to je isto 9 if petlji ili devet uslova u jednoj petlji to je isto...

Stavi na papir pa ces da vidis da li je isto

[sindja1204]

Edit: Mozda i nije potrebno 8 portova za ulaze senzora . Dovoljno je X senzora spojiti paralelno i iskoristiti samo jedan port pica. Aktiviranjem bilo kog senzora menja se stanje porta i pali se led1 i led2 Tasterom s9 moze da se ugasi led2 a deaktiviranjem senzora gasi se led1. Uproscava se kod, umesto pica 16f moze i 12f... a funkcija sklopa se nemenja.

Code: Select all

  symbol s= portb0
    symbol taster= porta.0
    symbol led1= porta.2
    symbol led = porta.3
   
    TRISBB=$00
    TRISA=%00000001
   
    pocetak:
   
    if s=0 then
     high led1
     high led2
     endif
    
    if taster=0 then
    low led 2
    endif
   
    goto pocetak
    end

[electron]

Nije losa ova ideja da se senzori spoje u paralelu ako moze to da se uradi, stim sto ovaj deo koda

Code: Select all

if taster=0 then
    low led 2

dali samim pritiskom i otpustanjem se gasi led2 ili je stalno ugasena dok je taster pritisnut kao ovde?

[sasa45]

cim pritisnes taster ti se gasi i ostaje ugasen...

a koliko vidim gornji kod nedostaje ti gasenje led1 kad ti se otkloni kvar...

[electron]

mislis?

Code: Select all

if s=1 then
low led 1

[sasa45]

da bas to samo ti fali jos treci red u kodu

Code: Select all

if s=1 then
low led1
endif