FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Necesito ayuda para cargar varios sonidos en memoria
Hola, tengo el siguiente problema: estoy haciendo un ejercicio para la facultad que consiste en un bingo, el cual tira bolas cuando se apreta un botón. La idea es que cuando tira una bola se reproduzca un sonido con el numero que salio. El tema es que,como los sonidos se deben reproducir en intervalos de tiempos cortos no se escuchan todos los números sólo alguno cada tanto. Por lo que estube viendo tendría que cargarlos a la memoria pero no se bien como hacerlo y son 90 sonidos que debo poder localizar por su nombre.
El código hasta ahora sería: procedure sonido(num:integer); var Path:string; begin path:='C:\Users\Paulau\Desktop\DelphiProgramas\Lotería Familiar\'+inttostr(num)+'.wav'; sndPlaySound(pchar(path),SND_NODEFAULT or SND_Sync); end; y procedure TFrmInicial.BotonPlayClick(Sender: TObject); begin if columna < 9 then begin LbComenzar.Caption:=''; if int(bolassacadas/(columna+1)) >8 then begin columna:=columna+1; fila:=0; end; auxiliar:=numero; grillaNumeros.Cells[columna,fila]:=inttostr(auxiliar); NumeroBola.Caption:=inttostr(auxiliar); sonido(auxiliar); fila:=fila + 1; end; end; Alguien me puede guiar? por favor traten de hacerlo con vastante detalle porque entoy aprendiendo y tengo una base bastante floja Desde ya muchas gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Necesito ayuda con indices .ndx para archivos dbf | dinover7 | Conexión con bases de datos | 1 | 21-05-2007 21:41:34 |
Necesito ayuda para imprimir por COM1... | AFilth | Impresión | 3 | 11-02-2006 12:22:49 |
Necesito ayuda para manerjar archivos | meosre | Varios | 2 | 08-09-2005 18:37:34 |
necesito ayuda para hacer un sistema para un billar | rober | Varios | 14 | 29-07-2004 01:08:02 |
Necesito ayuda para aprobar... | OnClick | Varios | 10 | 27-05-2003 02:12:05 |
|