VB 雷达（转载的，做的很不错）

游戏之家

Private WithEvents Timer1 As Timer

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Load()
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Enabled = True: Timer1.Interval = 1
Me.AutoRedraw = True: Me.BackColor = 0
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Timer1_Timer()
Static sAlpha As Single, sX As Long, sY As Long
If sAlpha <= 0 Then sAlpha = 6.28
sAlpha = sAlpha - 0.04: Me.Cls
DrawRaida Me.Width / 2, Me.Height / 2, 1000, sAlpha
If Round(sAlpha, 2) = 6.24 Then sX = (1000 * Rnd) * Cos(5.1) + Me.Width / 2: sY = (1000 * Rnd) * Sin(5.1) + Me.Height / 2
If CInt(sAlpha) < 6 And CInt(sAlpha) > 4 Then
    Me.DrawWidth = 3
    Me.PSet (sX, sY), RGB(2550, 2550, 0)
    Me.DrawWidth = 1 ': Beep
End If
End Sub

Sub DrawRaida(ByVal drX As Long, ByVal drY As Long, ByVal drRds As Integer, ByVal drAlpha As Single)
Dim rX As Long, rY As Long, bGClr As Byte
Me.Circle (drX, drY), drRds, RGB(0, 255, 0)
DoEvents
Do Until bGClr = 255
    rX = drX + drRds * Cos(drAlpha): rY = drY + drRds * Sin(drAlpha)
    Me.Line (drX, drY)-(rX, rY), RGB(0, bGClr, 0)
    drAlpha = drAlpha - 0.003
    bGClr = bGClr + 1
Loop
End Sub

zodane

   大师 ,有没有编译好了的应用程序啊 ?  我对这个很感兴趣啊.  

zodane

  要是那个圆内能加上网格线就好了.  先收下了, 另外 ,不用控件 , 完全靠代码实现的, 好厉害啊.
可能这样的编译文件小吧

游戏之家

动态加载控件。

yanghz

不错，请教一下，一个游戏，的雷达是怎么实现的，就是上边看的到敌人的位置，我的思路是等比收放地图。

游戏之家

yanghz: Re:VB 雷达（转载的，做的很不错）

不错，请教一下，一个游戏，的雷达是怎么实现的，就是上边看的到敌人的位置，我的思路是等比收放地图。

信箱给我。

yanghz

yangzhidx@163.com 这个了

游戏之家

程序已经发到你信箱。

zodane

大师 我也要 .
zuobo616@sina.com

游戏之家

那个比较复杂，2000多行程序，DX7做的，别难为我了。