[es] - Picbasic pitanja za sve sto mi nije jasno

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{15.02.2012. u 22:13 - pre 148 meseci}

Da netreba mozda da ispod UPALI: stavim da se pale a dole ispod UGASI: da se gase.Sta bi tad bilo? Tacno je toliko potrebno da se drzi t da se ugase koliko im treba da sve 3 upale.Zato sam stavio trecu da vidim tu razliku u vremenu

MILAN ANDRIC

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{15.02.2012. u 22:37 - pre 148 meseci}

ja sam zbunjen

sada

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 06:54 - pre 148 meseci}

Ovako radi ali sa zakasnjenjem se gasi,nisu upisane nikave pauze oko toga pa sad nevidim zasto treba da se duze drzi t da se ugasi ali nema veze idemo dalje.

MILAN ANDRIC

Odgovor na temu

ZAS011
Uzgajivač šargarepe izakuće
Vanuatu

Član broj: 288510
Poruke: 4543

ICQ: 8713400
Sajt: www.justfuckinggoogleit.c..

+530 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 11:09 - pre 148 meseci}

Ti se bas zapetljavas k'o pile u kucine.

Nije poenta samo kuckati i kuckati. Programiranje je misaoni i smisaoni proces i ono sto kuckas mora da radis sa razumevanjem.

Ako do sada nisi ukopcao da u MCS postoji HELP, evo ti, jedan u prilogi, u "Statement reference" imas sve "komande" PBP-a, lepo objasnjene i sa primerima.

--
Make no mistake between my personality and my attitude.
My personality is who I am.
My attitude depends on who you are.

Prikačeni fajlovi

CodeStudio.chm - 670.75k

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 12:31 - pre 148 meseci}

Sve pokusavam da radim sa razumevanjem medjutim ovo sa diodama mi radi ali nerazumem zasto je potrebno ovde zadrzati taster duze da se ugasi ali ako treba uraditi jos nesto sto ne znam ili nerazumem ostavicu ovako dok ne dodje na red.Zapeo sam za ovaj program jer sa njim pic moze da se iskoristi da se napravi neki koristan uredjaj

MILAN ANDRIC

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 15:25 - pre 148 meseci}

Pokusacu da ti pomognem i da rastavim ovo sto si napisao na cinioce
Program je krenuo sa radom , portb.0 ti je stalno na 1(preko otpornika od 10koma ) posto ti tasterom dovodis 0 na njega onda rad programa ide ovako :

UPALI: prvo sto radi je da ocitava label upali

F PORTB.0 = 1 THEN prvo na sta nailazi je uslov i ocitava stanje na ulaznom pinu
PORTB.6 = 0 tebi taster nije pritisnut i uslov je da je portb.0 = 1 sto i jeste vec u samom startu
PORTB.5 = 0 sto sam ti rekao pa posto je uslov ispunjen on drzi led diode ugasene i vrti stalno
PORTB.4 = 0 u krug label dok ne pritisnes taster i dovedes nulu na pinu RB0
ENDIF
PAUSE 50
IF PORTB.0 = 0 THEN UGASI kada pritisnes taster onda program skace na label ugasi
GOTO UPALI
END
UGASI

IF PORTB.0 = 1 THEN pritisnuo si i pustio taster program je skocio na label ugasi , taster je otpusten
PORTB.6 = 1 pin rb0 je automatski 1 sto je uslov u programu da krene da pali diode jednu po
PAUSE 1000 jednu. Sve dok je na labelu ugasi on ocitava uslov IF na pocetku i prolazi kroz
PORTB.5 = 1 ceo tok ponovnog izvrsenja uslova i pauza koje su u ovom slucaju 2sekunde skupa
PAUSE 1000 Pa ti kada pritisnes taster ako se program nalazi na pocetku labela sa citanjem
PORTB.4 = 1 on ce ispostovati pauze od 2 sekunde dok ne dodje do tvoje komande za
ENDIF portb.0 = 0 da skoci na label upali i to ce uraditi i zato ti se desava ta zadrska
PAUSE 50 dok ne uradi ono sto zelis ,a to je da pocne da ih gasi .
IF PORTB.0 = 0 THEN UPALI
GOTO UGASI
END
Nadam se da si razumeo ovo sto sam ti napisao
Mozda sam malo nepregledno napisao ovo jer sam radio na brzaka

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 15:52 - pre 148 meseci}

to sto bi ti hteo da se momentalno vrsi prekid tog dela programa bez obzira na sve moras koristiti
prekide-interupt instrukciju koja prati promene na odredjenim pinovima ili pinu koji ti definises i odmah po promni skace i izvrsava dalju naredbu koji su postavio . Moras jos malo da izvezbas ovo da bi dosdao do ovde jer ti jos dosta toga nije bas najjasnije ali boze moj iz dana dan si sve bolji .Pozdrav

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
79.101.230.*

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{16.02.2012. u 16:47 - pre 148 meseci}

