投稿者 れお8号です。  () 投稿日時 2008/9/7 21:42:00
秒針だけの時計を作りたいんですが。 
算数(中1?)no法廷士気をわすれました。 
Private Sub Gra() 
Me.CreateGraphics().DrawLine(Pens.Black,100,100,100+x,100+y) 
End Sub 
Private Sub Button1_Click内 
Dim c As integer 
Dim d As Double 
  For c=0 to 112 
d=c*20/360 
  x=CInt(100*Math.Cos(d)) 
y=CInt(100*Math.Sin(d)) 
Gra() 
Next 
End Sub 
で、12時を指す場合のdの値の求め方を教えてください。 
先生>ご教授ください。 
はてな?