|
системы в зависимости от применяемого ПК Так, можно получить 3-4 измерения в секунду на «антикварном» ПК 8088/4,77 МГц, 60-70 измерений в секунду на 386SX25 и 700-1000 измерений в секунду на 486 DX/133 МГц, что все же достаточно далеко от современных скоростей, но весьма почетно для BASIC-интерпретатора.
Стоит обратить внимание на то, как использована зарезервированная цикловая переменная TIME$. Она позволяет при любой частоте процессора получить достаточно точную шкалу секунд, минут и даже часов, А если понадобится осуществлять, например, одно измерение за несколько дней, то можно использовать переменную DATE$.
200 REM----MINUTE----
210 Q=0:S=0:GOSUB 100
220 LOCATE 5,1
230 PRINT "Идет измерение..."
240 H$=LEFT$(TTME$,5)
250 IF H$<>LEFT$(TTME$,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 (с)1997 Patrick GUEULLE
Пиковый регистратор минимумов и максимумов
Достаточно добавить несколько строк на языке 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 "Макс: ";
|
|||||
| |||||