hpwm

[gofe]

YAP:
        HPWM 1,DTY,32000
        If BTU=1 Then YAP
        DelayMS 50
        DTY=DTY+5

      Print At 1,1,"OK"
      Print At 2,1,#DTY,"  ",#FRE," "
      GoTo YAP

duty değerini değiştirdiğim halde çıkışta değişen birşey göremiyorum osilaskop ile de değişen bişey yok. Reel de denemedim henuz isis simülasyonu yapıyorum. Kod mu hatalı yoksa isis de mi sorun var bilemedim. PWM yapınca sonuç alıyorum.

[OG]

Doanımı PWM olarak ayarladınmı, 16 serisi için genelde
CCP1CON   = %00001100

;;; 16F628A HPWM 
Device = 16F628A 
   Config HS_OSC , WDT_OFF , PWRTE_OFF , CP_ON , MCLRE_OFF , LVP_OFF , BODEN_ON 
   Declare XTAL 20 
ALL_DIGITAL = TRUE
Declare CCP1_PIN PORTB.3  
TRISB=%00000011 
TRISA=%00010000
INTCON=0
VRCON     = 0          
CCP1CON   = %00001100 
Dim deger As Byte 

BASLA:

    For deger = 0 To 255
        HPWM 1,deger,3000
        DelayMS 10
    Next
    
    For deger = 255 To 0 Step -1
        HPWM 1,deger,3000
        DelayMS 10
    Next
GoTo BASLA

[gofe]

CCP1CON   = %00001100  yaptım
18f452 kullanıyorum.
proton help deki hpwm örneğinde sorun yok.

pwm çalışmasıda sorunsuz.
yukarda yazdığım koda gelince sonuç alamıyorum.

[OG]

YAP:
        HPWM 1,DTY,32000
        If BTU=1 Then YAP

Burada Loop varsa hpwm sıkıntılı olur, hiç durmadan pwm i tekrar tekrar sürüyor. geçici olarak

YAP:
        HPWM 1,DTY,32000
        If BTU=1 Then 
delayms 10
goto YAP 
endif

gibi bir gecikme verin,

[gofe]

' TRISC.2 = 0					' Set PORTC.2 (CCP1) to output
    CCP1CON   = %00001100 

yap:
    HPWM 1,Duty,32000
    If BTU=1 Then  yap
    Duty=Duty + 5
    Print At 1,1,#DUTY
    GoTo yap

Bu şekilde oldu.
Hata:

TRISC.2 = 0

yönlendirme hatası..

yardımınız için teşekkür ederim.