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
'貌似没必要专门弄一个模块去装这么一个小东西
相关文档：
这几天一直在做一个小的工程,做一个文本阅读器,现在做的已经有三分之二了,从中学习到了很多,对我们以前学习的成果有了更深刻的理解.
VB是一门面向对象的程序设计,我就从面性对象的角度对他做一次总结
把VB中所有的数据,变量,控件都看做一个对象
我们所有的操作都是对对象的操作,让对象去执行某一个功能
大家先看一个例� ......
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "不是数字� ......
上午先把主板术语挨个查了一遍，了解它的缩写由来、位置和功能。
主板英文缩写详解：
http://user.qzone.qq.com/904515106/infocenter?ptlang=2052&ADUIN=904515106&ADSESSION=1272977059&ADTAG=CLIENT.QQ.2653_Mysrv.0
下午返工，这次给的教训是惨痛的，我们组试了半天都不能点亮，换硬盘·&mi ......
VB Winsock State属性值
'winsock 状态常数
'sckClosed 0 关闭状态
'sckOpen 1 打开状态
'sckListening 2 侦听状态
'sckConnectionPending 3 连接挂起
'sckResolvingHost 4 解析域名
'sckHostResolved 5 已识别主机
'sckConnecting 6 正在连接
'sckConnected 7 已连接
'sckClosing 8 同级人 ......
Private Function Utf8ToUni(B() As Byte) As String
'不使用 API，将 Utf8 转换为 Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......
