Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

mikrobasic for pic - pozivanje sub pocedure

[es] :: Elektronika :: Mikrokontroleri :: mikrobasic for pic - pozivanje sub pocedure

[ Pregleda: 1746 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

boogi
RS-BiH

Član broj: 56974
Poruke: 352
*.teol.net.



+7 Profil

icon mikrobasic for pic - pozivanje sub pocedure16.02.2013. u 18:08 - pre 135 meseci
Pozdrav

pišem neki programčić u mikroBasicu za PIC pa imam problem oko sub procedure.

Naime, iz main:-a se poziva sub procedura "provjera_set_tastera" koja provjerava stanje RB7 i ako je stanje 1 i nakon par prozivanja ( npr 5) iste sub procedure se stekne uslov da je a=5 trebao bi da sa tog mjesta skočim na novu sub proceduru "podesavanje_sata" i po završetku ove druge da se vratim u prvu sub proceduru a po zavrsetku nje u main:

Prilikom kreiranja projeka u message prozoru dobijam pruku
192:20 E-3 Identifier 'podesavanje_sata' was not declared SAT.pbas

Kako da riješim problem?

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub procedure provjera_set_tastera

TRISB = 255

tast = testbit( PORTB,7 )

if tast = 1 then a=a+1 else a=0
end if
delay_ms(100)
if a = 5 then podesavanje_sata
end if
if a=5 then a=0
end if

end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub procedure podesavanje_sata



end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Prikačeni fajlovi
 
Odgovor na temu

boogi
RS-BiH

Član broj: 56974
Poruke: 352
*.teol.net.



+7 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure16.02.2013. u 18:29 - pre 135 meseci
Mislim da bi moglo i ovako:

Prikačeni fajlovi
 
Odgovor na temu

ZAS011
Uzgajivač šargarepe izakuće
Vanuatu

Član broj: 288510
Poruke: 4543

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


+530 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure16.02.2013. u 20:21 - pre 135 meseci
Kao prvo, preporučio bih ti da programe pišeš malo preglednije i da ti budu "logično nazubljeni":
Code:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub procedure provjera_set_tastera

  TRISB = 255

  tast = testbit( PORTB,7 )

  if tast = 1 then
    a=a+1
  else
    a=0
  end if

  delay_ms(100)
  if a = 5 then
    podesavanje_sata
  end if

  if a=5 then
    a=0
  end if

end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub procedure podesavanje_sata



end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Nisam 100% siguran, ali ovom paskalolikom basic-u, čini mi se, trebaju i zagrade "()" čak i ako ne prenisiš nikakav parametar podprogramu (proceduri).

Code:
  if a = 5 then
    podesavanje_sata()
  end if


Eto zašto ne mogu da "svarim" MicroB
--
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

boogi
RS-BiH

Član broj: 56974
Poruke: 352
*.teol.net.



+7 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure16.02.2013. u 21:05 - pre 135 meseci
Hvala na sugestijama vezano za "nazubljenja".

() ne rade ali ono što sam postavio u drugom postu mi radi posao.
 
Odgovor na temu

ZAS011
Uzgajivač šargarepe izakuće
Vanuatu

Član broj: 288510
Poruke: 4543

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


+530 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure16.02.2013. u 21:42 - pre 135 meseci
Ono što si napisao u drugom post-u je sve u okviru jedne procedure, nemaš poziv druge procedure, imaš samo GoTo
--
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

boogi
RS-BiH

Član broj: 56974
Poruke: 352
*.teol.net.



+7 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure17.02.2013. u 21:01 - pre 135 meseci
Tacno. Znam da je tako ali me mrzilo da se smaram i da trošim vrijeme kako pozvati proceduru iz procedure kad mi ovo radi posao.

Bitno mi je bilo da, dok se ne stekne odredjeni uslov, dio programa se ne izvršava. Isprva sam imao ideju da kad se stekne uslov da pozovem drugu proceduru a sad sam napravio da dio prve procedure jednostavno preskočim dok se ne stekne uslov.

Hvala
 
Odgovor na temu

Genie_1984
Novi Sad

Član broj: 61150
Poruke: 93



+1 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure18.02.2013. u 10:00 - pre 135 meseci
Sve što je potrebno je da proceduru koju pozivaš definišeš pre nego što je pozoveš, odnosno :

Code:


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub procedure podesavanje_sata



end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sub procedure provjera_set_tastera

  TRISB = 255

  tast = testbit( PORTB,7 )

  if tast = 1 then
    a=a+1
  else
    a=0
  end if

  delay_ms(100)
  if a = 5 then
    podesavanje_sata
  end if

  if a=5 then
    a=0
  end if

end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Zagrade () mogu ali ne moraju...
Pozdrav
 
Odgovor na temu

boogi
RS-BiH

Član broj: 56974
Poruke: 352
*.teol.net.



+7 Profil

icon Re: mikrobasic for pic - pozivanje sub pocedure18.02.2013. u 19:57 - pre 135 meseci
Bravo!
Radi!

Eto, čovjek nešto i nauči. Znači, redosljed je bitan.

Hvala!
 
Odgovor na temu

[es] :: Elektronika :: Mikrokontroleri :: mikrobasic for pic - pozivanje sub pocedure

[ Pregleda: 1746 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.