Pıc pwm ve flash yaptırmama ??

[Gölgeyele]

Merhaba arkadaşlar PICBASICte basit bir program yazdım PIC16F628 in PORTB.3 çıkışı PWM çıkışı bu çıkışı kullanarak bi animasyon yapmak istiyorum.

PORTB.3 e bağlı led PWM yapacak sonra PB.2, PB.1 ve PB.0 a bağlı ledler yanıp sönecek program tekrar başa dönecek bu şekilde devam edecek ve PORTA.1e bağlı anahtara bastığım zaman ledlerin hepsi birden yanp sönecek bendeki sıkıntı o anahtara bastığım zaman PORT.3e bağlı olan led yanmıyor. yazdığım program aşağıda eğer nerde hata yapıyorum bi türlü bulamadım eğer bana yardımcı olursanız çok sevinirim şimdiden teşekkür ederim.

TRISA=%00000010  
TRISB=%00000000   
PORTA=0 
PORTB=0 
  
  
I VAR PORTA.1
Duty var byte  
CMCON=7
I=0
       
     
        YANSON:
    
        IF I=0 THEN
        GOSUB FLASH
        ENDIF
                    
        FOR DUTY=0 to 255  	
        HPWM 0,DUTY,5000 	
        PAUSE 7
        
        IF DUTY=255 then sondur
        
        NEXT
      
        
        sondur:
        FOR DUTY=255 to 0 step -1 
        HPWM 0,DUTY,5000 
        PAUSE 7
        NEXT
        
       
        PORTB=%00000000:PAUSE 250        
        PORTB=%00000001:PAUSE 250
        PORTB=%00000010:PAUSE 250
        PORTB=%00000100:PAUSE 250
	PORTB=%00000010:PAUSE 250 
        PORTB=%00000001:PAUSE 250
        PORTB=%00000010:PAUSE 250
        PORTB=%00000100:PAUSE 250
	PORTB=%00000010:PAUSE 250 
        PORTB=%00000001:PAUSE 250
        PORTB=%00000010:PAUSE 250
        PORTB=%00000100:PAUSE 250
        PORTB=%00000000:PAUSE 250 
        PORTB=%00000111:PAUSE 400
        PORTB=%00000000:PAUSE 350 
        PORTB=%00000111:PAUSE 400
        PORTB=%00000000:PAUSE 350
        PORTB=%00000111:PAUSE 400 

        GOTO yanson
        
             FLASH:
             PORTB=%00001111:PAUSE 400
             PORTB=%00000000:PAUSE 350 
             IF I=1 THEN YANSON
             PAUSE 50
             GOTO FLASH

[Gölgeyele]

Arkadaşlar bi yorum yapabilecek yokmu? inanın o günden beri uğraşıyorum portb.3ü tekrar kullanamıyorum bi türlü.

[Alfa]

GOSUB FLASH ile gidilen etiketten RETURN İLE dönülmesi gerekmez mi?

[Gölgeyele]

Arkadaşlar PIC16F628A nın PORTB.3 portu pwm portu.
ben bu burada PORTB.3 e PWM yaptırrken başka bir portta yanıp yanıp sönecek.
Bu nasıl mümkün olabilir acaba.

PORTB.3ün PWM yapması için aşağıdaki program var ama bu arada başka bir porta yanıp sönme efektini veremiyorum.

TRISA=%00000000  
TRISB=%00000000   
PORTA=0 
PORTB=0 

Duty var byte				
Cmcon=7	

BASLA:		        
FOR DUTY=0 to 255  	
HPWM 0,DUTY,5000 	
PAUSE 5
NEXT

pause 50

FOR DUTY=255 to 0 step -1 
HPWM 0,DUTY,5000 
PAUSE 5
NEXT
goto basla