Ultra Low Cost 3D Scanner (8 / 11 steg)
Steg 8: Backstage bearbetning
Här använder jag VB.net för att skriva den backstage bearbetningsprogram.
Scanning data var få från följetong i ett format av
(d, r, h) där d är avståndet mätt, r är de steg som avsökningen plattformen roteras och h är höjden av ultraljud sensorn flyttat i steg
För att konvertera dem till x y z-värde, behöver vi följande kod
Dim anropades As String
Dim tempspliter() As String
Dim x som dubbel
Dim y som dubbel
Dim z som dubbel
Dim r som dubbel "radius
Dim p som dubbel ' vinkel från center
Private Sub Button1_Click(sender As Object, e As EventArgs) hanterar Button1.Click
På fel återupptas nästa
data = TextBox1.Text.Split(vbNewLine)
Dim \Data As String
För varje \Data i data
tempspliter = \Data. Split("")
"Sätta rätt värde till rätt plats
x = tempspliter(0)
y = tempspliter(1)
z = tempspliter(2)
"Dataanalys och sortering
z = z / 22 "konvertera z från trappan till cm
r = 65 - x "radie från mitten av roterande plattform till objektet kant
p = y / 2048 * 360' konvertera vinkel från steg till grad
x = r * Math.Cos(p)
y = r * Math.Sin(p)
TextBox2.AppendText (x & "" & y & "" & z & vbNewLine)
Nästa
End Sub