// ****************************************************************** // * OS: HHR Program Loader 4.20 or later // * HHM: HHR Manager version 4.20 or later // * // * // * // ****************************************************************** // // // // ///////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////// HEADER EXAMPLE FILTER 19-11-2010 17:10:00 dd-mm-yyyy hh:mm:ss ; LOG_false . BT_false GL_section //SM_true END TABLE DATE;D;0;0;0;0000000000;; TIME;T;0;0;0;00000000;; FIL;S;0;1;1;$$$;; EID;R;2;1;1;000 0000 0000 0000;; VID;S;2;1;1;$$$$$$$$$;; END GLOBAL 0:000 1:001 2:002 3:003 4:004 5:005 6:006 7:007 8:008 9:009 10:010 11:011 12:012 13:013 14:014 15:015 16:016 END //if you do not use #(PRINETERDATA:RS;0;3;0;2) command //a printout will be sent on the current output RS,USB or BT. //Do not use it when you work with BT or USB.[ex.hex(EID)]#(SP) PRINT //*******//printout GROUP_HEX //*********************************** begin_printout:PGRP_HEX #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(LF)#(CR) Farm: [gl.FILTER] Records: [ex.range]#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) -------------------------------#(LF)#(CR) [r [ex.count]#(SP)[ex.hex(EID,0,16)]#(LF)#(CR) [ex.count]#(SP)[ex.hex(EID,4,12)]#(LF)#(CR) [ex.count]#(SP)[ex.dec(EID,0,23)]#(LF)#(CR) r] -------------------------------#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) (c) 2010 Biocontrol PL#(LF)#(CR) #(LF)#(CR) ++++++++++++++++++++++++++++++#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout //*******//printout GROUP_HEX //*********************************** //*******//printout GROUP //*********************************** begin_printout:PGRP #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL)#(NUL) #(LF)#(CR) Farm: [gl.FILTER] Records: [ex.range]#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) -------------------------------#(LF)#(CR) [r [ex.count]#(SP)[ex.dec(EID,8,3)]#(SP)[ex.prt(EID,11,12)]#(SP)#(SP)#(SP)#(LF)#(CR) r] -------------------------------#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) (c) 2010 Biocontrol PL#(LF)#(CR) #(LF)#(CR) ++++++++++++++++++++++++++++++#(LF)#(CR) #(LF)#(CR) #(LF)#(CR) end_printout //*******//printout GROUP //*********************************** END MACRO //*******// macro GROUP //*********************************** begin_macro:GROUP begin_action_area SetFilter(FIL) ReadNew(EID) Sorting(EID) //Group //PutGlobal(FIL,FILTER) //FillExp(FIL,global(FILTER)) //Print(PGRP,FIL,FILTER) //PutGlobal(FIL,1) FillExp(FIL,global(FILTER)) FillExp(DATE,date()) FillExp(TIME,time()) end_action_area begin_screen // PrintText(0,0,0,"REC:") // PrintExp(21,0,0,count(FIL)) // PrintExp(100,0,0,count(*)) // DrawLine(0,6,127,6) // PrintText(0,0,1,"Total:") // PrintExp(40,0,1,count(*)) PrintText(0,0,2,"PEN:") ChoiceFilter(30,0,2) // PrintText(100,0,3,"In Pen:") PrintExp(75,2,3,noofrec(table)) PrintText(95,1,2,"/") PrintExp(103,0,4,count(FIL)) PrintText(0,15,1,"EID:") //s from 0 to 14 //EditPartField(30,19,2,EID,0,3) //EditGlobalField(0,31,2,FIL) //PrintText(0,31,2,"EID:") //EditMaskedField(30,31,2,EID) PrintField(0,30,2,EID) // PrintText(0,40,1,"VID:") // EditMaskedField(30,40,1,VID) PrintText(0,51,1,"Total:") PrintExp(35,51,1,count(*)) //--------------------------------------------- IconDelete(58,51,table,0) IconPrint(83,51,PGRP_HEX,FIL,FILTER) IconList(108,51,EID,0) end_screen begin_control_area Copy(table) end_control_area end_macro //*******// macro GLOBALS //*********************************** begin_macro:GLOBALS begin_action_area end_action_area begin_screen PrintText(0,0,2,"FARM = ") ChoiceFilter(60,0,2) PrintText(0,15,2,"Edit FARM = ") EditGlobal(75,15,2,FILTER,$$$$) end_screen begin_control_area end_control_area end_macro //*******// macro GLOBALS //*********************************** //*******// macro DATETIME //*********************************** begin_macro:DATETIME begin_action_area end_action_area begin_screen PrintText(50,0,0,"DATE TIME") DrawLine(0,6,127,6) //--------------------------------------------- PrintText(0,10,3,"DATE:") SetDate(50,10,3) PrintText(0,31,3,"TIME:") SetTime(50,31,3) end_screen begin_control_area end_control_area end_macro //*******// macro DATETIME //*********************************** //*******// macro RSON //*********************************** // setings: BT_true // switched USART0 to USART1 begin_macro:RSON begin_action_area end_action_area begin_screen PrintText(0,0,0,"RS232") 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 //*******// macro RSON //*********************************** //*******// macro BTON //*********************************** begin_macro:BTON begin_action_area end_action_area begin_screen PrintText(0,0,0,"BLUETOOTH") IconBT(107,0) DrawLine(0,6,106,6) 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 //*******// macro BTON //*********************************** END MENU M0:{ReadNew,M1};{Globals,M2};{Settings,M3} M1:GROUP M2:GLOBALS M3:{Date,M4};{RS232,M5};{Bluetooth,M6} M4:DATETIME M5:RSON M6:BTON END START_SCREEN begin_screen PrintText(0,0,0,"EXAMPLE - FILTERS 01") DrawLine(0,6,127,6) //--------------------------------------------- PrintText(0,20,2,"BIOCONTROL PL") 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:2S2R^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_FILTER:0S3R^Move the rec/to new pen? END