Étape 8: Traitement Backstage
Ici, j’utilise le VB.net pour écrire le programme de traitement dans les coulisses.
Les données de numérisation a été reçoivent de série dans un format de
(d, r, h) où d est la distance mesurée, r est la procédure la plate-forme balayage en rotation et h est la hauteur de la sonde d’échographie remonta en étapes
Pour les convertir en valeur z y x, nous devons le code suivant
Dim data() As String
Dim tempspliter() As String
Dim x As Double
Dim y As Double
As Double Dim z
Dim r As Double ' rayon
Dim p As Double ' angle du centre
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
On Error Resume Next
données = TextBox1.Text.Split(vbNewLine)
Dim rawdata As String
Pour chaque rawdata en données
tempspliter = rawdata. Split("")
« Mettre la bonne valeur dans le bon endroit
x = tempspliter(0)
y = tempspliter(1)
z = tempspliter(2)
"Analyse des données et tri
z = z / 22 ' convertir z des mesures en cm
r = 65 - x ' rayon du centre de rotation plate-forme au bord de l’objet
p = y / 2048 * 360' convertir l’angle de l’étape à degré
x = r * Math.Cos(p)
y = r * Math.Sin(p)
TextBox2.AppendText (x & "" & y & "" & z & vbNewLine)
Prochaine
End Sub