User guide

ManualsBrandsBrookfield ManualsMeasuring instrumentsDV-III Rheometer

- 55 -

1265

PRINT SPCPRINT SPC

PRINT SPC(3);

1270 DV3COMMAND$ = “V” + HEXRPM$ ‘ Speed command is a V + hex speed value

1275

GOSUBGOSUB

GOSUB 1815 ‘ Send command to DV-III

1280

GOSUBGOSUB

GOSUB 1870 ‘ Wait for DV-III to respond

1285

GOSUBGOSUB

GOSUB 1540 ‘ Count desired time interval (10 secs)

1290 DV3COMMAND$ = “R” ‘ R command gets torque and temp data

1295

GOSUBGOSUB

GOSUB 1815 ‘ Send command to DV-III

1300

GOSUBGOSUB

GOSUB 1870 ‘ Wait for DV-III to repsond

1305

GOSUBGOSUB

GOSUB 1920 ‘ Calculate data

1310

PRINTPRINT

PRINT “%=”;

1315

PRINT USINGPRINT USING

PRINT USING “###.#”;TORQUE; ‘ Print % torque

1320

PRINT SPCPRINT SPC

PRINT SPC(3);

1325

PRINTPRINT

PRINT “cP=”;

1330

PRINT USINGPRINT USING

PRINT USING “#########.#”;VISC; ‘ Print viscosity (cps)

1335

PRINT SPCPRINT SPC

PRINT SPC(3);

1340

PRINTPRINT

PRINT “D/Cm2=”;

1345

PRINT USINGPRINT USING

PRINT USING “#####.#”;SSTRESS; ‘ Print shear stress (d/cm2)

1350

PRINT SPCPRINT SPC

PRINT SPC(3);

1355

PRINTPRINT

PRINT “1/SEC=”;

1360

PRINT USINGPRINT USING

PRINT USING “####.#”;SRATE; ‘ Print shear rate (1/SEC)

1365

PRINTPRINT

SPCSPC

S P C(3);

1370

PRINTPRINT

PRINT “° C=”;

1375

PRINT USINGPRINT USING

PRINT USING “####.#”;TEMPERATURE ‘ Print temperature (° C)

1380 RPM = RPM + 10 ‘ Increment RPM by 10

1385

WENDWEND

WEND ‘ End WHILE from line 1240

1390 RPM = 0 ‘ Reset speed to 0 RPM

1395

GOSUBGOSUB

GOSUB 1595 ‘ Convert RPM value to a 4 digit hex string

1400 DV3COMMAND$ = “V” + HEXRPM$ ‘ Speed command is a V + hex speed value

1405

GOSUBGOSUB

GOSUB 1815 ‘ Send command to DV-III

1410

PRINTPRINT

1415

PRINTPRINT

SPCSPC

S P C(25) “Speed Set Execution Complete!”

1420

GOSUBGOSUB

GOSUB 2080 ‘ Close Communications channel

1425

ENDEND

END

1430 ‘

1435 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1440 ‘

Routine to insert a delay (approx 50 milliseconds) |Routine to insert a delay (approx 50 milliseconds) |

Routine to insert a delay (approx 50 milliseconds) |

1445 ‘

between each character sent to the DV-III. |between each character sent to the DV-III. |

between each character sent to the DV-III. |

1450 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1455

FORFOR

F O R DLY = 1

TOTO

TO 50

1460

NEXTNEXT

NEXT DLY

1465

RETURNRETURN

RETURN

1470 ‘

1475 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1480 ‘

Routine that waits for a keystroke |Routine that waits for a keystroke |

Routine that waits for a keystroke |

1485 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1490 KEYSTROKE$ = “”

1495

WHILEWHILE

WHILE KEYSTROKE$ = “”

1500 KEYSTROKE$ =

INKEY$INKEY$

INKEY$

1505

WENDWEND

WEND

1510

RETURNRETURN

RETURN

1515 ‘

1520 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1525 ‘|

Routine to count elapsed seconds. Used to count |Routine to count elapsed seconds. Used to count |

Routine to count elapsed seconds. Used to count |

1530 ‘|

the time interval between each data point taken. |the time interval between each data point taken. |

the time interval between each data point taken. |

1535 ‘

+——————————————————————————++——————————————————————————+

+——————————————————————————+

1540 T1 =

TIMERTIMER

TIMER ‘ Gets seconds since midnight

1545 T2 = T1