Scriptable Thermometer and Vending Machine

A unified thermometric controller that can be programmed with simple scripts, integrating the "classic" thermometer/controller pair.


You can build a variety of simple machines with the same hardware and a different script : a charting thermometer, a vending machine that dials your number when empty, a leavening cell

• thermometer with 1°F (0.5C) resolution
• four switch inputs, four relay outputs
• only an handful of cheap parts
• graphic LCD display
• script interpreter built-in, can run ASCII programs (basic-like)
• 6KB non volatile script memory
• full screen editor built-in
• modular C source code (need a graphic LCD driver?)
• Two applications provided:

CHARTING THERMOMETER


Load this script to make Scriptherm draw temperature graphs

VAR x,max,min
max = THERM
min = THERM
PRINT ' PROCESS TEMPERATURE'

WHILE 1
PRINT COM,THERM,CR
BOX x+1, 0, x+1, 63, 0
BOX x, 0, x, THERM-32
PRINT @ 7,0,'NOW',THERM, ' MIN',min,' MAX',max,' '
IF THERM>max THEN max=THERM ENDIF
IF THERM
IF IN THEN
max=THERM
min=THERM
IN=0
ENDIF
IF TIME >= 1 THEN
x=(x+1)%128
TIME=0
ENDIF
WEND


SMS PHONE-MAIL ENPOWERED VENDING MACHINE



Load this script to control a refrigerated vending machine that sends you a SMS phone mail message when empty.

VAR sel,sold
THRE=38  HYS=-2

PRINT
@ 1,0,'1)    COCA COLA',
@ 3,0,'2)    DIET COKE',
@ 5,0,'3)    ICE TEA'
BOX 0,0, 127,9

WHILE 1
IF TIME>30 THEN select(0) ENDIF
IF IN&32   THEN select(1) ENDIF
IF IN&64   THEN select(2) ENDIF
IF IN&128  THEN select(3) ENDIF
IF IN&8    THEN dispense() ENDIF
IF (IN&7) != sold THEN soldout() ENDIF
WEND

FUNCTION select(n)
IF n THEN
 PRINT @7,0,'     INSERT MONEY  '
 IF (sold & (1<<(n-1))) THEN     n=0     PRINT @7,0,'  CHANGE SELECTION!'   ENDIF ELSE   PRINT @7,0,'  SELECT YOUR DRINK' ENDIF  IF n != sel THEN   IF sel != 0 THEN     BOX 30,13+(sel-1)*16,100,12+sel*16, 0   ENDIF   IF n != 0 THEN     BOX 30,13+(n-1)*16,100,12+n*16   ENDIF   sel=n ENDIF IN=IN&15 TIME=0 FEND  FUNCTION dispense() IF sel THEN   IF sel==1 THEN OUT = OUT | 1 ENDIF   IF sel==2 THEN OUT = OUT | 2 ENDIF   IF sel==3 THEN OUT = OUT | 4 ENDIF   TIME=0   WHILE TIME<1 out =" 0" in="IN&(255-8)" sold ="="" sold =" IN&7" cpms="ME" cmss="1',CR">