skraceni kurs ucenja picbasica

[mkarabasic]

nema frke probat ću ja sam . Nadam se da će pmoći. Ako zapnem javim se. Hvala

[mkarabasic]

Code: Select all

  
     Device = 16F877A
       i VAR Byte    'postavka prvog brojaca (varijable)
    sstu var Bit  'staro stanje pojacaj
    nstu var Bit   'novo stanje pojacaj
    sstd var Bit   'staro stanje smanji
    nstd var Bit   'novo stanje smanji
    i=5
    TRISA=24
    TRISD=0
    PORTD=137
    Symbol LED=PORTD.0         'postavka simbola  zamjene pinova
    Symbol taster1=PORTA.4     
    Symbol taster2=PORTA.3     
    Output LED
    Input taster1                'postavke ulaza-pojacavanje int.svjetla                            
    Input taster2                 'smanjivanje intenziteta svjetla
    sstu = taster1
    sstd = taster2
    pocetak:         'radni potprogram
    nstu = taster1
    nstd = taster2
    High LED
    pause i
    Low LED
    pause 9-i
    If nstu < sstu Then
    i=i+1      'pojacavanje svjetla
    GoSub broj
    EndIf
    If nstd < sstd Then
    i=i-1      'smanjivanje svjetla
    GoSub broj
    EndIf                   
    If i>9 Then i=9            'ogranicenje pauze
    If i<0 Then i=0
    sstu = nstu
    sstd = nstd
    GoTo pocetak
    broj:
    Select Case i
    Case 0
    PORTD=17
    Case 1
    PORTD=125
    Case 2
    PORTD=35
    Case 3
    PORTD=41
    Case 4
    PORTD=77
    Case 5
    PORTD=137
    Case 6
    PORTD=129
    Case 7
    PORTD=61
    Case 8
    PORTD=1
    Case 9
    PORTD=9
    End Select
    Return
    End                 ' kraj 

uzeo sam tvoj kod od dimera i minimalno ga izmjenio samo da vidim prvo hoće li raditi i opet ne radi. Tj nekad napravi promjenu al 99% slučajeva ne napravi.
p.s. Kad tvoj kod probam kompajlirati bez ikakve izmjene baca mi grešku illegal opcode (16f85A) i illegal opcode (define)

[krkojlo]

I ja sam totalni pocetnik i ista stvar me patila, analizirajuci primjer u C-u sam skontao da treba nesto sa pull-up otpornicima na PORTB da se uradi, komanda za to u PicBasicu je OPTION_REG.7, ako moze kakvo objasnjenje od ovih naprednijih bilo bi super, unaprijed hvala

Nadam se da ce ti to rijesiti problem, meni je definitivno rijesilo, a imam slicnu razvojnu plocu, samo malo vise nadjidjanu.

Ovako bi to trebalo izgledati na tvom primjeru s kojim si imao problema

Code: Select all

.....
        OUTPUT LED2                     'postavi LED2 kao izlazni
        INPUT TASTER                    'postavi TASTER kao ulaz
        OPTION_REG.7 = 0
.......

[pedja089]

To nije komanda u pic basicu, ima opisano u kursu, citaj odreda, a citaj i datasheetve...

[niho]

Poz. U mom dimmeru je koristen 16f84 ,

bez ikakve izmjene baca mi grešku illegal opcode (16f85A) i illegal opcode (define)

normalno da tako bude, nije isti MCU, uostalom tu liniju mozes i izbaciti radice bez problema i bez nje. Ovaj program je predvidjen da "radi PWM" pa je njime regulisan odnos signala i pauze. Evo sad gledam tvoj kod: ako je pritisnut taster (logicka 0 ) treba da upali prvu - druga led ugasena, drzi jednu sekundu a potom zamijeni stanje pa opet drzi jednu sekundu potom provjeri da li je taster pritisnut ako jeste ponovi ako nije ugasi obje ledice. Ako sam dobro shvatio ovo bas nema veze sa realnim zivotom vise je stvar shvatanja logike, posto bi se sve moglo rijesiti puno jednostavnije. Nisam vidio kako izgleda na toj razvojnoj ploci da li je ubacen pullup otpor na tastere, a trebao bi biti ako nije dodaj. Ako se radi o chipu 16F877A pogledaj u datasheet-u da li ima softversko ukljucivanje pull up otpornika u samom MCU pa ce tamo pisati ako ima kako da ih ukljucis, onaj prastari 16F84 ih nema. Sretno!

[electron]

Sta da uradim, kako, da se odredjena labela izvrsava recimo 15 minuta i da posle tog vremena predje na drugu, recimo:

