呵呵，這是VB吧主CBM666寫的壹個時鐘代碼...添加LINE 1 LINE 2 LINE 3 timer 1 dim xx1%，YY 1% '來聲明變量xx1，YY 1是壹個整數(對於圓心)私有子form _ load () me。Autoredraw = true '重繪為true '窗體居中。移動(屏幕。寬度-我。寬度)\ 2，(屏幕。height-meiheight) \ 2 '計算圓心X軸xx1 xx1 = Me。寬度\ 2 '計算Y軸Yy1yy 1 =(me . height-405)\ 2 '設置以下三針的起點x1，Y 1完全定位在圓心上。行1。X1:行1。Y 1 = YY 1LINE2。X1 = XX 1: LINE2。0 = XX 1:第3行。Y1 = YY 1 '繪制時鐘的外部，使線條變粗。我。畫壹個圓。我。圓(xx1，yy1)，950線2。BorderWidth = 1 '秒針線2的粗細。Bordercolor = QBColor (12)秒針線的顏色1。BorderWidth = 2 '分針線的粗細1 . border color = QB color(14)。分針線3的顏色。BorderWidth = 3 '時針線3的粗細。Border color = QBColor (10)'時針計時器的顏色1。interval = 500 end sub private sub timer 1 _ timer()。我。' Caption = Time '標題欄顯示當前時間'秒針'計算秒針的角度，每壹秒是360度除以60秒=6度，所以乘以6 sdeg =秒(時間)* 6 'vb以弧度計算。因此，角度轉換的弧度為3.14/180。秒針運行n度時，乘以ns rad =(3.14/180)* sdeg ' 900為秒針長度，圓心(X1，2線Y65438)。計算line2.x2在這個弧度的位置。LINE 2 . x2 = LINE 2 . x1+(900 * SIN(SRAD))' 900是秒針的長度，以圓心為基準(2線的x 1，y1)。計算line2.y2在這個弧度的位置。LINE 2 . y2 = LINE 2 . y 1-(900 * COS(SRAD))'分針'計算分針的角度。每分鐘是360度除以60分鐘=6度，所以如果乘以6，秒針就會動。因此，應該加上秒針運動引起的分針運動。秒針轉1轉360度時，分針會前進1分鐘=6度，所以比值是6/360等於1/60 mdeg =分鐘(時間)* 6+(SDEG * 1/。因此，角度轉換的弧度為3.14/180。分針運行n度時，乘以nmrad =(3.14/180)* mdeg ' VB以弧度計算，因此角度換算的弧度為3.14/65438+。以圓心為基準(x1，line1的y1)，計算其中LINE 1 . x2 =(750 * SIN(MRAD))+LINE 1。X65438在這個弧度。以圓心為基準(x1，line1的y1)，計算其中line1.y2 = LINE 1。Y1-(750 * COS (MRA)當時針每小時運行30度時，分針也會運動，所以我們要加上分針運動引起的時針運動。'當分針轉1轉360度時，時針將向前移動1 =30度。所以30/360的比值等於1/12 hdeg = hour(time)* 30+(mdeg/12)' VB以弧度計算，所以角度轉換弧度為3.14/180。時針運行n度時，乘以nhrad =(3.14/180)* hdeg ' 500為時針長度，以圓心為準(第3行X1，Y1)。計算line3.x2在這個弧度的位置。第三行。X2 =(500 * SIN(HRAD))+第3行。X1' 500是時針的長度，以圓心為基準計算這個弧度處的line3.y2是什麽(X1，3號線的y1)。
/CBM 666/blog/item/5729 f 736 f 7d 902300 a55a 991 . html
上一篇:電視版的《名偵探柯南》中有壹集，集美和子說她最喜歡的人在尋找壹個題材。下一篇:吃冷飲的危害