Основы языка Delphi



             

Листинг 11 3 Использование компонента



Листинг 11.3. Использование компонента MediaPlayer для вывода звука


unit FuntToKg1_; interface

uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls, MPlayer;

type

TForm1 = class(TForm)

Edit1: TEdit; // поле ввода веса в фунтах

Button1: TButton; // кнопка Пересчет

Label2: TLabel; // поле вывода результата

Label1: TLabel; // поле информационного сообщения

MediaPlayer1: TMediaPlayer; // медиаплеер

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM)

// щелчок на кнопке Пересчет

procedure TForm1.ButtonlClick(Sender: TObject);

var

f: real; // вес в фунтах k: real; // вес в килограммах

begin

form1.Label2.Caption: =' ';

try // возможна ошибка, если в поле

// Edit1 будет не число

f:=StrToFloat(Edit1.Text);

Forml.MediaPlayer1.Play;

// звуковой сигнал k:=f*0.4095;

Label2.caption:=Editl.text+' ф. - это ' +

FloatToStrF(k,ffGeneral,4,2}+' кг. ';

except

on EConvertError do // ошибка преобразования

begin

// определим и проиграем звук "Ошибка"

Form1.MediaPlayer1.FileName:=

'c:\windows\media\chord.wav';

Form1.MediaPlayer1.Open;

Form1.MediaPlayer1.Play; // звуковой сигнал

ShowMessage('Ошибка! Вес следует ввести числом.');

form1.Edit1.SetFocus; // курсор в поле ввода

// восстановим звук

Forml.MediaPlayer1.FileName:=

'c:\windows\media\ding.wav';

Forml.MediaPlayer1.Open;

end;

end;

end;

end.












Содержание  Назад  Вперед