punteros en delphi

karen08 · #1 12-11-2007

hola

tambien me digeron que utizara el procedimiento beep que sabe usten de eso, como lo utilizaria para poner el sonido a cada numero cuando sea seleccionado.

ahh la ubicacion de de la cancion que voy mostrar con media player es por ejemplo SI LA TENGO EN DISCO D o en mis documentos.

saludos.

[Delphius] · #2 12-11-2007

Cita:

Empezado por karen08

hola

tambien me digeron que utizara el procedimiento beep que sabe usten de eso, como lo utilizaria para poner el sonido a cada numero cuando sea seleccionado.

ahh la ubicacion de de la cancion que voy mostrar con media player es por ejemplo SI LA TENGO EN DISCO D o en mis documentos.

saludos.

Karen08, Kareon08, Karen08... no seas tan impulsiva ¿Consideraste primero realizar la búsqueda que te aconsejo? ¿Analizaste el código que te expuse?

Beep no se ajusta a lo que buscas. Este procedimento se limita a emitir un sonido como los de advertencia.

Por otro lado, ¿que has querido decir con el hecho de que si tienes el archivo de audio en Disco D, o en mis documentos?
La Path completa está constituída por el directorio donde está el archivo más el nombre y la extensión de dicho archivo. Por ejemplo:

Código:

C:\BLA\BLA\unarchivo.mp3

No interesa donde se encuentre el archivo siempre y cuando sepas el directorio va a andar. No se a que te refieres con dicha pregunta, por favor toma tu tiempo para formular las preguntas, analiza objetivamente las propuestas y consejos que te damos...

Saludos,

karen08 · #3 12-11-2007

hola

tengo lo siguiente pero,

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\date la vuelta.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

case combobox1.ItemIndex of
0: begin
Label1.Caption := ' ';
MediaPlayer1.FileName := 'D:\bajados\one.mp3';
end;
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.

lo deseado es que para cada numero me salga una musica si me entiendes, yasi saldra un solo sonido para todos. la idea es que cuando yo seleccione del combobox el numero el muestre el nombre en el label1 que esta en blanco y salga el sonido one, cuando coja el 1, two cuando coja el 2 y asi..............................

que me sugieres

saludos

[Delphius] · #4 12-11-2007

Karen08,
Por favor emplea las etiquetas [delphi] y [/delphi]
Para que el código delphi quede resaltado y se entienda mejor.

Con respecto al problema se soluciona dentro del mismo case. La estructura debe repetirse para cada valor, tu sólo lo haz hecho para el UNO.

Código Delphi [-]case combobox1.ItemIndex of
0: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
1: begin
    Label1.Caption := ...
    MediaPlayer1.FileName := ....
    end;
...
10: begin
      Label1.Caption := ...
      MediaPlayer1.FileName := ....
     end;
end; // fin case
MediaPlayer1.Open;
MediaPlayer1.Play;

Saludos,

karen08 · #5 12-11-2007

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.

karen08 · #6 12-11-2007

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.

[Ivanzinho] · #7 13-11-2007

Cita:

Empezado por karen08

hola

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.

El case tiene que ir en el evento OnChange del listbox en lugar de la línea

Código Delphi [-]   MediaPlayer1.FileName := 'D:\bajados\sonidos\';

Un saúdo

[Delphius] · #8 13-11-2007

Karen08,
¿Eso te compila?

Yo le veo un par de errores. Lo que tu deseas realizar debe ir todo en el evento onChange. Así:

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    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
  { Lo siguiente está de más!
  MediaPlayer1.FileName := 'D:\bajados\sonidos\';
  MediaPlayer1.Open;
  MediaPlayer1.Play; }

{end; ¡Este en está de más! }

  // ´Paso 1: Elegimos un archivo
  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

  // Paso 2: Una vez elegida la música, abrimos y reproducidos
  // el archivo
  MediaPlayer1.Open;
  MediaPlayer1.Play;
{ LO que sigue está de más!
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;   {Fin evento onChange}

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

end.

No es por malo, pero deberías prestar mayor atención a la lógica de tu aplicativo. Compara tu código con este. Lo que está en comentarios o es porque está de más o es para hacer algunas notas aclaratorias.
Los códigos que te vinimos proporcionando debías ajustarlo a tus necesidades, tal parece que el error se debió a que viniste copiando y pegado y haciendo pruebas... No está mal, asi se aprende. Así aprendí yo.

Recuerda que preferimos dar TIPs antes de ofrecer una solución, al menos yo, considero que de esta manera se invita al que inició el hilo a pensar y fomentar el arte de la lógica, y por consiguiente comprende por si mismo donde está su error.

Espero que no te moleste.
Saludos,

[Ivanzinho] · #9 12-11-2007

Eso que preguntas te lo respondió Delphius en uno de los post anteriores. Te recomiendo el uso de las etiquetas para hacer el código más entendible.

Un saúdo.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
uso de punteros	David	OOP	19	14-12-2009 09:48:37
Punteros	davitcito	Varios	2	25-04-2005 22:46:24
Hay punteros en java?	Trigger	JAVA	2	05-10-2004 21:28:20
Punteros	rafadrover	OOP	8	18-09-2003 10:09:47