![Kikusui DME1600 Скачать руководство пользователя страница 50](http://html1.mh-extra.com/html/kikusui/dme1600/dme1600_manual_1966774050.webp)
50
DME1600
Sample Programs
End If
Rem send command -- Enable math
stat = viWrite(sesn, "CALC:STAT ON", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DME1600 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Take readings
stat = viWrite(sesn, "READ?" & vbLf, 6, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DME1600 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
Sleep (3000) ' wait for math processing
Rem fetch the measure data
stat = viRead(sesn, readin, 128, ret)
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "DME1600 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,
"DME1600 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 5 times samples reading
Debug.Print "Rdgs = "; Mid(readin, i * 16 + 1, 15)
Next
MsgBox "End of Job."
End Sub
Содержание DME1600
Страница 4: ...4 DME1600 This page left blank intentionally...
Страница 5: ...Setup This chapter explains the settings that you need to configure to use the interfaces 1...
Страница 9: ...Message Reference This chapter explains the SCPI com mands 2 Message Reference...
Страница 43: ...Appendix A Error Messages B Sample Programs...
Страница 55: ......