4.Параллельный порт: программирование сигналов заданной формы..
Параллельный порт: программирование сигналов заданной формы.
С помощью параллельного порта можно получать сигналы различной формы. Для этого к регистру данных необходимо подключить восьмиразрядный ЦАП и подавать на него последовательность параллельных кодов, величина которых описывает закон изменения сигнала.
Программа получения пилообразного напряжения.
/*pila*/
#include
#include
#include
int i;
main(){
while(1){
ioperm(0x378,3,1);
for (i=0; i<255; i++)
{outb(i,0x378); } }
ioperm(0x378,3,0);
}
Программа получения сигнала заданной формы.
PROGRAM Batman;
uses crt;
var i,j,k:integer;
Begin
repeat
for i:=0 to 255 do
port[$378]:=i;
for i:=255 downto 128 do
port[$378]:=i;
for i:=0 to 30000 do;
for i:=128 to 255 do
port[$378]:=i;
for i:=255 downto 0 do
port[$378]:=i;
delay(5);
until keypressed;
end.
/*batman*/
#include
#include
#include
int i;
main(){
while(1){
ioperm(0x378,3,1);
for (i=0; i<255; i++)
{outb(i,0x378); }
for (i=255; i>128; i--)
{ outb(i,0x378); }
for (i=0; i<30000; i++);
for (i=128; i<255; i++)
{outb(i,0x378); }
for (i=255; i>0; i++)
{outb(i,0x378); } }
ioperm(0x378,3,0);
}
Программа имитации морского прибоя.
program priboi;
uses crt;
var a,i:integer;
begin
repeat
for i:=0 to 255 do
for a:=0 to 5000 do {5000 раз формируются случайные числа, величина которых}
port[$378]:=random(i); {меняется от 0 до I т.е. нарастает вместе с ростом i}
for i:=255 downto 0 do
for a:=0 to 5000 do
port [$378]:=random(1);
until keypressed;
end.