Mehrkanal-Sound oder Surround-Sound

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Takafusa.

    Mehrkanal-Sound oder Surround-Sound

    Ich würde gerne mehrere Sound Dateien gleichzeitig abspielen (das klappt schon), aber diese über ein Mehrkanal oder Surround-Sound System an unterschiedlichen Lautsprechern wiedergeben.

    Hat jemand eine Idee?

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hi, erst einmal vielen Danke für die richtige Richtung.
    Ich habe mittels BASS (BassMix) die Sound Ausgabe über das 7.1 System geschafft.

    Er spielt jetzt den Soundfile auf dem Speaker den ich in der .INI Datei angebe.

    Leider spielt er nur auf den Frontspeakern richtig. Immer wenn ich die Routine aufrufe und ich habe z.B CENTER oder LFE eingetragen. Spielt er den Soundfile nur einmal ab. Egal wie oft ich die Routine starte. Bei FRONT oder FRONTRIGHT stoppt er das abspielen und started erneut. Im Status bringt er dann auch "Speakers=2, MinRate=0, MaxRate=0, DX=9, EAX=False" anstatt "Speaker=8.."

    Was kann ich ändern?

    Hier der code:

    VB.NET-Quellcode

    1. Private Sub BMain1()
    2. Dim filePath1 As String
    3. ' aktiveUebung comes from .ini file
    4. filePath1 = System.IO.Path.Combine(My.Application.Info.DirectoryPath, aktiveUebung01)
    5. Dim infoTXTa As String = ""
    7. Bass.BASS_SetDevice(BassCanalCount)
    8. Bass.BASS_Init(BassCanalCount, 44100, BASSInit.BASS_DEVICE_MONO, IntPtr.Zero)
    10. ' stop sound play and clears stream if started again
    11. If stream1 <> 0 Then
    12. Bass.BASS_StreamFree(stream1)
    13. End If
    15. ' the source stream
    16. stream1 = Bass.BASS_StreamCreateFile(filePath1, 0, 0, BASSFlag.BASS_STREAM_DECODE)
    17. ' create a 8-channel mixer stream
    18. Dim i As BASS_CHANNELINFO = Bass.BASS_ChannelGetInfo(stream1)
    19. Dim mixer1 As Integer = BassMix.BASS_Mixer_StreamCreate(i.freq, 8, BASSFlag.BASS_DEFAULT)
    20. ' add the source stream to the mixer with the matrix option using only mono files
    21. BassMix.BASS_Mixer_StreamAddChannel(mixer1, stream1, BASSFlag.BASS_MIXER_MATRIX)
    22. Dim matrix1(,) As Single = { ' stereo to quad matrix
    23. {1}, ' left front out
    24. {0}, ' right front out
    25. {0}, ' center out
    26. {0}, ' LFE out
    27. {0}, ' left rear out
    28. {0}, ' right rear out
    29. {0}, ' left rear center out
    30. {0} ' right rear center out
    31. }
    33. ' create a stream channel from a file
    34. ' aktiveUebungA comes from .ini file
    35. Select Case aktiveUebungA
    36. ' define a mixing matrix for the source stream
    37. Case "FRONT"
    38. matrix1 = {{1}, {1}, {0}, {0}, {0}, {0}, {0}, {0}}
    39. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_FRONT)
    40. Case "FRONTLEFT"
    41. matrix1 = {{1}, {0}, {0}, {0}, {0}, {0}, {0}, {0}}
    42. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_FRONTLEFT)
    43. Case "FRONTRIGHT"
    44. matrix1 = {{0}, {1}, {0}, {0}, {0}, {0}, {0}, {0}}
    45. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_FRONTRIGHT)
    46. Case "REAR"
    47. matrix1 = {{0}, {0}, {0}, {0}, {1}, {1}, {0}, {0}}
    48. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_REAR)
    49. Case "REARLEFT"
    50. matrix1 = {{0}, {0}, {0}, {0}, {1}, {0}, {0}, {0}}
    51. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_REARLEFT)
    52. Case "REARRIGHT"
    53. matrix1 = {{0}, {0}, {0}, {0}, {0}, {1}, {0}, {0}}
    54. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_REARRIGHT)
    55. Case "CENTER"
    56. matrix1 = {{0}, {0}, {1}, {0}, {0}, {0}, {0}, {0}}
    57. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_CENTER)
    58. Case "CENLFE"
    59. matrix1 = {{0}, {0}, {1}, {1}, {0}, {0}, {0}, {0}}
    60. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_CENLFE)
    61. Case "LFE"
    62. matrix1 = {{0}, {0}, {0}, {1}, {0}, {0}, {0}, {0}}
    63. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_LFE)
    64. Case "REAR2LEFT"
    65. matrix1 = {{0}, {0}, {0}, {0}, {0}, {0}, {1}, {0}}
    66. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_REAR2LEFT)
    67. Case "REAR2RIGHT"
    68. matrix1 = {{0}, {0}, {0}, {0}, {0}, {0}, {0}, {1}}
    69. 'stream1 = Bass.BASS_StreamCreateFile(filePath1, 0L, 0L, BASSFlag.BASS_SPEAKER_REAR2RIGHT)
    70. End Select
    71. BassCanal01 = BassCanalCount
    73. BassMix.BASS_Mixer_ChannelSetMatrix(stream1, matrix1)
    74. ' and play it
    75. Bass.BASS_ChannelPlay(mixer1, False)
    77. Dim infoa As New BASS_INFO()
    78. ' this displays info like:
    79. ' "Speakers=8, MinRate=0, MaxRate=0, DX=9, EAX=False"
    80. ' or
    81. ' "Speakers=2, MinRate=0, MaxRate=0, DX=9, EAX=False"
    82. If Bass.BASS_GetInfo(infoa) Then
    83. Label4.Text = infoa.ToString()
    84. End If
    86. Dim info1 As New BASS_CHANNELINFO()
    87. Bass.BASS_ChannelGetInfo(stream1, info1)
    88. infoTXTa = info1.ToString()
    89. ' this displays info like:
    90. ' "WAV, 44100Hz, Mono, 16bit"
    92. Dim n As Integer = 0
    93. Dim Bassinfo1 As New BASS_DEVICEINFO()
    94. Dim infoTXTaa As String = ""
    95. ' this displays info like:
    96. ' Digital Output (5- USB MultiChannel Audio Device)
    97. ' or
    98. ' Speakers/Headphones (Realtek(R) Audio)
    99. While (Bass.BASS_GetDeviceInfo(n, Bassinfo1))
    100. infoTXTaa = Bassinfo1.ToString()
    101. n += 1
    102. End While
    104. If stream1 <> 0 Then
    105. BassCanalCount = BassCanalCount + 1
    106. ' this displays info like:
    107. ' 1 (counts up) SoundFile.wav FRONTLEFT (Speaker)
    108. Label22.Text = " " & BassCanal01 & " " & aktiveUebung01 & " " & aktiveUebungA & " " & infoTXTa & " " & infoTXTaa
    109. ' 1 SoundFile.wav FRONTLEFT WAV, 44100Hz, Mono, 16bit Digital Output (5- USB MultiChannel Audio Device)
    110. ' or
    111. ' 3 SoundFile.wav CENTER WAV, 44100Hz, Mono, 16bit Digital Output (5- USB MultiChannel Audio Device)
    112. Else
    113. ' error creating the stream
    114. BassCanalTXT01 = " Bass Error " & Bass.BASS_ErrorGetCode
    115. ' Error Text
    116. Label22.Text = " " & BassCanal01 & " " & aktiveUebung01 & " " & aktiveUebungA & " " & BassCanalTXT01 & " " & infoTXTa & " " & infoTXTaa
    117. BassCanalTXT01 = ""
    118. End If
    120. End Sub


    Viele Zeilen sind nur um die Hardware zu ermitteln oder um anzuzeigen was gerade läuft, um den Fehler zu finden.

    Gruß
    Willi

    Yo,

    ich werde morgen mal schauen wie ich das gemacht hab, habe es nicht mehr so richtig im Kopf.

    Was ist BassCanalCount?
    Bass.BASS_SetDevice(BassCanalCount)solltest du auch erst callen nachdem du Bass.Init gecallt hast.

    Hier kann auch was falsch sein, ich denke du solltest BASS_DEVICE_SPEAKER oder BASS_DEVICE_CPSPEAKERS anstatt mono nehmen.
    Bass.BASS_Init(BassCanalCount, 44100, BASSInit.BASS_DEVICE_MONO, IntPtr.Zero)

    Aber wie gesagt, ich krame morgen eine projektmappe aus und schaue noch mal nach, wie ich das gemacht habe.

    Kleiner Tipp, ich sehe in deiner "Matrix" nur 0 und 1. Du kannst auch Singles nehmen)passend zum DatenTyp der Matrix, 0.5f entspricht halbe maximale Lautstärke. So hab ich die Lautstärke für jeden einzelnen Lautsprecher eingestellt.

    Ist die Audiodatei mit nur einer Tonspur?

    Hallo Takafusa,

    BasCanalCount ist ein Zähler der jedes mal bei Aufruf der Prozedur hoch zählt. Denke das es immer ein neuer Canal sein muss.

    Bass.BASS_SetDevice(BassCanalCount)solltest du auch erst callen nachdem du Bass.Init gecallt hast. OK, werd ich testen

    Bass.BASS_Init(BassCanalCount, 44100, BASSInit.BASS_DEVICE_MONO, IntPtr.Zero) hier habe ich schon viel rum experimentiert

    Ich verwende ausschließlich Mono Files mit einer Spur.

    wäre cool wenn du da was findest.


    Edit:
    Die Reihenfolge hat nichts geändert
    Egal ob ich BASSInit.BASS_DEVICE_MONO, BASSInit.BASS_DEVICE_SPEAKER oder BASSInit.BASS_DEVICE_CPSPEAKERS ändert leider auch nichts

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Willi_P“ ()

    Nabend,

    ich denke ich werde einfach ein kleines Projekt aufsetzen. Ich habe noch alten Code, daraus nehm ich einfach den für das Thema relevanten Code, passe das so an, das eine Audiodatei mit 1 Spur auf jedem Kanal ausgegeben werden kann.

    Wenn die Soundkarte auf der das ausgegeben werden soll, die Standart-Ausgabe vom System ist, dann brauchst du nicht alle Devices initialisieren, einfach mit -1 anstatt den Wert von BassCanalCount initialisieren.

    Bass.BASS_Init(-1, 44100, ...

    Daaaaaaaaaaankeeeeee

    Es läuft.

    Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_CPSPEAKERS, IntPtr.Zero)
    Bass.BASS_SetDevice(-1)

    War die Lösung

    Jetzt kann ich alle Tasten wild durcheinander drücken und der jeweilige Sound kommt am richtigen Lautsprecher raus
    und wird gestoppt und fängt von vorne an wenn ich die Taste erneut drücke.

    Mir fällt gerade noch etwas auf,

    VB.NET-Quellcode

    1. Private Sub BMain1()

    dort callst du Bass_Init, wenn du die Sub mehrfach callst geht's ab 2. Init beim bereits initialisierten Devices schief. In diesem Fall weniger tragisch, da du den Rückgabewert ignorierst. Es reicht einmal im Form_Load das/die Device(s) zu initialisieren.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Takafusa“ ()

    Lautstärkeanpassung ist gut. Zumal es auf der Modellbahnanlage ja eher Hintergrundgeräusche sein sollen.

    Takafusa schrieb:

    Kleiner Tipp, ich sehe in deiner "Matrix" nur 0 und 1. Du kannst auch Singles nehmen)passend zum DatenTyp der Matrix, 0.5f entspricht halbe maximale Lautstärke. So hab ich die Lautstärke für jeden einzelnen Lautsprecher eingestellt.


    0.5F und 0.25F hab ich mal getestet. Das geht. Wie sind die möglichen Werte hier und wo könnte ich das nachlesen?

    Die hast du ja in der Matrix, darüber kannst du drauf zugreifen, die range ist von 0.0 bis 1.0.
    Ich habe eine Trackbar genommen, Min 0 Max 100, beim Value_Changed der Trackbar die matrix anpassen, den Wert nicht vergessen durch 100 zu teilen..

Facebook
Telefonspende