skraceni kurs ucenja picbasica

[Kukinjos]

Kao prvo napravi matematiku i dobivene rezultate smjesti u neke varijable, npr. VAR_1, VAR_2 ... Vodi računa o njihovoj veličini (8 bita, 16 bita, više?). Taj dio radiš u glavnoj petlji. Za zaustavljanje i manipulaciju brojevima (TIPKA, TASTER, BILOSTO, ...), koristi podprograme (rutine), s kojima si se, evo do sad, mučio.
Kako misliš zakomplicirat stvar do kraja, onda ćeš morat prikaze tih varijabli radit nezavisno, tj. u interruptima. Znači u prekidima svakih nekoliko milisekundi, ćeš čitat te varijable i prikazivat ih na portovima po vlastitom izboru.
Sad ćeš već upast u probleme, jer ovo zahtjeva dobru koncentraciju , grijanje stolice , i najviše sređenost misli. Uzmi olovku i papir, nacrtaj si dijagram toka programa, onako blok-shematski. I rješavaj blok po blok, dok ne proradi kako treba.
Ovo ti je najprijateljskiji savjet, jer sam i ja mnogo puta htio nešto napravit na brzinu i činilo se jako jednostavno, a na kraju je ispadao kupus pun bug-ova. I na kraju kad završiš, ako nisi komentirao program

Code: Select all

    i = i << 1                         ' PREBACI NA SLIJEDECI LED

već sutra se nećeš sjećat ni polovine programa.

[ivan malesevic]

da upravu si,al meni ce se paliti po 12 pinova nekada a nema veze sa siftovanjem ma izracunacu nekako samo me ovo muci a=potrc jer je a nepoznata koja se deli nece biti port a uf valjda objasni

[ivan malesevic]

Jos jedno pitanjce i hvatam olovku u ruke posto a nece uvek biti port a kako da resim ovo dole ispod da je a= portc,a je nepoznata i nikada nece biti port c
A = A / 2 ' AKO JE STISNUT TASTER a = a/2
portc = a
posto mi se i u glavnom programu pominje
port c=a
to mene muci da na dve mesta nemoram racunati

[Kukinjos]

Pa PORTC je recimo tako "monitor" na kome gledaš rezultat, normalno je da ćeš rezultat iz varijable A poslat na "ekran" naredbom PORTC = A. Na koji drugi način bi ti to napravio? Normalno je da nećeš čitat PORTC, jer on je izlazni port (iako bi se o tome dalo pričat, jer nekad trebaš pročitat trenutno stanje na izlaznim pinovima). Da si iznio ideju, što bi taj sklop trebao radit i čemu bi uopće služio, bilo bi puno lakše, jer ovako ne možemo (ne mogu ) povezat ništa. Vjerojatno je naka super-duper kladioničarska igračka A onda nakon svakog koraka, iza kantuna čeka novi problem. Idem sad doma, dosta mi je današnjeg dana na poslu. Razmisli, stavi na papir i ne bucaj, što bi rekli mi u Dalmaciji, brzopletost baš i nije dobra programerska osobina. Be

nema veze sa siftovanjem

Code: Select all

i = i << 1                         ' PREBACI NA SLIJEDECI LED

Ako si na ovo mislio, nisam to stavio kao dio programa koji trebaš negdje stavit, već kao prijedlog da komentiraš programske linije koje pišeš, dakle odnosi se na dio 'PREBACI NA...

Jos jedno pitanjce i hvatam olovku u ruke posto a nece uvek biti port a kako da resim ovo dole ispod da je a= portc,a je nepoznata i nikada nece biti port c
A = A / 2 ' AKO JE STISNUT TASTER a = a/2
portc = a

Evo sad vidim da sam sporiji od tebe. Gdje si do sad u programu našao da je A = PORTC?

[ivan malesevic]

na dva mesta se pominje port c = a i to me buni napisao sam ovdeeeeee hehe da vidis uf sta bi ja bez tebe

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                          *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' KRISTAL 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = %00000000                      ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE

symbol TASTER = PORTE.0


input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


input taster


                                       
j var byte                             ' POMOANA VARIJABLA ZA BROJAC VREMENA
a var byte

a = 1
  
'****************************************************************
 
MAIN:                                  ' GLAVNI PROGRAM
    do

        a = a * 2
        portc = a                         ;OVDEEEEEEEEEE
        
        call provjera:
        pause 100 

        IF A = 0 THEN A = 1            ' VRATI VRIJEDNOST ZA A

    loop

 
'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAE PAUZA OD 10mS

:P1        
    if tIPKA = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI
    pause 1

    next j                             ' SLIJEDECA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZADI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ


