Escáner 3D de bajo coste ultra (8 / 11 paso)

Paso 8: Procesamiento Backstage

Aquí, utilizo el VB.net para escribir el programa de procesamiento de backstage.

Los datos de exploración fue recibir de serie en un formato de

(d, r, h) donde d es la distancia medida, r es el que gira la plataforma de exploración y h es la altura del Sensor de ultrasonido subido de pasos

Para convertirlos en x y z valor, necesitamos el siguiente código

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

X DIM como doble

Dim y As doble

Como doble DIM z

Dim r como doble ' radio

Dim p como doble ' ángulo del centro

Privada Sub Button1_Click(sender As Object, e As EventArgs) maneja Button1.Click

Error volver siguiente

datos = TextBox1.Text.Split(vbNewLine)

Rawdata DIM As String

Para cada rawdata en datos

tempspliter = rawdata. Split("")

' Poner el valor correcto en el lugar correcto

x = tempspliter(0)

y = tempspliter(1)

z = tempspliter(2)

' Análisis de datos y clasificación

z = z / 22 ' convertir z pasos cm

r = 65 - x ' radio desde el centro de rotación de plataforma al borde del objeto

p = y / 2048 * 360' Convertir ángulo de paso de grado

x = r * Math.Cos(p)

y = r * Math.Sin(p)

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

Siguiente

End Sub