ايران ويج

سلام
من يه برنامه با بسكام بصورت زير نوشتم. طبق اين برنامه هر وقت سنسور ديد يعني يك شد لامپ روشن ميشود.
ميخوام بعد از اينكه سنسور ديد و لامپ روشن شد ديگر اگه سنسور هم صفر شد(نديد) لامپ خاموش نشود و لامپ روشن باقي بمونه.! حالا چي به اين برنامه اضافه كنم كه اين فرآيند انجام بشه ؟؟؟؟؟؟

$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Input
Config Portb = Output
sen Alias Pind.1
Led Alias Pinb.1
Do :
If Sen = 1 Then
LED = 1
END IF
LOOP

به نظر میاد همین کد درسته !!! چون شما جائی Led رو ضفر نکردین که !!! شاید بنده درست متوجه نشدم شایدم شما اینو احتیاج دارین

DIM BL As Boolean
Do :
If Sen = 1 Then
LED = 1
BL = True
END IF

If BL = True Then
LED = 1
END IF

LOOP

بسكام برنامه شما رو خطا ميده
لطفا صحيح آن را برايم بنويسيد

من بسکام کار نکردم اینو بزبان بیسیک ساده نوشتم احتمالا از Boolean ایراد میگیره میتونی جاش Integer بزاری
من در این کد روش رو عنوان کردم تبدیل Syntax با شما