skraceni kurs ucenja picbasica

Rasprava o PIC mikrokontrolerima, PIC projekti i drugo vezano za PIC-eve...

Moderators: stojke369, pedja089, [eDo], trax

Post Reply
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Kolko sam ja skontao dataseet .... mozes mi prepraviti podesavanja
treba samo da upavlja on of na izlazima,a pise da radi na 40mh nije mi brzina bitna radi memorije sam ga odabrao,treba brdo toga da mu ukucam
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Nece ni ovako:

Code: Select all

 '18F4680
 
  #CONFIG
    __CONFIG    _CONFIG1H, _OSC_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
    __CONFIG    _CONFIG2H, _WDT_ON_2H & _WDTPS_512_2H
    __CONFIG    _CONFIG3H, _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _MCLRE_ON_3H
   __CONFIG    _CONFIG4L,  _STVREN_ON_4L & _LVP_OFF_4L & _BBSIZ_1024_4L & _XINST_OFF_4L

  #ENDCONFIG
   '***********PODESAVANJE*********
  define osc 8
'CMCON=%00000111 'Disables comparators, Port A
'ADCON0=%00000000 'Turns off ADC, Port A
'ADCON1=%00001111
'CMCON =%00000111 'Turns OFF comparators
'CVRCON=%00000000 'DISABLES comparator voltage module
'ECCP1CON=%00000000 'DISABLES PWMs and such
'*****************************************************  
Include "modedefs.bas"
trisa=%00000000                               
trisb=%11111111
trisc=0
trisd=0
porta=0
portb=1
portc=0
portd=0

'*********DEFINISANJE DISPLEJA*************
    DEFINE LCD_BITS 4
    DEFINE LCD_DREG PORTA
    DEFINE LCD_DBIT 0
    DEFINE LCD_RSREG PORTA
    DEFINE LCD_RSBIT 5
    DEFINE LCD_EREG PORTA
    DEFINE LCD_EBIT 4
    DEFINE LCD_LINES 2
    pause 100          
    lcdout $fe,1, "PRITISNI START"
    pause 1000          






User avatar
pedja089
Administrator sajta
Administrator sajta
Posts: 7871
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: skraceni kurs ucenja picbasica

Post by pedja089 »

OSC mora biti napisano velikim slovima, za pocetak.
Drugo nisi postavio semu...
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Ovo je semsa displej i par izlazih shift registara,registre sam definisao dalje u kodu,Ovi je kod

Code: Select all

 '18F4680
 
  #CONFIG
    __CONFIG    _CONFIG1H, _OSC_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
    __CONFIG    _CONFIG2H, _WDT_ON_2H & _WDTPS_512_2H
    __CONFIG    _CONFIG3H, _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _MCLRE_ON_3H
   __CONFIG    _CONFIG4L,  _STVREN_ON_4L & _LVP_OFF_4L & _BBSIZ_1024_4L & _XINST_OFF_4L

  #ENDCONFIG
   '***********PODESAVANJE*********
  define OSC 8
'CMCON=%00000111 'Disables comparators, Port A
'ADCON0=%00000000 'Turns off ADC, Port A
'ADCON1=%00001111
'CMCON =%00000111 'Turns OFF comparators
'CVRCON=%00000000 'DISABLES comparator voltage module
'ECCP1CON=%00000000 'DISABLES PWMs and such
'*****************************************************  
Include "modedefs.bas"
trisa=%00000000                               
trisb=%11111111
trisc=0
trisd=0
porta=0
portb=1
portc=0
portd=0

'*********DEFINISANJE DISPLEJA*************
    DEFINE LCD_BITS 4
    DEFINE LCD_DREG PORTA
    DEFINE LCD_DBIT 0
    DEFINE LCD_RSREG PORTA
    DEFINE LCD_RSBIT 5
    DEFINE LCD_EREG PORTA
    DEFINE LCD_EBIT 4
    DEFINE LCD_LINES 2
    pause 100          
    lcdout $fe,1, "PRITISNI START"
    pause 1000          







 
DataPin var     PORTD.0         ' Shift data pin 0
ClkPin  var     PORTD.1         ' Shift clock pin 1
Strobe  var     PORTD.2

