|
|
|
Главная Компьютер [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [ 33 ] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] 600 У=349-1МГ(У*349/5) 602 PSET(X,W) 605 W=Y 610 LINE-(X,W) ,14 630 RETURN 1000 REM----12BITS---- 1010 KEY OFF:CLS 1020 C=&H2F8:REM COM2 : 1030 M=12: REM число разрядов 1040 OUTC+4,1 1050 FOR T=0 TO 100:NEXTT 1060 OUT C+3,64 1070 FORT=0 TO 500:NEXT T 1080 RETURN 1090 OUT C+4 ,0 :Q=0: REM ACQUISITION 1100OUTC+4,2:OUTC+4,0 1110OUTC+4,2:OUTC+4,0 1120 OUT C+4,2:OUT C+4, 0 1130FORF=0TOM-l 1140 OUT C+4,2 1150 E=INP(C+6) AND 16 1160 OUT C+4,0 1170 IF E=16 THEN Q=Q+2" (M-l-F) 1180 NEXT F 1190Q=5*Q/(2M-1) 1200 OUT C+4,1: RETURN 1210 REM (c)1997 Patrick GUEULLE Программа BICOURBE.BAS не должна рассматриваться только как иллюстрация того, что можно получить при комбинировании программных модулей, приведенных в данной книге. Это образец подхода, называемого англоговорящими программистами quick and dirty («быстро и грязно»), т.е. здесь отсутствует всякое стремление к структурированию и четкости. Программа работает, и это главное! В частности, неоднократно применялась функция RENUM языка BASIC для переопределения в разных местах той или другой подпрограммы. В том виде, в каком она приведена, программа управляет сразу двумя 12-разрядными АЦП - одним на базе МАХ 1241 и другим на базе LTC 1286. Для каждого из них определен один из каналов двухлучевого осциллографа (рис 5.14), в котором разные цвета лучей позволяют без проблем отличать один АЦП от другого. Действительно, язык BASIC легко позволяет задавать атрибуты, определяющие цвет того или иного графического элемента, лишь бы его поддерживал графический экран. Ниже приведены коды цветов:
Рис. 5.14. [Гример (юботы виртуального двухлучевого осциллографа черный синий зеленый голубой красный пурпурный коричневый белый (цвет по умолчанию) серый светло-синий светло-зеленый светло-голубой светло-красный светло-пурпурный желтый ярко-белый
[0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [ 33 ] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] 0.0012 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||