These notes were written for developers creating applications with the TRIMtools GUI. They focus on the features used in the Chemical Information System and include descriptions of each feature with implementation TRIMpl code.
{
char ret[42];
/* The BALANCE ACTION was designed after the example given on page 70 of
the "Mettler/Toledo Reference Manual Standard Interface Command Set" */
if (list_curr(p.wl,@p.unit) != "M") /* Unit must be mg to weigh on balance */
error("Unit must be 'M' to fetch a balance weight");
active_field(4); /* put cursor on balance field */
if (balance("@")!="I4 A ") /* reset balance */
break;
if (balance("""K 3""")!="K A") /* disable key function on bal & return key id */
break;
if (balance("""D 'BOTTLE'""")!="D A") /* display 'BOTTLE' on balance LCD*/
break;
if (balance("""""") != "K C 3") /*send balance a NULL & wait for user to tare*/
break;
if (balance("T")!="T S ") /* send tare cmnd to balance */
break;
if (balance("""D '" /* display mg to weigh on bal LCD */
^^list_curr(p.wl,@p.QTY)/1000^^"'""")!= "D A")
break;
if (balance("""""") != "K C 3") /*send balance a NULL & wait for user to tare*/
break;
if (balance("S")!="S S ") /* get compound weight fm balance */
break;
}
BALANCE() writes a list with three fields:
The balance list is written to TRIMHome\cache\infile.ini. This file is used by the balance driver, TRIMHome\bin\scale.exe, to send data to and from the balance. When the driver receives data from the balance it is it is filed in TRIMHome\cache\outfile.ini. BALANCE() reads outfile.ini to get the data returned from the balance and report it to the user.
Data returned from the balance is displayed on the status line. It is also checked for its validity using a list containing error codes and error descriptions. If the balance returns an error the current weighing script is aborted. If the balance returns a valid weight it is stored in the window list.
{
char response[5];
list response_list;
list return_list;
list_mod(g.balance_list,1,"port",g.port); /* port defined in wrcis.ini */
list_mod(g.balance_list,1,"outfile",g.outfile); /*outfile defined in wrcis.ini*/
list_mod(g.balance_list,1,"command",parm.0); /* command from weigh action */
list_file(g.balance_list,"gui!"^^g.cache_dir^^"infile.ini","a");
winexec("scale "^^g.cache_dir^^"infile.ini",1);
return_list= list_open("gui!"^^g.outfile,10);
response = substr(list_curr(return_list,0),1,5);
if (!response_list){
response_list= list_open("5 80",6,"Balance Responses: Code & Description");
list_mod(response_list,1,"D A","Response to the prompted text");
list_mod(response_list,1,"ES", "Syntax error");
list_mod(response_list,1,"ET", "Transmission error. The balance has "
"received a 'faulty' command, e.g. "
"a parity error or interface break.");
list_mod(response_list,1,"EL", "Logical error. Balance "
"can not execute the received command.");
list_mod(response_list,1,"I4 A ","Balance is reset and ready for operation.");
list_mod(response_list,1,"K A","Key control command understood and "
"successfully executed.");
list_mod(response_list,1,"K I","Key control command understood, but "
"not executable at present. Balance may "
"be in menu or input mode.");
list_mod(response_list,1,"K L","Key control command understood, but "
"command parameter wrong.");
list_mod(response_list,1,"K C 3","Tare key was pressed briefly, or tare key "
"was released after more than 2 seconds.");
list_mod(response_list,1,"K R","Tare key was held about 2 seconds. "
"This response repeats every 2 seconds "
"as long as the tare remains pressed.");
list_mod(response_list,1,"S I","Command not executable. "
"Balance is executing another command "
"(e.g. taring) or stability not reached.");
list_mod(response_list,1,"S +","Balance in overload range.");
list_mod(response_list,1,"S -","Balance in underload range.");
list_mod(response_list,1,"T I","Taring not performed. Balance is currently "
"executing another command (e.g. zero "
"setting) or unable to stabilize.");
list_mod(response_list,1,"T +","Upper limit of taring range exceeded.");
list_mod(response_list,1,"T -","Lower limit of taring range exceeded.");
}
if(response == "S S "){
bell();
status("Balance returned a stable weight of "
^^translate(substr(list_curr(return_list,0),5)," ","")^^".");
field= 1000*(to_number(substr(list_curr(return_list,0),5,10)));
g.modified=true;
}
else if(response == "T S "){
bell();
status("Balance is tared and has a value of "
^^translate(substr(list_curr(return_list,0),5)," ","")^^
" in tare memory.");
}
else if (list_find(response_list,0,response)){
bell(); bell();
status("Balance returned '"^^list_curr(response_list,0)^^"': "
^^list_curr(response_list,1) );
field= NULL;
g.modified=true;
}
else{
bell(); bell();
status("Balance returned "^^list_curr(return_list,0));
field = NULL;
g.modified = true;
}
return_list = NULL;
g.balance_list = NULL;
delete("gui!"^^g.outfile);
return(response);
}
{
list barcode;
if (!to_int(g.bar_code)) /* g.bar_code is environ var set in wrcis.ini */
error("Bar Code program is not installed on this computer.");
else if (!p.bn_d) /* BN must be displayed to print a bar code */
error("Enter BN field before printing bar code");
else{
barcode= list_open("80",9,"Ship BarCode list");
list_mod(barcode,1,"[LABEL]");
list_mod(barcode,1,"Label=C:\WINBAR3X\LABELS\BN1MAKE.LAB");
list_mod(barcode,1,"Port=COM3:");
list_mod(barcode,1,"Quantity=1");
list_mod(barcode,1,"P-BN="^^p.bn_d);
list_mod(barcode,1,"P-NAME=WindowBar AutoPrint");
list_file(barcode,"gui!c:\winbar4X\batch\new_bn.bat","a");
status("Created file c:\winbar4X\batch\new_bn.bat");
}
}
{
list barcode;
if (!to_int(g.bar_code)) /* g.bar_code is environ var set in wrcis.ini */
error("Bar Code program is not installed on this computer.");
else if (!p.bn_d) /* BN must be displayed to print a bar code */
error("Enter BN field before printing bar code");
else{
barcode= list_open("80",9,"Ship BarCode list");
list_mod(barcode,1,"[LABEL]");
list_mod(barcode,1,"Label=C:\WINBAR3X\LABELS\WRBSHIP2.LAB");
list_mod(barcode,1,"Port=COM3:");
list_mod(barcode,1,"Quantity=1");
list_mod(barcode,1,"P-BN="^^p.bn_d);
list_mod(barcode,1,"P-TS="^^p.test_d);
list_mod(barcode,1,"P-MG="^^p.ship_qty_d^^" M");
list_mod(barcode,1,"P-NAME=WindowBar AutoPrint");
list_file(barcode,"c:\winbar4X\batch\ship_bn.bat","a");
status("Created file c:\winbar4X\batch\new_bn.bat");
}
}
[PARAMETER] PGM_UNITS=INCHES CLASS=ZEBRA PRINTER=Zebra 105 ORG=0,0 DB_CLASS=Vista DB_PATH= DENSITY=8 dots/mm DOTS_MMX=8.00000 DOTS_MMY=8.00000 DOTS_INCHX=203.20000 DOTS_INCHY=203.20000 DESC=PRINTS ONE BOTTLE LABEL LABELSIZE=305,114 SIZE=305,114 EXTENT=305,114 LABEL_OFFSET=0,6 CUTTER_ENABLE=N CUTTER_QTY=0 DARKNESS=60 CUTTER_PAUSE_OVERRIDE=N PRINTSPEED= 51 mm/sec MODE=Tear Off LABEL_ROTATION=0 degrees CLEAR_PRINTER=N MIRROR=N REVERSE=N BACKFEED=N DIRECT_THERMAL=N CONTINUOUS=N SEQREPEAT_QTY=2 SLEW_DOTS=0 STOCK=C:\WINBAR3X\STOCKS\BTLB2UP.STK MAX_BITMAPS=6 DB_EXT= [BARCODE] ORG=35,11 SYMBOLOGY=CODE 39 RATIO=2:1 HEIGHT=69 OBJ_ROTATION=0 degrees XDEM=2 GUIDE=Y INTERP_SIZE=12,17 INTERP_OFFSET=5 INTERP_STARTSTOP=Y BC_X_OFFBEF=0 BC_X_OFFAFT=0 INTERPRETATION=BELOW PACK= CHECKSUM=0 START_CHAR= STOP_CHAR= SERIALIZED=N LEADING_ZEROS=N INC/DEC=INC STEP=1 VARIABLE_NAME=P-BN DATA=BN12345 EXTENT=232,89 [END_OBJS] [PROMPT] STATEMENT=Enter Bottle Number to Print NAME=P-BN MAX_LENGTH=7 DATA_TYPE=STRING [END_VARS]