برنامه دو مرحله ای

[arash67]

با سلام خدمت تمامی دوستان
من یک برنامه میخوام بنویسم که زمانی که کلید یک با فشرده میشه یکاره به خصوص انجام بده و زمانی که همون کلید دوبار فشرده میشه یک کاره دیگه انجام بده
لطفا دوستان منو راهنمایی کنید
با تشکر

[abbasalifix]

کاری نداره که یه حلقه درست کن توش یه کلید رو چک کن حالا میگی اگه کلید فشرده شد یک واحد به متغیر اضافه بشه
هروقت متغیر بشه عدد دلخواهت بره و اون کار و اون کار رو انجام بده

[Ambassador]

سلام،بله طبق گفته دوستم abbasalifix با یک متغییر به راحتی می تونید این کار رو انجام بدین.

[arash67]

فکر کنم منظورمو متوجه نشدید
بزارید اینطوری بگم ، زمانی که کلید یک بار فشرده شد و رها نشده بعد از 2 ثانیه بره به زیر برنامه مربوطه ولی اگر دوبار فشرده شد بعد از 2 ثانیه بره به زیر برنامه مربوطه اش .

[lord_viper]

یه مقدار boolean بزار هر وقت False بود یه کد هر وقت True بود یه کد دیگه بعد از هر بار کلیک هم مقدار boolean رو عوض کن نیاز به حلقه و این چیزهام نداره

[arash67]

میشه یه نمونه بزارید.

[Ambassador]

میشه یه نمونه بزارید.

کد:

$regfile = "m16def.dat"
$crystal = 4000000
Config Pinb.0 = Input

Main:
Do
  If Pinb.0 = 1 Then Goto Check
Loop

End

Check:
If Pinb.0 = 1 Then
  Wait 2
  If Pinb.0 = 1 Then
   Goto Proc1
  End If
Else
  Goto Main
End If
Proc1:
  'Code....
If Pinb.0 = 1 Then
  Wait 2
  If Pinb.0 = 1 Then
   Goto Main
  End If
Else
  Goto Main
End If

اگه بخواین دقیقتر 2 ثانیه رو بررسی کنید بهتر که به یکی از تایمرا بگین به اندازه 1 ثانیه بشموره و مقدار رو داخل مثلاً sec1 بریزه و داخل برنامه بجای wait 2 اول sec رو صفر کنه و بعد اینو چک کنه:

کد:

If Pinb.0 = 1 And Sec1 = 2 Then

البته من این منطق رو داخل کدویژن پیاده کردم.