Brookfield DV-III Rheometer - Manual (Page 56)

- 56 -
1550 W H I L E W H I L E W H I L E W H I L E W H I L E (T2 - T1) < TINTERVAL ‘ Loop until time elapsed = Tinterval
1555 T2 = T I M E R T I M E R T I M E R T I M E R T I M E R
1560 W E N D W E N D W E N D W E N D W E N D
1565 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1570 ‘
1575 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1580 ‘| | | | | R o u t i n e t o c o n v e r t a d e c i m a l s p e e d t o a f o u r d i g i t | R o u t i n e t o c o n v e r t a d e c i m a l s p e e d t o a f o u r d i g i t | R o u t i n e t o c o n v e r t a d e c i m a l s p e e d t o a f o u r d i g i t | R o u t i n e t o c o n v e r t a d e c i m a l s p e e d t o a f o u r d i g i t | R o u t i n e t o c o n v e r t a d e c i m a l s p e e d t o a f o u r d i g i t |
1585 ‘| | | | | h e x a d e c i m a l s t r i n g t h a t t h e D V - I I I u n d e r s t a n d s . | h e x a d e c i m a l s t r i n g t h a t t h e D V - I I I u n d e r s t a n d s . | h e x a d e c i m a l s t r i n g t h a t t h e D V - I I I u n d e r s t a n d s . | h e x a d e c i m a l s t r i n g t h a t t h e D V - I I I u n d e r s t a n d s . | h e x a d e c i m a l s t r i n g t h a t t h e D V - I I I u n d e r s t a n d s . |
1590 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1595 TEMPRPM = RPM * 10 ‘ Multiply the speed by 10
1600 HEXRPM$ = H E X $ H E X $ H E X $ H E X $ H E X $(TEMPRPM) ‘ Convert to hexadecimal
1605 ISFOUR = 4 - L E N L E N L E N L E N L E N(HEXRPM$) ‘ Pad the string with leading
1610 W H I L E W H I L E W H I L E W H I L E W H I L E ISFOUR > 0 ‘ 0’s until its length is 4
1615 HEXRPM$ = “0” + HEXRPM$
1620 ISFOUR = ISFOUR - 1
1625 W E N D W E N D W E N D W E N D W E N D
1630 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1635 ‘
1640 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1645 ‘| | | | | I n i t i a l i z e v a r i a b l e s a n d c o n s t a n t s I n i t i a l i z e v a r i a b l e s a n d c o n s t a n t s I n i t i a l i z e v a r i a b l e s a n d c o n s t a n t s I n i t i a l i z e v a r i a b l e s a n d c o n s t a n t s I n i t i a l i z e v a r i a b l e s a n d c o n s t a n t s | | | | |
1650 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1655 CR$ = C H R $ C H R $ C H R $ C H R $ C H R $(13)
1660 RPM = 10
1665 TINTERVAL = 10
1670 R E T U R N
R E T U R N R E T U R N R E T U R N R E T U R N
1675 ‘
1680 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1685 ‘| | | | | D V - I I I R e s e t P r o c e d u r e | D V - I I I R e s e t P r o c e d u r e | D V - I I I R e s e t P r o c e d u r e | D V - I I I R e s e t P r o c e d u r e | D V - I I I R e s e t P r o c e d u r e |
1690 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1695 RESP$ = “”
1700 W H I L E
W H I L E W H I L E W H I L E W H I L E L E F T $ L E F T $ L E F T $ L E F T $ L E F T $(RESP$,1) <> “E” ‘ Check for a valid reset
1705 DV3COMMAND$ = “K” ‘ K command (reset DV-III)
1710 G O S U B G O S U B G O S U B G O S U B G O S U B 1815 ‘ Send the command
1715 DV3COMMAND$ = “E ‘ E command (enable the DV-III)
1720 G O S U B G O S U B G O S U B G O S U B G O S U B 1815 ‘ Send the command
1725 G O S U B G O S U B G O S U B G O S U B G O S U B 1870 ‘ Wait for the DV-III to respond
1730 W E N D W E N D W E N D W E N D W E N D
1735 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1740 ‘
1745 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1750 ‘| | | | | R o u t i n e t o a u t o - z e r o t h e D V - I I R o u t i n e t o a u t o - z e r o t h e D V - I I R o u t i n e t o a u t o - z e r o t h e D V - I I R o u t i n e t o a u t o - z e r o t h e D V - I I R o u t i n e t o a u t o - z e r o t h e D V - I II | | | | |
1755 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1760 DV3COMMAND$ = “Z” ‘ Z command (zero the DV-III)
1765 G O S U B G O S U B G O S U B G O S U B G O S U B 1815 ‘ Send the command
1770 G O S U B G O S U B G O S U B G O S U B G O S U B 1870 ‘ Wait for the DV-III to repsond
1775 HEXRESP$ = M I D $ M I D $ M I D $ M I D $ M I D $(RESP$,2,4) ‘ Parse out characters 2-5 from the response
1780 G O S U B G O S U B G O S U B G O S U B G O S U B 1990 ‘ Convert this 4 digit hex string to decimal
1785 ZEROOFFSET = DECIMALNUM ‘ This is the zero offset
1790 R E T U R N R E T U R N R E T U R N R E T U R N R E T U R N
1795 ‘
1800 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — +
+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1805 ‘| R o u t i n e t o s e n d c o m m a n d s t o t h e D V - I I I | | R o u t i n e t o s e n d c o m m a n d s t o t h e D V - I I I | | R o u t i n e t o s e n d c o m m a n d s t o t h e D V - I I I | | R o u t i n e t o s e n d c o m m a n d s t o t h e D V - I I I | | R o u t i n e t o s e n d c o m m a n d s t o t h e D V - I I I |
1810 ‘+ — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — + + — — — — — — — — — — — — — — — — — — — — — — — — — — +
1815 G O S U B G O S U B G O S U B G O S U B G O S U B 2035
1820 DV3COMMAND$ = DV3COMMAND$ + CR$ ‘ Append a carriage return to command
1825 F O R F O R F O R F O R F O R CMD = 1 T O T O T O T O T O L E N L E N L E N L E N L E N(DV3COMMAND$)
1830 P R I N T P R I N T P R I N T P R I N T P R I N T #1, M I D $ M I D $ M I D $ M I D $ M I D $(DV3COMMAND$,CMD,1); ‘ Send one character at a time