[سوال] برنامه...

[tishab]

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

$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

[Shayani]

به نظر میاد همین کد درسته !!! چون شما جائی 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

[tishab]

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

[Shayani]

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