![Kikusui DME1600 Скачать руководство пользователя страница 47](http://html1.mh-extra.com/html/kikusui/dme1600/dme1600_manual_1966774047.webp)
DME1600
47
Sample Programs
App
MsgBox "System command error. (*RST)", vbExclamation, "DME1600
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear DME1600 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "DME1600
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send measure command -- Set to 0.1 volt dc range
stat = viWrite(sesn, "meas:volt:DC? 0.1,0.01", 22, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (meas:volt:dc? ...)", vbExclamation,
"DME1600 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem fetch the measure data
stat = viRead(sesn, readin, 64, ret)
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "DME1600 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
Debug.Print "Rdg = "; reading
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)
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: ......