Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

DelphiX_play Encontrar ramas similares


XeN   (2001-12-21 11:21) [0]

Quién sabe cómo hacer efectos de sonido estéreo en DelphiX.



3d[Power]   (2001-12-21 11:29) [1]

este procedimiento es (c) 3d [Potencia] para el juego NFK.

const opt_stereo : boolean = true;
opt_sound : boolean = true;
opt_channelapproach : byte = 10;
opt_reversestereo : boolean = false;

procedure PLAYSOUND(filename : shortstring;x : real);
var PanFactor, PanValue : Double;
begin
if OPT_SOUND = false then exit;
if OPT_STEREO = true then begin
PanFactor := 31.25; // 10000 is the panning range
PanValue := ((round(X) * PanFactor)-10000) / OPT_CHANNELAPPROACH;
if OPT_REVERSESTEREO then PanValue := -panvalue;
end else panvalue := 0;
try
WaveLst.Items.Find(filename).Pan := round(Panvalue);
WaveLst.Items.Find(filename).Play(False);
except
AddMessage("Error playing sound ""+filename+""");
end;
end;

más corto que playsound ("su nombre de archivo en dxwavelist", 320) - en el centro.
más corto que playsound ("su nombre de archivo en dxwavelist", 0) - a la izquierda.
más corto que playsound ("su nombre de archivo en dxwavelist", 640) - a la derecha.
Puedes ajustar el grado del efecto estéreo :)



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.54 MB
Tiempo: 0.022 c
6-22306
Maamed
2001-10-09 12:57
2002.01.08
La activación de la ventana antigua del programa está ejecutando 2-oh tiempo!


3-21906
Yuri Zhukov
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.db


3-21902
Andrey pogorelov
2001-12-02 10:49
2002.01.08
El problema con la preparación de la solicitud y su salida en QReport.


14-22374
nikols
2001-11-01 16:03
2002.01.08
¿Cómo descansan los programadores? Y cuando


1-22188
Arte
2001-12-14 13:09
2002.01.08
¿Cómo leer un archivo grande?





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español