Lautsprecher erzeugt Sinuskurve!! WIE??

[Lokke]

Hi Leute! :hi:

ich habe einen Lautsprecher, den ich über eine Messkarte ansteuern kann. Nun soll der mir eine Sinuskurve erzeugen! Ich habe ja schon etwas versucht. :coder2: aber was dann im Oszi angezeigt würde sah überhaupt nicht nach einer Sinuskurve aus. Frequenz 50-60Hz, Amplitude soll von 0-10V gehen.

Hat jemand eine Ahnung wie ich das anstellen kann.

Ich schicke mal was ich gebastelt habe in gekürzter Form:

Delphi-Quellcode:

procedure TForm1.WaveformTypePointerValueChanged(ASender: TObject;Pointer: Integer; var Value: OleVariant);
var
   i: Integer;
const
begin
    Case WaveformType.Value of
        0:
          For i := 0 To 19 do
                data[i] := trunc(5*(Sin(i / 20 * PI*2)));      //Vorerst mit einer Amplitude von 5
    End;
    data[20] := data[0]; // for display purposes only
    CWGraph1.PlotY(data,0,1,TRUE);
end;


procedure TForm1.FormShow(Sender: TObject);
var
   v : OleVariant;
begin
     data := VarArrayCreate([0,20],varDouble);
     WaveformTypePointerValueChanged(WaveformType, 0, v);
end;

Danke für Anregungen