Code: Select all

 Ugrejano:
 

 
 LCDOUT $FE,1,   "TEMP. DOSTIGNUTA"
 LCDOUT $FE,$C0, "Rad"
 
 led=0:led1=1:g=0:P=0:V=0
 

 if b=0 then blokada
 pause 10
 if t1=0 and t2=0 then gosub Ugrejano
 pause 10
 if t1=1 and  t2=1 then gosub Paljenje
 pause 10
 if t1=0 and  t2=1 then gosub Ugrejano
 pause 10
 if t1=1 and  t2=0 then gosub Blokada
 pause 10 
 goto ugrejano

Ovo treba da mi odradjuje neko vreme i posle tog vremena da predje u novu labelu Ugrejano1

[pedja089]

Setuj neki tajmer na 15min...

[electron]

Imas neki primer, nesto slicno?

[pedja089]

Ovde na kursu nema. Baci oko na datasheet...
Podesis tajmer da koristi interni ocilator, ubacis pocetne vrednosti u tajmer, i posle samo ga pokrenes. Kad dodje do overflow-a tajmer ce setovati odgovarajuci bit koji ti proveravas...
I samo kada je on setovan, zaustavi tajmer, obrisi ga, ubaci ponovo 15min u tajmer, pokreni tajmer(ili nemoj) i jedan goto na drugu labelu...
ovo ce ti pomoci da odredis vrednosti za tajmer.
http://www.picbasic.co.uk/forum/attachm ... 1225550328
Edit:
Sad se setih jos boljeg(jednostavnijeg) nacina...
http://darreltaylor.com/DT_INTS-14/elapsed.html
Ovo se pozabavi svim registrima umesto tebe...
http://www.picbasic.co.uk/forum/showthr ... post113390

[electron]

Radio sam neki brojac

Code: Select all

PODESAVANJE:
 read 1,tmp1
 read 2,tmp2
 I.lowbyte =tmp1
 I.highbyte=tmp2 
 
 if up=0 then I=I+1
 if down=0 then I=I-1
 if I>150 then I=0
 if set=0 then Rad
 
 pause 20
 '----------------------------------------------------    
   tmp1=I.lowbyte 
   tmp2=I.highbyte
   write 1,tmp1
   write 2,tmp2
'----------------------------------------------------
 Lcdout $fe, 1, "Vreme:   "    ,DEC3 I    
 Pause 100
 goto podesavanje

tester set koji treba da prebaci u labelu Rad sporo reaguje, gde gresim u kodu?

[pedja089]

To nije ceo kod, tako da slabo mogu sta reci. Taj deo koda da se izvrsava oko 150mS...

[PRO_MILE]

http://rapidshare(dot)com/files/142404491/sve_sto_treba_zapisanje_koda_u_picbasicu.rar.html
e ovako. u raru postoje 2 instalacije setup(instalira microcode studio) i pbp 2.44(to je kompajler). ne bitno kojim redom cete instalirati. samo nakon sto oboje instalirate preostaje vam povezati mcs sa kompajlerom.
uputstvo je na slici. znaci samo pokrenite mcs(micro code studio) i pratite uputstva sa slike

http://www.elektronika.ba/forum/uploadz ... titled.GIF

evo jednostavnog napajanja
http://www.elektronika.ba/forum/uploadz ... 088_01.gif
a evo jos jednostavnijeg
http://www.elektronika.ba/forum/uploadz ... titled.GIF

Ne radi link za download, moze novi ili mi kazi odakle moze da se skine?


sve pohvale za temu

Pozdrav!

[pedja089]

Potrazi na sonsivri forumu.

[LegoMan4]

super kurs tek sam ga otkrio i imam pitanje na slici na strani 2 tamo di je oscilator jeli ono samo oscilator ili oscilator i 2 kondenzatora ?

[Branez]

Ako je to ova slikica



onda je tu i kvarc i dva keramička kondenzatora od 22 pF, a možeš i staviti keramički rezonator bez kondenzatora.

[LegoMan4]

jedno pitanje za micro code studio link je "skršen" uspio sam downloadati s kene druge stranice ali postoji samo 1 pic a to je 16f628 pa mozete li ponovno uploadat onaj microcode studio link pwease?

[Branez]

Probaj to pročitati, pa onda dalje....

[LegoMan4]

ma znam, ali ja sam skinuo read only program pa nemoze naci

[Branez]

jedno pitanje za micro code studio link je "skršen" uspio sam downloadati s kene druge stranice ali postoji samo 1 pic a to je 16f628 pa mozete li ponovno uploadat onaj microcode studio link pwease?

ma znam, ali ja sam skinuo read only program pa nemoze naci

Ti (bar za mene) pišeš sve u nekim zagonetkama. Ništa to ja to ne kopčam šta si htio reći.

[LegoMan4]

netreba vise nasao sam