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; Procedimiento PLAYSOUND (nombre de archivo: shortstring; x: real); var PanFactor, PanValue: Double; comenzar si OPT_SOUND = false entonces salga; si OPT_STEREO = verdadero entonces comienza PanFactor: = 31.25; // 10000 es el rango de paneo Valor de Pan: = ((round (X) * PanFactor) -10000) / OPT_CHANNELAPPROACH; si OPT_REVERSESTEREO entonces PanValue: = -panvalue; final else panvalue: = 0; prueba WaveLst.Items.Find (nombre de archivo) .Pan: = round (Panvalue); WaveLst.Items.Find (nombre de archivo) .Play (False); excepto AddMessage ("Error al reproducir sonido" "+ nombre de archivo +" ""); fin fin
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
4-22482
Poni
2001-11-01 10:06
2002.01.08
WinExec o ShellExecute


1-22113
Yuraz
2001-12-19 20:25
2002.01.08
Hermanos por que


3-21996
vinni2000
2001-12-06 11:47
2002.01.08
Cómo seleccionar datos de consulta utilizando una consulta


14-22349
Ivan Shikhalev
2001-11-06 21:48
2002.01.08
a Anatoly Podgoretsky


1-22143
[NWC] Eminem
2001-12-20 12:04
2002.01.08
.dcu





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 Italiana 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