مشکل این 2 خط برنامه کجاست؟؟؟

[masoud28314]

:angry:
فقط میخوام با یه پالس , خروجیم یه دونه اضافه شه...با وقفه که مینویسم میشه با debounce نه...
[regfile = "m323def.dat"
$crystal = 12000000
Config Portc = Input
Config Portd = Output
Dim A As Byte
Do
Debounce Pinc.0 , 0 , B
Loop
End
B:
Incr A
Portd = A
Return
صفر و یک میکنه ولی دوباره که میزنم یک و دو نمیکنه

[ناصر منتظری]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

:angry:
فقط میخوام با یه پالس , خروجیم یه دونه اضافه شه...با وقفه که مینویسم میشه با debounce نه...
[regfile = "m323def.dat"
$crystal = 12000000
Config Portc = Input
Config Portd = Output
Dim A As Byte
Do
Debounce Pinc.0 , 0 , B
Loop
End
B:
Incr A
Portd = A
Return
صفر و یک میکنه ولی دوباره که میزنم یک و دو نمیکنه

بعد .dat در خط اول اون اکولاد رو حذف کن اون علامت دلار رو هم بعد12000000 حذف کن
به جای return بزار end sub B
در اول برنامه A رو مقدار دهی کن A=0

[masoud28314]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

:sad:
اون دلارو که نمیشه برداشت
به جای Return هم که نمیشه همینجوری end sub گذاشت
بازم نشد ولی

[کنجکاو!]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

به صورت سخت افزاری پول پ کردی پورت ورودی رو؟
اگه نه این خط رو به برنامه اضافه کن:
Set PORTC یا PORTC = &HFF
قبل از تعریف متغیر بذارش...

[ناصر منتظری]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

:sad:
اون دلارو که نمیشه برداشت
به جای Return هم که نمیشه همینجوری end sub گذاشت
بازم نشد ولی

البته علامت دلار باید قبل از کریستال باشه ولی خوب فکر کنم تو اینجا افتاده اون ور
اتفاقا باید به جای دستور return از دستور end sub B استفاده کنی تست کن ببین

[کنجکاو!]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

اینم یادم رفت بگم که باس اینطور بنویسی وقتی یک سابروتین رو میخوای فراخونی کنی:
Debounce Pinc.0 , 0 , B, Sub
در انتهای سابروتین هم Return بذار
ولی مهم همون PullUp کردنس... انجامش بده درست میشه

[ناصر منتظری]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

بیا این هم برنامه اصلاح شده :

$regfile = "m323def.dat"
$crystal = 12000000
Config Portc = Input
Config Portd = Output
Portc = 255
Declare Sub B
Dim A As Byte
Main:
Do
Debounce Pinc.0 , 0 , B
Loop
End
Sub B:
Incr A
Portd = A
Goto Main
End Sub B

[کنجکاو!]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

خیلی کار جالبه نیست که توی یک تابع/زیربرنامه از دستور Goto استفاده بشه! (همچین اصولی نیس)
مشکل برنامه ایشون هم همون PullUp کردنه باید باشه یحتمل و الا باقیش خیلی مشکلی نداشت

[ناصر منتظری]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

خیلی کار جالبه نیست که توی یک تابع/زیربرنامه از دستور Goto استفاده بشه! (همچین اصولی نیس)
مشکل برنامه ایشون هم همون PullUp کردنه باید باشه یحتمل و الا باقیش خیلی مشکلی نداشت

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

[sasan18s]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

سلام ....
برنامه شما ایراد از $hwstack میگیره ...
برنامتونو باید به اینصورت شه :

$regfile = "m32def.dat"
$crystal = 12000000
$hwstack = 150                       '200                       ' default use 32 for the hardware stack

Config Portc = Input
Config Portd = Output

Dim A As Byte
Do
Debounce Pinc.0 , 0 , B
Loop
End
B:
Incr A
Portd = A
Return

موفق باشید ...

[کنجکاو!]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

حرف هر دوی شما دوستان عزیز متین، ولی الان این کدی که بنده از اول عرض کردم به درستی کار می کنه:
با پول پ کردن
و اضافه کردن , Sub به خط Debounce

$regfile = "m32def.dat"
$crystal = 12000000
Config Portc = Input
Config Portd = Output
Portc = &HFF
Dim A As Byte
Do
Debounce Pinc.0 , 0 , B , Sub
Loop
End
B:
Incr A
Portd = A
Return

[sasan18s]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

دوست عزیز برنامه شما درسته ...
دقت به برنامتون نکرده بودم فقط برنامه خودشونو رفع ایراد کردم ...

[کنجکاو!]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

خب قضیه همینه که الان اگه شما برنامه خودتونو اجرا کنید (مثلا تو پروتئوس) جواب نمیده...
چون باید به صورت سابروتین فراخونده بشه توی دستور Debounce

[sasan18s]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

نمیدونم من فقط ایراد ارورشونو برطرف کردم ....

[masoud28314]

پاسخ : مشکل این 2 خط برنامه کجاست؟؟؟

دوستان عزیز ممنون...حل شد مشکل