Download Surface Roughness Tester

6. SAVING/OUTPUTTING/COMMUNICATING THE MEASUREMENT RESULTS
If Mid$(d$, 1, 4) = "NG04" Then Text1.Text = "No calculated result"
If Mid$(d$, 1, 4) = "NG02" Then Text1.Text = "Under measurement"
If Mid$(d$, 1, 2) = "OK" Then
Open "RES.TXT" For Output As #1
d$ = Mid$(d$, 3)
j=0
RES(j) = ""
i=0
Text1.Text = ""
Do
i=i+1
a$ = Mid$(d$, i, 1)
If (a$ = "," Or a$ = Chr$(13)) Then
RES(j) = RES(j) + Chr$(13) + Chr$(10)
Text1.Text = Text1.Text + RES(j)
Print #1, RES(j);
j=j+1
Else
RES(j) = RES(j) + a$
End If
Loop Until (a$ = Chr$(13))
Close 1#
End If
End Sub
'********************************************
'*
End
*
'********************************************
'
Private Sub Command1_Click()
End
End Sub
No. 99MBB079A
6 - 35