|
330 PRINT USING "##.##" ; INT (100*A)/100;
340 PRINT " "+T$
350 LOCATE 7,5: PRINT "Мин: ";
360 PRINT USING "##.##";INT(100*I)/100;
370 PRINT " "+S$
380 IF INKEY$=CHR$(32) THEN 220
390 Q=0:GOTO 230
400 REM (c)1997 Patrick GUEULLE
Это добавление было сделано в программе MINMAX.BAS; также в нее были включены операторы вывода трех значений времени (в часах, минутах и секундах):
• время текущего измерения;
• время регистрации максимума;
• время регистрации минимума.
Надо отметить, что мультиметр редко дает подобные возможности, столь легко реализованные в виртуальном приборе.
Регистратор длительных процессов
В этом разделе будет рассказано о том, как за несколько десятков долларов достичь результатов, обычно возможных только при использовании ленточных или магнитных регистраторов - приборов, стоящих в сотни раз дороже! Вместо того чтобы чертить на бумаге кривую в реальном масштабе времени, что технически трудновыполнимо, гораздо проще накапливать данные в файле на диске, а уже потом обрабатывать их.
Программа сбора данных (FICHIER.BAS), которую, конечно же, надо дополнить драйвером используемого АЦП при помощи команды MERGE, исключительно проста.
200 REM----FICHIER----
210 GOSUB 100
220 OPEN "dat.dat" FOR OUTPUT AS #1
230 PRINT "Идут измерения..."
240 FOR G=0 TO 639
250 GOSUB 100
260 PRINT #1,D
270 FOR T=0 TO 2000:NEXT T
280 NEXT G:CLOSE #1
290 REM (c) 1997 Patrick GUEULLE
В оригинальной версии эта программа создает файл DAT.DAT, содержащий 640 выборок, которые производятся с частотой дискретизации, определяемой в строке 270 (простая задержка). Конечно, число 2000 используется лишь при первых попытках, а потом надо
|
|||||
| |||||