Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Grafica de Funciones con Delphi (https://www.clubdelphi.com/foros/showthread.php?t=22173)

jlporatti 08-06-2005 16:26:32

Grafica de Funciones con Delphi
 
:confused: Alguien me puede decir como se pueden hacer graficos en tiempo real de Funciones. Por ejemplo grafica de la funcion seno. Lo que busco es poder variar parametros y regraficar o que la variación de los mismos directamente afecten la grafica.
Desde ya mil gracias

frudolph 08-06-2005 19:16:01

Necesitás un control del tipo "TPaintBox" en tu Formulario de, digamos: 400 x 200 pixels; y un botón. Después, probá con este código a ver si te sirve:

procedure TForm1.Button1Click(Sender: TObject);
var
n: Integer;
g: Extended;
Hasta: Integer;
MaxAmplitudY: Integer;
begin
Hasta := 360;
MaxAmplitudY := 45;
PaintBox1.Canvas.MoveTo(0, 100);
for n := 1 to Hasta do
begin
g := (2 * (Pi / Hasta)) * n;
PaintBox1.Canvas.LineTo(n, 100 + Round(Sin(g) * MaxAmplitudY));
end;
end;


La franja horaria es GMT +2. Ahora son las 12:59:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi