Telefonszámunk: 1-472-0679

wmp control vs 5 mp3 file

Kezdőlap Fórumok Excel programozás wmp control vs 5 mp3 file

Ennek a témakörnek tartalma 9 hozzászólás, 3 résztvevő. Utolsó frissítés:  horvimi 3 napja, 1 óra telt el a bejegyzés óta.

10 bejegyzés megtekintése - 1-10 / 10
  • Szerző
    Bejegyzés
  • #5339

    Potus
    Résztvevő

    Sziasztok!
    Egy Excel munkalapba beillesztettem egy WMP controlt. Szeretném, ha mondjuk egymás után lejátszana – egy kattintásra – 5 mp3 file-t. Ehhez kreáltam az alábbi makrót. Probálom megúszni a bonyolultnak tűnő play list-et. Az a baj vele, hogy ha lejátsza az első mp3 file-t megáll és csak egy újbóli kattintásra ugrik a következőre. Sőt, ha így lejátszotta az összeset és újra kattintok az utolsó file-t kezdi ismételgetni.
    Mit kellene tennem, hogy magától lejátsza mind az 5 file-t, ill. a végén ugorjon vissza az elsőre és ne ragadjon be az utolsón.

    Sub commandbutton_play_CD1_5()
    Dim Path As String
    Path = Range(“d150”)
    If Path = “” Then Exit Sub
    With Me.WindowsMediaPlayer1
    .url = Path
    DoEvents
    .Controls.play
    DoEvents
    End With
    Path = Range(“d151”)
    If Path = “” Then Exit Sub
    With Me.WindowsMediaPlayer1
    .url = Path
    DoEvents
    .Controls.play
    DoEvents
    End With
    Path = Range(“d152”)
    If Path = “” Then Exit Sub
    With Me.WindowsMediaPlayer1
    .url = Path
    DoEvents
    .Controls.play
    DoEvents
    End With
    Path = Range(“d153”)
    If Path = “” Then Exit Sub
    With Me.WindowsMediaPlayer1
    .url = Path
    DoEvents
    .Controls.play
    DoEvents
    End With
    Path = Range(“d154”)
    If Path = “” Then Exit Sub
    With Me.WindowsMediaPlayer1
    .url = Path
    DoEvents
    .Controls.play
    DoEvents
    End With
    End Sub

    üdv. Potus

    #5340

    delila
    Résztvevő

    Tedd az 5 fájlt hiperhivatkozásként az 5 cellába.

    Sub Zene()
        Dim sor As Integer
        Application.DisplayAlerts = False
        For sor = 150 To 155
            If Range("D" & sor) = "" Then Exit Sub
            Range("D" & sor).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            DoEvents
        Next
        Application.DisplayAlerts = True
    End Sub
    #5341

    Potus
    Résztvevő

    Köszönöm a választ!

    Ahogy én értelmeztem : a sub zene() -t tettem a play gombra. A d140-d144 cellákban hoztam létre a hiperhivatkozásokat. pl:
    d140: =hiperhivatkozás(“C:\Users\attic\Music\Sting\Sting_An_English_man_in_New_York.mp3”).
    Persze átírva az eredeti cella sorokat. A play gombra kattintva “subscript out of range” üzenet jön folyamatosan.

    Pontosítanám a programom leírását.
    Van egy (serviceaudio) munkalap.Ezen kilistázva a gépemen található összes mp3 file elérési útja előadónként oszlopokba. Van olyan mp3 file ami csak egy szám, van olyan ami egy album. Ezen a munkalapon van még 5 oszlop elnevezve előadók1, előadók2 stb..
    Van egy (audio) munkalap. Ezen van a wmp control. Van ezen egy olyan makró(előadonként) ami segítségével kiválasztom a gépemen lévő eőadók mappájából a lejátszani kívánt mp3 file-t. Ezen a munkalapon hoztam létre az a150-a154 és a d150-d154 cellákban azt a kétszíntű legördűlő listát amivel alkalmanként összeállítanám a fentebb említett 5 mp3 egymás utáni automatikus lejátszását. Persze a lísta összetétele ezáltal változtatható lenne elképzelésem szerint.
    Ha jól értelmezem az általad ajánlott megoldásban ez nem lehetséges ill. mindig át kellene írni a hiperhivatkozásokat. Ami nem lenne baj, ha lehetne automatizálni 🙂 .

    Üdv Potus

    _

    #5342

    delila
    Résztvevő

    Tanulmányozd Horváth Imre csodás leírását a többszintű legördülőkről. http://excel-bazis.hu/tutorial/tobbszintu-legordulo-lista-profi-megoldas
    A megfelelő, zenét tartalmazó oszlop kiválasztása után makróval megszámoltatod, hány számot (sort) tartalmaz. Ennek megfelelően beíratod a hiperhivatkozások képleteit oda, ahova akarod, majd indítod a lejátszó ciklust.

    Én is hallgatok zenét munka közben, de nem Excellel, hanem a jó öreg Winamp segítségével, amit erre fejlesztettek.

    #5343

    Potus
    Résztvevő

    A két szintű legördülő már régen meg van , pont ezen link alapján készítettem el. Ez nem probléma…
    Bocsi, hogy értetlenkedem, de…
    Ezzel a makróval mindig 5 mp3-at játszanék le (muszáj megszámoltatni, meg egyáltalán hogyan kell? ), az albumos mp3 is valójában egy mp3, össze vannak fűzve a számok.
    A sub zene() makróban mit jelent a hyperlinks után ez (1) ? Ezzel kell valamit kezdenem, át kell írnom 5-re, a sorok számára?
    Beírtam a cellákba a hiperlink képleteket. De még mindig azt írja ki a sub zene() -re, hogy subscript out of range…

    Amúgy az én régi macrom felejtős, csak a sub zene() kell?

    Bocsi, hogy ilyen ostoba vagyok , meg igaz, hogy nem létszükséglet, nem munkához kell, csak amolyan kialakuló félben lévő hobby… De nagyon szeretném “megoldani” a dolgot.

    #5346

    Potus
    Résztvevő

    így néz ki a dolog, kicsit lebutitva, de még így is nagy.

    #5347

    Potus
    Résztvevő

    talán itt megnézhető:

    #5348

    Potus
    Résztvevő
    #5351

    delila
    Résztvevő

    Óriási a fájlod, apait-anyait pakolsz bele, ráadásul a makróid másik fájlban vannak.
    Igazán jobban tennéd, ha a kész (ingyenes) alkalmazásokat használnád arra, amikre hozzáértők létrehozták.

    Előbb érdemes lenne az Excellel és a programozásával jó közepes szintre eljutnod, majd azután kellene foglalkoznod a csicsázással. Meglátod, ha már érted is, mit csinálsz, nem foglalkozol majd ilyen felesleges dolgokkal.

    Attachments:
    You must be logged in to view attached files.
    #5383

    horvimi
    Kulcsmester

    Csatlakozom Delilához.

10 bejegyzés megtekintése - 1-10 / 10

Be kell jelentkezni a hozzászóláshoz.