Pomoc oko koda za 16f88

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

Moderators: stojke369, pedja089, [eDo], trax

Pomoc oko koda za 16f88

Postby MIKI73 » 08-08-2018, 20:55

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

Re: Pomoc oko koda za 16f88


Re: Pomoc oko koda za 16f88

Postby pedja089 » 08-08-2018, 21:04

Kreni od ovoga:
Code: Select all
....
pocetak:
     lcdout "a3=",#porta.3,"   a4=", #porta.4
goto pocetak
User avatar
pedja089
 
Posts: 7412
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija

Re: Pomoc oko koda za 16f88

Postby MIKI73 » 08-08-2018, 21:29

nije u pitanju displej vec mi nemenja vrednosti "im" i "pa"
MIKI73
 
Posts: 49
Joined: 01-11-2014, 16:57

Re: Pomoc oko koda za 16f88

Postby pedja089 » 09-08-2018, 09:36

Znam da nije displej, ali vidi da li ti se ulazi menjaju kako ocekujes.
Zato sam napisao kreni od toga...
User avatar
pedja089
 
Posts: 7412
Joined: 20-02-2007, 14:50
Location: Beočin -Srbija


Return to Mikrokontroleri - PIC

Who is online

Users browsing this forum: No registered users and 1 guest

GOOGLE