Контроль радиационного фона
Скрипт:
1:;
if($ptime=30){2};
2:$S0=$X0;
$X0=0;
if($S0>40)trans{3};
trans{1};
3:M(Level=$S0);
trans{1};
------------- конец скрипта ----------
Измерение радиации производится на основе приема импульсов от дозиметра Белла
Импульсы от дозиметра Белла поступают на D0.
скетч Bort-X обладает свойством автоматически считать импульсы на D0 и записывать их в переменную $X0, к которой есть доступ со стороны скрипта. За 30 секунд набирается число импульсов, которое и соответствует интенсивности излучения в микрорентген в час. Период сканирования в панели управления устанавливается на 30 секунд. И по истечении 30 секунд сосчитанные импульсы поступают в переменную панели $S0, которой присвоено имя Level (Уровень). А если уровень превышает 40, то шлется письмо с указание уровня на адрес Email, указанный в конфигурации. В начале следующего цикла счетчик $X0 обнуляется. Итого только 7 строк скрипта понадобилось для решения задачи по измерению радиации. Естественно, панель управления защищена в данном случае паролем.