Значение частоты тона можно вычислить по приводимой ниже программе. Упрощенный вариант программы OCTAVA.PAS для вычисления частот нот и их озвучивания, написанный на языке Turbo Pascal 7.0, приведен ниже.
Вводимый в программу номер соответствует следующим октавам:
PROGRAM OCTAVA(INPUT,OUTPUT); USES CRT: VAR X,Y:REAL; A, B,C, 0.1: INTEGER; BEGIN B := 1; WRITELNC Введите номер от 1 до 9, нажмите клавишу <ВВОД>'): READ(A); WRITELNC Задайте длительность звучания ноты в мсек, нажмите <ВВОД>'); READ(D); FOR I := 1 TO A-1 DO B := B*2; X := 1; FOR I := 1 TO 12 DO BEGIN Y := (16.3516075*B*X); C := TRUNC(Y); WRITELNC Частота, Гц ',?); SOUND(C): DELAY(D); NOSOUND: X := X*1.059464 END; END
Если нет потребности в звуковой дублирующей индикации, то вторую половину схемы (рис. 2.12) можно исключить. Для индикации переменного напряжения на входе устройства достаточно использовать простейший пиковый детектор.
Для питания аппаратуры в полевых условиях зачастую используют 12-вольтовые мотоциклетные кислотные аккумуляторы. Известно, что срок службы такой батареи заметно зависит от правильности ее эксплуатации, в частности, режима зарядки.
Для того чтобы не допустить переразрядки или перезарядки такого аккумулятора, полезно иметь устройство, в одном случае реагирующее на разряд, а в другом – на полный заряд [2.14].
На рис. 2.13 показана схема устройства [2.14], которое издает звуковой сигнал при разряде аккумулятора до напряжения ниже порогового значения, а в верхнем (по схеме) положении переключателя S2 издает такой же сигнал при заряде до напряжения выше критического.
Устройство состоит из сравнивающего узла на элементах DD1.1 и DD1.2 (триггера Шмитта) и мультивибратора на DD1.3 и DD1.4. При показанном на схеме положении переключателя S2 мультивибратор запускается когда на входе DD1.1 имеется напряжение выше порога срабатывания. Если S2 в нижнем положении – мультивибратор запускается когда на входе DD1.1 напряжение ниже порога срабатывания.

Рис. 2.13. Схема порогового звукового индикатора разряда аккумулятора