Eigene Sounds generieren (Riff-Wave-Streams)

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von FreakJNS.

      Eigene Sounds generieren (Riff-Wave-Streams)

      Hi
      Da in einem Thema gefragt wurde, wie man Wave-Dateien schreibt, habe ich die letzte Stunde verwendet, um einen kleinen Sourcecode zu schreiben. Hier ein einigermaßen dokumentiertes Beispiel. Zur Anmerkung: Der Programmierstil ist nicht so gehalten, dass die Datei um weitere Chunks ergänzt werden kann. Es ist lediglich eine Veranschaulichung, wie man Waves schreibt, nicht die Anleitung für Riffs.

      Übrigens sind alle Teile für Byte, Short (Int16) und Integer (Int32) verfügbar. Zusätzlich können Daten auch als Objekt mit einem definierten Layout bzw. Wertetyp übergeben werden. Dabei werden allerdings lediglich die Daten aus dem unverwalteten Memory verwendet. Dieses Vorgehen garantiert die Unterstützung von Longs, Decimals, usw., wenn diese unterstützt werden (die Samplerate muss an diese angepasst werden).

      Außerdem wird ein Beispiel gegeben, wie man einen Sinuston ausgibt. Die Frequenz (frequency) wird in Hertz angegeben, die Dauer (duration) als Timespan.

      VB.NET-Quellcode

      1. 'Copyright © ~blaze~ 2011
      2. Public Class SoundGenerator
      3. Private strmStream As IO.Stream
      4. Private rwfcsChunkSettings As RiffWaveFmtChunkSettings
      5. Private bwWriter As IO.BinaryWriter
      6. Private lngLengthOffset As Long
      7. Private lngDataLengthOffset As Long
      8. Private intCurrentLength As Integer
      10. Public ReadOnly Property ChunkSettings() As RiffWaveFmtChunkSettings
      11. Get
      12. Return rwfcsChunkSettings
      13. End Get
      14. End Property
      16. Public Sub New(ByVal destination As IO.Stream, ByVal bufferSettings As RiffWaveFmtChunkSettings)
      17. strmStream = destination
      18. rwfcsChunkSettings = bufferSettings
      19. bwWriter = New IO.BinaryWriter(destination)
      20. bwWriter.Write(1179011410I) '"RIFF" schreiben
      21. 'Ermitteln der Position, an der die Laenge der gesamten Datei steht
      22. lngLengthOffset = destination.Position
      23. bwWriter.Write(32I) '32 für die aktuelle Datenlänge in Bytes setzen
      24. bwWriter.Write(1163280727I) '"WAVE" schreiben
      26. 'fmt -Chunk
      27. bwWriter.Write(544501094I) '"fmt " schreiben
      28. bwWriter.Write(16I) 'restliche Länge des Blocks setzen
      29. bwWriter.Write(bufferSettings.FormatTag)
      30. bwWriter.Write(bufferSettings.NumberChanels)
      31. bwWriter.Write(bufferSettings.SampleRate)
      32. bwWriter.Write(bufferSettings.BytesPerSecond)
      33. bwWriter.Write(bufferSettings.BlockAlign)
      34. bwWriter.Write(bufferSettings.BitsPerSample)
      36. 'data-Chunk
      37. bwWriter.Write(1635017060I) '"data" schreiben
      38. 'ermitteln der Position, an der die Laenge des Data-Chunks steht
      39. lngDataLengthOffset = destination.Position
      40. bwWriter.Write(0I)
      41. End Sub
      43. Public Sub Append(ByVal elongations() As Byte)
      44. If rwfcsChunkSettings.BitsPerSample = 8S Then
      45. Dim dataPos As Long = strmStream.Position
      46. Dim data(Buffer.ByteLength(elongations) - 1) As Byte
      47. Buffer.BlockCopy(elongations, 0, data, 0, data.Length) 'Inhalt aus Elongations in data kopieren
      49. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      50. bwWriter.Write(intCurrentLength + data.Length + 32I)
      52. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      53. bwWriter.Write(intCurrentLength + data.Length)
      55. strmStream.Seek(dataPos, IO.SeekOrigin.Begin)
      56. bwWriter.Write(data)
      57. Else
      58. Throw New FormatException("The current sound generator does not support elongations of the type System.Byte.")
      59. End If
      60. End Sub
      62. Public Sub Append(ByVal elongations() As Short)
      63. If rwfcsChunkSettings.BitsPerSample = 16S Then
      64. Dim dataPos As Long = strmStream.Position
      65. Dim data(Buffer.ByteLength(elongations) - 1) As Byte
      66. Buffer.BlockCopy(elongations, 0, data, 0, data.Length) 'Inhalt aus Elongations in data kopieren
      68. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      69. bwWriter.Write(intCurrentLength + data.Length + 32I)
      71. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      72. bwWriter.Write(intCurrentLength + data.Length)
      74. strmStream.Seek(dataPos, IO.SeekOrigin.Begin)
      75. bwWriter.Write(data)
      76. Else
      77. Throw New FormatException("The current sound generator does not support elongations of the type System.Int16.")
      78. End If
      79. End Sub
      81. Public Sub Append(ByVal elongations() As Integer)
      82. If rwfcsChunkSettings.BitsPerSample = 16I Then
      83. Dim dataPos As Long = strmStream.Position
      84. Dim data(Buffer.ByteLength(elongations) - 1) As Byte
      85. Buffer.BlockCopy(elongations, 0, data, 0, data.Length) 'Inhalt aus Elongations in data kopieren
      87. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      88. bwWriter.Write(intCurrentLength + data.Length + 32I)
      90. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      91. bwWriter.Write(intCurrentLength + data.Length)
      93. strmStream.Seek(dataPos, IO.SeekOrigin.Begin)
      94. bwWriter.Write(data)
      95. Else
      96. Throw New FormatException("The current sound generator does not support elongations of the type System.Int32.")
      97. End If
      98. End Sub
      100. Public Sub Append(Of T)(ByVal elongations() As T)
      101. Dim tp As Type = GetType(T) 'Typ der Arrayelemente
      102. Dim vtSize As Integer = Runtime.InteropServices.Marshal.SizeOf(tp) 'Groesse eines Wertetyps
      103. Dim attributes() As Runtime.InteropServices.StructLayoutAttribute = DirectCast(tp.GetCustomAttributes(GetType(Runtime.InteropServices.StructLayoutAttribute), False), Runtime.InteropServices.StructLayoutAttribute())
      104. If Not tp.IsValueType AndAlso (attributes.Length <> 1 OrElse attributes(0).Value = Runtime.InteropServices.LayoutKind.Auto) Then
      105. 'Layout von T muss klar definiert sein, bzw. T muss ein Wertetyp sein
      106. Throw New ArgumentException("T is not a value type or its System.Runtime.InteropServices.StructLayoutAttribute is not specified in a correct way. System.Runtime.InteropServices.StructLayoutAttribute.Value mustnot be System.Runtime.InteropServices.LayoutKind.Auto.")
      107. Else
      108. If rwfcsChunkSettings.BitsPerSample = vtSize * 8 Then
      109. Dim dataPos As Long = strmStream.Position
      110. Dim data(Buffer.ByteLength(elongations) - 1) As Byte
      111. 'Inhalt aus Elongations in data kopieren, Achtung: keine Arraylaenge ueber Int32.MaxValue moeglich, da
      112. 'System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement keine Int64 als Parameter unterstuetzt
      113. For i As Integer = 0I To elongations.Length - 1I
      114. Runtime.InteropServices.Marshal.Copy(Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(elongations, i), data, vtSize * i, vtSize)
      115. Next
      116. 'Laengen updaten
      117. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      118. bwWriter.Write(intCurrentLength + data.Length + 32I)
      120. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      121. bwWriter.Write(intCurrentLength + data.Length)
      123. 'Daten schreiben
      124. strmStream.Seek(dataPos, IO.SeekOrigin.Begin)
      125. bwWriter.Write(data)
      126. Else
      127. Throw New FormatException(String.Format("The current sound generator does not support elongations of the type {0}.", tp.FullName))
      128. End If
      129. End If
      130. End Sub
      132. Public Sub AppendSine(ByVal frequency As Double, ByVal amplitude As SByte, ByVal duration As TimeSpan)
      133. If rwfcsChunkSettings.BitsPerSample = 8I Then
      134. Dim samples() As Byte = DirectCast(Array.CreateInstance(GetType(Byte), CLng(rwfcsChunkSettings.SampleRate / frequency)), Byte())
      135. Dim data() As Byte
      136. Dim count As Double = duration.TotalSeconds * frequency
      137. Dim dataPos As Long
      138. Dim len As Integer
      140. For l As Long = 0L To samples.LongLength - 1L
      141. samples.SetValue(CByte(128 + CSByte(amplitude * Math.Sin(2 * l * Math.PI * frequency / rwfcsChunkSettings.SampleRate))), l)
      142. Next
      144. data = DirectCast(Array.CreateInstance(GetType(Byte), Buffer.ByteLength(samples)), Byte())
      145. Buffer.BlockCopy(samples, 0, data, 0, data.Length)
      146. dataPos = strmStream.Position
      148. len = CInt(data.Length * count)
      150. 'Laengen updaten
      151. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      152. bwWriter.Write(intCurrentLength + len + 32I)
      154. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      155. bwWriter.Write(intCurrentLength + len)
      157. For l As Long = 1L To CLng(Math.Floor(count))
      158. bwWriter.Write(data)
      159. Next
      160. bwWriter.Write(data, 0, CInt(data.Length * (count Mod 1)))
      161. Else
      162. Throw New FormatException("The current sound generator does not support elongations of the type System.SByte.")
      163. End If
      164. End Sub
      166. Public Sub AppendSine(ByVal frequency As Double, ByVal amplitude As Short, ByVal duration As TimeSpan)
      167. If rwfcsChunkSettings.BitsPerSample = 16I Then
      168. Dim samples() As Short = DirectCast(Array.CreateInstance(GetType(Short), CLng(rwfcsChunkSettings.SampleRate / frequency)), Short())
      169. Dim data() As Byte
      170. Dim count As Double = duration.TotalSeconds * frequency
      171. Dim dataPos As Long
      172. Dim len As Integer
      175. For l As Long = 0L To samples.LongLength - 1L
      176. samples.SetValue(CShort(amplitude * Math.Sin(2 * l * Math.PI * frequency / rwfcsChunkSettings.SampleRate)), l)
      177. Next
      178. data = DirectCast(Array.CreateInstance(GetType(Byte), Buffer.ByteLength(samples)), Byte())
      179. Buffer.BlockCopy(samples, 0, data, 0, data.Length)
      180. dataPos = strmStream.Position
      182. len = CInt(data.Length * count)
      185. 'Laengen updaten
      186. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      187. bwWriter.Write(intCurrentLength + len + 32I)
      189. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      190. bwWriter.Write(intCurrentLength + len)
      192. For l As Long = 1L To CLng(Math.Floor(count))
      193. bwWriter.Write(data)
      194. Next
      195. bwWriter.Write(data, 0, CInt(data.Length * (count Mod 1)))
      196. Else
      197. Throw New FormatException("The current sound generator does not support elongations of the type System.Int16.")
      198. End If
      199. End Sub
      201. Public Sub AppendSine(ByVal frequency As Double, ByVal amplitude As Integer, ByVal duration As TimeSpan)
      202. If rwfcsChunkSettings.BitsPerSample = 16I Then
      203. Dim samples() As Integer = DirectCast(Array.CreateInstance(GetType(Integer), CLng(rwfcsChunkSettings.SampleRate / frequency)), Integer())
      204. Dim data() As Byte
      205. Dim count As Double = duration.TotalSeconds * frequency
      206. Dim dataPos As Long
      207. Dim len As Integer
      210. For l As Long = 0L To samples.LongLength - 1L
      211. samples.SetValue(CInt(amplitude * Math.Sin(2 * l * Math.PI * frequency / rwfcsChunkSettings.SampleRate)), l)
      212. Next
      213. data = DirectCast(Array.CreateInstance(GetType(Byte), Buffer.ByteLength(samples)), Byte())
      214. Buffer.BlockCopy(samples, 0, data, 0, data.Length)
      215. dataPos = strmStream.Position
      217. len = CInt(data.Length * count)
      219. 'Laengen updaten
      220. strmStream.Seek(lngLengthOffset, IO.SeekOrigin.Begin)
      221. bwWriter.Write(intCurrentLength + len + 32I)
      223. strmStream.Seek(lngDataLengthOffset, IO.SeekOrigin.Begin)
      224. bwWriter.Write(intCurrentLength + len)
      226. For l As Long = 1L To CLng(Math.Floor(count))
      227. bwWriter.Write(data)
      228. Next
      229. bwWriter.Write(data, 0, CInt(data.Length * (count Mod 1)))
      230. Else
      231. Throw New FormatException("The current sound generator does not support elongations of the type System.Int32.")
      232. End If
      233. End Sub
      234. End Class
      236. Public Structure RiffWaveFmtChunkSettings
      237. Public FormatTag As Short
      238. Public NumberChanels As Short
      239. Public SampleRate As Integer
      240. Public BitsPerSample As Short
      242. Public ReadOnly Property BlockAlign() As Short
      243. Get
      244. Return NumberChanels * BitsPerSample \ 8S
      245. End Get
      246. End Property
      248. Public ReadOnly Property BytesPerSecond() As Integer
      249. Get
      250. Return SampleRate * NumberChanels * BitsPerSample \ 8I
      251. End Get
      252. End Property
      254. Public Sub New(ByVal formatTag As Short, ByVal numberChanels As Short, ByVal sampleRate As Integer, ByVal bitsPerSample As Short)
      255. Me.FormatTag = formatTag
      256. Me.NumberChanels = numberChanels
      257. Me.SampleRate = sampleRate
      258. Me.BitsPerSample = bitsPerSample
      259. End Sub
      260. End Structure


      Die Verwendung in Kombination mit einem System.IO.MemoryStream und einem System.Media.SoundPlayer sieht so aus:

      VB.NET-Quellcode

      1. Dim stream As New IO.MemoryStream
      2. Dim generator As New SoundGenerator(stream, New RiffWaveFmtChunkSettings(1S, 2S, 44100I, 16S))
      3. Dim soundPlayer As New Media.SoundPlayer
      4. generator.AppendSine(440.0, Short.MaxValue, TimeSpan.FromMilliseconds(500.0))
      5. stream.Seek(0, IO.SeekOrigin.Begin)
      6. soundPlayer.Stream = stream
      7. soundPlayer.Play() 'PlaySync, etc.


      Ausgegeben wird hierbei ein a' von der Dauer 500 Millisekunden ausgegeben, das die Frequenz 440 Hz hat. Die Amplitude ist hierbei maximal ausgereitzt (Short.MaxValue). Bei Verringerung kann die Lautstärke verändert werden.

      Gruß
      ~blaze~

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „~blaze~“ () aus folgendem Grund: Edit1: Neuer Titel, Tags hinzugefügt Edit2: Falscher Aufruf verbessert