Picbasic Animasyon Kodunu Kısaltmada Yardım!

[veliusta]

Gerekli Açıklamayı Resimde Yaptım.Uzman Kişilerin Yardımlarını Beklemekteyim.

Resim Gözükmez İse http://img60.resimup.net/di/11TL.png 

[ete]

Aşağıdaki gibi yapabilirsin,

TRISA=0
TRISB=0
PORTA=0
PORTB=0

I VAR BYTE

PAUSE 200

BASLA:
FOR I=1 to 5
   PORTB=%10101010
   PAUSE 100
   PORTB=%01010101
   PAUSE 100
NEXT

PORTB=%10010010
PAUSE 300
PORTB=%11111111
PAUSE 300
PORTB=%00000000
PAUSE 300
PORTB=%01010101
PAUSE 300
PORTB=%11001100
PAUSE 300
GOTO BASLA

Ete

[veliusta]

Çok Teşekkür Ederim. ve çok iyi anladım. sağolun.