// ****************************************************************** // * interpreter min: HHR Program Loader 4.10 // * // * compile min: HHR Manager version 4.10 // * // * // * // ****************************************************************** // 2010-06-11 16:10 BioControl ///////////////////////////////////////////////////////////////////// // // // EXAMPLE APP 04 PRINTER BT // // // ////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// HEADER EXAMPLE APP 04 2010/06/23 19:40:20 dd/mm/yyyy hh:mm:ss ; LOG_true . BT_false GL_section END TABLE EID;R;1;1;1;000000000000;; VID;S;0;0;1;&&&&&&&&&&;; FIL;S;0;0;1;$$$$;; END LOG EIDL;R;1;1;1;000000000000;; VIDL;S;0;0;1;&&&&&&&&&&;; FILL;S;0;0;1;$$$$;; END GLOBAL 0:52/060/0082 1:1 2:PL492520300030 3:002396303Q 4:PL492520300030 END //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! MESSAGE // END PRINT begin_printout:B // * B ************************* // BARCODE test // only current record EID #(LF)#(CR) Farm number: #(LF)#(CR) //#(LF)#(CR) //#(GS)h50 #(GS)H#(SOH) #(GS)w#(STX) #(GS)k#(EOT)#(NUL) //#(ESC)d5 #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout // * B LOG************************* // BARCODE test // only current record EIDL begin_printout:BLOG (LF)#(CR) Farm number:#(LF)#(CR) //#(GS)h50 #(GS)H#(SOH) #(GS)w#(STX) #(GS)k#(EOT)#(NUL) //#(ESC)d5 #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout // * A ************************* begin_printout:A #(LF)#(CR) #(LF)#(CR) //UK#(SP)#(SP)#(SP)#(SP)#(LF)#(CR) Records:#(SP)[ex.range]#(LF)#(CR) Filtr no:#(SP)#(LF)#(CR) ------------------------------#(LF)#(CR) [r [ex.count]#(SP)UK#(SP)#(SP)#(SP)#(LF)#(CR) r] ------------------------------#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Movement: TO / OFF #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Destination: _ _ _ _ _ _ _ _ _ #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Signature: _ _ _ _ _ _ _ _ _ _ #(LF)#(CR) #(LF)#(CR) Date:#(SP)#(SP)#(SP)#(SP)[ex.date] #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout // * A ************************* // begin_printout:CC #(LF)#(CR) #(LF)#(CR) //#(SP)UK#(SP)#(SP)#(SP)#(SP)#(LF)#(CR) Records:#(SP)[ex.range]#(LF)#(CR) ------------------------------#(LF)#(CR) [r [ex.count]#(SP)UK#(SP)#(SP)#(SP)#(LF)#(CR) r] ------------------------------#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Movement: TO / OFF #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Destination: _ _ _ _ _ _ _ _ _ #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) Signature: _ _ _ _ _ _ _ _ _ _ #(LF)#(CR) #(LF)#(CR) Date:#(SP)#(SP)#(SP)#(SP)[ex.date] #(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout END MACRO //*******// macro NEW_REC //*********************************** begin_macro:NEW_REC begin_action_area ReadNew(table.EID) Paste(table.FIL) Sorting(table.VID) end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"1.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,8,2,"EID:") PrintField(25,8,2,table.EID) PrintText(0,20,2,"VID:") EditMaskedField(25,20,2,table.VID) PrintText(0,32,2,"FARM NO:") EditMaskedField(60,32,2,table.FIL) IconAddRec(3,51,table,1) IconDelete(28,51,table,0) IconFindCol(53,51,table.VID,0) IconPrint(78,51,B,current,0) end_screen begin_control_area Copy(table) end_control_area end_macro //*******// macro PRINT TABLE //*********************************** begin_macro:PRINT_TAB begin_action_area //ReadNew(table.EID) Sorting(table.EID) end_action_area //screen 1.1 begin_screen PrintText(0,0,2,"EID:") PrintField(25,0,2,table.EID) IconFindCol(108,0,table.EID,0) PrintText(0,12,2,"VID:") PrintField(25,12,2,table.VID) IconFindCol(108,12,table.VID,0) DrawLine(0,25,127,25) PrintText(0,27,2,"Print current rec") IconPrint(108,27,A,current,0) PrintText(0,39,2,"Print filtred:") EditGlobal(75,39,2,1,$$$$) IconPrint(108,39,A,table.FIL,1) PrintText(0,51,2,"Print all:") PrintExp(50,51,2,count(table.*)) IconPrint(108,51,A,table.all,0) end_screen begin_control_area end_control_area end_macro //*******// macro PRINT LOG //*********************************** begin_macro:PRINT_LOG begin_action_area //ReadNew(log.EIDL) Sorting(log.EIDL) end_action_area begin_screen PrintText(0,0,2,"EID:") PrintField(25,0,2,log.EIDL) IconFindCol(108,0,log.EIDL,0) PrintText(0,12,2,"VID:") PrintField(25,12,2,log.VIDL) IconFindCol(108,12,log.VIDL,0) DrawLine(0,25,127,25) PrintText(0,27,2,"Print current rec") IconPrint(108,27,CC,current,0) PrintText(0,39,2,"Print filtred:") EditGlobal(75,39,2,1,$$$$) IconPrint(108,39,CC,log.FILL,1) PrintText(0,51,2,"Print all:") PrintExp(50,51,2,count(log.*)) IconPrint(108,51,CC,log.all,0) end_screen begin_control_area end_control_area end_macro begin_macro:NEW_LOG begin_action_area ReadNew(log.EIDL) end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(log)) PrintText(113,0,0,"1.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(log.*)) DrawLine(0,6,127,6) PrintText(0,8,2,"EIDL:") PrintField(30,8,2,log.EIDL) PrintText(0,20,2,"VIDL:") EditMaskedField(30,20,2,log.VIDL) PrintText(0,32,2,"FARM NO:") EditMaskedField(60,32,2,log.FILL) IconAddRec(3,51,log,1) IconDelete(28,51,log,0) IconFindCol(53,51,log.VIDL,0) IconPrint(78,51,BLOG,current,0) end_screen begin_control_area end_control_area end_macro //*******// macro DATE TIME //*********************************** begin_macro:DATE begin_action_area end_action_area begin_screen PrintText(0,10,2,"Time:") SetTime(40,10,2) PrintText(0,25,2,"Date:") SetDate(40,25,2) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro begin_macro:READ_PRINT begin_action_area //Read() ReadNew(table.EID); Print(B,current,0) end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"1.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,8,2,"EID:") PrintField(0,20,4,table.EID) PrintText(0,37,2,"VID:") EditMaskedField(25,37,2,table.VID) IconDelete(3,51,table,1) end_screen begin_control_area end_control_area end_macro begin_macro:DELTABLE begin_action_area end_action_area begin_screen DelTable() end_screen begin_control_area end_control_area end_macro //*******// macro RSON //*********************************** // setings: BT_true begin_macro:BTON begin_action_area end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(table.*)) PrintText(115,0,0,"2.1") DrawLine(0,6,106,6) IconBT(107,0) PrintText(0,8,1,"BlueTooth:") SetBTOnOff(67,8,1) PrintText(0,18,1,"Name:") SetBTName(43,18,1) PrintText(0,28,1,"Pin code:") SetBTPin(55,28,1) PrintText(0,38,1,"MAC:") SetBTMAC(33,38,1) PrintText(0,48,1,"Mode:") SetBTMode(38,48,1) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro END MENU M0:{New REC,M1};{Log,M2};{Print,M3};{ReadAndPrint,M4};{Settings,M5} M1:NEW_REC M2:NEW_LOG M3:{PrintTable,M8};{PrintLog,M9} M4:READ_PRINT M5:{BlueTooth,M10};{Date/Time,M6};{Delete DB,M7} M6:DATE M7:DELTABLE M8:PRINT_TAB M9:PRINT_LOG M10:BTON END START_SCREEN begin_screen PrintText(0,0,0," EXAMPLE PRINT 04 BT") DrawLine(0,6,127,6) PrintText(9,20,5,"BioControl") DrawLine(0,56,127,56) PrintVersion(0,58,0) end_screen END //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! WARNING w_WAIT:Please/wait! w_UNIQUE:This value/must be unique! w_NOEDIT:This value/is NOT editable! w_NOTNULL:This value/must be not null! w_LOWBATTERY:Low battery! w_CHARGEBATTERY:Battery/charging! w_NOT_FREE_MEMORY:No free memory! w_NOT_STORED:NOT STORED! w_STORED:STORED! w_DATE_GOOD:Date changed. w_DATE_NO_CHANGE:Date not/changed. w_DATE_NOT_GOOD:Wrong date! w_TIME_GOOD:Time changed. w_TIME_NO_CHANGE:Time not/changed. w_TIME_NOT_GOOD:Wrong time! w_NOTAG:No Tag. w_READING:Reading transp. w_SHUTOFF:See you! w_USBCONNECTED:USB/connected! w_NEW_REC:New record/created! w_TAGNOTFIND:Transponder/no. not found! w_TAGEXIST:Transponder/already exist! w_YES:YES w_NOT:NOT w_ADD_REC:Do you want/to add/new rec.? w_DEL_REC:Do you want/to del/cur. rec.? w_UNKNOWN_MES:Unknown/message! w_VALEXIST:This value/already exist! w_BTACTIVE:Activating/Bluetooth. w_BTNOACTIVE:Closing/Bluetooth. w_ON:Off. w_OFF:On. w_MEMORY:MEMORY: w_RECSTORE:New record/stored! w_RECNOSTORE:New record/not stored! w_NOFIND:Value/not find! w_NOANIMAL:No animal code! w_COUNTRY:Wrong country code! w_DEL_TABLE:weldkwe END