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

[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

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