[es] - Pesme

gfundak
goran fundak
Kotoriba

Član broj: 10933
Poruke: 23
*.net.hinet.hr

Profil

^{26.07.2003. u 19:05 - pre 252 meseci}

Bok !!
Imam problem, kako da dobijem da mi pesme sviraju po redu?
Kad pokrenem program on odma pokrece 2. pesmu (song.wav) umesto prve!!???

Option Explicit
Dim zvuk
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'--------------------------------------
Private Sub Form_Activate()
zvuk = sndPlaySound(App.Path & "\catamania.wav", 1)
zvuk = sndPlaySound(App.Path & "\song.wav", 1)
End Sub
'--------------------------------------

Hvala na pomoći!!

[Ovu poruku je menjao gfundak dana 05.08.2003. u 11:33 GMT]

Walk with me and you will win :)

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pesme

^{26.07.2003. u 20:24 - pre 252 meseci}

Pogledaj vrednosti za flagove.

Flags for playing the sound. The following values are defined:
SND_ASYNC
The sound is played asynchronously and the function returns immediately after beginning the sound. To terminate an asynchronously played sound, call sndPlaySound with lpszSoundName set to NULL.
SND_LOOP
The sound plays repeatedly until sndPlaySound is called again with the lpszSoundName parameter set to NULL. You must also specify the SND_ASYNC flag to loop sounds.
SND_MEMORY
The parameter specified by lpszSoundName points to an image of a waveform sound in memory.
SND_NODEFAULT
If the sound cannot be found, the function returns silently without playing the default sound.
SND_NOSTOP
If a sound is currently playing, the function immediately returns FALSE, without playing the requested sound.
SND_SYNC
The sound is played synchronously and the function does not return until the sound ends.

Blue Man Group

Odgovor na temu

Sasa Vitorovic
Beograd

Član broj: 11629
Poruke: 193
*.ptt.yu

Sajt: www.ptt.yu/korisnici/s/a/..

Profil

Re: Pesme

^{27.07.2003. u 13:09 - pre 252 meseci}

Probaj da ubaciš još neku pesmu,pa vidi da li te ‘baca’ na sledeću ili poslednju pesmu.Probaj da izmeniš redosled pesama:možda nešto nije u redu sa prvom pesmom.

U fudbalu je vazno jedno:a to su dve stvari:rad ,red i disciplina.

Odgovor na temu

gfundak
goran fundak
Kotoriba

Član broj: 10933
Poruke: 23
*.net.hinet.hr

Profil

Re: Pesme

^{27.07.2003. u 23:35 - pre 252 meseci}

Probao sam izmjeniti redisljed pesama,svejedno "baca" na zadnju pesnu nakon uključenja!? Probao sam ono sa flagovima,ne uspeva mi bas (SND_SNYC).

Imali ko kakav drugi predlog?

[Ovu poruku je menjao gfundak dana 05.08.2003. u 11:34 GMT]

Walk with me and you will win :)

Odgovor na temu

Re: Pesme

^{28.07.2003. u 10:57 - pre 252 meseci}

Ovaj kod radi sigurno radi kako treba

Code:

Option Explicit

Const SND_SYNC = &H0

Dim zvuk    As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'--------------------------------------
Private Sub Form_Activate()
    zvuk = sndPlaySound("C:\Dzinglovi\vinca.wav", SND_SYNC)
    zvuk = sndPlaySound("C:\Dzinglovi\cia.wav", SND_SYNC)
End Sub

Blue Man Group

Odgovor na temu

StratOS
Slovenija

Član broj: 2234
Poruke: 989
*.ce.sik.si

+1 Profil

Re: Pesme

^{05.08.2003. u 10:57 - pre 252 meseci}

problem je kod flaga SND_SYNC = &H0 i SND_ASYNC = &H1

Pozdrav StratOS
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"As a rule, software systems do not work well until they have been used, and have failed repeatedly, in real applications."
"The one who is digging the hole for the other to fall in is allready in it."

Odgovor na temu