prvi    var     word
drugi var word 
treci var word
cetvrti var word
peti var word
sesti var word
sedmi var word





'*********DEFINISANJE PROMENLJIVIH KOJI IDU U SHIFT REGISRE********************
prvi = 1
drugi = 0 
treci = 0
cetvrti = 0
peti= 0
sesti= 0
sedmi= 0
'************************************************
'************DEFINISANJE BROJEVA*************************************

X VAR BYTE 'BROJ KOJI SE UVECAVA I SPRAM KOG SE RACUNA OD 0-100 
X=1
 A1 VAR WORD 'PROMENLJIVA ZA PRVI IZLAZ

'******************************************************************
DO
'*********RACUNANJE ZA PRVIH 16 BITA*************************************

IF X<17 THEN
A1=1*2^X
ENDIF



'******************IZLAZ NA SHIFT REGISTRE****************************************
Shiftout DataPin, ClkPin, MSBFIRST,[drugi\16,prvi\16]
Pulsout Strobe,10
'***********************************************************************************        


X=2    
PAUSE 500
LOOP




End
Upale se ledice na shift registru al displej ne i nece da sabira.
Attachments
sema.jpg
sema.jpg (33.45 KiB) Viewed 9919 times
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Zaboravi napisati dodacu jos koji taster na port b
User avatar
pedja089
Administrator sajta
Administrator sajta
Posts: 7871
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: skraceni kurs ucenja picbasica

Post by pedja089 »

Sa seme se ne vidi nista, tako da...
Prvo stavi led diode na svaki pin kontrolera koji ide prema displeju pa probaj njih paliti gasiti...
Zasto je ovo zakomentarisano nikako mi nije jasno
'CMCON=%00000111 'Disables comparators, Port A
'ADCON0=%00000000 'Turns off ADC, Port A
'ADCON1=%00001111
'CMCON =%00000111 'Turns OFF comparators
'CVRCON=%00000000 'DISABLES comparator voltage module
'ECCP1CON=%00000000 'DISABLES PWMs and such
Probaj naci AllDigital, na picbasic forumu, ukoliko ne mozes da palis gasis diode na PORTA...
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Hvala Pedja u protesu radi,e sada dal ce raditi na masini videcu.
robimarko
Napredujem
Napredujem
Posts: 163
Joined: 23-03-2014, 17:49

Re: skraceni kurs ucenja picbasica

Post by robimarko »

Ima li tko crackiranu verziju picbasica 3 za skinuti.
Ja sam skinio trial,ali je samo 15 dana
alarmi ns
Penjem se :)
Penjem se :)
Posts: 54
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Post by alarmi ns »

Pozdrav svima davi neko moze da mi pojasni kako se definisu sledeca dva registra sta znace brojevi za
option_reg = $7 'znam da se radi o poolap izlazu
intcon = 90 'znam da se radi o paljenju interapta al neznam ga definisati
treba da koristim u picu 12f683 interupt zato mi trebaju ova dva regista dali mi neko moze objasniti cemu sluze brojevi iza.i dali option_reg treba da se definise radi interupta
User avatar
electron
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 225
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Post by electron »

U pitanju je PIC 12F629, treba da mi se pali i gasi led dioda na jednom portu npr. na GP0, nista lakse :?: ali ne radi :cry: , sta, tj. kako da izkonfigurisem PBP?

Code: Select all

   Define OSCCAL_1K 1  ' Calibrate internal oscillator

   LED Con 0     ' Alias GPIO.0 to LED

 
mainloop:
   Low LED       ' Turn on LED connected to GPIO.0
   Pause 500     ' Delay for .5 seconds
   High LED      ' Turn off LED connected to GPIO.0
   Pause 500     ' Delay for .5 seconds

   Goto mainloop ' Go back to mainloop and blink LED forever

   End
Branez
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 457
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)
Contact:

Re: skraceni kurs ucenja picbasica

Post by Branez »

Code: Select all

   Define OSCCAL_1K 1  ' Calibrate internal oscillator

   LED Con 0     ' Alias GPIO.0 to LED

