Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Delphix_play Encontre agências semelhantes


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

Quem sabe como fazer um efeito de som estéreo no DelphiX.



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

este procedimento é (c) 3d [Power] para o jogo NFK.

const opt_stereo: boolean = true; opt_sound: boolean = true; opt_channelapproach: byte = 10; opt_reversestereo: boolean = false; procedure PLAYSOUND (nome do arquivo: shortstring; x: real); var PanFactor, PanValue: Double; começar se OPT_SOUND = false, saia; se OPT_STEREO = true, então comece PanFactor: = 31.25; // 10000 é o intervalo de panoramização PanValue: = ((round (X) * PanFactor) -10000) / OPT_CHANNELAPPROACH; se OPT_REVERSESTEREO, em seguida, PanValue: = -panvalue; end else panvalue: = 0; tente WaveLst.Items.Find (nome do arquivo) .Pan: = round (Panvalue); WaveLst.Items.Find (nome do arquivo) .Play (False); exceto AddMessage ("Erro ao reproduzir som" "+ nome do arquivo +" ""); fim; fim;
menor que playsound ("seu nome de arquivo em dxwavelist", 320) - no centro.
menor que playsound ("seu nome de arquivo em dxwavelist", 0) - à esquerda.
menor que playsound ("seu nome de arquivo em dxwavelist", 640) - à direita.
Você pode ajustar o grau de efeito estéreo :)



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.55 MB
Hora: 0.028 c
6-22297
Questionador
2001-10-10 17:09
2002.01.08
Aconselhar quem pode


7-22434
tomas2001
2001-09-24 14:04
2002.01.08
Transferência de arquivos via modem


14-22403
Burmistroff
2001-11-11 20:13
2002.01.08
Super Delphi Reference -2. Sua opinião, por favor.


14-22337
Alexandr
2001-11-05 13:20
2002.01.08
Servidor de Impressão DP-101 (D-Link) e Impressão do DOS


1-22022
vencedor
2001-12-18 08:05
2002.01.08
Precisa de um rótulo para exibir fórmulas





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol