// ****************************************************************** // * bootloader: Program Loader.exe // * interpreter: HHR_PRO_107.hex HHR_PRO_110.hex // * compiler: HHRApp Manager 1.3x // * hardware: HHR3000 PRO: all // * // * Font <0,5> Font 0 - only up // ****************************************************************** // 2007-02-28 10:42 ///////////////////////////////////////////////////////////////////// // application:HHR3000 - TEST // // modified 2012-10-01 10:30 // // // // // // // ////////////////////////////////////////////////////////////////// // //BLUETOOTH NO BLUETOOTH NO BLUETOOTH NO BLUETOOTH NO BLUETOOTH // //////////////////////////////////////////////////////////////////// HEADER TESTUSART2 2012/10/01 18:34:59 dd/mm/yyyy hh:mm:ss ; LOG_false . BT_true //GL_file END // TABLE COS;S;0;1;1;&&&&&&&&&&;; EID;R;1;1;1;0000 0000;; DATE;D;0;1;1;0000000000;; TIME;T;0;1;1;00000000;; NOTE;S;0;1;1;&&&&&&&&;; MES;M;0;1;1;00;01; GLO;G;0;1;1;00;01; END //not use//NOT MORE 20 CHAR !!!!!!! GLOBAL 0:Costam itp 1:Costam itp END //not use //NOT MORE 30 CHAR !!!!!!! max 3 lines (max 2x '/')!!!!! MESSAGE 0:Costam itp 1:RSG^Olekkkkkok/lppp END MACRO begin_macro:SAGE begin_action_area ReadSeek(EID) Sorting(*) ShowMessage(MES) Paste_p(TIME) //incPaste_p(NOTE) end_action_area begin_screen //PrintText(0,0,1,"1 National:") PrintExp(0,0,0,noofrec()) PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,23,1,"Message no:") PrintField(83,23,1,MES) PrintText(0,33,1,"Note:") EditMaskedField(33,33,1,NOTE) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_screen PrintText(0,0,1,"2 National:") PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,23,1,"note:") EditMaskedField(30,23,1,NOTE) PrintText(0,33,1,"note:") EditMaskedField(30,33,1,NOTE) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_screen PrintText(0,0,1,"3 National:") PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,25,1,"ReTaging:") PrintRetagging(117,25,1,EID) //PrintText(0,35,1,"Mesage:") //PrintField(110,35,1,MES) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_control_area Copy(table) end_control_area end_macro begin_macro:AESAGE begin_action_area ReadSeek(EID) Sorting(*) ShowMessage(MES) Paste(TIME) Paste(NOTE) end_action_area begin_screen //PrintText(0,0,1,"1 National:") PrintExp(0,0,0,noofrec()) PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,23,1,"Message no:") PrintField(83,23,1,MES) PrintText(0,33,1,"Note:") EditMaskedField(33,33,1,NOTE) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_screen PrintText(0,0,1,"2 National:") PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,23,1,"note:") EditMaskedField(30,23,1,NOTE) PrintText(0,33,1,"note:") EditMaskedField(30,33,1,NOTE) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_screen PrintText(0,0,1,"3 National:") PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,7,4,EID) DrawLine(0,23,127,23) PrintText(0,25,1,"ReTaging:") PrintRetagging(117,25,1,EID) //PrintText(0,35,1,"Mesage:") //PrintField(110,35,1,MES) IconFindCol(0,50,EID,2) DrawRec(0,50,20,12) IconDelete(23,50,table,2) DrawRec(23,50,20,12) end_screen begin_control_area Copy(table) end_control_area end_macro //*******// macro VIEW //*********************************** begin_macro:VIEW begin_action_area ReadNew(EID) Sorting(*) FillExp(DATE,date()) FillExp(TIME,time()) end_action_area begin_screen //PrintText(0,0,0,"REC:") ///PrintExp(21,0,0,count(*)) //PrintText(115,0,0,"1.1") //PrintText(53,0,0,"OF:") //PrintExp(70,0,0,noofrec(table)) //DrawLine(0,6,127,6) PrintText(0,0,1,"ID National:") PrintCountryNumber(100,0,1,EID) PrintAnimalNo(2,9,4,EID) DrawLine(0,23,127,23) PrintText(0,25,1,"ReTaging:") PrintRetagging(117,25,1,EID) PrintText(0,35,1,"User Info:") PrintUserInfo(110,35,1,EID) PrintText(0,45,1,"Add Info:") PrintAddInfo(117,45,1,EID) PrintText(0,55,1,"Reserved:") PrintReserved(110,55,1,EID) end_screen 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,38,1,"Time:") EditTimeField(40,36,2,TIME) PrintText(0,52,1,"Date:") EditDateField(40,50,2,DATE) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro on/off BT //*********************************** // setings: BT_true // switched USART0 to USART1 (RFCOMM) // BT module turn on by SetBTOnOff() function // BT module turn off by SetBTOnOff() function // begin_macro:BT begin_action_area Read() end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(*)) PrintText(115,0,0,"2.1") DrawLine(0,6,127,6) PrintText(0,10,2,"BlueTooth:") SetBTOnOff(67,9,2) //PrintText(67,10,1,"Turn off") PrintText(0,26,2,"Name:") SetBTName(43,26,1) PrintText(0,42,2,"Pin code:") SetBTPin(55,42,2) DrawLine(0,63,127,63) end_screen begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(*)) PrintText(115,0,0,"2.2") DrawLine(0,6,127,6) PrintText(0,8,2,"Bluetooth test.") PrintText(0,37,1,"Transponder no.:") PrintCountryNumber(100,37,1,#) PrintAnimalNo(2,49,4,#) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro RS232 //*********************************** // setings: BT_true // switched USART0 to USART1 begin_macro:RS232 begin_action_area Read() end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(*)) PrintText(115,0,0,"3.1") DrawLine(0,6,127,6) PrintText(0,8,2,"RS232 test.") PrintText(0,25,1,"RS232 status:") Test2() PrintText(0,37,1,"Transponder no.:") PrintCountryNumber(100,37,1,#) PrintAnimalNo(2,49,4,#) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro //*******// macro DATE TIME //*********************************** //*******// macro send SMS //*********************************** // setings: BT_true // switched USART0 to USART1 // gsm module turn on by sending first sms //gsm module turn off by turning off hhr-device begin_macro:SMS begin_action_area end_action_area begin_screen Test() end_screen begin_control_area end_control_area end_macro // ************** DATA TIME set ***************************************** begin_macro:DATE begin_action_area end_action_area begin_screen PrintText(0,0,0,"RECORDS:") PrintExp(46,0,0,count(*)) PrintText(115,0,0,"4.1") DrawLine(0,6,127,6) PrintText(0,10,2,"Time:") SetTime(40,9,2) PrintText(0,25,2,"Date:") SetDate(40,24,2) DrawLine(0,63,127,63) end_screen begin_control_area end_control_area end_macro // *************************** Auto tuning check *************************** begin_macro:TUNE begin_action_area end_action_area begin_screen Test3() end_screen begin_control_area end_control_area end_macro END //end makro MENU M0:{Date/Time,M1};{Antena,M2} M1:DATE M2:TUNE END START_SCREEN begin_screen PrintText(0,0,0,"TEST USART2") DrawLine(0,6,127,6) PrintText(5,20,3,"HHR3000-TEST") 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: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:Uart2/is activated. w_BTNOACTIVE:Uart2/is closed. w_ON:Off. w_OFF:On. w_MEMORY:MEMORY: END