Chapter 4 Programming Examples
RIGOL
DG900 Programming Guide
4-23
void CDG900_Demo_VCDlg::OnConnect()
{
// TODO: Add your control notification handler code here
ViStatus status;
ViSession defaultRM;
ViString expr = "?*";
ViPFindList findList = new unsigned long;
ViPUInt32 retcnt = new unsigned long;
ViChar instrDesc[1000];
CString strSrc = "";
CString strInstr = "";
unsigned long i = 0;
bool bFindDG = false;
status = viOpenDefaultRM(&defaultRM);
if (status < VI_SUCCESS)
{
// Error Initializing VISA...exiting
MessageBox("No VISA instrument was opened ! ");
return ;
}
memset(instrDesc,0,1000);
// Find resource
status = viFindRsrc(defaultRM,expr,findList, retcnt, instrDesc);
for (i = 0;i < (*retcnt);i++)
{
// Get instrument name
strSrc.Format("%s",instrDesc);
InstrWrite(strSrc,"*IDN?");
::Sleep(200);
InstrRead(strSrc,&strInstr);
// If the instrument(resource) belongs to the DG series then jump out from the loop
strInstr.MakeUpper();
if (strInstr.Find("DG") >= 0)
{
bFindDG = true;
m_strInstrAddr = strSrc;
break;
}
//Find next instrument
status = viFindNext(*findList,instrDesc);
}
if (bFindDG == false)
{
MessageBox("Didn't find any DG!");
}
UpdateData(false);
}
2)
Write Operation
void CDG900_Demo_VCDlg::OnSend()
{
Summary of Contents for DG952
Page 2: ......
Page 168: ......
Page 181: ...Chapter 4 Programming Examples RIGOL DG900 Programming Guide 4 7 ...
Page 185: ...Chapter 4 Programming Examples RIGOL DG900 Programming Guide 4 11 ...
Page 187: ...Chapter 4 Programming Examples RIGOL DG900 Programming Guide 4 13 ...
Page 199: ...Chapter 4 Programming Examples RIGOL DG900 Programming Guide 4 25 ...
Page 200: ......