ايران ويج

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

سلام.

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

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

موفق باشي.

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

کد: 
$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

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

ali.pour91

sharin

abbasalifix