kostenloser Webspace werbefrei: lima-city

vbasic

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   andieo

   

   andieo hat kostenlosen Webspace.

   15:42, 5.10.2005

   ich habe in meinem programmierbuch keinen hinweis gefunden, wie man sound datein in vbasic abspielen kann! Wei? jemand von euch den Befehl?
   

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. funkdoobiest

   funkdoobiest hat kostenlosen Webspace.

   15:55, 5.10.2005

   Versuchs mal mit PlaySound m?sst auch unter VB funzen.
   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_playsound.asp
4. Autor dieses Themas

   andieo

   

   andieo hat kostenlosen Webspace.

   15:59, 5.10.2005

   ne,... das funzrt net

5. funkdoobiest

   funkdoobiest hat kostenlosen Webspace.

   16:03, 5.10.2005

   geh?rt zu winapi bzw mmsystem m?sste eigendlich funktionieren.
   Hier mal wie es geht:
   http://www.activevb.de/tipps/vb6tipps/tipp0017.html
   http://www.shadoware.de/vb/playwav.html
   
   Beitrag ge?ndert am 5.10.2005 16:04 von funkdoobiest

6. b*********t

   17:41, 5.10.2005

   Das hier kommt in ein Modul:
   Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
   'Diese API ist im stande Midi Dateien abzuspielen.
   Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
   'Diese API wandelt Lange Dateinamen (Windows-Format) in kurze
   '(DOS-Format) um.
   Private RetVal As Variant
   
   Public TitelSound As String
   Public InfoSound As String
   
   Public Function machdos(Dateiname As String) As String
   Dim Dateiname_kurz As String 'Der DOS-Format Dateiname der Midi Datei.
   Dim RetVal As Variant
   Dim Temp As String * 255
   
   RetVal = GetShortPathName(Dateiname, Temp, 255)
   Dateiname_kurz = Left(Temp, RetVal)
   'Achtung diese Anweisung ist besonders wichtig,
   'alle "Windows" Dateinamen m?ssen erst auf DOS-Format
   'umgewandelt werden um mit der API mciSendString
   'funktioniern zu k?nnen.
   machdos = Dateiname_kurz
   End Function
   
   Public Sub Play(ByVal Pfad As String, Playername As String, wie As String)
   
   Pfad = machdos(Pfad)
   
   Select Case UCase(wie)
   Case "PLAY"
   RetVal = mciSendString("play " & Playername, "", 0, 0)
   Case "OPEN"
   RetVal = mciSendString("open " & Pfad & " type MPEGVideo Alias " & Playername, "", 0, 0)
   Case "LOOP"
   RetVal = mciSendString("play " & Playername & " repeat", "", 0, 0)
   Case "PAUSE"
   RetVal = mciSendString("stop " & Playername, "", 0, 0)
   Case "CLOSE"
   RetVal = mciSendString("close " & Playername, "", 0, 0)
   End Select
   
   End Sub
   
   
   
   
   
   
   
   Jetzt gibts vieleviele Player, jeder hat einen Namen.
   Im Beispiel gehts um den Player "Wavpl1"
   
   Zum ?ffnen einer Datei:
   Play "C:\lol.wav", "Wavpl1", "OPEN"
   
   Zum Abspielen:
   Play "", "Wavpl1, "PLAY"
   
   Zum Stoppen:
   Play "", "Wavpl1, "STOP"
   
   Zum in der Schleife abspielen:
   Play "", "Wavpl1, "LOOP"
   
   Zum Pausiesen:
   Play "", "Wavpl1, "PAUSE"
   
   Zum Schlie?en oder stoppen:
   Play "", "Wavpl1, "CLOSE"
   
   
   Ich hoffe, ich hab mich einigerma?en verst?ndlich ausgedr?ckt. Der spielt ALLES ab, soweit ich wei?, also auch die Sounds von Sims2 z. B., die als .package gespeichert sind!! (damit hab ichs probiert.)
   

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?