Koddaki yanlış nedir?

[einstain90]

Arkadaşlar daha yeni başladım pic basic e ve şöyle bir şey yazmayı denedim ama çalışmadı sizce sebebi ne olabilir? Yazmaya çalıştığım şey porta.0 a bağlı ledi 5 kere yakıp söndürmek. O bittikten sonrada portb.7 ye bağlı ledi 5 kere yakıp söndürmek. Daha sonrada işleme en başından başlıyıp bnu tekrarlıcak.

TRISB=0
TRISA=0
porta=0
portb=0
basla:
a var bit
porta.0=1
Pause 500
porta.0=0
pause 500
for a=1 to 5 step 1
next
b var bit
portb.7=1
pause 500
portb.7=0
pause 500
for b=1 to 5 step 1
next
goto basla

[picusta]

Commodore64'ten baska basic bilmiyorum fakat zannedersem sorunlu isim:

for b=1 to 5 step 1
next

Burada döngüyü bos birakmissin.

[ibrsel]

Öncelikle a ve b değişkenlerini BIT olarak tanımlamışsın.fakat for-next döngüsünde 1 den 5 e kadar dögü emri vermişsin..
BIT olarak tanımladığın değişkenler yalnızca 0 ve 1 değerini alırlar..
Değişken tipini BYTE olarak değiştir.
Ayrıca ledi yakıp söndürme işini döngü içerisine al..

[ahmet2004]

TRISB=0 
TRISA=0 
porta=0 
portb=0

a var byte
b var byte
 
basla:

for a=1 to 5 step 1
porta.0=1 
pause 500 
porta.0=0 
pause 500 
next a 

for b=1 to 5 step 1
portb.7=1 
pause 500 
portb.7=0 
pause 500 
next b

goto basla

' porta.0 a bağlı ledi 5 kere yakıp söndürmek. 
' O bittikten sonrada portb.7 ye bağlı ledi 5 kere yakıp söndürmek.

[einstain90]

ahmet abi çok sağolasın şimdi anladım nasıl döngü kuracağımı.