Circular spectrum visualizer

[EWeiss]

Danke Michael für dein Interesse
Es ist mir wichtig das alle Datentypen VB6 via Delphi IO sind damit ich das ausschließen kann.
Dazu Nachher mehr.

Zitat:

Bist du sicher, dass im Original-VB-Code sqr steht? Das macht für mich irgendwie wenig Sinn.

Ja das bin ich im Anhang der Source.

Zitat:

Wo ist der Link auf den Originalcode in VB?

Auf den habe ich im ersten Beitrag verlinkt.. werde ihn aber hier hochladen.

Zitat:

Log(x) in Visual Basic entspricht ln(x) in Delphi.

Ist mir unverständlich warum ihr immer auf .NET verweist...
Es geht hier um VB6 nicht um VB.net das sind 2 paar Schuhe!
Deshalb habe ich auch immer extra VB6 addiert damit das nicht verwechselt wird.
Hier kannst du lesen welche werte bzw. Formeln für LOG\SQR gültig sind. SQRT gibt es nicht unter VB6

Zitat:

Quadratwurzel: SQR
Die Funktion SQR berechnet die positive Quadratwurzel einer nicht-negativen Zahl x. Für negative Argumente wird ein Fehler ausgelöst. Es gilt: SQR(x)^2 = x.
a = SQR(x)
b = a ^ 2
Die Variable b enthält den gleichen Wert wie x.

wenn in Delphi dann so?

Delphi-Quellcode:

a := SQRT(x); // wäre noch zu klären
b := Power(2, a);

Zitat:

Wie oben erwähnt gibt es in VB eine überladene Funktion log(x,Basis), welche uns aber hier nicht weiter interessiert.

Nein gibt es nicht nur zur Richtigstellung! Nochmal VB6 nicht VB.Net

Das ist definitiv falsch weil ich dann Vollausschlag habe wenn keine Musik läuft.

Delphi-Quellcode:

function TSpectrum.Log(x: Real): Real;
begin

   result := ln(x) / ln(10);
end;

gruss