// ****************************************************************** // * OS: HHR Program Loader 3.34.exe // * HHM: HHR Manager version 3.33 // * // * // * // ****************************************************************** // 2009-02-09 21:10 BioControl ///////////////////////////////////////////////////////////////////// // // EXAMPLE APP 08 BLUETOOTH // // ////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// HEADER EXAMPLE APP 08 BLUETOOTH 2007/09/17 10:34:59 dd/mm/yyyy hh:mm:ss ; LOG_false . BT_true GL_section animal_true ISO_EID_DT_frame END TABLE EID;R;1;1;1;0000 0000 0000;; VID;S;1;1;1;&& &&&& &&&&;; DOB;D;0;1;1;0000000000;; SEX;O;0;1;1;M,F;F; BREEDING;O;0;1;1;Y,N;Y; WEIGHT;S;0;1;1;0000;; VET;G;0;1;1;##;1; FARM;G;0;1;1;##;0; ATT1;O;0;1;1;,DontMilk,Treat,Separate;; ATT2;O;0;1;1;,DontMilk,Treat,Separate;; ATT3;O;0;1;1;,DontMilk,Treat,Separate;; FLAG1;S;0;1;1;#;; FLAG2;S;0;1;1;#;; FLAG3;S;0;1;1;#;; FLAG4;S;0;1;1;#;; END GLOBAL 0:PL492520300030 1:002396303Q // END //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! MESSAGE // END MACRO //*******// macro NEW_REC //*********************************** begin_macro:NEW_REC begin_action_area ReadNew(EID) PutGlobal(FARM,0) PutGlobal(VET,1) Paste(BREEDING) Paste(DOB) Paste(SEX) end_action_area //screen 1.1 begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"1.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,8,2,"EID:") PrintField(0,20,4,EID) PrintText(0,38,2,"VID:") EditMaskedField(25,38,2,VID) IconAddRec(3,51,table,1) IconDelete(28,51,table,0) IconFindCol(53,51,VID,0) end_screen //screen 1.2 begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"1.2") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,8,2,"Born:") EditDateField(31,8,2,DOB) PrintText(0,21,2,"Sex:") EditChoiceField(25,21,2,SEX) PrintText(0,34,2,"Breeding:") EditChoiceField(56,34,2,BREEDING) PrintText(0,47,2,"Weight:") EditMaskedField(48,47,2,WEIGHT) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"1.3") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,8,1,"Farm:") PrintField(4,19,2,FARM) PrintText(0,35,1,"Vet:") PrintField(4,46,2,VET) DrawLine(0,63,127,63) end_screen begin_control_area Copy(table) end_control_area end_macro //*******// macro ATTENTIONS //*********************************** begin_macro:ATT begin_action_area ReadSeek(EID) end_action_area //screen 2.1 begin_screen PrintText(0,0,1,"EID") //PrintText(0,0,1,"VID") PrintText(30,0,0,"REC:") PrintExp(52,0,0,noofrec()) //PrintText(113,0,0,"2.1") PrintText(80,0,0,"OF:") PrintExp(95,0,0,count(*)) DrawLine(25,6,127,6) IconFindCol(0,10,EID,0) //IconFindCol(0,10,VID,0) PrintField(25,11,2,EID) //PrintField(25,11,2,VID) PrintText(0,26,2,"1:") EditChoiceField(20,26,2,ATT1) PrintText(0,39,2,"2:") EditChoiceField(20,39,2,ATT2) PrintText(0,52,2,"3:") EditChoiceField(20,52,2,ATT3) end_screen //screen 2.2 begin_screen PrintText(0,0,1,"AUX") PrintText(30,0,0,"REC:") PrintExp(52,0,0,noofrec()) PrintText(80,0,0,"OF:") PrintExp(95,0,0,count(*)) DrawLine(25,6,127,6) PrintText(0,13,1,"AuxFlag1:") EditMaskedField(60,13,2,FLAG1) PrintText(0,26,1,"AuxFlag2:") EditMaskedField(60,26,2,FLAG2) PrintText(0,39,1,"AuxFlag3:") EditMaskedField(60,39,2,FLAG3) PrintText(0,52,1,"AuxFlag4:") EditMaskedField(60,52,2,FLAG4) end_screen begin_control_area end_control_area end_macro //*******// macro INS. BOLUS //*********************************** begin_macro:INSBOLUS begin_action_area ReadNew(EID) end_action_area //screen 3.1 begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"3.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,9,2,"EID:") PrintField(3,20,2,EID) PrintText(0,36,2,"VID:") EditMaskedField(25,36,2,VID) //PrintText(0,47,2,"Born:") //EditDateField(48,47,2,DOB) //PrintText(32,30,2,"Sex:") //EditChoiceField(40,32,2,SEX) IconFindCol(4,50,VID,1) IconDelete(25,50,table,0) //IconFindCol(0,8,VID,0) //IconDelete(25,8,0) //PrintText(0,21,2,"VID:") //EditMaskedField(25,21,2,VID) //PrintText(0,35,2,"EID:") //EditReadField(7,46,3,EID) end_screen begin_control_area end_control_area end_macro //*******// macro VIEW /EDIT DB//*********************************** begin_macro:VIEW begin_action_area ReadSeek(EID) end_action_area //screen 4.1 begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"4.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,15,2,"EID:") PrintField(25,15,2,EID) PrintText(0,35,2,"VID:") EditMaskedField(25,35,2,VID) IconAddRec(3,51,table,1) IconDelete(28,51,table,0) IconFindCol(53,51,VID,0) end_screen //screen 4.2 begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"4.2") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,8,2,"Born:") EditDateField(31,8,2,DOB) PrintText(0,21,2,"Sex:") EditChoiceField(25,21,2,SEX) PrintText(0,34,2,"Breeding:") EditChoiceField(56,34,2,BREEDING) PrintText(0,47,2,"Weight:") EditMaskedField(48,47,2,WEIGHT) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(113,0,0,"4.3") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,8,1,"Farm:") PrintField(4,19,2,FARM) PrintText(0,35,1,"Vet:") PrintField(4,46,2,VET) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro READ AND SEND BY BLUETOOTH //*********************************** begin_macro:SENDBYBT begin_action_area Read() //ReadNew(EID) end_action_area begin_screen PrintText(0,0,1,"ID Nationale:") PrintCountryName(100,0,1,#) PrintAnimalNo(2,9,4,#) DrawLine(0,23,127,23) PrintText(0,25,1,"Rebouclage:") PrintRetagging(117,25,1,#) PrintText(0,35,1,"Info utilisateur:") PrintUserInfo(110,35,1,#) PrintText(0,45,1,"Info suppl:") PrintAddInfo(117,45,1,#) PrintText(0,55,1,"Reserved:") PrintReserved(110,55,1,#) 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 GLOBAL VALUE //*********************************** begin_macro:GLOBAL begin_action_area end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec()) PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(*)) DrawLine(0,6,127,6) PrintText(0,7,1,"Farm:") EditGlobal(4,18,2,0,&& &&&& &&&& &&&&) PrintText(0,35,1,"Vet:") EditGlobal(4,46,2,1,&&&&& &&&&&) end_screen begin_control_area end_control_area end_macro //*******// macro BLUETOOTH //*********************************** begin_macro:BLUETOOTH begin_action_area end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(*)) PrintText(115,0,0,"2.1") DrawLine(0,6,106,6) IconBT(107,0) PrintText(0,10,2,"BlueTooth:") SetBTOnOff(67,10,2) PrintText(0,26,2,"Name:") SetBTName(43,26,2) PrintText(0,42,2,"Pin code:") SetBTPin(55,42,2) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro END MENU M0:{New Animal,M1};{Attentions,M2};{Ins. Bolus,M3};{View/Edit DB,M4};{ReadAndSend,M5};{Settings,M6} M1:NEW_REC M2:ATT M3:INSBOLUS M4:VIEW M5:SENDBYBT M6:{Bluetooth,M7};{Date/Time,M8};{Farm & Vet,M9} M7:BLUETOOTH M8:DATE M9:GLOBAL END START_SCREEN begin_screen PrintText(0,0,0,"EXAMPLE APP 08 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_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 on. w_OFF:Turn off. w_MEMORY:MEMORY: END