|
340 FOR Y=0 TO 199 STEP 20
350 LINE(0,Y)-(639,Y},,,&HCCCC
360 NEXT Y
370 TOR X=0 TO 639 STEP 32
380 LINE(X,0)-(X,199),,,&HCCCC
390 NEXT X
400 LINE(639,0)-(639,199)
410 LINE{0,199)-(639,199),,,&HCCCC
420 REM (c) 1997 Patrick GUEULLE
300 REM----VGA----
310 SCREEN 9
320 KEY OFF:CLS
330 LINE(0,0)-(0,349)
340 FOR Y=0 TO 349 STEP 35
350 LINE{0,Y)-(639,Y),,,&HCCCC
360 NEXT Y
370 FOR X=0 TO 639 STEP 32
380 LINE(X,0)-(X,349),,,&HCCCC
390 NEXT X
400 LINE(639,0)-(639,349)
410 LINE(0,349)-(639,349),,,&НСCСС
420 REM (c)1997 Patrick GUEULLE
Это объединение можно сделать следующим образом:
load "cga" (загрузка драйвера);
затем
merge "CGAVISU" (добавление программы вывода на экран).
Полученная программа теперь может быть сохранена под каким-либо именем при помощи обычной команды SAVE.
На рис, 5.11 показан результат вывода на бумагу с использованием буфера обмена Windows, кривой разряда конденсатора емкостью 4,7 мкФ через входное сопротивление АЦП. Эта кривая была получена на экране CGA (320x200 точек).
Рис. 5.12 воспроизводит ту же запись, пересчитанную для вывода на экран VGA.
Обеспечение точной временной развертки
Для приложений, требующих точной регистрации параметра «время», можно использовать программу TIME.ВAS, записываклцую в файл DAT.DAT значение переменной TIME$ вместе с измеренной
величиной напряжения.
200 REM----TIME----
210 GOSUB 100
220 OPEN "dat.dat" FOR OUTPUT AS #1
|
|||||
| |||||