skraceni kurs ucenja picbasica

[ivan malesevic]

kada zamenim ime u proteusu napise nepostjo IVAN.ASM

[Kukinjos]

Otvori file u radnom direktoriju Ivan.LST, na kraju file-a imaš statistiku.

EDIT:
Čekaj malo, prebrzo postavljaš pitanja

[ivan malesevic]

uspeo a kako sa zamenim ime kad nesnimim kao ivan.bas kad dam drugo ime bas failu i kad ga compilujem i ubacip u pic napise da fali ivan.asm

[Kukinjos]

Ivane, ovako:
1. MicroCode-u otvoriš Ivan.PBP
2. Ideš na: File, Save As..
3. U File Name, upišeš npr. TEST
4. Save
5. Sada ti se promijeni naziv na tab-u u Micro.. iz IVAN u TEST
6. Compile (F9)
7. I s tim si završio posao u MicroCode Studiu
8. Ajde ti sad sam s Proteusom

[ivan malesevic]

Da upravo to i radim ali uvek trazi ivan.asm kad uducem test u protesu
ali ima jos jedan problem sve ostalo cu moci sam probao sam.
Naime sad cu okaciti kod sa pali par ledica pa ode na proveru pa opet par pa ode na proveru
meni on ode par puta na proveru i stane,a meni treba non stop da vrti
znaci u ovom primeru upali 5 puta ceo port
i sest puta tri ledice i stane a tri ledice ostanu da gore
meni treba non stop da vrti kako to sta da izmenim evo koda:

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 = $00                            ' PORT  JE IZLAZNI, LED

SYMBOL TIPKA = PORTE.1                 ' ULAZ TIPKE ZA ZAUSTAVLJANJE
input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


                                       
i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
j var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ VREMENA

i = 255                                  ' POÈETNI LED

'****************************************************************
main:                                  ' GLAVNI PROGRAM

                                     ' OSNOVNA PETLJA
    
    PORTC = i                          ' UPALI TEKUÆI LED
    
    call provjera:                     ' POZOVI RUTINU ZA PROVJERU TIPKE
    
    PORTC = 7
    
    


'****************************************************************
'*  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 10                           ' 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                 ' ÈEKAJ DOK JE PRITISNUTA TIPKA
    loop
    
    do while tipka = 1                 ' ÈEKAJ DOK JE OTPUŠTENA TIPKA
    loop
    
    do while tipka = 0                 ' ÈEKAJ DOK JE OPET PRITISNUTA TIPKA
    loop
    
return                                 ' IZAÐI NAKON OTPUŠTANJA TIPKE

[ivan malesevic]

sada sam brpjao 6 puta uvek prodje i ostavi 3 ledice upaljene i stane zanci ovo radi

255 pa 7,255 pa7,255 pa 7,255 pa 7,255 pa 7,255 pa 7,pa 7 i tako stoji nece ni kada diram taster nista jedino kada udarim stop pa play onda opet prodje 6 puta i stane

[Kukinjos]

Izbacio si DO LOOP iz glavnog programa i više namaš glavnu programsku petlju , pa ti program odradi ono iz MAIN:-a i produži dalje na podprograme za ispitivanje tipke i tu zablesi stack. Ne ide to tako. Ajde još jedan put napiši malo razumljivije, što bi htio napraviti, treba li program palit jednu po jednu LED-icu ili prvu, pa prvu i drugu, pa prvu, drugu i treću itd., ili treba nekoliko puta (koliko?) zavrtit jednu po jednu, a onda otići u ispitivanje tipke. Puno pitanja bez pravog odgovora, ajde složi to u glavi kako spada i napiši.

[ivan malesevic]

program ge se sastojati iz brojaca i svaki put kad uvelica broj za nesto treba da ode na proveru a ako nastavim program sa if petljom cu uvecavati broj hoce blokirati dok se uvecava?

[ivan malesevic]

ili ako mi do loop uvelicava stalno hoce odraditi svako uvecavanje dok ne napisem napfimer
a=0
do
a=a=1
if a=255 the end
provera:
loop
ovo sam lupijo a jer bi stalno radio proveru?

[ivan malesevic]

na ovaj nacin cu uvecavati brojeve:

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
input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


                                       
i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
j var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ VREMENA
a var bit
i = 0                                  ' POÈETNI LED

'****************************************************************
main:                                  ' GLAVNI PROGRAM

do

