Movie Player ActiveX Control

SetChorusParam

 

Set the parameter of chorus effect. You must set UsePitchTempo property = false if you want to use Audio Effect. If you set AudioEffect property =-1, it will not use audio effect.

The Chorus differs from the Flanger in only a couple of ways. One difference is the amount of delay that is used. The delay times in a Chorus are larger than in a Flanger, usually somewhere between 20 ms. and 30 ms. (the Flanger's delay usually ranges from 1 ms. to 10 ms.) This longer delay doesn't produce the characteristic sweeping sound of the Flanger. The Chorus also differs from the Flanger in that there is generally no feedback used.
 

Public Function SetChorusParam(
  ByVal fWetDryMix As float, _
  ByVal fDepth As float, _
  ByVal fFeedback As float, _
  ByVal fFrequency As float, _
 ByVal lWaveform As long, _
 ByVal fDelay As float, _
 ByVal lPhase As float, _
    )

 

Parameter
fWetDryMix
Ratio of wet (processed) signal to dry (unprocessed) signal. Must be in the range from 0 through 100 (all wet). The default value is 50.

fDepth
Percentage by which the delay time is modulated by the low-frequency oscillator, in hundredths of a percentage point. Must be in the range from 0 through 100. The default value is 10.

fFeedback
Percentage of output signal to feed back into the effect's input, in the range from -99 to 99. The default value is 25.

fFrequency
Frequency of the LFO, in the range from 0 to 10. The default value is 1.1.

lWaveform
Waveform shape of the LFO. 1 is a sine, 0 is Triangle.

fDelay
Number of milliseconds the input is delayed before it is played back, in the range from 0 to 20. The default value is 16 ms.

lPhase
Phase differential between left and right LFOs, in the range from -180 through 180.

No Return Value


Example

   

Visual Basic Syntax
iAudioEffectCount = MoviePlayer1.GetAudioEffectCount
For i = 0 To iAudioEffectCount - 1
  List1.AddItem MoviePlayer1.GetAudioEffectName(i)
Next
MoviePlayer1.UsePitchTempo = False
MoviePlayer1.AudioEffect = List1.ListIndex
MoviePlayer1.FileName = "c:\test1.mpg"
MoviePlayer1.SetChorusParam Text1, Text2, Text3, Text4, Text7, Text5, Text6