Instructions

Strona 170 z 185
Dystrybucja Conrad Electronic Sp. z o.o., ul. Kniaźnina 12, 31-637 Kraków, Polska
Copyright © Conrad Electronic 2012, Kopiowanie, rozpowszechnianie, zmiany bez zgody zabronione.
www.conrad.pl
www.conrad.pl
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "2100 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem set to local mode
stat = viWrite(sesn, "system:local", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (system:local)", vbExclamation, "2100
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
stat = viClose(sesn)
stat = viClose(fList)
stat = viClose(dfltRM)
For i = 0 To (5 - 1) ' print out the 4 times samples reading
Debug.Print "Rdgs = "; Mid(readin, i * 16 + 1, 15)
Next
MsgBox "End of Job."
End Sub