a= 1*2^i
i = i+1
if i = 10 then end
portc= i    
pause 1000
loop

'****************************************************************
'*  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 10                           ' 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                 ' ÈEKAJ DOK JE PRITISNUTA TIPKA
    loop
    
    do while tipka = 1                 ' ÈEKAJ DOK JE OTPUŠTENA TIPKA
    loop
    
    do while tipka = 0                 ' ÈEKAJ DOK JE OPET PRITISNUTA TIPKA
    loop
    
return                                 ' IZAÐI NAKON OTPUŠTANJA TIPKE

[Kukinjos]

Ne mogu baš shvatit što bi program trebao radit, pa idemo s par pitanja:
1. Treba li se program stalno izvršavat, dok je god spojen kontroler na struju?
2. Ako treba, što napraviti kad dođe do krajnje vrijednosti, mislim da je to i = 10? Treba li tada opet krenut od početka (i = 0)?
3. Ako ne treba što napravit na kraju?, zaustavit izvršavanje i za ponovno pokretanje programa, resetirat kontroler ili ga skinut i ponovo priključit na napon?
4. Što bi LED-ice trebale predstavljat? Hoće li one kao neka signalizacija uopće postojat u završenom projektu ili ne?
5. Sad imaš u podprogramu PROVJERA: samo zaustavljanje programa na određenoj točki i nastavak izvršavanja nakon drugog pritiska na tipku. Treba li se još nešto dogodit u tom trenutku, npr. ulazak u neki izbornik i odrađivanje nečeg vezanog za trenutnu vrijednost neke varijable?

Peđaaaaaaaa, pomagaj

[ivan malesevic]

uuuuuuuu
sad sam se ja jako zapetljaoooooooo sa brojkama
al ispetljacu se
da kad god uveca treba provera
a kad dodje do kraja treba da stane

[ivan malesevic]

ja sam lud ja cu pojesti ovaj komjuter
zasto ljudi ovo neradi

a=0
do
porta=a*2^a
a=a+1
if a=10 then end
loop
nece da vrti pa nece

[Kukinjos]

A sad vidim i ovo:

Code: Select all

i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
.
a var bit
.
.
.
a= 1*2^i

a je jedan bit, a s desne strane jednadžbe su brojevi, 1*2 množiš naredbom za brojeve (*) a onda to XOR-aš s naredbom za bitove (^). Kakav rezultat iz toga očekuješ?

[ivan malesevic]

joj druze znam hvala ti puno vidi to i radim

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
input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


                                       
i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
j var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ VREMENA
a var bit
                                  ' POÈETNI LED
  
'****************************************************************
                                  ' GLAVNI PROGRAM
i=0
do
i=i+1
a= 1*2^i
a= portc
if i=9 then end
pause 100
loop

[Kukinjos]

a onda to XOR-aš s naredbom za bitove (^).

Ovo nisam točno napisao! To je naredba za xor byte-a, znači u redu je.
Da bi radilo označi:

Code: Select all

a var byte

i ako to misliš gledat na PORTA, moraš mu dat da je izlazni

Code: Select all

TRISA = $00

[ivan malesevic]

na portu c je al problem je vrti on ali uvek kad promeni upali i port rc0 znaci upali
c1 pa ci i c2 pa c1 i c3 pa c1 i c4 a ja hocu da postignem da pali c0 pa c1 pa c2....c7
gde gresim?prepravio sam opet nece

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
input TIPKA                            ' PORT ZA TIPKU JE ULAZNI


                                       
i var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ LED-ica 
j var byte                             ' POMOÆNA VARIJABLA ZA BROJAÈ VREMENA
a var byte
                                                  ' POÈETNI LED
  
'****************************************************************
                                  ' GLAVNI PROGRAM
i=0
do

a= 1*2^i

portc = a 
i=i+1
if a = 9 then end
pause 100
loop

[Kukinjos]

Jesi li mislio ovo:

Code: Select all

a = 1
do

portc = a
a = a * 2
pause 100
if a = 0 then a = 1

loop    

[ivan malesevic]

TOOOOOOOOOOOO kako sam ja glup covek jojjjjjj pa on je citao prvo 1 pa dizao kvadrat
letujem u slitu svake godine naleto castim pivaaaaa
i nakon svekog dizanja na kvadrat treba da odradi onu proveru tastera,puno ti hvala

[Kukinjos]

Ivane, nije baš da razumijem sve što želiš , ali ako si ti sretan...