Вывод звука через 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.