![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() ![]() 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; |
![]() |
|
|
![]() |
|