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 = 10End SubPrivate 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 '定义雷达目标4End SubPrivate 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 aEnd SubPrivate 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 = 1End Sub

 

Module1

Public Function D2R(ByVal d As Integer) As Single D2R = CDbl(d) * (3.14159265359 / 180)End Function'貌似没必要专门弄一个模块去装这么一个小东西