Wave-Datei schreiben

Fragen zu Grafik- & Soundproblemen und zur Spieleprogrammierung haben hier ihren Platz.
Rebon
Beiträge: 263
Registriert: 20.05.2009 19:13

Re: Wave-Datei schreiben

Beitrag von Rebon »

@Regenduft
Vorab, erst einmal Danke für deine ausführliche Erklärung. :allright:
Regenduft hat geschrieben:Das zweimal "7" (im Original) vorkommt, hat halt den Vorteil, dass ich einfach für sieben eine Variable einsetzen kann.
Der Code mit der "7" war eigentlich nur ein stellvertretendes Beispiel, ich hätte auch die folgende Zeile nehmen können. :wink:

Code: Alles auswählen

 If Number1 & ~7 Or Number2 & ~3 Or Number3 & ~1 : ProcedureReturn #False : EndIf
Deine Erläuterung mit der Variable ist nachvollziehbar, aber wenn der Wert für die Quantisierung sowieso schon gegeben ist, würde ich es wie folgt bevorzugen.

Code: Alles auswählen

Quantisierung = 8 ; <- Spiel mit mir! Aber nur 2er-Potenzen... ;)

HilfsVariable = Quantisierung - 1

For i = 0 To $FF
 
  x = ( i + HilfsVariable ) & -Quantisierung
 
  Debug RSet( Str( i ) , 3, " " ) + " -> " +
        RSet( Str( x ) , 3, " " ) + " = $" +
        RSet( Hex( x ) , 2, "0" ) + " = %" +
        RSet( Bin( x ) , 8, "0" )
 
Next
Aber gut, der Unterschied ist jetzt auch wirklich nichts weltbewegendes, ich dachte nur ich hätte vielleicht etwas übersehen, danke nochmal. :wink:
PB 4.00 | Windows XP Home SP3
Antworten