Acil yardım

[yuppi]

Device 16F84A
Dim potval as Byte
Dim butonval as byte
Dim Frup as byte
Dim frdown as byte
Oku:
potval = POT PORTA.0,255
BUTTON portb.1,0,255,250,butonval,0,afrup
Button portb.2,0,255,250,butonval,0,afrdown
Button portb,3,0,255,250,butonval,0,efrup
Button portb,4,0,255,250,butonval,0,efrdown
AFrup:
frup=frup+1
goto pulso
Afrdown:
Frup=frup-1
goto pulso
efrup:
frdown=frdown+1
goto pulso
efrdown:
frdown=frdown-1
goto pulso
pulso:
Pulsout Porta.2,frup,high
pulsout Porta.2,frdown,low
goto oku



Error at Line [10]   In file [C:\PROJE\INDUCTOR\INDUCTION.BAS]      *** Label '0' not found! ***
Error at Line [11]   In file [C:\PROJE\INDUCTOR\INDUCTION.BAS]
      *** Label '0' not found! ***
Niye 8-9 da hata yokta 10-11 de hata var anlamadım. :?:

[Erkan Gench]

picbasicten anlamam ama 8-9 da portb den sonra nokta var 10-11 de virgül var heralde bunları düzeltirsen sorun çözülür. Yeterince acil oldumu

[ete]

Sorun senin yazdığın hatayı görmemende.
Port pinleri gösterilirken port ismi sonra nokta sonra pin numarası verilir. Senin hatalı satırlarında port isminden sonra virgül kullanmışsın. Bu virgülleri nokta yap sorun düzelecektir.
Diğer satırlarda (8-9) da nokta kullanmışsın o yüzden hata vermiyor.

ETE

[yuppi]

Herkeze teşekkürler gerçekten kör oluyorum bazen.