'**************
CMCON = 7        'izključi komparatore
'************** 
mainloop:
   Low LED       ' Turn on LED connected to GPIO.0
   Pause 500     ' Delay for .5 seconds
   High LED      ' Turn off LED connected to GPIO.0
   Pause 500     ' Delay for .5 seconds

   Goto mainloop ' Go back to mainloop and blink LED forever

   End
Real Radios Glow in the Dark!
User avatar
electron
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 225
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Post by electron »

Nece, izgleda da jos nesto fali?
Branez
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 457
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)
Contact:

Re: skraceni kurs ucenja picbasica

Post by Branez »

Fali ti cela konfiguracija.

Traži ovdje!
Real Radios Glow in the Dark!
User avatar
electron
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 225
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Post by electron »

nesto me zeza, nisam sa 12F629 radio
Branez
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 457
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)
Contact:

Re: skraceni kurs ucenja picbasica

Post by Branez »

Čitaj šta ti ta mlada dama govori!
Real Radios Glow in the Dark!
Maki
Odlično uznapredovao
Odlično uznapredovao
Posts: 766
Joined: 02-07-2012, 12:54

Re: skraceni kurs ucenja picbasica

Post by Maki »

TRISIO = 0
Probaj dodati ovo gore, koliko vidim nigdije nije definiran pin ili port kao izalzni.
User avatar
electron
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 225
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Post by electron »

Slucajno dodirnuo plocicu prstom i proradilo, hmmm, zalemio 4k7 izmedju pin 1 i pin 4 na PIC 12F629 i radi :idea:
Maki
Odlično uznapredovao
Odlično uznapredovao
Posts: 766
Joined: 02-07-2012, 12:54

Re: skraceni kurs ucenja picbasica

Post by Maki »

To je MCLR pin, služi za reset... On ako se koristi kao reset treba biti na Vdd spojen preko pullup-a . Obično se spoji i još jedbo tipkalo prema masi, u slučaju da se mikrić zblesira da ga resetiraš...
MIKI73
Napredujem
Napredujem
Posts: 107
Joined: 01-11-2014, 16:57

Re: skraceni kurs ucenja picbasica

Post by MIKI73 »

Pozdrav svima.Nov sam na forumu tj. tek sad sam se registrovao i izabrao sam da javim u ovoj temi jer volim programiranje u picbasic-u.Procitao sam skoro sve stranice i odusevljen sam kako ova tema lepo napreduje a posebno mi se dopada kako se na lep nacin pruzju pomoc i saveti.Nisam neki programer ali pomoci cu koliko znam i ujedno da nesto naucim.
MIKI73
Napredujem
Napredujem
Posts: 107
Joined: 01-11-2014, 16:57

Re: skraceni kurs ucenja picbasica

Post by MIKI73 »

Pozdrav ekipi.Probao sam nekoliko puta da napisem program za 16f628a tako da u svom internom eepromu upamti podatke tek kad se pritisne taster ali nije htelo da proradi pa bih da pitam za pomoc oko toga.Pronasao sam jedan slican primer pa sam ga samo prekopirao ovde,znaci interesuje me kako (neka bude u ovom primeru) kad brojac bodje do nekog broja,na pr bude to broj 20 mi pritiskom na taster zapamtimo taj broj i kad brojac nastavi brojanje pritiskom na drugi taster da moze da se ocita eeprom i da pojavi u drugom redu to sto je upisano,ovde br 20.Mozda ima neka greskica ali samo sam prekopirai i nabrzinu izbacio ono sto netreba.Evo primera pa sad gde i sta dodati za 16f628A

brojac var byte
provera var byte
taster var bit
TRISA = %11111101
brojac=0

DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 0
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 3
DEFINE LCD_LINES 2
pause 100



cekaj0:

lcdout $FE, $80, "BROJ ="

gosub proveri_ulaz
if taster = 0 then cekaj0:

cekaj1:

gosub proveri_ulaz
if taster = 1 then cekaj1
brojac=brojac + 1

lcdout $FE, 2
lcdout "BROJ ", #brojac
goto cekaj0

proveri_ulaz:
taster=0
for provera = 0 to 100
if PORTA.0 = 1 then return
pauseus 100
next provera
taster = 1
return
end
Post Reply