掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
canvasについて (ID：13904)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
image1とbutton1を用意し、image1を400ｘ400にする。 sin(x)を0〜π/2まで描画します。 勿論、以下のコードはlinetoを使ったときの不具合が出ますが、これは宿題ということで。 描画したい範囲を400ｘ400（の90％）にマッピングしています。各値は整数ではないですが、この程度の大きさがあれば整数に丸めても（グラフとして眺めるには）概ね大丈夫です。 ------------------------------------------- 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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.