Ne nije nepregledno,znao sam da kasni jer nesto ceka dok se pritisne taster a sad znam sta ceka,sad razumem odakle dolazi kasnjenje.

MILAN ANDRIC

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:08 - pre 148 meseci}

Moze li neki prost primer sa naredbama FOR i GOSUB

MILAN ANDRIC

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:24 - pre 148 meseci}

Code:
TRISB = $00
   cmcon = 7
   gosub pocetak
   gosub pocetak1

Pocetak:
   PORTB.0 = 0
   pause 1000
   PORTB.0 = 1
   Pause 1000
return               ;kada program dodje do return vraca se na gosub pocetak i krece sa sledecim u nizu gosub pocetak1
                          i tako u krug

Pocetak1:
   PORTB.1 = 0
   pause 1000
   PORTB.1 = 1
   Pause 1000
return

Ovo je najprostiji primer i to mi je palo na pamet inace obicno sluzi da se u glavnom programu pomocu gosub pozove neki pod program skoci na taj label odradi posao i vrati se glavnom programu i nastavi sa instrukcijama .

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:31 - pre 148 meseci}

A za naredbu FOR postoji li isto nesto prosto ? pisite ako je kratko da vas ne mucim za duze pisanje.

MILAN ANDRIC

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:36 - pre 148 meseci}

Code:
TRISB = $00
cmcon = 7
i var byte

pocetak :

  for i = 1 to 15       ; broj ciklusa ponavljanja je od 1 do 15 , a kad dodje na 15 onda skace na label kraj
  if i = 15 then
  portb.0 = 1
  pause 500
  portb.1 = 1
  pause 500
  portb.2 = 1
  pause 500
  portb.3 = 1
  pause 500
  portb.0 = 0
  pause 500
  portb.1 = 0
  pause 500
  portb.2 = 0
  pause 500
  portb.3 = 0
  pause 500
  next i
kraj:
portb.0 = 1
portb.1 = 1
portb.2 = 1
portb.3 = 1
goto kraj
end

ova instrukcija sluzi za ponavljanje nekog programskog ciklusa koliko puta ti zadas u ovom primeru 15 puta , a u svakom ciklusu mozes svasta raditi , uvecavati ili smanjivati neku vrednost koju ti zelis recimo pauze , neki brojac itd . Veoma korisna instrukcija inace .

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

ZAS011
Uzgajivač šargarepe izakuće
Vanuatu

Član broj: 288510
Poruke: 4543

ICQ: 8713400
Sajt: www.justfuckinggoogleit.c..

+530 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:41 - pre 148 meseci}

Evo tebi, Darko malo izmena da bi tvoje pisanije radilo kako treba (izmene pisane VELIKIM slovcima)

Code:
TRISB = $00
   cmcon = 7
PETLJA:
   gosub pocetak
   gosub pocetak1
GOTO PETLJA

END

Pocetak:
   PORTB.0 = 0
   pause 1000
   PORTB.0 = 1
   Pause 1000
return               ;kada program dodje do return vraca se na gosub pocetak i krece sa sledecim u nizu gosub pocetak1
                          i tako u krug

Pocetak1:
   PORTB.1 = 0
   pause 1000
   PORTB.1 = 1
   Pause 1000
return

--
Make no mistake between my personality and my attitude.
My personality is who I am.
My attitude depends on who you are.

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:43 - pre 148 meseci}

Code:
TRISB = $00
cmcon = 7
i var byte
j var byte                       j = je promenjiva u koju smestamo vrednos za svaki prolaz i tu vrednost koristimo kao pauzu

pocetak :

  for i = 1 to 6              ; broj ciklusa ponavljanja je od 1 do 6 , a kad dodje na 6 onda skace na label kraj
  if i = 1 then j = 2000   ; u ovom slucaju u svakom prolazu se vreme blinkanja smanjuje u prolazu 1 je 2 sek
  if i = 2 then j = 1500    ; u prolazu 2 je 1.5 sek u prolazu 3 je 1 sek i tako redom .
  if i = 3 then j = 1000
  if i = 4 then j = 500
  if i = 5 then j = 200
  if i = 6 then kraj
  portb.0 = 1
  pause j
  portb.1 = 1
  pause j
  portb.2 = 1
  pause j
  portb.3 = 1
  pause j
  portb.0 = 0
  pause j
  portb.1 = 0
  pause j
  portb.2 = 0
  pause j
  portb.3 = 0
  pause j
  next i
kraj:
portb.0 = 1
portb.1 = 1
portb.2 = 1
portb.3 = 1
goto kraj
end

Nadam se da ti je ovo malo jasnije kako se menja vrednost necega za svaki prolaz
Izvini ako ima gresaka , ovo pisem na brzinu i sve je moguce

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 21:48 - pre 148 meseci}

