|
Во многих ситуациях бывает нужно наблюдать формирование кривой в реальном масштабе времени прямо на экране ПК. При этом должна быть предусмотрена возможность распечатки изображения на принтере после вывода на экран или даже в процессе вывода, при включении опции «печать экрана». Такой результат очень просто получить, совместив три программы: • драйвер АЦП; • драйвер экрана; • прикладную программу. Первые два модуля уже известны, а в качестве третьего может быть использована либо программа CDIRECT.BAS (с экраном CGA), либо VDIRECT.BAS (с экраном VGA). 85 GOSUB 300 200 REM----CDIRECT---- 210 GOSUB 100:PSET(0,0) 220 FOR G=l TO 639 230 GOSUB 100 240 Y=D:GOSUB 500 250 FOR T=0 TO 2000 :NEXT T:REM развертка '260 NEXT G 270 END 415 X=0:RETURN 500 Y=199-INT(Y*199/5) 510 LINE -(X,Y) 520 X=X+1 530 RETURN 540 REM (c)1997 Patrick GUEULLE
85 GOSUB 300 200 REM----VDIRECT ---- 210 GOSUB 100:PSET(0,0) 220 FOR G=l TO 639 230 GOSUB 100 240 Y=D:GOSUB 500 250 FOR T=0 TO 2000:NEXT T:REM развертка 260 NEXT G 270 END ,415 X=0:RETURN 500 Y=349-INT(Y*349/5) 510 LINE -(X,Y) 520 X=X+1 ,530 RETURN 540 REM (c)1997 Patrick GUEULLE Потребуются следующие команды: load "maximio" (загрузка драйвера для MAX 1243); merge "VGA" (добавление драйвера для экрана VGA); MERGE "VDIRECT" (добавление модуля осциллографа VGA). На рис. 5.13 приведена полученная таким образом осциллограмма синусоидального сигнала с амплитудой 1 В и частотой 4 Гц на выходе функционального генератора, выполненного на базе широко распространенной микросхемы МАХ 038. В данном случае 10-разрядный АЦП работал с ПК модели 486/133 МГц с экраном VGA.
Чтобы приспособить осциллограф к той или иной практической задаче, в программу достаточно внести минимальные изменения. Для получения непрерывной развертки без очистки экрана (режим длительного послесвечения) следует исправить строку 270: 270 Х=0 : GOTO 220 Для получения того же результата, но с очисткой экрана на каждом «обратном ходе» развертки (режим короткого послесвечения), надо записать: 270 CLS : GOTO 85 Для получения режима «ждущей синхронизации» следует добавить только одну строку: 215 IF D=0 THEN 210 Эта команда позволяет дождаться положительного напряжения на входе АЦП для запуска развертки. Конечно, можно выбрать и любую другую отличную от нуля величину в диапазоне от 0 до +5 В, а также применять условные операторы «больше, чем» или «меньше, чем». Можно также предусмотреть и вход внешней развертки, используя либо второй АЦП, либо один из цифровых входов (линии /АСК или BUSY параллельного порта, игровой порт и т.п.).
|
