掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時計のように動かすには？ (ID:21736)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
６０回で一回りするには procedure TForm1.PaintBox1Paint(Sender: TObject); var x, y: integer; begin with PaintBox1.Canvas do begin MoveTo(cx, cy); x := Trunc(r * sin(PI*byousin/180)+cx); y := Trunc(-r * cos(PI*byousin/180)+cy); LineTo(x, y); TextOut(2, 2, IntToStr(byousin div 6)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Inc(byousin, 6); if byousin > 359 then byousin := 0; PaintBox1.Refresh; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.