|
Вывод информации на экран осуществляет программа CGAVISU. BAS или VGAVISU.BAS. Вторая из них применяется, если желательно воспользоваться большим разрешением, соответствующим. экранам VGA. 500 REM----CGAVISU-—-- 510 OPEN "dat.dat" FOR INPUT AS #1 520 INPUT#l,Y:Y=199-INT(Y*199/5) 530 PSET(0,Y) 540 FOR X=l TO 639 550 INPUT#l,Y:Y=199-INT(Y*199/5) 560 LINE -(X,Y) 570 NEXT X 580 CLOSE 590 REM (c) 1997 Patrick GUEULLE 500 REM----VGAVISU---- 510 OPEN "dat.dat" FOR INPUT AS #1 520 INPUT#l,Y:Y=349-INT(Y*349/5) 530 PSET(0,Y) 540 FOR X=l TO 639 550 INPUT#l,Y:Y=349-INT(Y*349/5) 560 LINE -(X,Y) 570 NEXT X 580 CLOSE 590 REM (c)1997 Patrick GUEULLE Очевидно, каждую из программ надо объединить с экранным драйвером CGA.BAS или VGA.BAS, соответствующим используемому оборудованию. 300 RЕМ —-- CGA ---- 310 SCREEN 2 320 KEY OFF:CLS 330 LINE(0,0)-(0,199) 340 FOR Y=0 TO 199 STEP 20 350 LINE(0,Y)-(639,Y),,,&HCCCC 360 NEXT Y 370 FOR 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),,,&HCCCC 420 REM (c)1997 Patrick GUEULLE Это объединение можно сделать следующим образом: load "CGA" (загрузка драйвера); затем merge "CGAVISU" (добавление программы вывода на экран). Полученная программа теперь может быть сохранена под каким-либо именем при помощи обычной команды SAVE. На рис. 5.11 показан результат вывода на бумагу с использованием буфера обмена Windows кривой разряда конденсатора емкостью 4,7 мкФ через входное сопротивление АЦП. Эта кривая была получена на экране CGA (640x200 точек).
Рис 5.12. воспроизводит ту же запись, пересчитанную для вывода на экран VGA.
|
