Keyboard input/Keypress check: Difference between revisions

If no key has been pressed, the program should continue without waiting.

<br><br>

 

=={{header|Ada}}==

 

Available : Boolean;

 

 

If key was pressed, Available is set to True and Ch contains the value.

If not, Available is set to False.

 

=={{header|AutoHotkey}}==

Waits for the user to type a string (not supported on Windows 9x: it does nothing).

 

 

Checks if a keyboard key or mouse/joystick button is down or up. Also retrieves joystick status.

 

 

Function version of GetKeyState.

 

=={{header|Axe}}==

Note that while the syntax for getting the most recent keypress is identical to [[#TI-83_BASIC|TI-83 BASIC]], the keycodes themselves are different.

 

=={{header|BASIC}}==

 

==={{header|BaCon}}===

PRINT "Press <escape> to exit now..."

key = GETKEY

IF key = 27 THEN

END

 

 

==={{header|IS-BASIC}}===

 

or

 

 

==={{header|ZX Spectrum Basic}}===

{{works with|Locomotive Basic}}

 

 

 

=={{header|C}}==

#include <fcntl.h>

 

while(1) {

set_mode(1);

while (!(c = get_key())) usleep(10000);

printf("key %d\n", c);

}

 

=={{header|C sharp|C#}}==

if(Console.KeyAvailable)

 

=={{header|Clojure}}==

<pre>$ lein trampoline run</pre>

 

(ns keypress.core

(:import jline.Terminal)

(prompt)

(shutdown-agents))

 

=={{header|D}}==

void _STI_conio();

void _STD_conio();

 

_STD_conio();

 

=={{header|Delphi}}==

This is valid for a GUI application!

 

interface

end;

 

=={{header|Elena}}==

{{trans|C#}}

 

 

=={{header|ERRE}}==

!$KEY

.........

GET(K$)

.........

Note: If no key was pressed K$ is empty string "".

 

=={{header|Euphoria}}==

 

=={{header|F_Sharp|F#}}==

{{trans|C#}}

 

 

=={{header|Forth}}==

 

=={{header|FreeBASIC}}==

 

Dim k As String

End If

 

 

Sample input/output

The key pressed was A (ascii 65)

</pre>

 

=={{header|Gambas}}==

 

'Requires a TextBox or similar on the Form to work

Print Key.Text;

 

Output:

<pre>

=={{header|Go}}==

{{libheader|Curses}}

 

import (

s.Refresh()

time.Sleep(500 * time.Millisecond)

s.Println()

gc.Echo(false)

gc.Cursor(1)

s.GetChar()

 

=={{header|Haskell}}==

import Control.Monad

import Data.Maybe

else putStrLn "Awaiting char.." >>

threadDelay 500000 >> wait c

Output:

<pre>

 

=={{header|Icon}} and {{header|Unicon}}==

delay(1000) # give user a chance to input

if kbhit() then # test for input

else # use getche for echo

write("No input waiting")

 

=={{header|Java}}==

{{works with|java|8}}

import javax.swing.*;

 

});

}

 

=={{header|Julia}}==

 

function keypresswindow()

 

keypresswindow()

 

=={{header|Kotlin}}==

Translated from the Java entry but then modified so as to quit the program when the Enter key is pressed:

 

import java.awt.event.KeyAdapter

f.isVisible = true

}

 

=={{header|Lingo}}==

 

-- event handler

pressedKey = _key.key

put "A key was pressed:" && pressedKey

 

=={{header|LiveCode}}==

 

Example

-- exit loop if "." or the escapeKey is pressed

if 46 is in the keysDown or 65307 is in the keysdown then

wait 200 millisec

end if

Example of event message handling (at stack, card or control level)

-- do stuff, keycode is held in k

if k is not 46 then pass keyDown // will be trapped if "." is pressed, others will be passed on through the message path

You can substitute keyUp, rawKeyUp, rawKeyDown for keyUp in above. The non-raw handlers do not readily cope with special key presses, and they have their own handlers such as escapeKey, enterKey, altkey, commandKey... look up "key" in the LC dictionary to find more.

 

=={{header|Logo}}==

 

=={{header|M2000 Interpreter}}==

===Without delay===

k$=inkey$

 

===Using delay===

K$=""

If Inkey(2000)<>-1 then k$=Key$

Print k$

 

===Check specific key===

k$=""

If keypress(32) then k$=" "

=={{header|Oforth}}==

 

: checkKey

System.Console receiveTimeout(2000000) ->key // Wait a key pressed for 2 seconds

key ifNotNull: [ System.Out "Key pressed : " << key << cr ]

 

Other options :

System.Console receiveChar ->aChar // Wait until a character is pressed. All other keys are ignored

 

=={{header|Perl}}==

use strict;

use warnings;

}

print "got key '$key'\n";

 

In many cases one does not want to wait for each step end. In this case you can use two parallel processes:

use strict;

use warnings;

}

ReadMode('restore');

 

This code prints <code>"doing something"</code> 10 times and then ends. Parallelly another process prints every key you type in.

 

 

 

 

 

 

=={{header|PowerShell}}==

The following uses the special <code>$Host</code> variable which points to an instance of the PowerShell host application. Since the host's capabilities may vary this may not work in all PowerShell hosts. In particular, this works in the console host, but not in the PowerShell ISE.

$key = $Host.UI.RawUI.ReadKey()

 

=={{header|Python}}==

# -*- coding: utf-8 -*-

from __future__ import absolute_import, division, unicode_literals, print_function

if __name__ == "__main__":

main()

 

=={{header|Racket}}==

Using <tt>stty</tt> to get the terminal into raw mode.

 

#lang racket

(define-syntax-rule (with-raw body ...)

(printf "You pressed ~a\n" (read-char))

(printf "You didn't press a key\n")))

 

=={{header|REXX}}==

:::* PC/REXX

:::* Personal REXX

 

∙

∙

∙

 

=={{header|Ring}}==

if getchar() see "A key was pressed" + nl

else see "No key was pressed" + nl ok

 

=={{header|Ruby}}==

begin

check = STDIN.read_nonblock(1)

 

puts check if check

Test in unix shell:

% ruby keypress_check.rb

% echo -n y | ruby keypress_check.rb

y

 

=={{header|Scala}}==

 

import javax.swing.{JFrame, SwingUtilities}

foo()

})

=={{header|Seed7}}==

The library [http://seed7.sourceforge.net/libraries/keybd.htm keybd.s7i] defines

the file [http://seed7.sourceforge.net/libraries/keybd.htm#KEYBOARD KEYBOARD] and

which can be used to determine if a key has been pressed.

writeln("A key was pressed");

else

writeln("No key was pressed");

 

=={{header|Tcl}}==

There are two ways to handle listening for a key from the terminal. The first is to put the channel connected to the terminal into non-blocking mode and do a <code>read</code> on it:

set ch [read stdin 1]

fconfigure stdin -blocking 1

} else {

# Got the character $ch

The second method is to set up an event listener to perform callbacks when there is at least one character available:

proc GetChar {} {

set ch [read stdin 1]

}

 

Note that in both cases, if you want to get characters as users actually type them then you have to [http://wiki.tcl.tk/14693 put the terminal in raw mode]. That's formally independent of the actual reading of a character.

 

=={{header|TI-83 BASIC}}==

TI-83 BASIC has a built in getKey function.

:getKey→G

This returns the key code of the key pressed which is the row number followed by the column number. The left up and down arrow keys are grouped with row 2 as 24, 25, and 26, and the down arrow key is grouped with row 3 as 34.

 

=={{header|XPL0}}==

int K, N;

[N:= 0;

N:= N+1;

until K;

 

{{omit from|ACL2}}