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 |
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 16:33:32. |
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