Вывод звука через LPT - C#

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Задание такое: есть ЦАП с динамиком, который подключается к LPT порту. Нужно написать программу, которая будет выводить звук на этот порт. Может есть идеи, как это сделать?

Решение задачи: «Вывод звука через LPT»

textual
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure Out32(PortAddress:smallint;Value:smallint);stdcall;
external 'inpout32.dll';
implementation
{$R *.lfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
// обнулить разряды D0 - D7
Out32($378, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var A: integer;
begin
// Записать в порт число из поля
 
while true do
      begin
           Out32($378, random(256));
      end;
end;
end.

Оцени полезность:

12   голосов , оценка 4.333 из 5
Похожие ответы