اگرورودی یک شود آنگاه lcd ...

[EBKA]

سلام
بالاخره تونستم برنامه کامل رابا ده ها بار آزمون وخطا بنویسم وجواب هم گرفتم.
ازشما دوستان عزیزهم خیلی ممنونم که به جای دادن ماهی به من ماهیگیری رایاد دادید.
باتشکر وسپاس
واما برنامه ام به صورت زیر است:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Pind.0 = Input
Config Pind.1 = Input
Dim A As Word
A = 0
Cls
Lcd A
Waitms 107
Do
If Pind.0 = 1 Then
Incr A
Cls
Lcd A
Waitms 165
End If
If Pind.1 = 1 Then
Decr A
Cls
Lcd A
Waitms 165
End If
Loop

سلام..
حالا بیا و از دستور debounceاستفاده کن....دیدی زمانی کا کلید رو میزنی یهو تندی زیاد میشه.....
ebi:
do
debounce pind.1,1,ebka
loop
ebka:
incr a
home l
lcd a
waitms 100
goto ebi