VB.NET 結合紅外線或超音波對周邊地圖的測繪
前面已經談過PWM規格, 也談過PWM如何控制了
然後我就組裝出這個可以上下左右移動的結構
若是把紅外線或是超音波架到他上面呢!?
然後在令其上下左右旋轉
左右旋轉每10度測試一次距離, 那就變成這樣了
我是使用5m測量範圍的超音波作的, 這只是室內一個簡單的地型
程式使用VB.net 如下
Dim G As Graphics = Me.PictureBox1.CreateGraphics
Dim P As New Pen(Color.LightGreen)
Dim a As Integer
G.Clear(Color.Black)
For a = 0 To 距離.Length - 1
G.RotateTransform(-10)
G.DrawLine(P, 0, 0, 距離(a), 0)
Next
稍稍做些修改
Dim G As Graphics = Me.PictureBox1.CreateGraphics
Dim P As New Pen(Color.LightGreen)
Dim a As Integer
P.Width = 15
P.EndCap = Drawing2D.LineCap.Round
G.Clear(Color.Black)
For a = 0 To 距離.Length - 1
G.RotateTransform(-10)
G.DrawLine(P, 0, 0, 距離(a), 0)
Next
看, 網路上常看到的雷達圖是不是很容易就作出來了
若把這些線的頂點連接起來就會更像了, 甚至使用掃描連續繪製, 就會和真的雷達一模一樣動作
當然這只是極簡單的範例, 所以每十度才量一次距離,
實際作不太可能這麼不精密, 且掃描的速度也要快才行
所以一般這種應用都是分成兩種
窮人版就像我這樣使用超音波或是紅外線, 幾百就有了
有經費的單位就會選用雷射, 至少都三五萬起跳
鯨魚還幫研究單位做過3D空間立體即時測繪系統
不過那已經過於深入了
上一篇:超級蓋世無敵小的RB50