Class Tfm_PCSpkr (unit fm_PCSpkr1)

Inherits from

TForm

PortTest program PC Speaker test form Revisions --------- 98-06-01 GW Original Copyright info: see main form unit

Constructors



Functions

procedure bt_Disable_PortsClick(Sender: TObject);

---------------------------------

procedure bt_Enable_PortsClick(Sender: TObject);

---------------------------------

procedure bt_NoteOffClick(Sender: TObject);

---------------------------------

procedure bt_NoteOnClick(Sender: TObject);

---------------------------------

procedure bt_Test_DisableClick(Sender: TObject);


procedure bt_Test_EnableClick(Sender: TObject);

---------------------------------

function ResultOK(DriverResult: DWORD): Boolean;

Private declarations

---------------------------------


Properties

Events

Variables

bt_Disable_Ports : TButton;


bt_Enable_Ports : TButton;


bt_NoteOff : TButton;


bt_NoteOn : TButton;


GroupBox4 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


lb_Result : TLabel;


tx_Freq : TEdit;



Constructors


Functions


procedure bt_Disable_PortsClick(Sender: TObject);

---------------------------------


procedure bt_Enable_PortsClick(Sender: TObject);

---------------------------------


procedure bt_NoteOffClick(Sender: TObject);

---------------------------------


procedure bt_NoteOnClick(Sender: TObject);

---------------------------------


procedure bt_Test_DisableClick(Sender: TObject);


procedure bt_Test_EnableClick(Sender: TObject);

---------------------------------


function ResultOK(DriverResult: DWORD): Boolean;

Private declarations

---------------------------------


Properties


Events


Variables


bt_Disable_Ports : TButton;


bt_Enable_Ports : TButton;


bt_NoteOff : TButton;


bt_NoteOn : TButton;


GroupBox4 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


lb_Result : TLabel;


tx_Freq : TEdit;