Citat:

Evo tebi, Darko malo izmena da bi tvoje pisanije radilo kako treba (izmene pisane VELIKIM slovcima)

Hvala Zorane , rekoh ja da je na brzaka

,a iskreno radim deset stavri od jednom kada sednem za komp

Ma video bih da sam se vratio i procitao sta sam napisao al nema veze

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 22:06 - pre 148 meseci}

Uredu je ljudi hvala vam puno sad imam domaci za nekoliko dana.

MILAN ANDRIC

Odgovor na temu

Darko_zed
Aleksinac

Član broj: 137277
Poruke: 2312
*.dynamic.isp.telekom.rs.

Sajt: www.proelektro018.com

+98 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 22:08 - pre 148 meseci}

Code:
i var byte
      j var word



      TRISB = $00    ' Svi pinovi porta B su izlazni



  Pocetak:

'-----------Pali jednu po jednu diodu i gasi od pocetka---------
     for i = 1 to 4
      if i = 1 Then j = 1000   ' Pauza 1 sekund
      if i = 2 Then j = 500    ' Pauza 0.5 sekunda
      if i = 3 Then j = 250    ' Pauza 0.25 sekunda
      if i = 4 Then j = 100    ' Pauza 0.25 sekunda

      High PortB.0   ' Upali Led 0
      pause j

      High PortB.1   ' Upali Led 1
      pause j

      High PortB.2   ' Upali Led 2
      pause j

      High PortB.3   ' Upali Led 3
      pause j

      High PortB.4   ' Upali Led 4
      pause j

      High PortB.5   ' Upali Led 5
      pause j

      High PortB.6   ' Upali Led 6
      pause j

      High PortB.7   ' Upali Led 7
      pause j

      Low PortB.0    ' Ugasi Led 0
      pause j

      Low PortB.1    ' Ugasi Led 1
      pause j

      Low PortB.2    ' Ugasi Led 2
      pause j

      Low PortB.3    ' Ugasi Led 3
      pause j

      Low PortB.4    ' Ugasi Led 4
      pause j

      Low PortB.5    ' Ugasi Led 5
      pause j

      Low PortB.6    ' Ugasi Led 6
      pause j

      Low PortB.7    ' Ugasi Led 7
      Pause 1000     ' Pauza 1 sekunda
      next i
      goto pocetak

Mozes i ovako definisati stanje portova umesto portb.0 = 1 i portb.0 = 0 , definises ih kao HIGH i LOW

_{[Ovu poruku je menjao Darko_zed dana 17.02.2012. u 23:24 GMT+1]}

http://darkoelektronik.webs.com/
[email protected]
tel : 0600806345

Odgovor na temu

veselinovic
Jovan Veselinovic
Ist. Sarajevo

Moderator
Član broj: 7761
Poruke: 3875
adsl-55-220.teol.net.

+334 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 22:23 - pre 148 meseci}

Jos samo da definises i kao integer ( to i,j,k,l,m,n je ostalo jos od Fortrana. Tamo se nije moglo definisati tip promenljive, pa su pomenute bile int, a ostale real), i da mu das neku vrijednost.
Poz.

Odgovor na temu

MILANAN
MILAN ANDRIC
OPERATRER,PCRACUNARA
SVRLJIG,SRBIJA

Član broj: 257039
Poruke: 876
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 22:26 - pre 148 meseci}

Znam za to,te osnovne komande znam.Samo jos nesto zasto prvo blinka portb.0 jednom pa portb.1 jednom pa onda portb.0 dva puta pa portb.1 jednom tj zasto taj redosled prvi put po jednom a posle 2x pa 1x
i ne znam jos uvek zasta je cmcon = 7

TRISB = $00
cmcon = 7
PETLJA:
gosub pocetak
gosub pocetak1
GOTO PETLJA

END

Pocetak:
PORTB.0 = 0
pause 1000
PORTB.0 = 1
Pause 1000
return

Pocetak1:
PORTB.1 = 0
pause 1000
PORTB.1 = 1
Pause 1000
return

MILAN ANDRIC

Odgovor na temu

ZAS011
Uzgajivač šargarepe izakuće
Vanuatu

Član broj: 288510
Poruke: 4543

ICQ: 8713400
Sajt: www.justfuckinggoogleit.c..

+530 Profil

Re: Picbasic pitanja za sve sto mi nije jasno

^{17.02.2012. u 22:41 - pre 148 meseci}

Pogledaj u datasheet-u sta je CMCON registar uC-a

Citati, citati, citati, ... da bi znao sa cime radis

--
Make no mistake between my personality and my attitude.
My personality is who I am.
My attitude depends on who you are.

Prikačeni fajlovi

PIC001.png - 178.07k

PIC002.png - 139.85k

Odgovor na temu