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
'貌似没必要专门弄一个模块去装这么一个小东西
相关文档：
Try
Dim Path As String = Server.MapPath("~/Download/") '文件路径
Path = Path & "file.txt" '文件的名称
......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "不是数字� ......
1、大道至简
米老师先呈现了一个函数的图像，然后问问大家想到了什么。
看到这张图，我先发现这是一个周期函数，再往深了就感觉自己应该不会了，寄希望于书信的几个同学，感觉应该是高数里的东西。但事实证明是初中的知识：
他是以下三个函数的复合函数：
y=sin(x)+sin(2x)+sin(3x)
& ......
