// ******************************************************************
// * 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