alt alta sıralı yanan led sorunu

[ywzslm]

altalta bağlamaya çalıştığım ledlerin blok halinde yazdığım program doğrıltusunda çalışmasını istiyorum fakat teklide çalışırken burada çalışmamaktadır yardım ederseniz sevinirim

kodlar;
TRISA=255                
TRISB=%0000000
PORTA=0
PORTB=0  
     
SYMBOL TUS1=PORTA.0
SYMBOL TUS2=PORTA.1
SYMBOL TUS3=PORTA.2
SYMBOL TUS4=PORTA.3

SYMBOL LED1=PORTB.0
SYMBOL LED2=PORTB.1
SYMBOL LED3=PORTB.2
SYMBOL LED4=PORTB.3
SYMBOL LED5=PORTB.4
SYMBOL LED6=PORTB.5
SYMBOL LED7=PORTB.6
SYMBOL LED8=PORTB.7
       
BASLA:
PROGRAM1:
PORTA=0
PORTB=0
  IF TUS1=1 THEN
   HIGH LED1
   PAUSE 50
   HIGH LED2
   PAUSE 50
   HIGH LED3
   PAUSE 50
   HIGH LED4
   PAUSE 50
   HIGH LED5
   PAUSE 50
   HIGH LED6
   PAUSE 50
   HIGH LED7
   PAUSE 50
   HIGH LED8
   PAUSE 50
   ENDIF
   PAUSE 100

PROGRAM2:
PORTA=0
PORTB=0
  IF TUS2=1 THEN
   HIGH LED8
   PAUSE 50
   HIGH LED7
   PAUSE 50
   HIGH LED6
   PAUSE 50
   HIGH LED5
   PAUSE 50
   HIGH LED4
   PAUSE 50
   HIGH LED3
   PAUSE 50
   HIGH LED2
   PAUSE 50
   HIGH LED1
   PAUSE 50
   ENDIF
   PAUSE 100

PROGRAM3:
PORTA=0
PORTB=0
IF TUS3=1 THEN
   HIGH LED8
   HIGH LED1
   PAUSE 50
   HIGH LED7
   HIGH LED2
   PAUSE 50
   HIGH LED6
   HIGH LED3
   PAUSE 50
   HIGH LED5
   HIGH LED4
   PAUSE 50
   ENDIF
   PAUSE 100

   PROGRAM4:
PORTA=0
PORTB=0
IF TUS4=1 THEN
   HIGH LED4
   HIGH LED5
   PAUSE 50
   HIGH LED3
   HIGH LED6
   PAUSE 50
   HIGH LED2
   HIGH LED7
   PAUSE 50
   HIGH LED1
   HIGH LED8
   PAUSE 50
   ENDIF
   PAUSE 100

  GOTO BASLA          
END

proteus dosyası;
http://rapidshare.com/files/143466189/8e_3lue_s__305_ral_kar__305_s__305___305__yanan_led.rar.html

şimdiden yardımı geçen herkese teşekkürler

[crazy2015]

proteus dosyasında res olan direnç yerine 1k direnç ekleresen düzeliyor.İyi çalışmalar

[bymrz]

ikincisi npn transistör kullanıyorsan emitörün şasede olması gerekiyor...

[ywzslm]

cevaplarınız için cok teşekkür ederim peki yazılan bukodları daha da kısaltmanın bir yolu varmı

[mustafa_cmbz]

portb=%10101001 gibi yaparsan aynı anda 1'e karşılık gelen ledleri yakabilirsin....kolay gelsin

[mustafa_cmbz]

cevabınız için çok teşşekür ederim eğer sizin içinde bir sakıncası yoksa portb=%10101001 biraz daha açıklarmısınız

arkadaşım ete hocanın derslerini okumanı tavsiye ederim orada ete hocam daha ayrıntılı anlatmış herşeyi....

[ywzslm]

emeği geçen herkse çok teşekkür ederim