// ****************************************************************** // * bootloader: HHR ProgramLoader 3.41.exe // * interpreter: // * compiler: HHManager 3.40 // * hardware: HHR3000 // * // * // ****************************************************************** // 2007-07-05 23:42 ///////////////////////////////////////////////////////////////////// // Font <0,5> Font 0 only up // // application: Norway // // // // // change : 10/09/2007 // - added column BIRTHDATE // // change : 22/01/2008 // - added Log // - added Read menu - only read, not store data // - added Read-Log menu - read and add new rec to Log // - added Continue menu - it coll very special function from // !!!!!! HHR_PRO_0.00.hex !!!!!! // ContinueRead() - continuous reading and storing all transponder with date time stamp //change : 29/01/2008 // !!!!!! HHR_PRO_0.00_NO_1252.hex !!!!!! // // //change : 01/02/2008 // !!!!!! HHR_PRO_0.02_NO_1252.hex !!!!!! // // // //change : 20/02/2008 // !!!!!! HHR_PRO_3_00_NO_1252.hex !!!!! // // // add new wornings: // w_DEL_LOG:Vil du SLETTE/hele loggen? // w_NEW_LOG:Lagret log! // //instead of // w_CHOICE:Do you want to/DEL whole LOG? // w_FIND:Lagret log! // Continue() is improved // //change : 17/03/2008 // !!!!!!HHR_PRO_3_11_1252.hex!!!!! // // //change : 25/04/2008 // RS232 // //change : 20/04/2009 // WSS menu //change : 06/06/2009 // WSS menu in Norwegian //change : 01/09/2009 // WSS menu // add EID field on screen // //change : 11/12/2009 // TestAntenna() // // ///////////////////////////////////////////////////////////////////////// HEADER Norway 2008-01-21 23:44:59 dd/mm/yyyy hh:mm:ss ; LOG_true , BT_true GL_section animal_false SM_false END //unque,editable,null TABLE // EID;R;1;1;1;#### #### ####;; AVID;S;1;1;1;&&&& &&&& &&&&;; SEX;O;0;0;1;S,V;; BIRTHDATE;D;0;1;1;0000000000;; BWEIGHT;S;0;1;1;0000 kg;; // MOTHEREID;A;0;1;1;#### #### ####;; MOTHERVID;S;0;1;1;&&&& &&&& &&&&;; FOSTEREID;A;0;1;1;#### #### ####;; FOSTERVID;S;0;1;1;&&&& &&&& &&&&;; // LASTWEIGHT;S;0;1;1;##### kg;; LDATEW;D;0;1;1;0000000000;; STATUS;O;0;1;1;Normal,Kopplam,Fosterlam,Død 1,Død 2,Død 3,Død 4;; STATUSDATE;D;0;1;1;0000000000;; // MALEEID;A;0;1;1;#### #### ####;; MALEVID;S;1;1;1;&&&& &&&& &&&&;; MATINGDATE;D;0;1;1;0000000000;; // SCANCOUNT;S;0;1;1;#;; SCANDATE;D;0;1;1;0000000000;; LAMBNO;S;0;1;1;#;; LAMBNODATE;D;0;1;1;0000000000;; // TREATMENT1;O;0;1;1;Beh.1,Beh.2,Beh.3,Beh.4,Beh.5,;; T1DATE;D;0;1;1;0000000000;; TREATMENT2;O;0;1;1;Beh.1,Beh.2,Beh.3,Beh.4,Beh.5,;; T2DATE;D;0;1;1;0000000000;; // TREATMENT3;O;0;1;1;Beh.1,Beh.2,Beh.3,Beh.4,Beh.5,;; T3DATE;D;0;1;1;0000000000;; TREATMENT4;O;0;1;1;Beh.1,Beh.2,Beh.3,Beh.4,Beh.5,;; T4DATE;D;0;1;1;0000000000;; // FLAG;S;0;1;1;#;; FLAGDATE;D;0;1;1;0000000000;; REMARK;S;0;1;1;&&&&&&&&&&;; // SLAUGHTER;O;0;1;1;Ja,Nei;; SLDATE;D;0;1;1;0000000000;; PHOME;O;0;1;1;Beite,Hjemme;; PHDATE;D;0;1;1;0000000000;; // DEADCODE1;S;0;1;1;#;; DEADCODE2;S;0;1;1;#;; DEADCODE3;S;0;1;1;#;; DEADCODE4;S;0;1;1;#;; GATE;S;0;1;1;$;0; END LOG LEID;R;0;1;1;#### #### ####;; LTIME;T;0;1;1;000000000;; LDATE;D;0;1;1;0000000000;; END //not use in ELDA //NOT MORE 20 CHAR !!!!!!! GLOBAL 0:070,0 1:100,0 2:000,0 3:000,0 END //not use //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! MESSAGE 0:not 1:Ready for/slaughter! END MACRO //*******// macro M3:LAMBING //*********************************** // BIRTHDATE;D;0;1;1;0000000000;; // MATHEREID;A;0;1;1;#### #### ####;; // MATHERVID;S;0;1;1;&&&& &&&& &&&&;; // Lambing/tagging: // Read lamb EID // Read and register mother EID // Register date of lambing (date typed in, suggest todays date) // Sex (1 Male, 2 Female), // Birthweight (type in) begin_macro:LAMBING begin_action_area AddRecConf(table) Paste(table.MOTHEREID) Paste(table.MOTHERVID) //Paste(table.SEX) FillExp(table.BIRTHDATE,date()) end_action_area begin_screen DrawLine(0,0,68,0) PrintText(72,0,1,"LAMMING") DrawLine(68,11,127,11) PrintText(0,1,1,"Mor EID:") EditReadField(5,12,2,table.MOTHEREID) PrintText(0,25,1,"Mor VID:") EditMaskedField(5,36,2,table.MOTHERVID) PrintText(0,50,1,"Fdato:") EditDateField(38,49,2,table.BIRTHDATE) IconNextRec(120,53,log.LDATE) //IconConfirm(104,12,table,1) //DrawRec(104,12,20,12) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,68,0) PrintText(72,0,1,"LAMMING") DrawLine(68,11,127,11) IconPrevRec(120,11,log.LDATE) PrintText(0,0,1,"Lam EID") EditReadField(5,11,2,table.EID) PrintText(0,24,1,"VID:") EditMaskedField(24,23,2,table.AVID) PrintText(0,37,1,"Vekt:") EditMaskedField(30,36,2,table.BWEIGHT) PrintText(0,50,1,"Kjønn:") EditChoiceField(37,49,2,table.SEX) IconConfirm(104,49,table,1) DrawRec(104,49,20,12) DrawLine(0,63,127,63) end_screen begin_control_area Copy(table) end_control_area end_macro //*******// macro M4:LAMBSTAT //*********************************** // Lamb status: // Read Lamb EID read or typed in (before tagging), // Statuscode (f.ex. cause of death), // Fostermother EID if status fosterlamb // Date of change of status-code // FOSTEREID;A;0;1;1;#### #### ####;; // STATUS;O;0;1;1;normal,bottle fed,foster,dead 1,dead 2,dead 3,dead 4;; // STATUSDATE;D;0;1;1;0000000000;; begin_macro:LAMBSTAT begin_action_area Sorting(table.AVID) FillExp(table.STATUSDATE,date()) end_action_area begin_screen //PrintText(0,2,0,"REC:") //PrintExp(21,2,0,noofrec(table)) DrawLine(0,0,56,0) PrintText(60,0,1,"LAM STATUS") DrawLine(56,11,127,11) PrintText(0,2,2,"VID:") IconFindCol(23,2,table.AVID,2) DrawRec(23,2,20,12) PrintField(2,13,3,table.AVID) PrintText(0,29,1,"EID:") EditReadSeek(22,27,3,table.EID) PrintText(0,43,1,"Status:") EditChoiceField(42,41,3,table.STATUS) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,127,0) //PrintText(60,0,0,"LAM STATUS") //DrawLine(56,10,127,10) IconPrevRec(120,0,log.LDATE) PrintText(0,0,2,"Foster mor:") PrintText(0,14,1,"EID:") EditReadField(22,12,3,table.FOSTEREID) PrintText(0,28,1,"VID:") EditMaskedField(24,26,3,table.FOSTERVID) PrintText(0,42,2,"Dato:") EditDateField(33,41,3,table.STATUSDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******//M2: macro ADD //*********************************** begin_macro:ADD begin_action_area AddRecConf(table) end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(105,0,0,"2.2.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,8,2,"EID:") EditReadField(24,8,2,table.EID) PrintText(0,22,2,"VID:") EditMaskedField(26,22,2,table.AVID) PrintText(0,36,2,"Fødselsvekt:") EditMaskedField(76,36,2,table.BWEIGHT) PrintText(0,49,2,"Kjønn:") EditChoiceField(37,49,2,table.SEX) //IconAddRec(56,49,table,0) //DrawRec(55,49,20,12) //IconFindCol(80,49,table.AVID,0) //DrawRec(80,49,20,12) //IconDelete(105,49,table,0) //DrawRec(104,49,20,12) //IconConfirm(104,49,table,0) //DrawRec(104,49,20,12) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(105,0,0,"2.2.2") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,9,2,"Fødselsdato:") EditDateField(5,23,2,table.BIRTHDATE) IconPrevRec(120,6,log.LDATE) IconConfirm(104,49,table,1) DrawRec(104,49,20,12) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******//M10:ADDBOLUS macro //*********************************** begin_macro:ADDBOLUS begin_action_area Sorting(table.AVID) end_action_area begin_screen PrintText(0,2,0,"REC:") PrintExp(21,2,0,noofrec(table)) DrawLine(0,0,68,0) PrintText(72,0,1,"MERKING") DrawLine(68,11,127,11) IconFindCol(107,13,table.AVID,2) DrawRec(107,13,20,12) PrintText(0,12,2,"Ny eller finn VID:") EditNewField(1,25,2,table.AVID) PrintText(0,38,1,"EID:") EditReadField(1,49,2,table.EID) IconDelete(107,40,table,0) DrawRec(106,40,20,12) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******//M2: macro REGISTER //*********************************** begin_macro:VIEW begin_action_area Sorting(table.AVID) end_action_area begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.1") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // EID;R;1;1;1;#### #### ####;; // AVID;S;1;1;1;&&&& &&&& &&&&;; // SEX;C;0;0;1;M,F,;; // BWEIGHT;S;0;1;1;####;; PrintText(0,10,1,"EID:") EditReadSeek(21,8,3,table.EID) PrintText(0,21,1,"VID:") EditMaskedField(2,32,3,table.AVID) IconFindCol(72,49,table.AVID,0) DrawRec(72,49,20,12) IconDelete(97,49,table,0) DrawRec(96,49,20,12) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.2") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,9,3,"Fødselsvekt:") EditMaskedField(75,9,3,table.BWEIGHT) PrintText(0,27,3,"Fødsels:") EditDateField(46,27,3,table.BIRTHDATE) PrintText(0,46,3,"Kjønn:") EditChoiceField(40,46,3,table.SEX) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.3") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // MATHEREID;A;0;1;1;#### #### ####;; // MATHERVID;S;0;1;1;&&&& &&&& &&&&;; PrintText(0,6,2,"Vær.") PrintText(0,20,1,"EID:") EditReadField(23,18,3,table.MOTHEREID) PrintText(0,33,1,"VID:") EditMaskedField(2,45,3,table.MOTHERVID) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.4") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // FOSTEREID;A;0;1;1;#### #### ####;; // FOSTERVID;S;0;1;1;&&&& &&&& &&&&;; PrintText(0,9,2,"Foster mor.") PrintText(0,23,2,"EID:") EditReadField(24,23,2,table.FOSTEREID) PrintText(0,38,2,"VID:") EditMaskedField(24,38,2,table.FOSTERVID) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.5") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // LASTWEIGHT;S;0;1;1;####;; // LDATEW;D;0;1;1;0000000000;; // STATUS;C;0;1;1;normal,bottle fed,foster,dead 1,dead 2,dead 3,dead 4;; // STATUSDATE;D;0;1;1;0000000000;; PrintText(0,8,2,"Siste vekt:") EditMaskedField(65,8,2,table.LASTWEIGHT) PrintText(0,22,2,"Dato:") EditDateField(32,22,2,table.LDATEW) PrintText(0,36,2,"Status:") EditChoiceField(43,36,2,table.STATUS) PrintText(0,49,2,"Dato:") EditDateField(32,49,2,table.STATUSDATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.6") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // MALEEID;A;0;1;1;#### #### ####;; // MALEVID;S;1;1;1;&&&& &&&& &&&&;; // MATINGDATE;D;0;1;1;0000000000;; PrintText(0,9,2,"Far.") PrintText(73,7,2,"Parring") DrawLine(71,20,120,20) PrintText(0,22,2,"EID:") EditReadField(24,22,2,table.MALEEID) PrintText(0,36,2,"VID:") EditMaskedField(25,36,2,table.MALEVID) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.MATINGDATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.7") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // SCANCOUNT;S;0;1;1;#;; // SCANDATE;D;0;1;1;0000000000;; // LAMBNO;S;0;1;1;#;; // LAMBNODATE;D;0;1;1;0000000000;; PrintText(0,8,2,"Ant. embryo:") EditMaskedField(77,8,2,table.SCANCOUNT) PrintText(0,23,2,"Dato:") EditDateField(33,23,2,table.SCANDATE) PrintText(0,36,2,"Ant. Lam:") EditMaskedField(60,36,2,table.LAMBNO) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.LAMBNODATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.8") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // TREATMENT1;C;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T1DATE;D;0;1;1;0000000000;; // TREATMENT2;C;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T2DATE;D;0;1;1;0000000000;; PrintText(0,8,2,"Behandling 1:") EditChoiceField(76,8,2,table.TREATMENT1) PrintText(0,22,2,"Dato:") EditDateField(33,22,2,table.T1DATE) PrintText(0,36,2,"Behandling 2:") EditChoiceField(77,36,2,table.TREATMENT2) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.T2DATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(113,0,0,"3.9") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // TREATMENT3;C;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T3DATE;D;0;1;1;0000000000;; // TREATMENT4;C;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T4DATE;D;0;1;1;0000000000;; PrintText(0,8,2,"Behandling 3:") EditChoiceField(77,8,2,table.TREATMENT3) PrintText(0,22,2,"Dato:") EditDateField(33,22,2,table.T3DATE) PrintText(0,36,2,"Behandling 4:") EditChoiceField(77,36,2,table.TREATMENT4) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.T4DATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(107,0,0,"3.10") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // FLAG;S;0;1;1;0;; // FLAGDATE;D;0;1;1;0000000000;; // REMARK;S;0;1;1;&&&&&&&&&&;; PrintText(0,8,2,"Flagg:") EditMaskedField(34,8,2,table.FLAG) PrintText(0,23,2,"Dato:") EditDateField(33,23,2,table.FLAGDATE) PrintText(0,37,2,"Merknad:") EditMaskedField(5,49,2,table.REMARK) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(107,0,0,"3.11") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // SLAUGHTER;M;0;1;1;00;; // SLDATE;D;0;1;1;0000000000;; // PHOME;C;0;1;1;Pasture,Home,;; // PHDATE;D;0;1;1;0000000000;; PrintText(0,9,2,"Slakting:") PrintField(55,9,2,table.SLAUGHTER) PrintText(0,22,2,"Dato:") EditDateField(33,22,2,table.SLDATE) //PrintText(0,37,2,"Hjemme/Beite:") PrintText(0,36,2,"Hjem./Beit.:") EditChoiceField(74,36,2,table.PHOME) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.PHDATE) IconPrevRec(120,6,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"REC:") PrintExp(21,0,0,noofrec(table)) PrintText(107,0,0,"3.12") PrintText(53,0,0,"OF:") PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) // DEADCODE1;S;0;1;1;0;; // DEADCODE2;S;0;1;1;0;; // DEADCODE3;S;0;1;1;0;; // DEADCODE4;S;0;1;1;0;; PrintText(0,8,2,"Dødskode 1:") EditMaskedField(73,8,2,table.DEADCODE1) PrintText(0,23,2,"Dødskode 2:") EditMaskedField(73,23,2,table.DEADCODE2) PrintText(0,37,2,"Dødskode 3:") EditMaskedField(73,37,2,table.DEADCODE3) PrintText(0,49,2,"Dødskode 4:") EditMaskedField(73,49,2,table.DEADCODE4) IconPrevRec(120,6,log.LDATE) //IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_control_area //Copy(table) end_control_area end_macro //*******// macro M11:MATING //*********************************** begin_macro:MATING begin_action_area Sorting(table.EID) FillExp(table.MATINGDATE,date()) end_action_area begin_screen // MALEEID;A;0;1;1;#### #### ####;; // MALEEID;S;1;1;1;&&&& &&&& &&&&;; // MATINGDATE;D;0;1;1;0000000000;; DrawLine(0,0,70,0) PrintText(73,0,1,"PARRING") DrawLine(70,11,127,11) PrintText(0,0,1,"Søie EID:") EditReadSeek(5,13,2,table.EID) PrintText(0,26,1,"Vær EID:") //PrintText(0,37,2,"EID:") EditReadField(5,37,2,table.MALEEID) PrintText(0,50,2,"Dato:") EditDateField(33,50,2,table.MATINGDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M5:EMBRYOS //*********************************** // SCANCOUNT;S;0;1;1;#;; // SCANDATE;D;0;1;1;0000000000;; begin_macro:EMBRYOS begin_action_area ReadSeek(table.EID) Sorting(table.EID) FillExp(table.SCANDATE,date()) end_action_area begin_screen DrawLine(0,0,71,0) PrintText(75,0,1,"EMBRYOS") DrawLine(71,11,127,11) PrintText(0,0,2,"Mor EID:") PrintField(2,14,3,table.EID) PrintText(0,32,2,"Antall embryos:") EditMaskedField(91,32,2,table.SCANCOUNT) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.SCANDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M7:WEIGHTING //*********************************** // Lamb EID // Weight (typed in) // Todays date dato // LASTWEIGHT;S;0;1;1;####;; // LDATEW;D;0;1;1;0000000000;; begin_macro:WEIGHTING begin_action_area ReadSeek(table.EID) Sorting(table.EID) FillExp(table.LDATEW,date()) end_action_area begin_screen DrawLine(0,0,85,0) PrintText(88,0,1,"VEIING") DrawLine(85,11,127,11) PrintText(0,4,1,"Lam EID:") PrintField(5,15,3,table.EID) PrintText(0,31,2,"Veiing:") EditMaskedField(40,30,3,table.LASTWEIGHT) PrintText(0,49,2,"Dato:") EditDateField(33,48,3,table.LDATEW) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M8:TOPASTURE //*********************************** // Sheep EID // Automatic set flag to pasture // Todays date //PHOME;O;0;1;1;Pasture,Home,;; //PHDATE;D;0;1;1;0000000000;; begin_macro:TOPASTURE begin_action_area ReadSeek(table.EID) Sorting(table.EID) FillExp(table.PHOME,"Beite") FillExp(table.PHDATE,date()) end_action_area begin_screen DrawLine(0,0,93,0) PrintText(95,0,1,"BEITE") DrawLine(93,11,127,11) PrintText(0,3,1,"Sau EID:") PrintField(5,15,3,table.EID) PrintText(0,32,1,"Hvor:") EditChoiceField(36,30,3,table.PHOME) PrintText(0,48,1,"Dato:") PrintField(33,46,3,table.PHDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M9:HOME //*********************************** begin_macro:HOME // Sheep EID // Automatic set flag to pasture // Todays date //PHOME;O;0;1;1;Pasture,Home,;; //PHDATE;D;0;1;1;0000000000;; begin_macro:HOME begin_action_area ReadSeek(table.EID) Sorting(table.EID) FillExp(table.PHOME,"Hjemme") FillExp(table.PHDATE,date()) end_action_area begin_screen DrawLine(0,0,84,0) PrintText(87,0,1,"HJEMME") DrawLine(84,11,127,11) PrintText(0,3,1,"Sau EID:") PrintField(5,15,3,table.EID) PrintText(0,32,1,"Hvor:") EditChoiceField(33,30,3,table.PHOME) PrintText(0,48,1,"Dato:") PrintField(33,46,3,table.PHDATE) //EditDateField DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M10:SLAUGHTER //*********************************** begin_macro:SLAUGHTER // SLAUGHTER;M;0;1;1;00;; // SLDATE;D;0;1;1;0000000000;; begin_action_area ReadSeek(table.EID) Sorting(table.AVID) FillExp(table.SLDATE,date()) end_action_area begin_screen DrawLine(0,0,70,0) PrintText(73,0,1,"SLAKTING") DrawLine(70,11,127,11) PrintText(0,4,1,"EID:") PrintField(5,16,3,table.EID) PrintText(0,33,1,"Til slakt:") EditChoiceField(52,31,3,table.SLAUGHTER) PrintText(0,48,1,"Dato:") PrintField(33,46,3,table.SLDATE) //EditDateField DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M11:TREATMENT //*********************************** // Sheep EID // Edit Treatment 1-3 (text) // Todays date // TREATMENT1;O;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T1DATE;D;0;1;1;0000000000;; // TREATMENT2;O;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T2DATE;D;0;1;1;0000000000;; // TREATMENT3;O;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T3DATE;D;0;1;1;0000000000;; // TREATMENT4;O;0;1;1;drug1,drug2,drug3,drug4,drug5,;; // T4DATE;D;0;1;1;0000000000;; begin_macro:TREATMENT begin_action_area ReadSeek(table.EID) Sorting(table.EID) end_action_area begin_screen DrawLine(0,0,72,0) //"BEHANDLING" PrintText(75,0,1,"BEHAND.") DrawLine(72,10,127,10) PrintText(0,2,1,"Sau EID:") PrintField(2,15,3,table.EID) PrintText(0,31,2,"Behandling 1:") EditChoiceField(76,31,2,table.TREATMENT1) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.T1DATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,127,0) //PrintText(85,0,1,"BEHANDLING") //DrawLine(80,10,127,10) PrintText(0,2,2,"Behandling 2:") EditChoiceField(78,2,2,table.TREATMENT2) PrintText(0,17,2,"Dato:") EditDateField(33,17,2,table.T2DATE) PrintText(0,34,2,"Behandling 3:") EditChoiceField(80,34,2,table.TREATMENT3) PrintText(0,49,2,"Dato:") EditDateField(33,49,2,table.T3DATE) IconPrevRec(120,0,log.LDATE) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,127,0) //PrintText(85,0,1,"Behandling") //DrawLine(78,10,127,10) PrintText(0,2,2,"Behandling 4:") EditChoiceField(78,2,2,table.TREATMENT4) PrintText(0,17,2,"Dato:") EditDateField(33,17,2,table.T4DATE) IconPrevRec(120,0,log.LDATE) //IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M12:SETTING //*********************************** begin_macro:SETTING begin_action_area end_action_area begin_screen PrintText(0,0,0,"HUKOMMELSE:") PrintExp(70,0,0,mEmpty()) PrintText(113,0,0,"5.1") //PrintText(53,0,0,"OF:") //PrintExp(69,0,0,count(table.*)) DrawLine(0,6,127,6) PrintText(0,9,3,"Tid:") SetTime(35,9,3) PrintText(0,24,3,"Dato:") SetDate(35,24,3) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro LECTURE //*********************************** begin_macro:READ begin_action_area Read() end_action_area begin_screen DrawLine(0,0,127,0) PrintText(0,0,2,"ID-nummer:") PrintCountryNumber(90,0,3,#) PrintAnimalNo(2,13,4,#) //DrawLine(0,24,127,24) //ReTagging: PrintText(0,37,2,"Duplikatteller:") PrintRetagging(85,37,2,#) //PrintText(0,43,2,"Land:") //PrintCountryName(35,43,2,#) IconNextRec(120,53,log.LDATE) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,127,0) PrintText(0,0,2,"Teknisk totalkode:") IconPrevRec(120,0,log.LDATE) //animal flag PrintText(0,13,2,"Dyreflag:") PrintAnimalMark(117,13,2,#) //PrintText(0,0,1,"Landskode:") //PrintCountryNumber(100,33,1,#) //PrintText(0,0,1,"ID-nummer:") //PrintAnimalNo(2,8,4,#) //User Info: PrintText(0,25,2,"Info kode:") PrintUserInfo(110,25,2,#) //Add Info: PrintText(0,37,2,"Tilleggsdata:") PrintAddInfo(117,37,2,#) PrintText(0,49,2,"Reservert:") PrintReserved(110,49,2,#) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro LECTURE //*********************************** begin_macro:READLOG begin_action_area ReadNew(log.LEID) Sorting(log.*) FillExp(log.LDATE,date()) FillExp(log.LTIME,time()) end_action_area begin_screen PrintText(0,0,0,"LOG REC:") PrintExp(100,0,0,mEmpty()) //PrintText(113,0,0,"4.1") //PrintText(53,0,0,"OF:") PrintExp(40,0,0,count(log.*)) DrawLine(0,6,127,6) PrintText(0,8,1,"Log EID:") PrintField(2,19,4,log.LEID) PrintCountryNumber(90,7,3,log.LEID) //PrintText(0,31,3,"Hvor:") //EditTimeField(33,31,3,log.LTIME) //PrintText(0,48,3,"Dato:") //EditDateField(33,48,3,log.LDATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro LECTURE //*********************************** begin_macro:CONTINUE begin_action_area end_action_area begin_screen PrintText(20,0,4,"Kontinuerlig"); PrintText(45,20,4,"lesing") PrintText(3,40,1,"Trykk START eller LES") PrintText(35,51,1,"for avslutt.") Continue(LOG) end_screen begin_control_area end_control_area end_macro //*******// macro DELLOG //*********************************** begin_macro:DELLOG begin_action_area end_action_area begin_screen DelLog() end_screen begin_control_area end_control_area end_macro //*******// macro RS232 //*********************************** // setings: BT_true // switched USART0 to USART1 begin_macro:RSON begin_action_area end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(table.*)) PrintText(115,0,0,"6.1") DrawLine(0,6,127,6) PrintText(0,9,2,"RS232 status:") Test2() ///RSOnOff(82,9,2) PrintText(0,20,2,"Baud rate: 115200") PrintText(0,30,2,"Data bits: 8") PrintText(0,40,2,"Stop bits: 1") PrintText(0,50,2,"Parity: n") DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro M7:WEIGHTING //*********************************** // Lamb EID // Weight (typed in) // Todays date dato // LASTWEIGHT;S;0;1;1;####;; // LDATEW;D;0;1;1;0000000000;; begin_macro:WSS begin_action_area Sorting(table.AVID) //FillExp(table.LDATEW,date()) end_action_area begin_screen PrintText(60,0,2,"WSS:") WSS(90,0,2,table.EID,table.LASTWEIGHT,table.SEX,table.GATE,table.LDATEW,0,1,1,6) //NULL - 49 //x,y,font,EID,WEIGHT(NULL), //SORT_COL(col which has information about sorting, can be NULL), //GATE(gate number can be NULL), //sort_param(0..2), //eid_param(0:create_rec,1:throw_exc), //reading_time(0..9)) DrawLine(0,0,127,0) DrawLine(58,12,127,12) PrintText(0,2,1,"Kjønn:") EditChoiceField(37,0,3,table.SEX) //PrintText(90,0,1,"VEIING") PrintText(0,14,1,"VID:") PrintField(25,12,3,table.AVID) PrintText(0,27,1,"EID:") PrintField(25,25,3,table.EID) PrintText(0,37,2,"Vg:") EditMaskedField(17,37,2,table.LASTWEIGHT) PrintText(0,50,2,"Do:") EditDateField(17,50,2,table.LDATEW) PrintText(91,35,5,"G:") EditMaskedField(113,35,5,table.GATE) DrawLine(0,63,127,63) end_screen begin_screen DrawLine(0,0,127,0) PrintText(0,7,2,"Vektgrense1:") EditGlobal(4,21,2,0,00000) PrintText(0,35,2,"Vektgrense2:") EditGlobal(4,49,2,1,00000) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro begin_macro:TUNE begin_action_area end_action_area begin_screen TestAntenna() end_screen begin_control_area end_control_area end_macro END //NOT MORE 12 CHAR !!!!!!! // MENU M0:{Les RFID,M3};{Registrer,M2};{Se data i DB,M4};{Rutiner,M1};{Oppsett,M14};{WSS Veiing,M22};{RS232,M21};{Antenne,M23} M1:{Merking,M15};{Lam status,M6};{Embryo,M7};{Veiing,M8};{Til beite,M9};{Fra beite,M10};{Slakting,M11};{Behandling,M12};{Parring,M13} M2:{Lamming,M5};{Nyregistrer,M19} M3:{Les uten log,M16};{Les med log,M17};{Les auto log,M18};{Slett logger,M20} M4:VIEW M5:LAMBING M6:LAMBSTAT M7:EMBRYOS M8:WEIGHTING M9:TOPASTURE M10:HOME M11:SLAUGHTER M12:TREATMENT M13:MATING M14:SETTING M15:ADDBOLUS M16:READ M17:READLOG M18:CONTINUE M19:ADD M20:DELLOG M21:RSON M22:WSS M23:TUNE END START_SCREEN begin_screen PrintText(0,0,0,"TABELL: NORGE 0.64WSS") DrawLine(0,6,127,6) PrintText(5,14,5,"BioControl") DrawLine(0,56,127,56) PrintText(0,58,0,"HHR:") PrintVersion(21,58,0) end_screen END //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! WARNING w_WAIT:Vent! w_UNIQUE:Nummeret er/brukt! w_NOEDIT:Denne verdien/kan IKKE endres! w_NOTNULL:Dette tallet/kan ikke null! w_LOWBATTERY:Lavt batteri! w_CHARGEBATTERY:Batteriet/lades! w_NOT_FREE_MEMORY:Hukommelse full! w_NOT_STORED:IKKE LAGRET! w_STORED:LAGRET! w_DATE_GOOD:Dato endret. w_DATE_NO_CHANGE:Dato ikke/endret. w_DATE_NOT_GOOD:Feil dato! w_TIME_GOOD:Tid endret. w_TIME_NO_CHANGE:Tid ikke/endret. w_TIME_NOT_GOOD:Feil tid! w_NOTAG:Ingen avlesning. w_READING:Leser merke. w_SHUTOFF:Ha det! w_NEW_REC:Ingen avlesing! //Nytt dyr/registrert! // for Norway w_CHOICE: LOG? w_FIND:log! w_TAGNOTFIND:Transponder/nr. ikke funnet! w_TAGEXIST:Transponder/allerede registrert! w_YES:JA w_NOT:NEI w_ADD_REC:Vil du/regisrere/nytt dyr.? w_DEL_REC:Vil du/slette gjeldende/ dyr? w_UNKNOWN_MES:Ukjent/melding! w_VALEXIST:Denne verdien/finnes allerede! //w_BTACTIVE:BlueTooth/er aktivert. //w_BTNOACTIVE:BlueTooth/er stoppet. w_BTACTIVE:RS232/er aktivert. w_BTNOACTIVE:RS232/er stoppet. w_ON:Start. w_OFF:Stopp. w_MEMORY:HUKOMMELSE: w_RECSTORE:Nytt dyr/lagret! w_RECNOSTORE:Nytt dyr/ikke lagret! w_NOFIND:Kan ikke/finne verdi! // only one text in one line. w_NOANIMAL + w_COUNTRY = 40 char w_NOANIMAL:Ingen dyrekode! w_COUNTRY:Feil landskode! // for Norway w_DEL_LOG:Vil du SLETTE/hele loggen? w_NEW_LOG:Lagret log! END