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

Кнопка подключена к контактам 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 повторный опрос клавиши

Измерение частоты

При подаче с генератора синусоидального сигнала на входной порт компьютера, он преобразуется в прямоугольный с чередующимися логическими нулями и единицами. Периодичность опроса входного порта Т_опр. должна быть много меньше периода колебаний измеряемого сигнала Т_сигн. (Т_опр.<<Т_сигн.).Скорость опроса порта зависит от тактовой частоты компьютера.

Рис. 5

Эта программа очень похожа на написанную, с той разницей, что чередование нулей о единиц в течение 1 сек. и есть частота

5 n=0

10 t1=timer t1 начальное состояние системных часов

20 a=inp (&h 379)

30 if a=127 then goto 20

40 a=inp(&h 379)

50 if a=119 then goto 40

60 n=n +1 счет импульсов

70 t2=timer t2 конечное состояние системных часов

80 if t2 – t1<1 then goto 20 если время счета импульсов меньше 1 сек.

90 print n напечатать число импульсов за 1сек. (частоту)

95 sleep 1 время индикации

100 goto 5