punteros en delphi

[[Delphius]]

Empezado por karen08

hola

muchas gracias por lo del ejercicio del alfabeto me fue de mucha ayuda.

pero esta vez estoy necesitando de nuevo su ayuda necesito un ejercicio cual sea que contenga varios componentes de la barra standard o la aditional de delphi pero.. el ejercicio debe ser lo mas sencillo posible lo menos codigo posible pero que sea algo educativo. si esta a su alcance hacerme ese favor se lo voy a agradecer siempre igual que el anterior.

pueder ser que sume numeros lo que sea pero utilizando varios componentes de las barras de delphi

chaito

y de nuevo gracias

saludos

Karen08. Lo siento pero aqui no hacemos la tarea, o al menos hacemos lo posible para evitar llegar a ese extremo. Debo decir que me siento usado y aprovechado por mi amabilidad.
No es que esté enojado pero prefiero hacerte llamar por segunda vez que leas la guia de estilo.

Lo siento, esta vez no te voy a preparar un ejemplo. Aquel código que te expuse lo hice sólo con el fin de guia, y tu debías adaptarlo a tu entendimiento sobre el tema. Tal parece, y asi lo intuyo, que sólo te limitaste a usarla.

Ya te lo he pedido la otra vez: Explica mejor el problema. Da la mayor cantidad de detalles. Se bien descriptiva con la consigna y copia aquí el código que llevas hecho.
Esta vez serás tú quien logre resolverlo. Aquí estaré para ayudarte en algunos detalles técnicos más no para armar un ejemplo.

No estoy de malas, pero eres tu quien debe aprender a programar. Tu vienes a consultarnos y deberías ser tu quien ponga de su esfuerzo para conseguir la enseñanza y el aprendizaje. Para mi lo otro fue un repazo, ya pasé por eso.

Tienes en tus manos la ayuda de Delphi. Si desconoces lo que hacen los componentes tan sólo debes seleccionarlo, presionar F1 y accederás a la ayuda descriptiva de cada uno.
Ante mayores dudas, aqui pueden ser discutidas. Pero primero, como ya he dicho y espero que haya quedado en claro, aqui no te vamos a hacer la tarea.

Lamento decirtelo así, busqué las palabras menos ofensivas posibles. Espero que sepas entender que aqui nadie nos paga por venir y ayudar a los demás. Lo hacemos altruistamente y en el tiempo libre que dispongamos.

Saludos,

[karen08]

hola

entendi muy bien el mensaje de la otra vez, y es cierto ustedes solo son una ayuda, disculpa de todas formas por haber sido asi.

hoy le quiero contar que estoy trabajando un programita muy sencillo con un combobox que desapliega una lista de numeros del 1 al 10 y los muestra al frente con un label pero, me encantaria meterle algo de sonido y no se que componente usar ni como usarlo y no se si usted me podria ayudar explicando me esto, abajo le envio el codigo que tengo.

mi idea es que cuando se escoja el numero salga la voz que yo grabaria diciendo el numero.

le agradesco escribirme en español si no es mucha molestia

saludos


[
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
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
case combobox1.ItemIndex of
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.
]

[[Ivanzinho]]

Hola, karen08, te recomiendo que leas la guía de estilo. Para una nueva duda debes crear un nuevo hilo en el lugar adecuado.

Para hacer lo que necesitas puedes usar el componente TMediaPlayer de la pestaña 'System'.

Un saúdo.

[karen08]

hola

disculpa pero mi interogante es como se programa ese componente porque para mi es desconocido, nunca lo habia usado que pena solo necesito una pequeña esxplicacion y yo estoy segura que lo hago.

saludos

[[Delphius]]

Karen08,
Arrastra el componente,
y el evento onChange del Combo, debes hacer algo como esto:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  MediaPlayer1.FileName := 'El Path completo donde está el archivo';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Obviamente no debes sustituir tu código anterior. Sino que debes adapta al código que te muestro de la forma que mantenga la coherencia con el tuyo. Por ejemplo, dentro del case:

Código Delphi [-]
case ... of
0: begin
    Label1.Caption := ....
    MediaPlayer1.FileName ....
    end;

No tiene demasiada ciencia el TMediaPlayer. Si tienes más dudas, haz una búsqueda que en reiteradas ocasiones se ha preguntado sobre el componente.

Saludos,

[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.

[[Delphius]]

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:\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,

[[Delphius]]

Hola Karen08, me alegro de que hayas entendido mis palabras y no haya malentendidos.

Con respecto a tu problema lo puedes solucionar con el TMediaPlayer, un componente de la paleta System. Dicho componente tiene una propiedad FileName, allí le ingresas el Path completo del archivo audio, luego cuando desees reproducir el archivo debes llamar a Open y seguidamente a Play. Puedes consulta el buscador de los foros porque el tema fue tratado.
Por cierto: si no te gusta la apariencia del TMediaPlayer, lo ocultas poniendo visible a False.

Ya que estoy por aqui, y no por ser cortante. Como tus dudas vienen a ser der otra temática, lo correcto sería que hubieras abierto otro hilo. Esto está expresado en la guia de estilo, pero no hay problema... te estás adaptando.

Saludos,