acil yardım lütfen arkdaslar

[sezar61]

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=%00000000ORTB=%00000000:gosub hiz
NEXT a
ANIM3:
FOR a=1 TO 4
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%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=%00000000ORTA=%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=%10110110ORTA=%00000001:gosub hiz
PORTB=%01101100ORTA=%00000011:gosub hiz
PORTB=%11011000ORTA=%00000110:gosub hiz
PORTB=%10110000ORTA=%00001101:gosub hiz
PORTB=%01100000ORTA=%01001011:gosub hiz
PORTB=%11000000ORTA=%11000110:gosub hiz
PORTB=%10000000ORTA=%10001101:gosub hiz
PORTB=%00000000ORTA=%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=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%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=%00000000ORTB=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%11001111:gosub hiz
PORTB=%00000000ORTA=%00000000:gosub hiz
PORTB=%11111111ORTA=%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=%01010101ORTA=%00000001:gosub hiz
PORTB=%10101010ORTA=%00000010:gosub hiz
PORTB=%01010101ORTA=%00000101:gosub hiz
PORTB=%10101010ORTA=%00001010:gosub hiz
PORTB=%01010100ORTA=%01000101:gosub hiz
PORTB=%10101000ORTA=%10001010:gosub hiz
PORTB=%01010000ORTA=%01000101:gosub hiz
PORTB=%10100000ORTA=%10001010:gosub hiz
PORTB=%01000000ORTA=%01000101:gosub hiz
PORTB=%10000000ORTA=%10001010:gosub hiz
PORTB=%00000000ORTA=%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...

 

[projec]

pıc basıc pro ile yazılabilir bu pıc proglamada kullanılan dil bu ve bu dili sadece pıc basıc proda kullana bilirsin komutlardan anlaşılıyo zaten farklı programlarda yazmak istersen komutlar değişiyo senin işine yarayan şuan pıc basıc bro

 

[sezar61]

ama bunu neden derlemiyor??