Fluke Hydra Series II User Manual page 164

2635A
Users Manual
'Configure Hydra Channels
' First, initialize screen and display Hydra identification info
CLS
LOCATE 1, 25: PRINT "Sample Program for Hydra"
PRINT #1, "*IDN?": GOSUB CheckResponse: LINE INPUT #1, Result$
LOCATE 2, 20: PRINT Result$
WHILE (1)
'Print banner line at bottom of screen
LOCATE 25, 1
PRINT "1 = VDC
' Get channel configurations
Func$ = "0"
WHILE (Func$ < "1") OR (Func$ > "6")
WEND
' Exit and clean up if choice is "Quit"
IF Func$ = "6" THEN CLOSE 1, 2: CLS : KEY ON: END
' Set up the common channel configuration string (function and range)
SELECT CASE Func$
END SELECT
'Set up Hydra / Configure channels
LOCATE 23, 1: PRINT "Programming Hydra...";
FOR Index = 1 TO NumChannels
NEXT Index
LOCATE 23, 1: PRINT "Measuring " + Config$ + "
' Scan three times
FOR Index = 1 TO 3
file
NEXT Index
WEND
END
4-60
2 = VAC
LOCATE 23, 1: INPUT "
CASE "1"
Config$ = "VDC, 1"
CASE "2"
Config$ = "VAC, 1"
CASE "3"
Config$ = "OHMS, 1, 2"
CASE "4"
Config$ = "FREQ, 1"
CASE "5"
Config$ = "TEMP, K"
PRINT #1, "FUNC " + STR$(Index) + "," + Config$
GOSUB CheckResponse
PRINT #1, "*TRG"
GOSUB CheckResponse
PRINT #1, "SCAN_TIME?": GOSUB CheckResponse
LINE INPUT #1, Result$
PRINT #2, Result$
FOR ChannelIndex = 1 TO NumChannels
PRINT #1, "LAST? " + STR$(ChannelIndex) ' Request channel data
GOSUB CheckResponse
INPUT #1, Result$
LOCATE ChannelIndex + 2, 25
PRINT "Chan " + STR$(ChannelIndex) + ": ";
PRINT Result$
PRINT #2, Result$ + ",";
NEXT ChannelIndex
PRINT #2, ""
Figure 4-6. Sample Program (QBASIC)(2 of 3)
3 = OHMS 4 = FREQ
Selection: ", Func$
' Assuming 2-terminal channel
' Assuming K thermocouple
' Start a single scan
' Get prompt back from Hydra
' Get scan time stamp
' Save time stamp to data file
' End of line to data file
5 = TEMP 6 = Quit";
"
' Get scan data
' Get channel result
' Print results to screen
' Print results to data
op52_2f.eps