vb实现雷达扫描效果

最新推荐文章于 2017-09-27 20:14:07 发布

原创最新推荐文章于 2017-09-27 20:14:07 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #timer #integer

本文介绍了一个使用Visual Basic编写的简单绘图时钟程序。该程序通过不断更新的圆形轨迹绘制时钟指针，同时随机动态地生成黄色点以模拟时钟的跳动效果。文章展示了如何设置定时器、利用三角函数计算坐标、以及如何在窗体上进行基本的图形绘制。

添加一个time控件：

Private Sub Form_Load()
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 Form_DblClick()
End
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
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