200 REM ----MINUTE----
210 Q=0:S=0:GOSUB 100
220 LOCATE 5,1
230 PRINT "Идет измерение..."
240 H$=LEFT$(TIME$,5)
250 IF H$<>LEFT$(TIME$,5) THEN BEEP:GOTO 290
260 GOSUB 100
270 S=S+D:Q=Q+1
280 GOTO 250
290 D=INT(100*S/Q)/100
300 LOCATE 1,1
310 PRINT USING "##.##";D;
320 PRINT "(среднее за ";Q;" измерений)";
330 GOTO 210
340 REM (c)1997 Patrick GUEULLE

5.2.7 Пиковый регистратор минимумов и максимумов

Достаточно добавить несколько строк на языке BASIC, чтобы получить режим запоминания минимумов и максимумов измеряемого напряжения, с возможностью обнуления результатов путем нажатия на клавишу пробела на клавиатуре ПК.

200 REM ---MINMAX---
210 PRINT "Нажать клавишу пробела для перезапуска"
220 I=5:A=0:Q=0:GOSUB 100
230 FOR G=1 TO 100
240 GOSUB 100:Q=Q+D
250 NEXT G
260 Q=Q/100
270 IF Q<=I THEN I=Q:S$=TIME$
280 IF Q<=A THEN A=Q:T$=TIME$
290 LOCATE 3,5:PRINT "Mes : ";
300 PRINT USING "##.##";INT(100*Q)/100;
310 PRINT " "+TIME$
320 LOCATE 5,5: PRINT "Макс: ";
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:GOT0 230
400 REM (c)1997 Patrick GUEULLE

Это добавление было сделано в программе MINMAX.BAS; также в нее были включены операторы вывода трех значений времени (в часах, минутах и секундах):

время текущего измерения;
время регистрации максимума;
время регистрации минимума.

Надо отметить, что мультиметр редко дает подобные возможности, столь легко реализованные в виртуальном приборе.

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32

Измеритильные приборы, 2010