مشکل با ارور 61

[rekima]

سلام
من یه مشکلی در برنامه ی ربات مسریاب دارم که برنامه زمینه ی سفید رو اجرا میکنه ولی برنامه ی اینورس یا زمینه ی سیاه رو اجرا نمیکنه
هر دو برنامه به تنهایی کار میکنه؟

مشکل error شماره ی 61 در محیط بسکام میباشد؟
اما نمیتونم برطرف کنم
error

label not found

[ry.mohammad]

پاسخ : مشکل با ارور 61

سلام
من یه مشکلی در برنامه ی ربات مسریاب دارم که برنامه زمینه ی سفید رو اجرا میکنه ولی برنامه ی اینورس یا زمینه ی سیاه رو اجرا نمیکنه
هر دو برنامه به تنهایی کار میکنه؟

مشکل error شماره ی 61 در محیط بسکام میباشد؟
اما نمیتونم برطرف کنم
error

label not found

سلام
خوب میگه نمی تونه لیبل یا برچسب رو پیدا کنه یعنی برچسب تعریف شده رو نمی تونه پیدا کنه
شما کد رو بزار تا ببینیم مشکل کجاست

[rekima]

پاسخ : مشکل با ارور 61

regfile = "M32DEF.DAT$
$crystal = 8000000
'***********************************CONFIG*** ***********************************
Config Porta = Input
Config Portc = Output

Declare Sub Invers

Do

If Pina.0 = 0 And Porta.1 = 0 Then
Goto Sub Invers
End If

Loop
End 'end program
Sub Invers

Set Portc.0
Reset Portc.1

Return
End Sub

منتظرم

[ry.mohammad]

پاسخ : مشکل با ارور 61

اون ساب رو پشت اینورس حذف کن به این صورت
$regfile = "M32DEF.DAT"
$crystal = 8000000
'***********************************CONFIG*** ***********************************
Config Porta = Input
Config Portc = Output

Declare Sub Invers

Do

If Pina.0 = 0 And Porta.1 = 0 Then
[glow=red,2,300]Goto Invers[/glow]
End If

Loop
End 'end program
Sub Invers

Set Portc.0
Reset Portc.1

Return
End Sub

[takhiak]

پاسخ : مشکل با ارور 61

سلام

در این جور موارد لازم نیست از DECLARE استفاده کنی !

اون زیر برنامه رو حذف کن .
بعد از دستور IF بنویس
GOSUB lable و بعد از end

lable:

موفق باشی