VBµÄÀ×´ïɨÃè

×Ô¼ºÕûÁË4¸öÄ¿±êÓÃÓÚɨÃè¡£ÒÔºó¿ÉÄÜ¿ÉÒÔ×Ô¼ºÌí¼Óɾ³ý£¨Ð´µ½Õâ¶ùºöÈ»¾õµÃC++µÄvector²»ÄÜɾ³ýÔªËØ£¨·´ÕýC++ PrimerÀïĿǰûÕÒµ½£©ÈÃÈ˺ÜÓôÃÆ£©
Form1£¬Ðë¼ÓÒ»¸öTimer1
Dim CAngle As Integer 'Current Angle (Not Class Angle)
Private Sub Form_Load() '³õʼ»¯
CAngle = 0
Me.BackColor = vbBlack
Me.BorderStyle = 3
Me.FillColor = vbYellow
Me.ForeColor = vbGreen
Me.FillStyle = 1
Me.ScaleMode = 3 'Pixel
Me.Width = 4590
Me.Height = 4980
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Cls
Circle (150, 150), 130
If CAngle = 359 Then CAngle = 0 Else CAngle = CAngle + 1
Raida CAngle '»æÖÆÀ×´ï
RaidaTarget 0.5, 20 '¶¨ÒåÀ×´ïÄ¿±ê1
RaidaTarget 0.7, 200 '¶¨ÒåÀ×´ïÄ¿±ê2
RaidaTarget 0.2, 100 '¶¨ÒåÀ×´ïÄ¿±ê3
RaidaTarget 0.9, 257 '¶¨ÒåÀ×´ïÄ¿±ê4
End Sub
Private Sub Raida(ByVal angle As Integer) '¸ù¾ÝËù¸ø½Ç¶È»æÖÆÀ×´ï
Dim x As Single, y As Single, a As Single, _
ae As Single, g As Integer

g = 0

ae = angle - 45
For a = ae To angle
x = Cos(D2R(a)) * 130 + 150
y = Sin(D2R(a)) * 130 + 150
g = (a - ae) / 20 * 255
Line (150, 150)-(x, y), RGB(0, g, 0)
Next a
End Sub
Private Sub RaidaTarget(ByVal Row As Single, ByVal Thita As Integer) '¸ù¾ÝÀ×´ïɨÃèÇøÓò»æÖÆÄ¿±ê
Dim x As Integer, y As Integer
x = Cos(D2R(Thita)) * Row * 130 + 150
y = Sin(D2R(Thita)) * Row * 130 + 150
Form1.FillStyle = 0
If Me.Point(x, y) <> 0 Then Circle (x, y), 5, RGB(255, 255, 0) 'Èç¹ûÀ×´ïɨµ½Ä¿±êÔòÏÔʾ
Form1.FillStyle = 1
End Sub

Module1
Public Function D2R(ByVal d As Integer) As Single
D2R = CDbl(d) * (3.14159265359 / 180)
End Function
'òËÆû±ØҪרÃÅŪһ¸öÄ£¿éÈ¥×°Õâôһ¸öС¶«Î÷