FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Grafica de Funciones con Delphi
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 |
#2
|
|||
|
|||
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; |
|
|
|