FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
darle movimiento a este grafico
hola como estan, yo aca medio complicado por que tengo este codigo y quiero que la funcion que grafico se mueva (osile) que se vea el recorido de la onda y no se como hacerlo alguno de ustedes podria darme una mano porfa se los agradeseria aca esta el codigo para que me digan lo malo y correcciones y me den sus ideas grax..
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, ExtDlgs, Menus, Math; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Button2: TButton; Button3: TButton; SavePictureDialog1: TSavePictureDialog; Label4: TLabel; Label5: TLabel; Button4: TButton; OpenPictureDialog1: TOpenPictureDialog; Label6: TLabel; Edit3: TEdit; Button5: TButton; Edit2: TEdit; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var xi, yi, i, n, xn, h, a: Integer; f: double; begin f := StrToFloat(Edit3.Text); n := Round(StrToFloat(Edit1.Text)); a := Round(StrToFloat(Edit2.Text))*10; xn:= 540; Image1.Canvas.Pen.Color := clRed; for i:= 0 to xn do begin yi:=Round(a*sin(f*DegToRad(i))+100); Image1.Canvas.Pixels[i+n,200-yi]:= clRed; Image1.Canvas.Pixels[i+n+1,200-yi]:= clRed; end; end; procedure TForm1.Button2Click(Sender: TObject); begin application.Terminate; end; procedure TForm1.Button3Click(Sender: TObject); var archivo: TEXTFILE; begin if SavePictureDialog1.Execute then begin Image1.Picture.SaveToFile( SavePictureDialog1.FileName); GetNamePath ; assignfile(archivo,SavePictureDialog1.FileName + '.txt'); Rewrite(archivo); WriteLN(archivo,Trim(Edit1.Text) ); //WriteLN(archivo,Trim(Edit2.Text) ); WriteLN(archivo,Trim(Edit3.Text) ); CloseFile(archivo) ; end; end; procedure TForm1.Button4Click(Sender: TObject); var archivo: TEXTFILE; aux,aux2,aux3:String; begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); assignfile(archivo,OpenPictureDialog1.FileName + '.txt'); Reset(archivo); ReadLN(archivo,aux); Edit1.Text:=aux; ReadLN(archivo,aux2); // Edit2.Text:=aux2; ReadLN(archivo,aux3); Edit3.Text:=aux3; CloseFile(archivo) ; end; procedure TForm1.Button5Click(Sender: TObject); begin Image1.Picture.Bitmap.LoadFromFile('limpiar.bmp'); end; end. |
|
|
|