幫我看這個作業 有關Timer問題 |
|
答題得分者是：pceyes
|
|
bot2365471
一般會員   發表：1 回覆：0 積分：0 註冊：2008-01-16 發送簡訊給我 |
我有個問題是(時間同步已解) 請問要怎把Timer物件DEBUG後顯示在image物件上 之前打錯 抱歉 我有附檔案 煩請各位大大在Group2上加1個Image物件 拜托囉 編輯記錄
bot2365471 重新編輯於 2008-01-17 10:56:06， 註解 無‧
bot2365471 重新編輯於 2008-01-17 11:07:00， 註解 無‧ bot2365471 重新編輯於 2008-01-17 12:35:10， 註解 無‧ bot2365471 重新編輯於 2008-01-17 12:35:57， 註解 無‧ |
|
pceyes
尊榮會員  發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
|
|
pceyes
尊榮會員 發表：70 回覆：657 積分：1140 註冊：2003-03-13 發送簡訊給我 |
[code delphi]
procedure TForm1.Timer1Timer(Sender: TObject); var i,x,y:integer; radians:real; hr,min,sec,msec:word; const ncenterx=60; ncentery=60; begin image1.Canvas.Pen.Color:=clblack; image1.Canvas.Pen.Width:=3; image1.Canvas.Pen.style:=pssolid; image1.Canvas.ellipse(10,10,110,110); for i:=1 to 12 do begin radians:=(i*5*pi/30); if(i>=10) then begin x:=ncenterx-8 trunc(((50)*sin(radians))); y:=ncenterx-4-trunc(((50)*cos(radians))); end else begin x:=ncenterx-4 trunc(((50)*sin(radians))); y:=ncenterx-6-trunc(((50)*cos(radians))); end; image1.Canvas.TextOut(x,y,inttostr(i)); end; decodetime(now,hr,min,sec,msec); radians:=sec*pi/30; image1.Canvas.Pen.Color:=clred; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*sin(radians)),60-trunc(48*cos(radians))); radians:=min*pi/30; image1.Canvas.Pen.Color:=clblue; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*sin(radians)),60-trunc(48*cos(radians))); radians:=now*pi/30; image1.Canvas.Pen.Color:=clblack; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*cos(radians)),60 trunc(48*sin(radians))); end; procedure TForm1.Timer2Timer(Sender: TObject); var i,x,y:integer; radians:real; hr,min,sec,msec:word; const ncenterx=60; ncentery=60; begin image1.Canvas.Pen.Color:=clblack; image1.Canvas.Pen.Width:=3; image1.Canvas.Pen.style:=pssolid; image1.Canvas.ellipse(10,10,110,110); for i:=1 to 12 do begin radians:=(i*5*pi/30); if(i>=10) then begin x:=ncenterx-8 trunc(((50)*sin(radians))); y:=ncenterx-4-trunc(((50)*cos(radians))); end else begin x:=ncenterx-4 trunc(((50)*sin(radians))); y:=ncenterx-6-trunc(((50)*cos(radians))); end; image1.Canvas.TextOut(x,y,inttostr(i)); end; decodetime(now,hr,min,sec,msec); radians:=sec*pi/30; image1.Canvas.Pen.Color:=clred; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*sin(radians)),60-trunc(48*cos(radians))); radians:=min*pi/30; image1.Canvas.Pen.Color:=clblue; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*sin(radians)),60-trunc(48*cos(radians))); radians:=now*pi/30; image1.Canvas.Pen.Color:=clblack; image1.Canvas.Pen.Width:=1; image1.Canvas.Pen.style:=pssolid; image1.Canvas.moveto(60,60); image1.canvas.lineto(60 trunc(48*cos(radians)),60 trunc(48*sin(radians))); end; [/code]
------
努力會更接近成功 |
發表時間：2008-01-17 10:55:37
IP:220.143.xxx.xxx 訂閱
附加檔案：系統時間：2024-04-20 10:14:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |