skraceni kurs ucenja picbasica

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

Moderators: stojke369, pedja089, [eDo], trax

Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 14-09-2014, 01:46

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
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: Re: skraceni kurs ucenja picbasica


Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 14-09-2014, 01:50

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         






alarmi ns
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Postby pedja089 » 14-09-2014, 11:26

OSC mora biti napisano velikim slovima, za pocetak.
Drugo nisi postavio semu...
User avatar
pedja089
 
Posts: 7559
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 14-09-2014, 16:15

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 6002 times
alarmi ns
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 14-09-2014, 16:34

Zaboravi napisati dodacu jos koji taster na port b
alarmi ns
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Postby pedja089 » 14-09-2014, 16:37

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...
User avatar
pedja089
 
Posts: 7559
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 14-09-2014, 22:17

Hvala Pedja u protesu radi,e sada dal ce raditi na masini videcu.
alarmi ns
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Postby robimarko » 14-10-2014, 20:22

Ima li tko crackiranu verziju picbasica 3 za skinuti.
Ja sam skinio trial,ali je samo 15 dana
robimarko
 
Posts: 163
Joined: 23-03-2014, 17:49

Re: skraceni kurs ucenja picbasica

Postby alarmi ns » 22-10-2014, 19:13

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
alarmi ns
 
Posts: 29
Joined: 29-06-2013, 20:13

Re: skraceni kurs ucenja picbasica

Postby electron » 28-10-2014, 15:43

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
User avatar
electron
 
Posts: 212
Joined: 28-02-2009, 19:20
Location: Serbia

Re: Re: skraceni kurs ucenja picbasica


Re: skraceni kurs ucenja picbasica

Postby Branez » 28-10-2014, 15:56

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!
Branez
 
Posts: 452
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)

Re: skraceni kurs ucenja picbasica

Postby electron » 28-10-2014, 16:42

Nece, izgleda da jos nesto fali?
User avatar
electron
 
Posts: 212
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Postby Branez » 28-10-2014, 16:52

Fali ti cela konfiguracija.

Traži ovdje!
Real Radios Glow in the Dark!
Branez
 
Posts: 452
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)

Re: skraceni kurs ucenja picbasica

Postby electron » 28-10-2014, 16:56

nesto me zeza, nisam sa 12F629 radio
User avatar
electron
 
Posts: 212
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Postby Branez » 28-10-2014, 17:49

Čitaj šta ti ta mlada dama govori!
Real Radios Glow in the Dark!
Branez
 
Posts: 452
Joined: 22-04-2008, 16:27
Location: Maribor(SLO) Koprivnica(HR)

Re: skraceni kurs ucenja picbasica

Postby Maki » 28-10-2014, 20:57

TRISIO = 0
Probaj dodati ovo gore, koliko vidim nigdije nije definiran pin ili port kao izalzni.
Maki
 
Posts: 763
Joined: 02-07-2012, 12:54

Re: skraceni kurs ucenja picbasica

Postby electron » 29-10-2014, 08:39

Slucajno dodirnuo plocicu prstom i proradilo, hmmm, zalemio 4k7 izmedju pin 1 i pin 4 na PIC 12F629 i radi :idea:
User avatar
electron
 
Posts: 212
Joined: 28-02-2009, 19:20
Location: Serbia

Re: skraceni kurs ucenja picbasica

Postby Maki » 29-10-2014, 10:44

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š...
Maki
 
Posts: 763
Joined: 02-07-2012, 12:54

Re: skraceni kurs ucenja picbasica

Postby MIKI73 » 01-11-2014, 17:12

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
 
Posts: 59
Joined: 01-11-2014, 16:57

Re: skraceni kurs ucenja picbasica

Postby MIKI73 » 05-11-2014, 17:56

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
MIKI73
 
Posts: 59
Joined: 01-11-2014, 16:57

PreviousNext

Return to Mikrokontroleri - PIC

Who is online

Users browsing this forum: No registered users and 3 guests

GOOGLE