Pustanje wav-ova u VB6
Prikazujem rezultate 1 do 11 od 11

Tema: Pustanje wav-ova u VB6

  1. #1
    Bond
    Guest

    Podrazumevano Pustanje wav-ova u VB6

    Ljudi kako na najjednostavniji nacin da pustim wav iz nekog svog programa?



  2. #2
    Obećava
    Učlanjen
    05.05.2003.
    Pol
    muški
    Lokacija
    Laplje Selo, Pristina, Kosovo, Serbia
    Poruke
    74
    Reputaciona moć
    54

    Podrazumevano

    tako sto ubacis windows media player control u svoj program

  3. #3
    Bond
    Guest

    Podrazumevano

    Jeste ali mi treba da VB sam pusti kao rezultat nekog procesa (npr. if a+b=10 then pusti wav)

  4. #4
    Guest

    Podrazumevano

    if a+b = c then
    form1.mediaplayer1.open "putanja_do_fajla"
    form1.mediaplayer1.play
    end if

  5. #5
    Početnik
    Učlanjen
    20.10.2003.
    Lokacija
    Ivanjica
    Poruke
    3
    Reputaciona moć
    0

    Podrazumevano

    Hvala Brate!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  6. #6
    Zainteresovan član
    Učlanjen
    26.07.2003.
    Lokacija
    NBGD
    Poruke
    197
    Reputaciona moć
    54

    Podrazumevano

    Citat Original postavio Bond
    Hvala Brate!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Brateeeeeeee!! Si chuo ti nekad za WinAPI? Umesto da trpash celu mediaplayer kontrolu u projekat koristis Windows API za pustanje wav fajlova...


    LL&P,

    fakpuppet

  7. #7
    Početnik
    Učlanjen
    20.10.2003.
    Lokacija
    Ivanjica
    Poruke
    3
    Reputaciona moć
    0

    Podrazumevano

    Kako?

  8. #8
    Zainteresovan član
    Učlanjen
    26.07.2003.
    Lokacija
    NBGD
    Poruke
    197
    Reputaciona moć
    54

    Podrazumevano

    Citat Original postavio Bond
    Kako?
    Vako! Najprostiji kod bi izgledao kao ovo ispod:
    deklarises PlaySound API, dve konstante i dva Sub-a u modulu (znachi ne mora posebno u modul ali uopsteno nije losha praksa)...

    Citat Original postavio WAVModul
    Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

    Private Const SND_ASYNC = &H1
    Private Const SND_LOOP = &H8

    Public Sub playFile(ByVal strWAVPath As String, bLoop As Boolean)
    Dim lFlag As Long

    lFlag = IIf(bLoop, SND_ASYNC Or SND_LOOP, SND_ASYNC)

    PlaySound strWAVPath, 0, lFlag
    End Sub

    Public Sub stopPlayback()
    PlaySound vbNullString, 0, 0
    End Sub

    I sada fajl pustas pozivajuci sub playFile kojem prosledjujes znachi adresu fajla i Boolean bLoop koji ti omogucava da napravis petlju i da se playback ponavlja a stopiras playback pozivajuci drugi sub stopPlayback. Npr. analogno tvojoj potrebi u kodu:

    If a + b = 10 Then playFile "C:\polusatno svrshavanje divlje svinje.wav", False

    Mislim ono... API je bolja alternativa natrpavanju projekata vishefunkcionalnim i pre svega masivnim ActiveX kontrolama za obavljanje jednostavnog zadatka kakav je pustiti jedan debilni wav.

    LL&P,

    fakpuppet

  9. #9
    Početnik
    Učlanjen
    01.01.2005.
    Lokacija
    Bačka Palanka
    Poruke
    23
    Reputaciona moć
    0

    Podrazumevano

    Ukljuci kontrolu Microsoft Multimedia Control 6.0. Napravi jednu na formi i otkucaj.

    Private Sub Command1_Click()
    MMcontrol1.Command = "Close"
    MMcontrol1.DeviceType = "WaveAudio"
    MMcontrol1.FileName = "\lokacija\ime_fajla.wav"
    MMControl1.Command = "Open"
    MMcontrol1.Command = "Prev"
    MMcontrol1.Command = "Play"
    End Sub

  10. #10
    Guest

    Podrazumevano Postoji kontrole.

    API nije losa stvar.
    MMContol je bolja.
    Postoji neka CATALYST kontrola gde mozes svasta da radis sa wav datotekom.

  11. #11
    Aktivan član
    Učlanjen
    25.09.2004.
    Pol
    muški
    Lokacija
    C:\Windows\system32\&$*)#!@|
    Poruke
    1.031
    Reputaciona moć
    59

    Podrazumevano

    Probao sam to sa MMControlom i nece da radi. A sta je to sa Catalyst-om?

Slične teme

  1. Pustanje muzike sa mob na komp
    Autor idza u forumu Softver
    Odgovora: 11
    Poslednja poruka: 09.01.2009., 11:29
  2. pustanje kose zajedno
    Autor longhairchief u forumu Ljubav i seks
    Odgovora: 157
    Poslednja poruka: 18.10.2007., 15:19
  3. Pustanje DVD...
    Autor zoranpetrovic84 u forumu Softver
    Odgovora: 5
    Poslednja poruka: 20.03.2006., 20:17
  4. Pustanje DVD...
    Autor zoranpetrovic84 u forumu Hardver
    Odgovora: 1
    Poslednja poruka: 19.03.2006., 00:00
  5. Program za pustanje muzike, ali...
    Autor Sturmgeist u forumu Softver
    Odgovora: 1
    Poslednja poruka: 25.05.2004., 13:29

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •