ANOLOG OKU PWM OUT YARDIM

[harmanx]

analog okuyup ekrana yazıp aynı zamanda pwm basmak istiyorum
bir yarde pwm de sorun var düzgün çalışmıyor
yardımlarınızı bekliyorum bu pwm işinden anlamadım karışık geldi bana




TRISA=%00000001
TRISB=0
TRISC=0
TRISD=0
'-------------------------------------------------------------------------------
@ DEVICE pic16F877
@ DEVICE pic16F877, WDT_on
@ DEVICE pic16F877, PWRT_ON
@ DEVICE pic16F877, PROTECT_OFF
@ DEVICE pic16F877, XT_OSC
'-------------------------------------------------------------------------------
DEFINE LCD_DREG      PORTB   
DEFINE LCD_DBIT      4      
DEFINE LCD_EREG      PORTB   
DEFINE LCD_EBIT      3      
define LCD RWREG    PORTB   
define LCD_RWBIT    2       
DEFINE LCD_RSREG   PORTB   
DEFINE LCD_RSBIT   1      
DEFINE LCD_BITS      4      
DEFINE LCD_LINES   2      

DEFINE   ADC_BITS   10
DEFINE   ADC_CLOCK   1      
'DEFINE   ADC_CLOCK   3      
DEFINE   ADC_SAMPLEUS   100   
'-------------------------------------------------------------------------------
DEFINE CCP1_REG PORTC
DEFINE CCP1_BIT 2

'-------------------------------------------------------------------------------
ADCON1=%10001110
'-------------------------------------------------------------------------------
HAM    var  word                                                                         
VOLT   var  word
Mvolt  var  byte
'-------------------------------------------------------------------------------
Low PORTB.2      
LCDOut $FE,1   
pause 200       
'-------------------------------------------------------------------------------

BASLA:
      ADCIN 0,HAM 
     
BAK:  IF ADCON0.2=1 THEN BAK
     
lcdout $FE,1," DEGER =",# HAM
Ham=ham+1       

Volt=(ham */ 1250)/100
Mvolt=volt//100
Volt=Volt/10

LCDOUT $FE,$C0," VOLT=",#VOLT,",",# Mvolt,"V"     
PAUSE 500
     
'------------------------------------------------------------------------------     
CCP1CON.4=Ham.0
CCP1CON.5=Ham.1
CCPR1L=Ham>>2
       
HPWM 1,HAM,8000
goto BASLA
end