Определение времени замкнутого состояния кнопки

Кнопка подключена к контактам 15 (D3) и 25 (GND) Рис.4. При разомкнутой кнопке в переменную А запишется число 127, при замкнутой – 119. Оператор timer фиксирует время с точностью до 0,05 сек.

10 а= inp(&h 379)

20 if a=127 then goto 10 ожидание замыкания кнопки

30 t1=timer в t1 записывается время начала замыкания кнопки

40 for b=0 to 20000

50 c= inp(&h 379)

60 if c=127 then goto 80 размыкание кнопки

70 next b

80 t2=timer в t2 записывается время размыкания кнопки

90 t=t2–t1 время замкнутого состояния

100 print t

Количество замыканий кнопки:

Программа:

5 n=0 обнуление счетчика замыканий

10 cls очистка экрана

20 a= inp (&h 379) чтение входного порта

30 if a =127 then goto 20 ожидание нажатия кнопки (числа 119)

40 A= inp (&h 379) чтение входного порта

45 for i=0 to 50 цикл устранения дребезга контактов

46 next i

50 if a=119 then goto 40 опрос замкнутого состояния клавиши

60 n=n+1 (переменная n)

70 print n печатать число замыканий

80 goto 20 повторный опрос клавиши