// ****************************************************************** // * interpreter min: HHR Program Loader 4.10 // * // * compile min: HHR Manager version 4.10 // * // * // * // ****************************************************************** // 2010-02-11 16:10 BioControl ///////////////////////////////////////////////////////////////////// // // // EXAMPLE APP 03 PRINTER // // // ////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// HEADER EXAMPLE APP 03 2008/12/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 // RS232 settings for function #(PRINETERDATA:RS;0;3;0;2) //cRS_BR9600 0 //cRS_BR14400 1 //cRS_BR19200 2 //cRS_BR28800 3 //cRS_BR38400 4 //cRS_BR57600 5 //cRS_BR76800 6 //cRS_BR115200 7 //cRS_5bit 0 //cRS_6bit 1 //cRS_7bit 2 //cRS_8bit 3 //cRS_even 0 //cRS_odd 1 //cRS_disabled 2 //cRS_one 0 //cRS_two 1 //BR;8bit;one,disabled //#(PRINETERDATA:RS;0;3;0;2) //RS - RS232 begin_printout:B // * B ************************* // BARCODE test // only current record EID #(PRINETERDATA:RS;0;3;0;2) #(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 #(PRINETERDATA:RS;0;3;0;2) #(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 #(PRINETERDATA:RS;0;3;0;2) #(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 ************************* // "movmend doc.pdf" // begin_printout:CC #(PRINETERDATA:RS;0;3;0;2) #(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 //screen 1.1 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,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,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 //screen 1.1 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,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 //screen 1.1 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 //*******// macro RSON //*********************************** // setings: BT_true // switched USART0 to USART1 begin_macro:RSON begin_action_area end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,8,1,"RS232 status:") RSOnOff(80,8,2) PrintText(0,20,1,"Baud rate:") SetRSSpeed(70,20,1) PrintText(0,30,1,"Data bits:") SetRSDataBits(70,30,1) PrintText(0,40,1,"Stop bits:") SetRSStopBits(70,40,1) PrintText(0,50,1,"Parity:") SetRSParity(70,50,1) 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 begin_macro:PIN_CODE begin_action_area end_action_area begin_screen ChangeBootPIN(0,8,2) 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,M10};{PrintLog,M11} M4:READ_PRINT M5:{RS232,M6};{Date/Time,M7};{Pin Code,M8};{Delete DB,M9} M6:RSON M7:DATE M8:PIN_CODE M9:DELTABLE M10:PRINT_TAB M11:PRINT_LOG END START_SCREEN begin_screen PrintText(0,0,0," EXAMPLE PRINT 03") 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_CHOICE:Choice: w_FIND:Find: 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:Bluetooth/is activated. w_BTNOACTIVE:Bluetooth/is closed. w_ON:Turn off. w_OFF:Turn 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! END