hola
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, MPlayer;
type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MediaPlayer1.FileName := 'D:\bajados\sonidos\';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
case combobox1.ItemIndex of
0: begin
Label1.Caption := 'ONE';
MediaPlayer1.FileName := 'D:\bajados\one.mp3';
end;
1: begin
Label1.Caption := 'TWO';
MediaPlayer1.FileName := 'D:\bajados\two.mp3';
end;
2: begin
Label1.Caption := 'THREE';
MediaPlayer1.FileName := 'D:\bajados\three.mp3';
end;
3: begin
Label1.Caption := 'FOUR';
MediaPlayer1.FileName := 'D:\bajados\four.mp3';
end;
4: begin
Label1.Caption := 'FIVE';
MediaPlayer1.FileName := 'D:\bajados\five.mp3';
end;
5: begin
Label1.Caption := 'SIX';
MediaPlayer1.FileName := 'D:\bajados\six.mp3';
end;
6: begin
Label1.Caption := 'SEVEN';
MediaPlayer1.FileName := 'D:\bajados\seven.mp3';
end;
7: begin
Label1.Caption := 'EIGHT';
MediaPlayer1.FileName := 'D:\bajados\eight.mp3';
end;
8: begin
Label1.Caption := 'NINE';
MediaPlayer1.FileName := 'D:\bajados\nine.mp3';
end;
9: begin
Label1.Caption := 'TEN';
MediaPlayer1.FileName := 'D:\bajados\ten.mp3';
end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;
0:label1.Caption:= 'ONE';
1:label1.Caption:= 'TWO';
2:label1.Caption:= 'THREE';
3:label1.Caption:= 'FOUR';
4:label1.Caption:= 'FIVE';
5:label1.Caption:= 'SEX';
6:label1.Caption:= 'SEVEN';
7:label1.Caption:= 'EIGHT';
8:label1.Caption:= 'NINE';
9:label1.Caption:= 'TEN';
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CLOSE;
end;
end.
Código Delphi
[-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
MediaPlayer1.FileName := 'D:\bajados\sonidos\----------.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
como hago para que los sonidos salgan automaticos solamente al escoger la opcion en el combobox y ademas que archivo colocaria en el procedimiento anterior si ya he asignado cada archivo de sonido en el case de cada uno.
