Telefonszámunk: 1-472-0679

[Resolved] wmp control vs 5 mp3 file

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

Topic Resolution: Resolved
10 bejegyzés megtekintése - 1-10 / 10
  • Szerző
    Bejegyzés
  • #5339
    Potus
    Felhasználó

      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
      Felhasználó

        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
        Felhasználó

          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
          Felhasználó

            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
            Felhasználó

              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
              Felhasználó

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

                #5347
                Potus
                Felhasználó

                  talán itt megnézhető:

                  #5348
                  Potus
                  Felhasználó
                    #5351
                    delila
                    Felhasználó

                      Ó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
                      Adminisztrátor

                        Csatlakozom Delilához.

                      10 bejegyzés megtekintése - 1-10 / 10
                      • Be kell jelentkezni a hozzászóláshoz.