|
ｿｽ@ｿｽｿｽcanvasｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾜゑｿｽｿｽOｿｽW 2005/03/22(ｿｽｿｽ) 21:30:03
ｿｽｿｽｿｽｿｽﾎゑｿｽﾍ。ｿｽｿｽｿｽﾂゑｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽAPaintBox1.Canvas.LineToｿｽﾉゑｿｽ
ｿｽOｿｽｿｽｿｽtｿｽｿｽ`ｿｽ謔ｵｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽACanvas.LineToｿｽﾍ趣ｿｽｿｽｿｽｿｽﾍ茨ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽwｿｽｿｽｿｽvｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽtｿｽﾉ描ｿｽ謔ｵｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/22(ｿｽｿｽ) 22:17:59
ｿｽ@LineToｿｽﾈどで茨ｿｽｿｽｿｽｿｽﾌは”ｿｽsｿｽNｿｽZｿｽｿｽｿｽhｿｽﾈので、ｿｽOｿｽｿｽｿｽtｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾈゑｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾌは別厄ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ轤ｩｿｽﾌｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽ整撰ｿｽｿｽﾉマｿｽbｿｽsｿｽｿｽｿｽOｿｽｿｽｿｽﾄ描ｿｽ謔ｷｿｽｿｽﾎよいｿｽﾅゑｿｽ(x10ｿｽﾆゑｿｽ)ｿｽB
ｿｽEｿｽHｿｽｿｽｿｽX 2005/03/23(ｿｽｿｽ) 10:48:43
image1ｿｽｿｽbutton1ｿｽｿｽpｿｽﾓゑｿｽｿｽAimage1ｿｽｿｽ400ｿｽｿｽ400ｿｽﾉゑｿｽｿｽｿｽB
sin(x)ｿｽｿｽ0ｿｽ`ｿｽｿｽ/2ｿｽﾜで描ｿｽ謔ｵｿｽﾜゑｿｽｿｽB
ｿｽﾜ論ｿｽAｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽlinetoｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ不ｿｽ合ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾍ宿ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで。
ｿｽ`ｿｽ謔ｵｿｽｿｽｿｽｿｽｿｽﾍ囲ゑｿｽ400ｿｽｿｽ400ｿｽiｿｽｿｽ90ｿｽｿｽｿｽjｿｽﾉマｿｽbｿｽsｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽeｿｽlｿｽﾍ撰ｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ抵ｿｽｿｽxｿｽﾌ大きｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ撰ｿｽｿｽｿｽｿｽﾉ丸めてゑｿｽiｿｽOｿｽｿｽｿｽtｿｽﾆゑｿｽｿｽﾄ抵ｿｽｿｽﾟゑｿｽﾉは）ｿｽTｿｽﾋ托ｿｽｿｽvｿｽﾅゑｿｽｿｽB
-------------------------------------------
const
XWIDTH = 400;
YWIDTH = 400;
procedure TForm1.Button1Click(Sender: TObject);
var
yd,xd :double;
y,x :integer;
begin
xd := 0;
while xd < Pi/2 do
begin
yd := sin(xd);
x := round(xd /(Pi/2) * XWIDTH *0.9 + XWIDTH *0.05);
y := YWIDTH -round(yd * YWIDTH *0.9 + YWIDTH *0.05);
Image1.Canvas.LineTo(x,y);
xd := xd +0.1;
end;
end;
junki 2005/03/30(ｿｽｿｽ) 16:31:25
ｿｽｿｽｿｽｿｽﾈのはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ
http://blog.livedoor.jp/junki560/archives/17584026.html
