АЦП и ЦАП в автоматизированных системах научных исследований. Алгазинов Э.К - 16 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

16
На плате установлено три счётчика-таймера (одна
микросхема 580ВИ53) с кварцевой стабилизацией 1 МГц, при помощи ко-
торых осуществляется программная синхронизация ввода и генерирование
прерываний .
Программное обеспечение
В данный описывается библиотека подпрограмм, предназначенных
для работы с платой АЦП L-154 на языке Турбо Паскаль для IBM PC. Биб -
лиотека содержит функции, позволяющие осуществлять ввод - вывод ана-
логовой и цифровой информации в асинхронном режиме, вводить и выво-
дить аналоговую информацию как в одноканальном, так и в многоканаль-
ном режимах , вводить и выводить данные в программном режиме и в ре-
жиме генерации прерываний .
Библиотека подпрограмм и язык Паскаль
Для вызова функций из языка Turbo Pascal Вам необходимо:
• создать файл с исходным текстом на языке Паскаль;
• добавить в начало него следующую строку: {$F+} – для использования
дальней модели вызова процедур и функций ;
• объявить внешние модули l154pas или l1208pas в зависимости от уста -
новленной платы .
Пример
Программа осуществляет асинхронный ввод поочередно со всех ка-
налов АЦП и отображает полученные значения на экране.
{$F+}
uses l154pas;
var
i : Integer;
UsilIndex : ARRAY[0..2] OF WORD;
Channel : WORD;
begin
if(Plata_Test = 1) then begin writeln('No Board Detected'); exit; end;
UsilIndex[0]:=$C0; {Усиление равно 1}
UsilIndex[1]:=$40; {Усиление равно 2}
UsilIndex[2]:=$80; {Усиление равно 5}
for i:=0 to 15 do
begin
{Устанавливаем дифференциальный режим ,
усиление = 1, x=0..15 - номер канала
x=0 - первый канал, x=15 - 16й канал}
Channel:=x OR UsilIndex[0];
write(AdChan[Channel]);
end
end. 
                                          16
      Н а плат е уст  анов лено т   ри       счёт
                                                чика-т аймера      (од на
микросх ема 580В И 53) с кв арцев ой ст
                                      абилизацией 1 М Гц, припомощ ико-
торы х осущ ест
              в ляетсяпрограммнаясинх ронизацияв в од а игенериров ание
преры в аний.


       П рогра ммное об ес печ ение
       В д анны й описы в ает ся библиот   ека под программ, пред назначенны х
д ляработ  ы с плат ой А Ц П L-154 на язы кеТ урбо Паскальд ляIBM PC. Биб-
лиот ека сод ерж итф ункции, позв оляю щ иеосущ ест    в лять в в од - в ы в од ана-
логов ой ициф ров ой инф ормациив асинх ронном реж име, в в од ит        ьив ы в о-
д ить аналогов ую инф ормацию как в од ноканальном, т      ак ив многоканаль-
ном реж имах , в в од ить ив ы в од ит
                                     ь д анны е в программном реж име ив ре-
ж имегенерациипреры в аний .

      Биб лио т е ка по д про грам м и язык П ас каль
      Д ляв ы зов аф ункций из язы каTurbo Pascal В ам необх од имо:
• созд ат ьф айл с исх од ны м т екст ом наязы кеПаскаль;
• д обав ить в начало него след ую щ ую ст    року: {$F+} – д ля использов ания
  д альней мод елив ы зов апроцед ур иф ункций;
• объ яв ить в неш ние мод улиl154pas илиl1208pas в зав исимост      иотуст  а-
  нов ленной плат   ы.

      П рим е р
      Программа осущ ест в ляетасинх ронны й в в од поочеред но со в сех ка-
налов А Ц П иот ображ аетполученны езначениянаэкране.
      {$F+}
      uses l154pas;
      var
       i            : Integer;
       UsilIndex : ARRAY[0..2] OF WORD;
       Channel : WORD;
      begin
       if(Plata_Test = 1) then begin writeln('No Board Detected'); exit; end;
       UsilIndex[0]:=$C0; {У силениерав но1}
       UsilIndex[1]:=$40; {У силениерав но2}
       UsilIndex[2]:=$80; {У силениерав но5}
       for i:=0 to 15 do
         begin
          {У станав лив аем д иф ф еренциальны й реж им,
           усиление= 1, x=0..15 - номер канала
           x=0 - перв ы й канал, x=15 - 16й канал}
           Channel:=x OR UsilIndex[0];
           write(AdChan[Channel]);
         end
      end.

Страницы