|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
grafika на TChart...помогите построить ещё какие нибудь графики))
залил эту работу
http://letitbit.net/download/58555.5...Chart.rar.html Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TForm1 = class(TForm) Image1: TImage; BitBtn1: TBitBtn; RadioGroup1: TRadioGroup; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a,b: integer; implementation {$R *.dfm} //????????? ???????? ???? Image procedure ImageClear(Image:TImage); var i,j:integer; begin for i:=1 to Image.Width do for j:=1 to Image.Height do Image.Canvas.Pixels[i,j]:=$ffffff; end; procedure TForm1.BitBtn1Click(Sender: TObject); var x,y: real; PX,PY: longint; begin ImageClear(Image1); a:=Image1.Width; b:=Image1.Height; Image1.Canvas.Pen.Color:=clBlack; Image1.Canvas.MoveTo(0,b div 2); Image1.Canvas.LineTo(a,b div 2); Image1.Canvas.MoveTo(a div 2,0); Image1.Canvas.LineTo(a div 2,b); Image1.Canvas.MoveTo(0,b div 2); for PX:=0 to a do begin x:=PX*pi/a; case RadioGroup1.ItemIndex of 0: y:=exp(x*ln(2)); 1: y:=cos(x); end; PY:=trunc(b-(y+1)*b/2); Image1.Canvas.LineTo(PX,PY); end; for PX:=0 to a do begin x:=PX*4*pi/a; case RadioGroup1.ItemIndex of 2: y:=sin(x)/cos(x); end; PY:=trunc(b-(y+1)*b/2); Image1.Canvas.Pixels[PX,PY]:=0; end; end; end. Последний раз редактировалось Admin, 07.05.2010 в 09:25. |
#2
|
|||
|
|||
Советую код в теги оформить, пока модератор не добрался... а то так читать даже лень.
З.Ы. Не успел. |