Ultra Low-Cost 3D Scanner (8 / 11 stap)

Stap 8: Backstage Processing

Hier gebruik ik de VB.net de backstage processing-programma te schrijven.

Het scannen gegevens werd van seriële in een formaat van ontvangen

(d, r h) waar d de afstand gemeten is, r is de stappen die het scannen platform gedraaid en h de hoogte van is de ultrasone Sensor naar boven verplaatst in stappen

Als u wilt converteren ze terug in x y z-waarde, moeten we de volgende code

Dim data() As String
Dim tempspliter() As String

Dim x As Double

Dim y As Double

Z As Double Dim

Dim r As Double ' straal

Dim p As Double ' hoek van centrum

Private Sub Button1_Click(sender As Object, e As EventArgs) behandelt Button1.Click

On Error Resume Next

gegevens = TextBox1.Text.Split(vbNewLine)

Dim rawdata As String

Voor elke rawdata gegevens

tempspliter = rawdata. Split("")

' De juiste waarde op de juiste plaats zetten

x = tempspliter(0)

y = tempspliter(1)

z = tempspliter(2)

' Data-analyse en sorteren

z = z / 22 ' z uit stappen omzetten in cm

r = 65 - x ' straal van het centrum van het roteren van platform aan de randen van het object

p = y / 2048 * 360' Convert hoek uit stap mate

x = r * Math.Cos(p)

y = r * Math.Sin(p)

TextBox2.AppendText (x & "" & y & "" & z & vbNewLine)

Volgende

End Sub