sezar61
Üye
- Katılım
- 18 Ocak 2013
- Mesajlar
- 2
- Puanları
- 1
- Yaş
- 32
RISA=%00110000
TRISB=%00000000
PORTB=0
PORTA=0
cmcon=7
a VAR BYTE
x var byte
ANIM1:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000000:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000000:gosub hiz
NEXT a
ANIM2:
FOR a=1 TO 3
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%00000000 ORTB=%00000000:gosub hiz
NEXT a
ANIM3:
FOR a=1 TO 4
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
NEXT a
ANIM4:
FOR a=1 TO 3
PORTB=%00000000:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000010:gosub hiz
PORTB=%00000100:gosub hiz
PORTB=%00001000:gosub hiz
PORTB=%00010000:gosub hiz
PORTB=%00100000:gosub hiz
PORTB=%01000000:gosub hiz
PORTB=%10000000:gosub hiz
PORTB=%00000000 ORTA=%00000001:gosub hiz
PORTA=%00000010:gosub hiz
PORTA=%00000100:gosub hiz
PORTA=%00001000:gosub hiz
PORTA=%01000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
ANIM5:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000110:gosub hiz
PORTB=%00001101:gosub hiz
PORTB=%00011011:gosub hiz
PORTB=%00110110:gosub hiz
PORTB=%01101101:gosub hiz
PORTB=%11011011:gosub hiz
PORTB=%10110110 ORTA=%00000001:gosub hiz
PORTB=%01101100 ORTA=%00000011:gosub hiz
PORTB=%11011000 ORTA=%00000110:gosub hiz
PORTB=%10110000 ORTA=%00001101:gosub hiz
PORTB=%01100000 ORTA=%01001011:gosub hiz
PORTB=%11000000 ORTA=%11000110:gosub hiz
PORTB=%10000000 ORTA=%10001101:gosub hiz
PORTB=%00000000 ORTA=%01001011:gosub hiz
PORTA=%11000110:gosub hiz
PORTA=%10001100:gosub hiz
PORTA=%01001000:gosub hiz
PORTA=%11000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
ANIM6:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
NEXT a
ANIM7:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%00000000 ORTB=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTB=%00000000 ORTA=%00000000:gosub hiz
PORTB=%11111111 ORTA=%11001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000000:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000000:gosub hiz
NEXT a
ANIM8:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000010:gosub hiz
PORTB=%00000101:gosub hiz
PORTB=%00001010:gosub hiz
PORTB=%00010101:gosub hiz
PORTB=%00101010:gosub hiz
PORTB=%01010101:gosub hiz
PORTB=%10101010:gosub hiz
PORTB=%01010101 ORTA=%00000001:gosub hiz
PORTB=%10101010 ORTA=%00000010:gosub hiz
PORTB=%01010101 ORTA=%00000101:gosub hiz
PORTB=%10101010 ORTA=%00001010:gosub hiz
PORTB=%01010100 ORTA=%01000101:gosub hiz
PORTB=%10101000 ORTA=%10001010:gosub hiz
PORTB=%01010000 ORTA=%01000101:gosub hiz
PORTB=%10100000 ORTA=%10001010:gosub hiz
PORTB=%01000000 ORTA=%01000101:gosub hiz
PORTB=%10000000 ORTA=%10001010:gosub hiz
PORTB=%00000000 ORTA=%01000101:gosub hiz
PORTA=%10001010:gosub hiz
PORTA=%01000100:gosub hiz
PORTA=%10001000:gosub hiz
PORTA=%01000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
GOto ANIM1
hiz:
for x=0 to 2
pause 30
next x
return
bu dil hangi dil oluyor ve hangi programla yazabilirim bu dili lütfen acil yardım edin...
TRISB=%00000000
PORTB=0
PORTA=0
cmcon=7
a VAR BYTE
x var byte
ANIM1:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000000:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000000:gosub hiz
NEXT a
ANIM2:
FOR a=1 TO 3
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%00000000
NEXT a
ANIM3:
FOR a=1 TO 4
PORTB=%11111111
PORTB=%00000000
NEXT a
ANIM4:
FOR a=1 TO 3
PORTB=%00000000:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000010:gosub hiz
PORTB=%00000100:gosub hiz
PORTB=%00001000:gosub hiz
PORTB=%00010000:gosub hiz
PORTB=%00100000:gosub hiz
PORTB=%01000000:gosub hiz
PORTB=%10000000:gosub hiz
PORTB=%00000000
PORTA=%00000010:gosub hiz
PORTA=%00000100:gosub hiz
PORTA=%00001000:gosub hiz
PORTA=%01000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
ANIM5:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000110:gosub hiz
PORTB=%00001101:gosub hiz
PORTB=%00011011:gosub hiz
PORTB=%00110110:gosub hiz
PORTB=%01101101:gosub hiz
PORTB=%11011011:gosub hiz
PORTB=%10110110
PORTB=%01101100
PORTB=%11011000
PORTB=%10110000
PORTB=%01100000
PORTB=%11000000
PORTB=%10000000
PORTB=%00000000
PORTA=%11000110:gosub hiz
PORTA=%10001100:gosub hiz
PORTA=%01001000:gosub hiz
PORTA=%11000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
ANIM6:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTB=%00000000
PORTB=%11111111
PORTB=%00000000
PORTB=%11111111
PORTB=%00000000
PORTB=%11111111
PORTB=%00000000
NEXT a
ANIM7:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%11111111:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%01001111:gosub hiz
PORTA=%11001111:gosub hiz
PORTA=%00000000
PORTB=%11111111
PORTB=%00000000
PORTB=%11111111
PORTB=%00000000
PORTB=%11111111
PORTB=%00000000
PORTB=%11111111
PORTA=%01001111:gosub hiz
PORTA=%00001111:gosub hiz
PORTA=%00000111:gosub hiz
PORTA=%00000011:gosub hiz
PORTA=%00000001:gosub hiz
PORTA=%00000000:gosub hiz
PORTB=%01111111:gosub hiz
PORTB=%00111111:gosub hiz
PORTB=%00011111:gosub hiz
PORTB=%00001111:gosub hiz
PORTB=%00000111:gosub hiz
PORTB=%00000011:gosub hiz
PORTB=%00000001:gosub hiz
PORTB=%00000000:gosub hiz
NEXT a
ANIM8:
FOR a=1 TO 2
PORTB=%00000001:gosub hiz
PORTB=%00000010:gosub hiz
PORTB=%00000101:gosub hiz
PORTB=%00001010:gosub hiz
PORTB=%00010101:gosub hiz
PORTB=%00101010:gosub hiz
PORTB=%01010101:gosub hiz
PORTB=%10101010:gosub hiz
PORTB=%01010101
PORTB=%10101010
PORTB=%01010101
PORTB=%10101010
PORTB=%01010100
PORTB=%10101000
PORTB=%01010000
PORTB=%10100000
PORTB=%01000000
PORTB=%10000000
PORTB=%00000000
PORTA=%10001010:gosub hiz
PORTA=%01000100:gosub hiz
PORTA=%10001000:gosub hiz
PORTA=%01000000:gosub hiz
PORTA=%10000000:gosub hiz
PORTA=%00000000:gosub hiz
NEXT a
GOto ANIM1
hiz:
for x=0 to 2
pause 30
next x
return
bu dil hangi dil oluyor ve hangi programla yazabilirim bu dili lütfen acil yardım edin...