[سوال] سنسور در بسکام

[ali.pour91]

سلام به همه ی دوستان
من می خوام یه ربات تعقیب خط بسازم میشه کمکم کنید
بیشتر میخوام در مورد سنسور هاش بدونم منظورم برنامه نویسی تو محیط بسکام هست

[sharin]

سلام.

به نظر من براي اينجور برنامه ها بهترهه در كامپايلرهاي زبان C مثل Codevision كد بزني.
چون اونجا دستت باز تر هست و نتيجه ي كار تميز تر هست و راحت تر مي شه شرط هاش رو چك كرد و شرط گذاشت.
تعداد شرط ها در يك if هم براي كامپايلرهاي زبان C محدوديت ندارهه ، اما فكر كنم در بسكام داشته باشه ...

اگر يه كار همينجوريه كه هيچ...
اما اگر دنبال بهترين نتيجه اي كامپايلرت رو عوض كن. گرچه عامل اصلي ايده ي مورد استفادست !

موفق باشي.

[abbasalifix]

به نظر من اول یه انجمن مناسب برای سوالتون پیدا کنید
--------------------
پایه رو ورودی تعریف میکنید
شروع حلقه پرش
چک کردن شرط
پایان حلقه
------------------------

کد:

$regfile = "m32def.dat"
$crystal = 12000000
Config Portd.6 = Output : M11 Alias Portd.6
Config Portd.7 = Output : M12 Alias Portd.7
Config Portd.3 = Output : M21 Alias Portd.3
Config Portd.1 = Output : M22 Alias Portd.1
Config Portb.4 = Output : Led Alias Portb.4 : Led = 1       'for status led
Config Portd.5 = Output : Portd.5 = 1                       'for Enaable motor's
Config Portd.4 = Output : Portd.4 = 1                       'for enable motor's
Config Pina.2 = Input : S1 Alias Pina.2
Config Pina.3 = Input : S2 Alias Pina.3
Config Pina.4 = Input : S3 Alias Pina.4
Config Pina.5 = Input : S4 Alias Pina.5
Config Pina.6 = Input : S5 Alias Pina.6
Config Pina.7 = Input : S6 Alias Pina.7
Config Pinc.7 = Input : S7 Alias Pinc.7
Config Pinc.6 = Input : S8 Alias Pinc.6
Config Pinc.5 = Input : S9 Alias Pinc.5
Config Pinc.4 = Input : S10 Alias Pinc.4
Config Pinc.3 = Input : S11 Alias Pinc.3
Config Pina.2 = Input : S12 Alias Pinc.2
Config Pina.1 = Input : S13 Alias Pinc.1
Declare Sub Front
Declare Sub Chap
Declare Sub Rast
Declare Sub Back
Declare Sub Khamosh
Main:
Do
Waitms 20
If S6 = 1 And S7 = 1 Then Call Chap
If S6 = 1 And S5 = 1 Then Call Rast
If S6 = 1 And S4 = 1 Then Call Rast
If S6 = 1 And S8 = 1 Then Call Chap
If S6 = 1 Then Call Front
If S7 = 1 Then Call Chap
If S5 = 1 Then Call Rast
If S8 = 1 Then Call Chap
If S4 = 1 Then Call Rast
Loop
Sub Back : Toggle Led : M11 = 1 : M12 = 0 : M21 = 1 : M22 = 0 : Return : End Sub : Goto Main
Sub Front : Toggle Led : M11 = 0 : M12 = 1 : M21 = 0 : M22 = 1 : Waitms 100 : Return : End Sub : Goto Main
Sub Chap : Toggle Led : M11 = 1 : M12 = 0 : M21 = 0 : M22 = 1 : Return : End Sub : Goto Main
Sub Rast : Toggle Led : M11 = 0 : M12 = 1 : M21 = 1 : M22 = 0 : Return : End Sub : Goto Main
Sub Khamosh : Toggle Led : M11 = 0 : M12 = 0 : M21 = 0 : M22 = 0 : Return : End Sub : Goto Main
End

---

این کد فقط یک نمونه است!