Agilent Technologies Agilent 8166A Manuál s instrukcemi stáhnout pdf (Strana 193)

How to Set up a Fixed Laser Source VISA Programming Examples

Agilent 8163A/B, 8164A/B & 8166A/B Mainframes, Fifth Edition 193

errStatus = viSetAttribute(vi,VI_ATTR_TMO_VALUE,20000);

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

/* first get the wavelength of the laser source; to address the

second channel of a dual laser source use "CHAN2" instead of

"CHAN1"*/

errStatus =

viQueryf(vi,"%s","%f","SOURCE2:CHAN1:WAV?\n",&wavelength);

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

else

{ printf("Source Wavelength:%g\n",wavelength); }

/* to receive the maximum power the attenuation must be set to

zero */

errStatus = viPrintf(vi,"SOURCE2:CHAN1:ATT 0\n");

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

/* turn off amplitude modulation */

errStatus = viPrintf(vi,"SOURCE2:CHAN1:AM:STATE 0\n");

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

/* turn the laser on */

errStatus = viPrintf(vi,"SOURCE2:CHAN1:POW:STATE 1\n");

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

/* loop, until a key is pressed */

while(!scanf("%c",&c));

/* turn the laser off */

errStatus = viPrintf(vi,"SOURCE2:CHAN1:POW:STATE 0\n");

if (errStatus < VI_SUCCESS) checkError(vi,errStatus);

/* close the session */

viClose(vi);

}

void checkError(ViSession session, ViStatus err_status )

{

ViStatus error;

ViChar errMsg[256];

error = viQueryf(session,"SYST:ERR?\n","%t",errMsg);

if (error == VI_ERROR_TMO)

{

printf("System Error!\n") ;

exit(1);

}

else

1 2 ... 188 189 190 191 192 193 194 195 196 197 198 ... 273 274

Žádné komentáře

Agilent Technologies Agilent 8166A Manuál s instrukcemi Strana 193