Pomoc oko koda za 16f88

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

Moderators: pedja089, stojke369, [eDo], trax

Post Reply
MIKI73
Napredujem
Napredujem
Posts: 107
Joined: 01-11-2014, 16:57

Pomoc oko koda za 16f88

Post by MIKI73 »

Pozdrav svima.Pokusavam nesto da napisem i u ovom kodu nereaguju mi tasteri na RA3 i RA4. Pokusavam da menjam vreme trajanja impulsa za punjac akumulatora,nisam jos ni blizu da ga zavrsim ali ovde je zapelo.Po meni bi trebalo da se menja ju vrednosti "im" i "pa" sto bi bilo vreme trajanja impulsa i pauze.Ako moze pomozite gde gresim.Evo koda:

Code: Select all

cmcon=7
DEFINE OSC 4

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 'cekanje inicijalizacije displeja

Define  ADC_BITS  10       ' Set number of bits in result
Define  ADC_CLOCK 3       ' Set clock source (3=rc)
Define  ADC_SAMPLEUS  50  ' Set sampling time in uS

ANSEL=%11100001	 
ADCON1=%10000000
TRISA = %11111001
  
BROJ Var WORD 
im var word
pa var word
broj1 var byte
im = 500
pa = 500

pocetak:

if porta.3=0  then
im = im -10 
pa = pa + 10
pause 1
lcdout $fe,$c0
lcdout "IM=",#im,  ".   ","PA=", #pa
endif


if porta.4=0 then
pa=pa -10  
im=im + 10
pause 1
lcdout $fe,$c0
lcdout "IM=",#im,  ".   ","PA=", #pa
endif


ADCIN 0 , BROJ 
BROJ = ( BROJ */ 500)>>2*4 ' isto kao (rez * 500)/1024

lcdout $FE, $80, "U=",DEC (BROJ/100),".", DEC2 BROJ,"V"," U=",#broj

lcdout $fe,$c0
lcdout "IM=",#im,  ".   ","PA=", #pa


'if broj < 300 then goto pocetak

  
     repeat  

         porta.1=0
         pause pa
         porta.1=1
         pause im
         
         broj1 = broj1+1
         
         until  broj1 =5
         
         porta.1=0
         pause pa
         porta.2=1
         pause 500
         porta.2=0
         broj1=0

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

Re: Pomoc oko koda za 16f88

Post by pedja089 »

Kreni od ovoga:

Code: Select all

....
pocetak: 
     lcdout "a3=",#porta.3,"   a4=", #porta.4
goto pocetak
MIKI73
Napredujem
Napredujem
Posts: 107
Joined: 01-11-2014, 16:57

Re: Pomoc oko koda za 16f88

Post by MIKI73 »

nije u pitanju displej vec mi nemenja vrednosti "im" i "pa"
User avatar
pedja089
Administrator sajta
Administrator sajta
Posts: 7871
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: Pomoc oko koda za 16f88

Post by pedja089 »

Znam da nije displej, ali vidi da li ti se ulazi menjaju kako ocekujes.
Zato sam napisao kreni od toga...
MIKI73
Napredujem
Napredujem
Posts: 107
Joined: 01-11-2014, 16:57

Re: Pomoc oko koda za 16f88

Post by MIKI73 »

Pozdrav.Daiskoristim ovu temu.Potreban mi je boot;oader za 16f88 ali za seriski port gde koristim max232
Skinuo sam neki bootloader i vidim pic na kompjuteru ali kad samo jednom ubacim hex vise nemogu da vidim pic dok nestavim ponovo bootloader.
Nalazio sam na internetu slicne probleme ali ne i bootloader koji radi pa ako neki ima zamolio bih da mi posalje
User avatar
pedja089
Administrator sajta
Administrator sajta
Posts: 7871
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: Pomoc oko koda za 16f88

Post by pedja089 »

Ja ga nemam...
Post Reply