Brookfield CAP2000 Viscometer User Manual
Page 33
Brookfield Engineering Labs., Inc.
Page 33
Manual No. M/94-310F
1815
‘ Send command to CAP 2000
1226 GOSUB 1870 ‘ Wait for CAP 2000 response
1228 WHILE TEMPERATURE <> SETTEMP
1229 CAPCOMMAND$ = “R”
‘ R command fetches data
1230 GOSUB 1815 ‘ Send command to CAP 2000
1231 GOSUB 1870 ‘ Wait for CAP 2000 response
1232 GOSUB 1920 ‘ Calculate data
1233 CLS
1234 LOCATE 1, 1 ‘ Set cursor position
1235 PRINT “øC=”;
1236 PRINT USING “####.#”; TEMPERATURE ‘ Print temperature (øC)
1237 WEND
1240 CLS
1241 PRINT SPC(27); “Sample CAP 2000 Data: CONE”; CONE
1242 PRINT SPC(27); “----------------------------”
1243 PRINT
1256 WHILE RPM <= 1000 ‘ Repeat until RPM > 1000
1257 CAPVALUE = RPM ‘ Set value to be made hex
1258 GOSUB 1595 ‘ Convert RPM value to hex
1259 PRINT “RPM=”;
1260 PRINT USING “####”; RPM; ‘ Print RPM
1265 PRINT SPC(3);
1270 CAPCOMMAND$ = “V” + HEXVALUE$ ‘ Speed command
1275 GOSUB 1815 ‘ Send command to CAP 2000
1280 GOSUB 1870 ‘ Wait for CAP 2000 response
1285 GOSUB 1540 ‘ Count desired time
‘ interval (10 secs)
1290 CAPCOMMAND$ = “R” ‘ R command fetches data
1295 GOSUB 1815 ‘ Send command to CAP 2000
1300 GOSUB 1870 ‘ Wait for CAP to repsond
1305 GOSUB 1920 ‘ Calculate data
1310 PRINT “%=”;
1315 PRINT USING “##.#”; TORQUE;
‘ Print % torque
1320 PRINT SPC(2);
1325 PRINT “Poise=”;
1330 PRINT USING “########.##”; VISC;
‘ Print viscosity (Poise)
1335 PRINT SPC(2);
1340 PRINT “D/Cmy=”;
1345 PRINT USING “#####.#”; SSTRESS; ‘ Print shr stress (d/cm^2)
1350 PRINT SPC(3);
1355 PRINT “1/sec=”;
1360 PRINT USING “#####.#”; SRATE; ‘ Print shear rate (1/sec)
1365 PRINT SPC(3);
1370 PRINT “øC=”;
1375 PRINT USING “####.#”; TEMPERATURE ‘ Print temperature (øC)
1380 RPM = RPM + 100 ‘ Increment RPM by 100
1385 WEND ‘ End WHILE from line 1240
1390 CAPVALUE = 0 ‘ Reset speed to 0 RPM
1395 GOSUB 1595 ‘ Convert RPM to hex
1400 CAPCOMMAND$ = “V” + HEXVALUE$ ‘ Speed command
1405 GOSUB 1815
‘ Send command to CAP 2000
1410 PRINT
1415 PRINT SPC(25); “Speed Set Execution Complete!”
1420 GOSUB 2080 ‘ Close Com channel
1425 END