'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
:ZAUSTAVI
    
    do WHILE TIPKA = 0                 ' CEKAJ DOK NE OTPUSTIS TIPKA
    LOOP

    DO
     
        IF TASTER = 0 THEN
        
            A = A / 2                  ' AKO JE STISNUT TASTER a = a/2
            portc = a                      ;OVDEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
                    
            do while TASTER = 0
            LOOP
              
        ENDIF
                                   
    loop UNTIL TIPKA = 0



    DO WHILE TIPKA = 0                ' CEKAJ DOK NE OTPUSTIS TIPKU
    LOOP

[ivan malesevic]

Bilo bi jako jako dobro ako moze samo na kraju programa da pise portc=a e onda bi sve uradio znam kako

[ivan malesevic]

ovako bi bilo idealno samo kada nebi bilo kod tipke portc=a kad bi to bilo u `mnozi

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                          *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' KRISTAL 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = %00000000                      ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE

symbol TASTER = PORTE.0


input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


input taster


                                       
j var byte                             ' POMOANA VARIJABLA ZA BROJAC VREMENA
a var byte

a = 1
  
'****************************************************************
 
MAIN:                                  ' GLAVNI PROGRAM
    do

     call mnozi
        call provjera:
        pause 100 

        IF A = 0 THEN A = 1            ' VRATI VRIJEDNOST ZA A

    loop

 :mnozi
    a = a * 2
        portc = a  
       IF A = 0 THEN A = 1   
    return
 
'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAE PAUZA OD 10mS

:P1        
    if tIPKA = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI
    pause 1

    next j                             ' SLIJEDECA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZADI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ




'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
:ZAUSTAVI
    
    do WHILE TIPKA = 0                 ' CEKAJ DOK NE OTPUSTIS TIPKA
    LOOP

    DO
     
        IF TASTER = 0 THEN
        
            A = A / 2                  ' AKO JE STISNUT TASTER a = a/2
            portc = a
                    
            do while TASTER = 0
            LOOP
              
        ENDIF
                                   
    loop UNTIL TIPKA = 0



    DO WHILE TIPKA = 0                ' CEKAJ DOK NE OTPUSTIS TIPKU
    LOOP

return                                    


    
       

[Kukinjos]

Evo tek sam sad uspio dignut glavu od posla. Ivane, pa nije bilo teško ubacit poziv na rutinu za množenje u TASTER, tj. ZAUSTAVI:

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                          *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' KRISTAL 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = %00000000                      ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE

symbol TASTER = PORTE.0


input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


input taster


                                       
j var byte                             ' POMOANA VARIJABLA ZA BROJAC VREMENA
a var byte

a = 1
  
'****************************************************************
 
MAIN:                                  ' GLAVNI PROGRAM
    do

     call mnozi
        call provjera:
        pause 100 

        IF A = 0 THEN A = 1            ' VRATI VRIJEDNOST ZA A

    loop

 :MNOZI
    a = a * 2
    portc = a  
    IF A = 0 THEN A = 1   
    return
 
'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAC PAUZA OD 10mS

:P1        
    if TIPKA = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI
    pause 1

    next j                             ' SLIJEDECA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZADI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ




'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
:ZAUSTAVI
    
    do WHILE TIPKA = 0                 ' CEKAJ DOK NE OTPUSTIS TIPKA
    LOOP

    DO
     
        IF TASTER = 0 THEN
            
            call MNOZI
                    
            do while TASTER = 0
            LOOP
              
        ENDIF
                                   
    loop UNTIL TIPKA = 0



    DO WHILE TIPKA = 0                ' CEKAJ DOK NE OTPUSTIS TIPKU
    LOOP

return                                    


    
       

Samo zar tamo nije trebalo bit dijeljenje?

Code: Select all

            A = A / 2                  ' AKO JE STISNUT TASTER a = a/2

Jer sad ti program radi isto, automatski i s tipkama, dakle u oba slučaja množi. Možda bi trebao stavit poziv na DIJELI?

[ivan malesevic]

u i ja rintam ko lud e ovako sam ja mislio da uvecavam broj a ostale brojeva bi a vukao

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' kristal 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = %00000000                            ' PORT  JE IZLAZNI, LED
TRISD = %00000000
SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE

symbol taster=porte.0


input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


input taster

 
                                       
i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
j var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ VREMENA
a var byte
b var byte                                                  ' POÈETNI LED
k var bit 
'****************************************************************
 k=portc.7


     portd=%00000000
 
    b=1
                                  ' GLAVNI PROGRAM
    a = 1
    do

    
     call deli
     
      
    
    
    
    pause 100 
    
    loop

 
:deli

          for i = 1 to 8
          portc=a
          a=a<<1
            pause 100
          call provjera   
          next i
          a=1 
            portc.7=0
            for i = 1 to 8
          portd=a
          a=a<<1
          
             pause 100
          next i
          portd.7=0
           a=1
'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAÈ PAUZA OD 10mS

:P1        
    if tipka = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI
     pause 1
                               ' PAUZA 10mS
    next j                             ' SLIJEDEÆA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZAÐI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ


'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
 :ZAUSTAVI
   
    do WHILE TIPKA = 0                 ' CEKAJ DOK NE OTPUSTIS TIPKA
    LOOP

    DO
     
        IF TASTER = 0 THEN
       
            A = A / 2                  ' AKO JE STISNUT TASTER a = a/2
            portc = a
                   
            do while TASTER = 0
            LOOP
             
        ENDIF
                                   
    loop UNTIL TIPKA = 0



    DO WHILE TIPKA = 0                ' CEKAJ DOK NE OTPUSTIS TIPKU
    LOOP

return                                   

[ivan malesevic]

joj meni je ono prvo bilo super sada ces videti iz mog programa o cemu sam govorio ako je a na portu d kako da proveravam?

[ivan malesevic]

druze pocinjem da kontam a da ja prvo iskucam matematiki pa je lako dodati podprograme i pozvati ih

[ivan malesevic]

mogu te samo nesto zamoliti a ostalo cu sam uraditi dali ti je problem da mi taster koji je bio za vracanje napravis da dok se nestisne nekrene program a tipka za pauzu ostane pauza a vracanje kad iskucam program cu ja mozgati kako da resim

[Kukinjos]

Code: Select all

'****************************************************************
'*  Name    : IVAN.BAS                                          *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 11.11.2012                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************

define OSC 4                           ' KRISTAL 4MHz
ADCON1 = %00000010                     ' PORTE JE DIGITALNI I/O
TRISC = %00000000                      ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE

symbol TASTER = PORTE.0


input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


input taster


                                       
j var byte                             ' POMOANA VARIJABLA ZA BROJAC VREMENA
a var byte

a = 1
  
'****************************************************************
POCETAK:
    DO WHILE TASTER                    ' PRICEKAJ DOK NE STISNES
    LOOP
    
    DO WHILE TASTER = 0                ' I OTPUSTIS TASTER
    LOOP
'****************************************************************
    
 
MAIN:                                  ' GLAVNI PROGRAM
    do

     call mnozi
        call provjera:
        pause 100 

        IF A = 0 THEN A = 1            ' VRATI VRIJEDNOST ZA A

    loop

 :MNOZI
    a = a * 2
    portc = a  
    IF A = 0 THEN A = 1   
    return
 
'****************************************************************
'*  PODPROGRAM ZA PROVJERU PRITISKA TIPKE                       *
'****************************************************************
:provjera
    for j = 0 to 100                   ' BROJAC PAUZA OD 10mS

:P1        
    if TIPKA = 0 then ZAUSTAVI         ' AKO JE TIPKA PRITISNUTA IDI NA SUB. ZAUSTAVI
    pause 1

    next j                             ' SLIJEDECA PAUZA
    if j < 100 then P1                 ' JE LI ODBROJENA 1 SEKUNDA?
                                       ' AKO JE - IZADI, AKO NIJE - VRATI SE U PETLJU
return                                 ' IZLAZ




'****************************************************************
'*  PODPROGRAM ZA PROVJERU DVOSTRUKOG PRITISKA TIPKE            *
'****************************************************************
:ZAUSTAVI
    
    do WHILE TIPKA = 0                 ' CEKAJ DOK NE OTPUSTIS TIPKA
    LOOP

    DO
     
        IF TASTER = 0 THEN
            
            call MNOZI
                    
            do while TASTER = 0
            LOOP
              
        ENDIF
                                   
    loop UNTIL TIPKA = 0



    DO WHILE TIPKA = 0                ' CEKAJ DOK NE OTPUSTIS TIPKU
    LOOP

return                                    


    
       

[ivan malesevic]

hvala sad cem ja da se patim al stvarno si mi puno pomogao

[ivan malesevic]

pitanjce zasto ovo nece da prodje compiler
if a=1 then
b=2
c=3
end if

samo prodje ovako if kad je u jednom redu
if a=1 then b=2

[pedja089]

Zato sto se pise ENDIF...
Gledao sam sta si pitao, i ne vidim neku svrhu tih pitanja...
Mislim da bi puno vise naucio, da seo i video sta hoces da pravis, pa onda sam resio na koji nacin da dodjes do toga. Pa kad znas nacin tj algoritam, onda bi imalo smisla pitati za komandu, naredbu, smernicu neku kako da napises kod...

[Branez]

Probaj tako:

Code: Select all

if a=1 then
b=2
c=3
endif

Površnost se u kompilatoru osvečuje.

[pedja089]

Jos nesto, dupli klik dole u status prozoru na gresku i oznacice ti je u editoru.

[ivan malesevic]

tooooooo hvala punoooo bas je surov compiler hehe

[Branez]

To si dobro zapamti!!!!!

Jos nesto, dupli klik dole u status prozoru na gresku i oznacice ti je u editoru.