manelandrea
Programmer
Hi,
I created a customized keyboard for Micros 3700d and it's not showing the values inputted through the customized keyboard though when I hit enter, it will show the value I entered through the infomessage box I created:
here's the keyboard I made:
here's the code for that:
SUB SETUPKEYBOARD(VAR KEYBOARD_WIDTH : N2, VAR KEYBOARD_HEIGHT : N2)
VAR keypress : key
VAR prompt_s:A38
VAR data : A20
CLEARISLTS
VAR X : N2 = (27 - (12 * KEYBOARD_WIDTH)) / 2
VAR Y : N2 = 12 - (KEYBOARD_HEIGHT * 6) + 1
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,49),0,"C",1,"1"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,50),0,"C",1,"2"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,51),0,"C",1,"3"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,52),0,"C",1,"4"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,53),0,"C",1,"5"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,54),0,"C",1,"6"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,55),0,"C",1,"7"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,56),0,"C",1,"8"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,57),0,"C",1,"9"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,48),0,"C",1,"0"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 10),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2,1,KEY(1,91),"","L",1,"<-Back Space"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 12),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,60),0,"C",1,"<"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 13),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,62),0,"C",1,">"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 1
Y = 12 - (KEYBOARD_HEIGHT * 5) + 2
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,81),0,"C",1,"Q"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,87),0,"C",1,"W"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,69),0,"C",1,"E"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,82),0,"C",1,"R"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,84),0,"C",1,"T"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,89),0,"C",1,"Y"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,85),0,"C",1,"U"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,73),0,"C",1,"I"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,79),0,"C",1,"O"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,80),0,"C",1,"P"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 10),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 1,1,@Key_Enter, 10057, "C", 1, "Swipe Card"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 2
Y = 12 - (KEYBOARD_HEIGHT * 4) + 3
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,65),0,"C",1,"A"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,83),0,"C",1,"S"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,68),0,"C",1,"D"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,70),0,"C",1,"F"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,71),0,"C",1,"G"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,72),0,"C",1,"H"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,74),0,"C",1,"J"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,75),0,"C",1,"K"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,76),0,"C",1,"L"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2 ,1,@KEY_END , 10059, "L", 1,"ENTER"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 3
Y = 12 - (KEYBOARD_HEIGHT * 3) + 4
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,90),0,"C",1,"Z"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,88),0,"C",1,"X"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,67),0,"C",1,"C"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,86),0,"C",1,"V"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,66),0,"C",1,"B"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,78),0,"C",1,"N"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,77),0,"C",1,"M"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH+ 3,1,KEY(1,92),0,"L",1,"SPACE"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 11),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2,1,@KEY_CANCEL,10058,"L",10,"CANCEL"
DISPLAYISLTS
ENDSUB
here's showing that I clicked on the values but not showing on screen
Would anyone know how to show it in screen? Thank you!
I created a customized keyboard for Micros 3700d and it's not showing the values inputted through the customized keyboard though when I hit enter, it will show the value I entered through the infomessage box I created:
here's the keyboard I made:
here's the code for that:
SUB SETUPKEYBOARD(VAR KEYBOARD_WIDTH : N2, VAR KEYBOARD_HEIGHT : N2)
VAR keypress : key
VAR prompt_s:A38
VAR data : A20
CLEARISLTS
VAR X : N2 = (27 - (12 * KEYBOARD_WIDTH)) / 2
VAR Y : N2 = 12 - (KEYBOARD_HEIGHT * 6) + 1
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,49),0,"C",1,"1"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,50),0,"C",1,"2"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,51),0,"C",1,"3"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,52),0,"C",1,"4"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,53),0,"C",1,"5"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,54),0,"C",1,"6"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,55),0,"C",1,"7"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,56),0,"C",1,"8"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,57),0,"C",1,"9"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,48),0,"C",1,"0"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 10),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2,1,KEY(1,91),"","L",1,"<-Back Space"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 12),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,60),0,"C",1,"<"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 13),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,62),0,"C",1,">"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 1
Y = 12 - (KEYBOARD_HEIGHT * 5) + 2
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,81),0,"C",1,"Q"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,87),0,"C",1,"W"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,69),0,"C",1,"E"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,82),0,"C",1,"R"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,84),0,"C",1,"T"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,89),0,"C",1,"Y"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,85),0,"C",1,"U"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,73),0,"C",1,"I"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,79),0,"C",1,"O"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,80),0,"C",1,"P"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 10),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 1,1,@Key_Enter, 10057, "C", 1, "Swipe Card"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 2
Y = 12 - (KEYBOARD_HEIGHT * 4) + 3
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,65),0,"C",1,"A"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,83),0,"C",1,"S"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,68),0,"C",1,"D"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,70),0,"C",1,"F"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,71),0,"C",1,"G"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,72),0,"C",1,"H"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,74),0,"C",1,"J"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,75),0,"C",1,"K"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 8),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,76),0,"C",1,"L"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 9),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2 ,1,@KEY_END , 10059, "L", 1,"ENTER"
X = (25 - (10 * KEYBOARD_WIDTH)) / 2 + 3
Y = 12 - (KEYBOARD_HEIGHT * 3) + 4
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 0),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,90),0,"C",1,"Z"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 1),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,88),0,"C",1,"X"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 2),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,67),0,"C",1,"C"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 3),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,86),0,"C",1,"V"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 4),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,66),0,"C",1,"B"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 5),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,78),0,"C",1,"N"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 6),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH,3,KEY(1,77),0,"C",1,"M"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 7),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH+ 3,1,KEY(1,92),0,"L",1,"SPACE"
SETISLTSKEYX Y,X + (KEYBOARD_WIDTH * 11),KEYBOARD_HEIGHT + 1,KEYBOARD_WIDTH + 2,1,@KEY_CANCEL,10058,"L",10,"CANCEL"
DISPLAYISLTS
ENDSUB
here's showing that I clicked on the values but not showing on screen
Would anyone know how to show it in screen? Thank you!