在做时，应该怎么确定他的时针，分针，秒针？

Question

hour(time)minute(time)second(time)

Answer 1

Ag1=360/12*hour(time)Ag2=360/60*minute(time)Ag3=360/60*second(time)WAg1=Ag1*355/113/180
WAg2=Ag2*355/113/180
WAg3=Ag3*355/113/180
X1=Cos(WAg1)+X0
Y1=Cos(WAg1)+Y0
X2=Cos(WAg2)+X0
Y2=Cos(WAg2)+Y0
X3=Cos(WAg3)+X0
Y3=Cos(WAg3)+Y0

Answer 2

http://www.21code.com/codebase/?pos=list&type=subclass&mainclass=1&subclass=11
到这去找个例子看看

Answer 3

我实在懒得写下去了，很没意思。下面的程序想必能够让你很明白了。
Dim pubSecondX As Integer
Dim pubSecondY As Integer
Const conBaseX As Integer = 100
Const conBaseY As Integer = 100
Const conPI = 355 / 113
Const conSecondLine As Integer = 100
Const conMinuteLine As Integer = 75
Const conHourLine As Integer = 60Private Sub Timer1_Timer()
  Dim tHourX As Integer
  Dim tHourY As Integer
  Dim tMinuteX As Integer
  Dim tMinuteY As Integer
  Dim tSecondX As Integer
  Dim tSecondY As Integer
  Dim tHourStep As Single
  Dim tMinuteStep As Single
  Dim tSecondStep As Single
  
  tHourStep = 360 / 12
  tMinuteStep = 360 / 60
  tSecondStep = 360 / 60
  
  Picture1.Line (conBaseX, conBaseY)-(pubSecondX, pubSecondY), RGB(0, 0, 0)
  
  pubSecondX = Cos(GetRadianByHorn(Second(Time) * tSecondStep)) * conSecondLine + conBaseX
  pubSecondY = Sin(GetRadianByHorn(Second(Time) * tSecondStep)) * conSecondLine + conBaseY
  
  Picture1.Circle (conBaseX, conBaseY), 100, RGB(255, 255, 255)
  Picture1.Line (conBaseX, conBaseY)-(pubSecondX, pubSecondY), RGB(255, 255, 255)
  
  End Sub
Function GetRadianByHorn(tHorn As Single) As Single
  Dim tOutSng As Single
  tOutSng = tHorn * conPI / 180
  GetRadianByHorn = tOutSng
End Function