HP 8163A Programming Manual page 159

Programming Examples
How Power Varies with Wavelength
/* set the power meter to same wavelength like the tunable laser source */
errStatus = viPrintf(vi,"SENS1:CHAN1:POW:WAV %s\n",replyBuf);
checkError(vi,errStatus);
/* read the maximum wavelength from the tunable laser source */
errStatus = viQueryf(vi,"SOURCE2:WAV? MAX\n","%s",replyBuf);
checkError(vi,errStatus);
/*save this wavelength */
wavelength_max = atof(replyBuf);
/* change the power unit of the power meter to dbm */
errStatus = viPrintf(vi,"SENS1:CHAN1:POW:UNIT DBM\n");
checkError(vi,errStatus);
/* read the default power from the tunable laser source */
errStatus = viQueryf(vi,"SOURCE2:POW? DEF\n","%s",replyBuf);
checkError(vi,errStatus);
/* set the default power */
errStatus = viPrintf(vi,"SOURCE2:POW %s\n",replyBuf);
checkError(vi,errStatus);
/* turn auto range on*/
errStatus = viPrintf(vi,"SENS1:CHAN1:POW:RANGE:AUTO 1\n");
checkError(vi,errStatus);
/*set the averaging time for measuring to 20ms*/
errStatus = viPrintf(vi,"SENS1:CHAN1:POW:ATIME 0.02\n");
checkError(vi,errStatus);
159