mp3 abspielen und pfad

[anyany]

hi, also ich wollte gerne mal wissen wie ich es hinbekomm folgendes mit app.path zu machen:

Private Sub bla_Click()
MP3_Play "E:\bla\blabla\bla.mp3", "bla"
End Sub

geht das iwie zu realisieren?

 

[Elvan]

Ganz einfach:

Private Sub bla_Click()
Dim sBla as String
sBla = "bla"
   MP3_Play App.Path & "/bla" & "/bla" & ".mp3", sBla
End Sub

 

[Xakone47]

Hi sorry aber das vesteh ich nicht kann einer ein beispiel machen mit dem code über mir pls!

 

[anyany]

Ganz einfach:

Private Sub bla_Click()
Dim sBla as String
sBla = "bla"
   MP3_Play App.Path & "/bla" & "/bla" & ".mp3", sBla
End Sub

gut danke hat funktioniert.
meine naechste frage wie kann ich abfragen ob der timer einmal durchgelaufen ist? also wenn ich jetzt 5 sekunden beim timer einstell wie kann ich herausfinden ob der timer jetzt schon druchgelaufen ist, sprich das 5 sekunden rum sind?

 

[ronaldh]

Da musst Du Dir einen Zähler in den Timer einbauen.

Private Sub Timer1_Timer()
   Static Zaehler as Long

   Zaehler = Zaehler + 1
   If Zaehler = 100 Then
       Msgbox "Der Timer wurde 100 mal aufgerufen!", VbInformation
       Zaehler = 0
   End If
End Sub

Dadurch, dass Du die wie hier im Beispiel die Variable als Static definierst, behält sie ihren Wert auch nach Verlassen des Timers. Würdest Du "Dim Zaehler..." schreiben, hätte Zaehler jedesmal den Wert 0.

Ronald

 

[anyany]

Gut danke, meine nächste Frage wäre dann obs noch eine andere Möglichkeit gibt MP3-Datein abzuspielen.
Ich benutzt momentan folgende:

Public Function MP3_Play(ByVal sFile As String, _
  ByVal sAlias As String) As Boolean
  Dim bResult As Boolean

  ' Dateinamen in DOS 8.3 Format, da z.B. Sonderzeichen
  ' wie Leerzeichen Probleme machen
  Dim sBuffer As String
  Dim lResult As Long
  
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))
  
  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
    
    ' MCI öffnen
    lResult = mciSendString("open " & sFile & _
      " type MPEGVideo alias " & sAlias, 0, 0, 0)
    
    If lResult = 0 Then
      ' MP3 abspielen
      If mciSendString("play " & sAlias & _
        " from 0", 0, 0, 0) = 0 Then
        bResult = True
      End If
    End If
  End If
  
  MP3_Play = bResult
  End Function