Fluke ScopeMeter 190 Series, Programming Reference Manual

Page: 49 / 120

Page 3.36
Example:
’***************** Begin 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
’1st <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
’2nd <decimal_number>
IF validity = 1 THEN
PRINT " is valid"
ELSE
PRINT " is ’not’ valid"
END IF
INPUT #1, source
’3rd <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
’4th <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
’5th <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?"