OpenEuphoria

2. Re: get_key Processing

• Posted by Mike777b Jun 15, 2016
• 1496 views

I would make two changes to the code. First, remove the command = "Z" line because it will cause the final display to always display the character Z no matter what the invalid command actually was. Second, you need to eliminate the "while 1 do" line and its corresponding "end while" statement.

mike

4. Re: get_key Processing

• Posted by ChrisB (moderator) Jun 16, 2016
• 1442 views

Hi

Yes, the way I look at is is that wait_key sits and waits for a key, whereas get_key swings by the keyboard buffer, and gets whatever is there, and then carries on.

I have had issues where the keyboard buffer has a had a few key presses in, and then wait_key is called, and takes the first in line, so sometimes it is useful to empty the keyboard buffer before calling wait_key

 
integer c 
 
while get_key() => 0 end while 
c = wait_key() 
 

The integer c in your above code is redundant.

Also if you are using it as a menu input, make your life easier

c = upper(wait_key())

c will always be upper case.

The function keys require special handling, and are platform dependent too. Essentially they put several characters into the keyboard buffer at once.

Check the archive fro some text mode dialogs.

Cheers

Chris

6. Re: get_key Processing

• Posted by Mike777b Jun 16, 2016
• 1414 views

Try this. You might need to change the include reference to a different directory to make sure the program finds console.e.

include ../../../eu405/include/std/console.e
-- prompt the user for his command  
    clear_screen()  
    integer SCREEN = 1 
    puts(SCREEN, "Simple TC ARES Database\n")  
    object command  
	while 1 do  
		puts(SCREEN,"\n(a)dd, (c)ount, (d)elete, (e)dit, (f)ind, (l)ist, (p)rint, (r)eport, (q)uit: ")  
--		while 1 do	   
--			integer code = get_key()  
			integer code = wait_key()  
			if code != -1 then  
--				command = 'Z'  
				command = code 
				if code = 65 or code = 97 then  
					command = 'A'  
				elsif code = 67 or code = 99 then  
					command = 'C'  
				elsif code = 68 or code = 100 then  
					command = 'D'  
				elsif code = 69 or code = 101 then  
					command = 'E'  
				elsif code = 70 or code = 102 then  
					command = 'F'  
				elsif code = 76 or code = 108 then  
					command = 'L'  
				elsif code = 80 or code = 112 then  
					command = 'P'  
				elsif code = 82 or code = 114 then  
					command = 'R'  
				elsif code = 81 or code = 113 then  
					command = 'Q'  
				end if  
			end if  
--		end while  
		if command = 'A' then  
--		        add()  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command= 'C' then  
--		        show_count(SCREEN)  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'D' then  
--		        delete()  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'E' then  
--		        edit_record()  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'F' then  
--		        find_name()  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'Q' then  
		        exit  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'R' then  
--		        report(SCREEN)  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'L' then  
--		        list(SCREEN)  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
		elsif command = 'P' then  
--		        printer = open("PRN", "w")  
			puts(SCREEN, "\n\nValid Command:  " & command & "\n")  
--			if printer = -1 then  
--				puts(SCREEN, "Can't open printer device\n")  
--			else  
--				list(printer)  
--				puts(printer, FORM_FEED)  
--				close(printer)  
--			end if  
		else  
			puts(SCREEN, "\n\nInvalid Command:  " & command & "\n")  
		end if  
    end while  

mike

8. Re: get_key Processing

• Posted by jmduro Jun 18, 2016
• 1344 views

Here is what I use:

include std/console.e 
 
public constant 
  ENTER={13}, ESC={27}, SPACE={32}, BACKSPACE = {8}, TAB = {9}, 
  UP = {1016400}, DOWN = {1016432}, LEFT = {1016384}, RIGHT = {1016416}, 
  PAGE_UP = {1016320}, PAGE_DOWN = {1016336}, HOME = {1016368}, 
  CTRL_LEFT = {1024176}, START_LEFT = {1020096}, ALT = {1032400}, ALT_GR = {1020096}, 
  START_RIGHT = {1016480}, CTXT_MENU = {1016496}, CTRL_RIGHT = {1020096}, 
  END = {1016352}, INSERT = {1016288}, DELETE = {1016304}  
 
public constant F_ = { 
  {1017600}, {1017616}, {1017632}, {1017648}, 
  {1017664}, {1017680}, {1017696}, {1017712}, 
  {1017728}, {1017744}, {1017760}, {1017776} 
} 
 
------------------------------------------------------------------------------- 
 
public function getKeys() 
  sequence result 
  integer code 
 
  result = {} 
  code = wait_key() 
  while code != -1 do 
    result = append(result,code) 
    code = get_key() 
  end while 
--  printf(f_debug, "getKeys = %s\n", {sprint(result)}) 
  return result 
end function 

Example of usage:

  atom fl_out = 0 
  while fl_out = 0 do 
    ex = getKeys() 
    if equal(ex, HOME) then 
       -- add your code 
    elsif equal(ex, END) then 
      -- add your code 
    elsif equal(ex, LEFT) then 
      -- add your code 
    elsif equal(ex, RIGHT) then 
      -- add your code 
    elsif equal(ex, DELETE) then 
      -- add your code 
    elsif equal(ex, INSERT) then 
      -- add your code 
    elsif find(ex, F_ & {UP, DOWN, ENTER, TAB, ESC}) then 
      fl_out = 1 
    elsif equal(ex, BACKSPACE) then 
      -- add your code 
    elsif (ex[1] > 31) and (ex[1] < 255) then 
      -- add your code 
    end if 
  end while 

Jean-Marc