184
────────────────────────────────────────────────────
8.6 Sample Programs
────────────────────────────────────────────────────
V +199.92E+0;A +10.034E+0;W +4.0905E+3;WH +0.00000E+3;TIME 00000,00,00
V +199.94E+0;A +10.005E+0;W +4.0141E+3;WH +0.06716E+3;TIME 00000,01,00
V +199.93E+0;A +10.009E+0;W +4.0136E+3;WH +0.13406E+3;TIME 00000,02,00
V +199.91E+0;A +10.006E+0;W +4.0138E+3;WH +0.20096E+3;TIME 00000,03,00
V +199.93E+0;A +10.003E+0;W +4.0132E+3;WH +0.26786E+3;TIME 00000,04,00
V +199.95E+0;A +10.006E+0;W +4.0143E+3;WH +0.33453E+3;TIME 00000,05,00
V +199.98E+0;A +10.005E+0;W +4.0147E+3;WH +3.74401E+3;TIME 00000,56,00
V +199.96E+0;A +10.002E+0;W +4.0143E+3;WH +3.81091E+3;TIME 00000,57,00
V +199.94E+0;A +10.006E+0;W +4.0145E+3;WH +3.87781E+3;TIME 00000,58,00
V +199.96E+0;A +10.005E+0;W +4.0146E+3;WH +3.94472E+3;TIME 00000,59,00
V +199.95E+0;A +10.006E+0;W +4.0144E+3;WH +4.01162E+3;TIME 00001,00,00
8.6.2 RS-232C
10 OPEN "COM1:9600,N,8,1,LF"FOR RANDOM AS #1
20 PRINT #1,"*RST"
30 PRINT #1,":TRAN:TERM 1"
40 PRINT #1,":VOLT:AUTO OFF;RANGE 300"
50 PRINT #1,":CURR:AUTO OFF;RANGE 20"
60 PRINT #1,":SCALE:PT 1;CT 1;SC 1"
70 PRINT #1,":RECT 1"
80 PRINT #1,":INTEG:TIME 1,0,0"
90 PRINT #1,"*ESE 0;*SRE 0"
100 PRINT #1,":ESE0 32;:ESE1 0;:ESE2 0"
110 PRINT #1,":DATA:TIME 0,1,0;ITEM 7,9"
120 PRINT #1,"*CLS"
130 PRINT #1,":INTEG:STAT START"
140 PRINT #1,"*STB?"
150 LINE INPUT #1,A$
160 IF VAL(A$)<> 1 THEN 140
170 PRINT #1,":MEAS?"
180 LINE INPUT #1,A$
190 PRINT A$
200 PRINT #1,":INTEG:STAT?"
210 LINE INPUT #1,A$
220 IF INSTR (A$,"STOP") <> 0 THEN 250
230 PRINT #1,"*CLS"
240 GOTO 140
250 PRINT #1,":INTEG:STAT RESET"
260 CLOSE #1
V +199.92E+0;A +10.034E+0;W +4.0905E+3;WH +0.00000E+3;TIME 00000,00,00
V +199.94E+0;A +10.005E+0;W +4.0141E+3;WH +0.06716E+3;TIME 00000,01,00
V +199.93E+0;A +10.009E+0;W +4.0136E+3;WH +0.13406E+3;TIME 00000,02,00
V +199.91E+0;A +10.006E+0;W +4.0138E+3;WH +0.20096E+3;TIME 00000,03,00
V +199.93E+0;A +10.003E+0;W +4.0132E+3;WH +0.26786E+3;TIME 00000,04,00
V +199.95E+0;A +10.006E+0;W +4.0143E+3;WH +0.33453E+3;TIME 00000,05,00
V +199.98E+0;A +10.005E+0;W +4.0147E+3;WH +3.74401E+3;TIME 00000,56,00
V +199.96E+0;A +10.002E+0;W +4.0143E+3;WH +3.81091E+3;TIME 00000,57,00
V +199.94E+0;A +10.006E+0;W +4.0145E+3;WH +3.87781E+3;TIME 00000,58,00
V +199.96E+0;A +10.005E+0;W +4.0146E+3;WH +3.94472E+3;TIME 00000,59,00
V +199.95E+0;A +10.006E+0;W +4.0144E+3;WH +4.01162E+3;TIME 00001,00,00
Execution results
Program list Program comments
10 Open the RS-232C circuit file
20 Initialize the 3332
30 Set delimiter to "CR+LF"
40 Set range to 300 V
50 Set range to 20 A
60 Set PT ratio to 1, CT ratio to 1, SC to 1
70 Set rectifier type to "RMS"
80 Set integration time to an hour
90 Invalidate ESE and SRE
100 Validate only bit 5 (OT) of ESE0
110 Set data output time to a minute, output item
to (V,A,W,WH,TIME)
120 Clear event registers
130 Start integration
140 Query contents of status byte
150 Get contents of status byte
160 Branches to line 150 when "OT" flag is not
raised
170 Query integrate value data for output item
180 Get data
190 Display data
200 Query integrate condition
210 Get integrate condition
220 Branches to line 260 when integration stops
230 Clear event registers
240 Branches to line 150
250 Reset integrate value
260 Close the RS-232C circuit file
Execution results
To Next Page
Loading...
