VOLTECH AT3600 USER MANUAL TEST RESULTS HANDLING
'
'The procedure will do this for a total of 3 program runs, and then exit.
Sub OLE_Demo()
Dim objServerResult As Object
Dim vntResult(1 To 99) As Variant
Set objServerResult = CreateObject("Server.Results")
nTest = 3
nNumRuns = 3
sComPort = "COM2"
'Dummy read to clear any previous result
vntResult(nTest) = objServerResult.GetVariantResult(sComPort, nTest)
MsgBox ("Press the RUN soft-key on the AT3600")
For nRun = 1 To nNumRuns 'Get the results
Do
vntResult(nTest) = objServerResult.GetVariantResult(sComPort, nTest)
Loop Until (vntResult(nTest) <> "NO RESULT") And _
(vntResult(nTest) <> "INVALID RESULT NUMBER")
Cells(3, 5 + nRun) = vntResult(nTest) 'Put result in spreadsheet
Next nRun
MsgBox ("Done")
End Sub
UING THE SERVER VPN 98 - 024 PAGE 4.3.29.
To Next Page
Loading...