کمک در تصحیح برنامه در بیسکام

[behroz2010]

سلام
من برنامه زیرو نوشتم کامپایل کردم ارو میده نمیدونم چرا :angry:
کسی میدونه اشکال از چیه؟



$regfile = "m16def.dat"
$crystal = 8000000

Config Porta = Input

Config Portb = Output


Do


If Porta = 1 Then Set Porta.3
Waitms 500


Else
Set Portb.1




If Porta.1 = 1 Then


Set Porta.2


End If

Loop
End

[SAJAD-G]

پاسخ : کمک در تصحیح برنامه در بیسکام

دستور IF اولت یک خطی نوشته شده و بعدش ELSE هم استفاده کردی، این اشتباهه!
تو IF اول دستور بعد از then رو تو خط بعد بنویس و آخرش هم end if بنویس.
اینجوری:

if porta=1 then
set porta.3
waitms 500
else
set portb.1
end if