Brookfield DV-III Rheometer User Manual

Page 54

- 54 -

A sample program demonstrating the above principles is contained in the following listing. Please
note that this is an example only and does not include advanced programming techniques or error
trapping.

1000 ‘ + — — — — — — — — — — — — — — — — — — — — — — — — — — +

‘ + — — — — — — — — — — — — — — — — — — — — — — — — — — +

1005 ‘ |

‘ |

‘ | D V - I I I E x t e r n a l M o d e C o m m a n d P r o t o c o l D e m o n s t r a t i o n |

D V - I I I E x t e r n a l M o d e C o m m a n d P r o t o c o l D e m o n s t r a t i o n |

1010 ‘ |

‘ |

‘ | C o p y r i g h t 1 9 9 1 , B r o o k f i e l d E n g i n e e r i n g L a b s |

C o p y r i g h t 1 9 9 1 , B r o o k f i e l d E n g i n e e r i n g L a b s |

1015 ‘ |

‘ |

‘ | W r i t t e n b y G r e g K r y s k o |

W r i t t e n b y G r e g K r y s k o |

1020 ‘ + — — — — — — — — — — — — — — — — — — — — — — — — — — +

‘ + — — — — — — — — — — — — — — — — — — — — — — — — — — +

1025 ‘
1030 C L S

C L S

1035 P R I N T S P C

P R I N T S P C

P R I N T S P C(26) “Brookfield Engineering Labs”

1040 P R I N T S P C

P R I N T S P C

P R I N T S P C(20) “DV-III External Mode Demonstration Program”

1045 P R I N T S P C

P R I N T S P C

1050 P R I N T

P R I N T

1055 P R I N T

P R I N T

P R I N T “This program is intended to demonstrate the use of the RS-232 command “

1060 P R I N T

P R I N T

P R I N T “set employed by the Brookfield Engineering Labs Model DV-III Rheometer “

1065 P R I N T

P R I N T

P R I N T “in its External mode. This program and/or any of the commands used “

1070 P R I N T

P R I N T

P R I N T “within may be freely used in your own applications.”

1075 P R I N T

P R I N T

1080 P R I N T

P R I N T

P R I N T “Press any key to continue...”

1085 G O S U B

G O S U B

G O S U B 1490

‘ Wait for a keypress

1090 C L S

C L S

1095 G O S U B

G O S U B

G O S U B 1655

‘ Initialize variables

1100 O P E N

O P E N

O P E N “COM1:9600,N,8,1,CS,DS,CD” A S

A S

A S #1

‘ Open com port #1

1105 G O S U B

G O S U B

G O S U B 1695

‘ Reset the DV-III

1110 P R I N T

P R I N T

P R I N T “Please remove the spindle and press any key to begin the Auto-Zero process.”

1115 G O S U B

G O S U B

G O S U B 1490

‘ Wait for a keypress

1120 P R I N T

P R I N T

P R I N T “Auto-Zeroing...”

1125 G O S U B

G O S U B

G O S U B 1760

‘ Send the zero command

1130 B E E P

B E E P

1135 P R I N T

P R I N T

P R I N T “Auto-Zero complete. Replace spindle then press any key to continue.”

1140 G O S U B

G O S U B

G O S U B 1490

‘ Wait for a keypress

1145 C L S

C L S

1150 P R I N T

P R I N T

P R I N T “Enter model multiplier (See Table A.2 of Appendix A in the DV-III manual) “

1155 I N P U T

I N P U T

I N P U T “Ex: A model LV rheometer has a multiplier of 0.09373 “;MODMULT

1160 P R I N T

P R I N T

P R I N T “Enter the spindle SMC (See Table A.1 of Appendix A in the DV-III manual) “

1165 I N P U T

I N P U T

I N P U T “Ex: An SC4-31 spindle has an SMC of 32 “;SMC

1170 P R I N T

P R I N T

P R I N T “Enter the spindle SRC (See Table A.1 of Appendix A in the DV-III manual) “

1175 I N P U T

I N P U T

I N P U T “Ex: An SC4-31 spindle has an SRC of 0.34 “;SRC

1180 P R I N T

P R I N T

1185 P R I N T

P R I N T

P R I N T “The DV-III will begin running at 10 RPM and will increment”

1190 P R I N T

P R I N T

P R I N T “its speed by 10 RPM every 10 seconds. At the end of each”

1195 P R I N T

P R I N T

P R I N T “10 second interval, a data point will be taken and displayed”

1200 P R I N T

P R I N T

P R I N T “on the screen. This will continue until a data point is taken”

1205 P R I N T

P R I N T

P R I N T “at 150 RPM at which point the DV-III will return to 0 RPM.”

1210 P R I N T

P R I N T

1215 P R I N T

P R I N T

P R I N T “Press any key to continue...”

1220 G O S U B

G O S U B

G O S U B 1490

‘ Wait for a keypress

1225 C L S

C L S

1230 P R I N T S P C

P R I N T S P C

P R I N T S P C(31) “Sample DV-III Data”

1235 P R I N T S P C

P R I N T S P C

P R I N T S P C(31) “—————————”

1240 P R I N T

P R I N T

1245 W H I L E

W H I L E

W H I L E RPM <= 150

‘ Repeat until RPM > 150

1250

G O S U B

G O S U B 1595

‘ Convert RPM value to a 4 digit hex string

1255

P R I N T

P R I N T “RPM=”;

1260

P R I N T U S I N G

P R I N T U S I N G “###.#”;RPM;

‘ Print RPM