Agilent Technologies 34420A - Page 222

... continued
280 !************************************************************************
290 Getdata: DEF FNGetdata(Address)
300 REPEAT
310 UNTIL BIT(SPOLL(Address),5) !Bit 5 is Standard Event Reg
320 OUTPUT Address;"*CLS" !Clear status
330 OUTPUT Address;"CALC:AVER:AVER?" !Get average
340 ENTER Address;Result
350 OUTPUT Address;"CALC:FUNC AVER" !Resets average to 0
360 OUTPUT Address;"*OPC"
370 OUTPUT Address;"INIT" !Start taking next readings
380 RETURN Result
390 FNEND
400 !************************************************************************
410 Setup_meter: SUB Setup_meter(Address,Range,Nplc,Num_samples)
420 OUTPUT Address;"*CLS" !Clear Status
430 OUTPUT Address;"SENSE:VOLTAGE:RANGE "&VAL$(Range) !
440 OUTPUT Address;"INPUT:FILTER:STATE OFF" !
450 OUTPUT Address;"SENSE:VOLTAGE:DC:NPLC "&VAL$(Nplc) !
460 OUTPUT Address;"CALC:FUNC AVER" !Take average of
470 OUTPUT Address;"CALC:STATE ON" !Num_samples
480 OUTPUT Address;"SAMPLE:COUNT "&VAL$(Num_samples)
490 OUTPUT Address;"TRIGGER:SOURCE IMM"
500 OUTPUT Address;"*ESE 1" !Enable register mask
510 OUTPUT Address;"*OPC" !for *OPC
520 OUTPUT Address;"INIT"
530 SUBEND
540 !************************************************************************
Chapter 6 Application Programs
HP BASIC Language Programs
222