درخواست برنامه ربات مسیریاب به زبان بیسیک

[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 Pinc.3 = Input : S1 Alias Pinc.3
Config Pinc.4 = Input : S2 Alias Pinc.4
Config Pinc.5 = Input : S3 Alias Pinc.5
Config Pinc.6 = Input : S4 Alias Pinc.6
Config Pinc.7 = Input : S5 Alias Pinc.7
Config Pina.7 = Input : S6 Alias Pina.7
Config Pina.6 = Input : S7 Alias Pina.6
Config Pina.5 = Input : S8 Alias Pina.5
Config Pina.4 = Input : S9 Alias Pina.4
Config Pina.3 = Input : S10 Alias Pina.3
Config Pina.2 = Input : S11 Alias Pina.2
Config Pina.1 = Input : S12 Alias Pina.1
Config Pina.0 = Input : S13 Alias Pina.0
Config Pinc.0 = Input : S14 Alias Pinc.0
Main:
Do
If S6 = 1 Then Goto Front

If S5 = 1 Then Goto Chap
If S7 = 1 Then Goto Rast
If S4 = 1 Then Goto Chap
If S8 = 1 Then Goto Rast
If S3 = 1 Then Goto Chap
If S9 = 1 Then Goto Rast
If S2 = 1 Then Goto Chap
If S10 = 1 Then Goto Rast
Loop
End
Front:
Toggle Led
M11 = 0
  M12 = 1
   M21 = 0
    M22 = 1
    Goto Main
Chap:
Toggle Led
M11 = 0
  M12 = 0
   M21 = 0
    M22 = 1
    Goto Main
Rast:
Toggle Led
M11 = 0
  M12 = 1
   M21 = 0
    M22 = 0
    Goto Main