| По всем вопросам работы сайта пишите! |
|
Дизайн и программирование - Joker - 2005г. |
Обеспечение точной временной развертки.
| Схемы | Программы | Библиотека | Все для сотового | Компьютеры | Поиск |
| Чат | Форум | Ссылки | Рефераты | Гостевая | |
|
Для приложений, требующих точной регистрации параметра «время», можно использовать программу TIME.BAS, записывающую в файл DAT.DAT значение переменной TIMES вместе с полученной величиной напряжения. 200 REM----TIME---- 210 GOSUB 100 220 OPEN "dat.dat" FOR OUTPUT AS #1 230 PRINT"Идут измерения..." 240 FOR G=0 TO 639 250 GOSUB 100 260 PRINT#1,D,,TIMES 270 FOR T=0 TO 2000:NEXT T 280 NEXT G 290 CLOSE#1 300 REM (c)1997 Patrick GUEULLE Понятно, что для полной обработки такого файла потребуются специальные программы. Можно использовать как большие коммерческие пакеты, статистические или графические, так и простые программы TCGA.BAS и TVGA.BAS. 500 REM----TCGA---- 510 OPEN "dat.dat" FOR INPUT AS #1 520 INPUT#l,Y:Y=199-INT(Y*199/5) 530 INPUT#l,S$:PSET(0,Y) 540 FOR X=l TO 639 550 INPUT#l,Y:Y=199-INT(Y*199/5) 560 INPUT*1,T$:LINE -(X,Y) 570 NEXT X:CLOSE #1 580 LOCATE 1,1:PRINT S$ 590 LOCATE 1,73:PRINT S$ 600 REM (c)1997 Patrick GUEULLE 500 REM----TVGA---- 510 OPEN "dat.dat" FOR INPUT AS #1 520 INPUT#l,Y:Y=349-INT(Y*349/5) 530 INPUT#l,S$:PSET(0,Y) 540 FOR X=l TO 639 550 INPUT#l,Y:Y=349-INT(Y*349/5) 560 INPUT#1,T$:LINE -(X,Y) 570 NEXT X:CLOSE #1 580 LOCATE 1,1:PRINT S$ 590 LOCATE 1,73:PRINT S$ 600 REM (c)1997 Patrick GUEULLE
|
--------------------------------------------------------------------------------------------------------------------------------------------