АкушерствоАнатомияАнестезиологияВакцинопрофилактикаВалеологияВетеринарияГигиенаЗаболеванияИммунологияКардиологияНеврологияНефрологияОнкологияОториноларингологияОфтальмологияПаразитологияПедиатрияПервая помощьПсихиатрияПульмонологияРеанимацияРевматологияСтоматологияТерапияТоксикологияТравматологияУрологияФармакологияФармацевтикаФизиотерапияФтизиатрияХирургияЭндокринологияЭпидемиология

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

Прочитайте:
  1. A. метода разбивки по компонентам
  2. Адреса портов ввода-вывода
  3. Актиномицеты.Их систематич. положение,морфологич.,культур.,физиологич. св-ва,значение в природе и практическое использование.
  4. Ввод параметров с использованием Геометрического калькулятора
  5. Воспроизведение звука
  6. ГЛАВА 10 ИСПОЛЬЗОВАНИЕ ЦИ НЭЙЦЗАН В СЛУЧАЕ ОБЩИХ НЕДОМОГАНИЙ
  7. Диалог настройки параметров вывода
  8. Диалог установки фильтров вывода на печать
  9. Замена на ПП-1 радиоэлементов ЧИП компонентами: элементная база, расчет площади ПП-2, определение параметров компоновки ПП-1, ПП-2, сравнительный анализ.
  10. Запись звука

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.

 


Дата добавления: 2015-09-18 | Просмотры: 502 | Нарушение авторских прав



1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 |



При использовании материала ссылка на сайт medlec.org обязательна! (0.002 сек.)