بالا بردن یک واحدی متغیر در بسکام

[alghadirshop]

سلام
دوستان برای بالا بردن یک واحدی متغیر در بسکام با دستور incrیک مشکل دارم اونم اینکه وقتی پینی رو که برای ورودی تعریف کردم یک میشه متغیر شروع میکنه به بالا رفتن و تا صفر نشه ادامه پیدا میکنه
برای اینکه این مشکل پیش نیاد چه راهکاری پیشنهاد میدین؟
چون هربار که پایه میکرو یک میشه ممکن هست چند دقیقه طول بکشه ومن میخوام با هر بار یک شدن متغیر یک واحد بالاتر بره؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ممنون از شما

[سوران آراسته]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

خب برای این کار می تونی با استفاده از یک متغیر دیگه کاری بکنی که با تغییر لبه مقدار متغیرت تغییر بکنه.
میگی اگر پین فلان صفر شد و متغیر حالت صفر بود اولیت کار متغیر حالت رو یک کن و بعد به متغیرت یه واحد اضافه کنه. سپس اگر پین 1شد و متغیر حالت هم 1 بود، متغیر حالت رو 0 کن.

[alghadirshop]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

خب برای این کار می تونی با استفاده از یک متغیر دیگه کاری بکنی که با تغییر لبه مقدار متغیرت تغییر بکنه.
میگی اگر پین فلان صفر شد و متغیر حالت صفر بود اولیت کار متغیر حالت رو یک کن و بعد به متغیرت یه واحد اضافه کنه. سپس اگر پین 1شد و متغیر حالت هم 1 بود، متغیر حالت رو 0 کن.

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

[سوران آراسته]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

مشکل اینکه شما بسکام کاری و بنده سال هاست از بسکام دورم باز با این حال امیدوارم درست دربیاد نمونه کد.

[CODE]
Dim Count As Word
Dim Halat As Bit


Halat = 0


Do
     If Pinb.0 = 0 And Halat = 0 Then
         Halat = 1
         Count = Count + 1
     End If Pinb.0 = 1 And Halat = 1 Then Halat = 0
     If

Loop
[/CODE] 

[RAMONA]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

Halat=1
Do
If pinb.0=1 and halat=1 then
Toggle halat
Incr count
End if
If pinb.0 =0 and halat = 0 then
Toggle halat
End if
Loop

[/PHP]

[hosseinam]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

در ادامه توضیحات دوستان ، بهتر اینه که برای خوندن یه کلید تو بسکام بیاید از دستور debounce استفاده کنید.چون اینطوری خطاهای ناخاسته فشرده شدن هم خواهید گرفت.
موفق باشید.

[alghadirshop]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

تشکر از بزرگواری یکایک دوستان

باورتون نمیشه مغزم دیگه قفل کرده بود

[jafar2000]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

سلام
منم این جوری مینویسم
if pinx.x=1 and a<255 then
bitwait pinx.x,reset
incr a
waitms 50
end if

[mashroti]

پاسخ : بالا بردن یک واحدی متغیر در بسکام

دستور debounce واسه کلید بهترین گزینه میتونه باشه
چون با لبه ها کار میکنه و تاخیر و متغیر دیگه هم تو برنامه ایجاد نمیکنه