User's Manual

R e m o t e C o n t r o l a n d P r o g r a m m i n g R e f e r e n c e f o r t h e F L U K E 1 9 0 f a m i l y o f S c o p e M e t e r ® t e s t t o o l s
p a g e 3 2
‘***************** Beginning of example program *****************
CLS ‘Clears the PC screen.
OPEN “COM1:1200,N,8,1,CS,DS,RB2048” FOR RANDOM AS #1
PRINT #1, “QM” ‘Queries for active readings
GOSUB Acknowledge ‘Input acknowledge from ScopeMeter.
‘*** Examines only the 7 inputs of the first reading <no> 11.
INPUT #1, reading.no ‘1
st
<decimal_number>
IF reading.no = 11 THEN
PRINT “Measurement reading 1”;
ELSEIF reading.no = 21 THEN
PRINT “Measurement reading 2”;
ELSE
PRINT “Unknown measurement reading”;
END IF
INPUT #1, validity ‘2
nd
<decimal_number>
IF validity = 1 THEN
PRINT “ is valid”
ELSE
PRINT “ is ‘not’ valid”
END IF
INPUT #1, source ‘3
rd
<decimal_number>
PRINT “Source of reading = “;
IF source = 1 THEN
PRINT “Voltage channel Input A”
ELSEIF source = 2 THEN
PRINT “Ampere channel Input B”
ELSEIF source = 3 THEN
PRINT “Input External”
ELSE PRINT “Unknown source?”
END IF
INPUT #1, unit ‘4
th
<decimal_number>
PRINT “Unit of reading = “;
IF unit = 1 THEN
PRINT “Volt”
ELSEIF unit = 2 THEN
PRINT “Ampere”
ELSEIF unit = 3 THEN
PRINT “Ohm”
ELSE
PRINT “Unexpected unit?”
END IF
INPUT #1, types ‘5
th
<decimal_number>
PRINT “Type of reading = “;
IF types = 1 THEN
PRINT “Mean value”
ELSEIF types = 2 THEN
PRINT “Rms value”
ELSEIF types = 3 THEN
PRINT “True rms value”
ELSE
PRINT “Unexpected characteristic?”
END IF
INPUT #1, presentation ‘6
th
<decimal_number>
PRINT “Presentation of reading= “;
IF presentation = 0 THEN
PRINT “Absolute value”
ELSEIF presentation = 1 THEN
PRINT “Relative value”
ELSEIF presentation = 2 THEN
PRINT “Logarithmic value”
ELSE
PRINT “Unexpected value?”
END IF
INPUT #1, resolution ‘7
th
<decimal_number>
PRINT “Resolution of reading =”; resolution
‘
‘