Сопряжение компьютеров с внешними устройствами в стандарте КАМАК. Заярный В.П - 39 стр.

UptoLike

ВУЗ: 

ВолГУ | Волгоград

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

Рубрика: 

39
Вывод на дисплей содержимого массива а[i] не является принципи-
ально сложной задачей. Ключевые моменты здесь состоят в том, чтобы
отобразить массив [1,n] по горизонтали на ширину экрана [0,GetMaxX]:
px:=round(1.0*i/n*getmaxx);
и по вертикали [0, (1 shl 14)-1] — на высоту экрана [getmaxy,0]:
py:=round(getmaxy*(1.0-1.0*a[i]/(1 shl 14-1))).
Процедуры открытия графического режима InitGraph(), определения
ширины экрана GetMaxX, высоты экрана GetMaxY, вывода точки на экран
PutPixel() являются стандартными, содержатся в
модуле graph и описаны в
любом справочном руководстве по языку Паскаль, а также в справочной
системе cреды Turbo Pascal 7.0.
Учитывая это, составим процедуру вывода графика на экран следую-
щим образом:
procedure writegrafic;
var j:integer;
px,py:word;
begin
j:=detect; {Определяем наивысший граф. режим}
initgraph(j,j,''); {Открыв. режим; в каталоге запуска
должен находиться драйвер egavga.bgi}
setcolor(white);
rectangle(0,0,getmaxx,getmaxy); {Рамочка для красоты
}
for i:= 1 to n do
begin
px:=round(1.0*i/n*getmaxx); {Гориз. коорд. точки}
py:=round(getmaxy*(1.0-1.0*a[i]/(1 shl 14-1))); {Верт. коорд. точки}
putpixel(px,py,yellow); {Выводим точку желтого цвета}
end;
end;
ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ
П
РЕДВАРИТЕЛЬНАЯ ПОДГОТОВКА
1. Изучите основные операторы и принципы составления программ на
языке Паскаль, пользуясь соответствующей литературой.
2. Получите у преподавателя функциональную зависимость от времени
для сигнала, который необходимо вывести через ЦАП.

Страницы