INP

From QB64 Phoenix Edition Wiki
Revision as of 16:30, 14 June 2024 by RhoSigma (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

INP returns a value from a computer register or port values at a specified physical address.


Syntax

i = INP(address)


  • QB64 has limited access to registers. VGA memory and registers are emulated.
  • Address can be a decimal or hexadecimal INTEGER value.
  • INP reads directly from a register or port address.
  • It does not require a DEF SEG memory segment address like PEEK or POKE do.
  • Reads color port intensity settings after OUT &H3C7, attribute sets the starting attribute read mode.


Examples

Example 1: Reading the current RGB color settings used in a bitmap to an array.

 SCREEN 12
 DIM Colors%(47)
 OUT &H3C7, 0 ' set color port for INP reads at attribute 0 to start
 FOR i = 0 TO 47
 Colors%(i) = INP(&H3C9) ' moves to next color attribute every 3 loops
 NEXT


Example 2: Reading the keyboard Scan Codes as an alternative to INKEY$

 DO: SLEEP
    scancode% = INP(&H60)
    a$ = INKEY$ ' clears keyboard buffer
    PRINT scancode%;
 LOOP UNTIL scancode% = 1 ' [ESC] keypress exit


Example 3: A simple ping pong game using an array function to read multiple keys for two players.

DEFINT A-Z
SCREEN 12
DIM ball%(100)        ' Set aside enough space to hold the ball sprite
CIRCLE (4, 3), 4, 4
PAINT (4, 3), 12, 4   ' Draw a filled circle and fill for ball
GET (0, 0)-(8, 7), ball%(0) ' Get the sprite into the Ball% array

begin:
xmin = 10: ymin = 10
xmax = 630: ymax = 470
x = 25: y = 25
dx = 1: dy = 1
LTpos = 50: RTpos = 50

DO: _LIMIT 100 'adjust higher for faster
CLS
IF ScanKey%(17) THEN LTpos = LTpos - 1
IF ScanKey%(31) THEN LTpos = LTpos + 1
IF ScanKey%(72) THEN RTpos = RTpos - 1
IF ScanKey%(80) THEN RTpos = RTpos + 1

PRINT "Player 1 : "; ponescore; " Player 2 : "; ptwoscore

IF x > xmax - 15 AND y >= RTpos AND y <= RTpos + 100 THEN
dx = -1
ELSEIF x > xmax THEN
ponescore = ponescore + 1
GOSUB begin
END IF

IF x < xmin + 15 AND y >= LTpos AND y <= LTpos + 100 THEN
dx = 1
ELSEIF x < xmin THEN
ptwoscore = ptwoscore + 1
GOSUB begin
END IF

IF y > ymax - 5 THEN dy = -1
IF y < ymin + 5 THEN dy = 1
' Display the sprite elsewhere on the screen

x = x + dx
y = y + dy

PUT(x, y), ball%(0)


LINE (20, LTpos)-(20, LTpos + 100)
LINE (620, RTpos)-(620, RTpos + 100)

_DISPLAY 'shows completed screen every call

LOOP UNTIL ScanKey%(1)
END


FUNCTION ScanKey% (scancode%)
STATIC Ready%, keyflags%()
IF NOT Ready% THEN REDIM keyflags%(0 TO 127): Ready% = -1
i% = INP(&H60) 'read keyboard states
IF (i% AND 128) THEN keyflags%(i% XOR 128) = 0
IF (i% AND 128) = 0 THEN keyflags%(i%) = -1
K$ = INKEY$
ScanKey% = keyflags%(scancode%)
END FUNCTION
Note: _KEYDOWN can be used to read multiple keys simultaneously and is the recommended practice.


See also



Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link