Pete's QBASIC Site

Fastest way to get Keyboard presses

2008-01-28T06:43:12-05:00

ok, so overall, dont use it kk thanks burger, everyone else

Statistics: Posted by Sinuvoid — Mon Jan 28, 2008 6:43 am

Fastest way to get Keyboard presses

2008-01-27T20:36:45-05:00

Your number is printed many times because it is using a semicolon after a PRINT that is not LOCATEd. What key is code 2 or 3 anyhow? You would need 128 cases for just keypresses alone!

The idea to learn INP(&H60) is to find out what keypress creates what code.

You can find many of the keys with 2 byte ASCII codes like CHR$(0) + CHR(asciicode) using INKEY instead. Try the arrow keys.

Ted

Statistics: Posted by burger2227 — Sun Jan 27, 2008 8:36 pm

Fastest way to get Keyboard presses

2008-01-27T12:46:40-05:00

I had posted a big post with some links concerning &H60 and INP but indeed like Pats said, better use Inkey$.

I guess the post got lost somehow, well no worries.

Statistics: Posted by Seb McClouth — Sun Jan 27, 2008 12:46 pm

Fastest way to get Keyboard presses

2008-01-27T10:24:01-05:00

I don't recommend using INP, as if you make the program correctly, INKEY$ should be enough for most purposes.

To use backspace, you have to print a blank space (CHR$(32) or " "), and then locate back to that space. That's the most simple way to do it.

Edit: To do something similar to the pssys program above, just make a program with the PInput$ function, and then do the following code.

Code:

DO UNTIL UserAllowed% CLS PRINT "Username:" User$ = PINPUT$(15,1,30,0,"") PRINT "Password:" Pass$ = PINPUT$(15,2,30,ASC("*"),"") IF User$ = "USER1" AND Pass$ = "ENTER" THEN UserAllowed% = 1 IF User$ = "ADMIN" AND Pass$ = "LETMEIN" THEN UserAllowed% = 1LOOP

Statistics: Posted by Patz QuickBASIC Creations — Sun Jan 27, 2008 10:24 am

Fastest way to get Keyboard presses

2008-01-26T22:05:59-05:00

Complicated, but useful So to back space I guess, it involves messing around with the LOCATE command...btw, do you know my problem? (With the INP command in my previous post )

Statistics: Posted by Sinuvoid — Sat Jan 26, 2008 10:05 pm

Fastest way to get Keyboard presses

2008-01-26T21:55:36-05:00

I made this a long time ago... Hopefully you can get it to work without too much work. I've commented it so you can see exactly what's going on and exactly how to use it... Basic knowledge of LOCATE a major plus.

http://pastebin.ca/874102

Statistics: Posted by Patz QuickBASIC Creations — Sat Jan 26, 2008 9:55 pm

Fastest way to get Keyboard presses

2008-01-26T21:49:59-05:00

Thanks Burger and McClouth. Question Burger, Why when I make a program (like my last post) and press 2 or 3 it prints out like 8 of them?

Statistics: Posted by Sinuvoid — Sat Jan 26, 2008 9:49 pm

Your silly

2008-01-26T19:44:09-05:00

This will show you the codes returned when you press most any keys. Save this routine in case you try to use the codes in a program for reference:

Code:

DO    scancode = INP(&H60)   LOCATE 5, 10: PRINT scancodeLOOP UNTIL scancode = 1  'escape key press

Notice that the release code is 128 more than the press code. The codes do not change for upper or lower cases either.

Ted

Statistics: Posted by burger2227 — Sat Jan 26, 2008 7:44 pm

Fastest way to get Keyboard presses

2008-01-26T17:51:24-05:00

I suspect that INP(&H60) doesn't work the same as INKEY$.

I'll check it out later for you.

Statistics: Posted by Seb McClouth — Sat Jan 26, 2008 5:51 pm

Fastest way to get Keyboard presses

2008-01-26T16:52:48-05:00

thanks McClouth! Sure that'll help

Now, can someone explain teh INP command in some detail please.
I'm using it to get input from the keyboard but when I use it, it like prints out 8 "Hey's" or whatever. What Im I doing wrong? Here's an example:

Code:

CLSDOk = INP(&H60)CASE SELECT kCASE 2PRINT "This is number 2";CASE 3PRINT "This is number 3";END SELECTLOOP

Statistics: Posted by Sinuvoid — Sat Jan 26, 2008 4:52 pm

Fastest way to get Keyboard presses

2008-01-26T13:17:43-05:00

2, How can I make letters typed in the INPUT command come out as *'s (exmaple, password program)

I'm used this routine in a older vrsion of QBinux:

Code:

        DO           PRINT tdspl$;"   " 'Display storing variable           press$ = INKEY$           IF press$  0 THEN                 sb = LEN(dspl$)                 Ndspl$ = MID$(dspl$, 1, (sb - 1))                 dspl$ = Ndspl$             ELSEIF press$ = CHR$(13) THEN                 EXIT DO          ELSE                 dspl$ = dspl$ + press$                 tdspl$=tdspl$ + "*"         END IF   END IF   LOOP

I use locate to print it on the same line. The code is not written by me, just adapted by me. The code was written by Rattrapmax6.

Here's his code:

]Right.. I sat back and wrote a more simulated Password system, it asks for username, then the password.. and while you type the pasword it displays it as: "******"..

Very nice, and something you can play with, look over, and learn from maybe..

Psssys.bas (Made in FreeBasic, Tested in QBasic.. Runs well in both..)

Code:

'Username/Password system by Rattrapmax6(Kevin(x.t.r.GRAPHICS))' Two test usernames: User1 and Admin'Passwords: User1 = Enter || Admin = LetMeIn' System is case-insensitive.. :)CLS 'Clear screenPRINT "Welcome!"PRINT "Enter User:";DO    LOCATE 2, 12: PRINT dspl$; "   " 'Display storing varible    press$ = INKEY$    IF press$  0 THEN            sb = LEN(dspl$)            Ndspl$ = MID$(dspl$, 1, (sb - 1))            dspl$ = Ndspl$        'Filter Enter, Exit for checking        ELSEIF press$ = CHR$(13) THEN            EXIT DO        'Add up user input to varible        ELSE            dspl$ = dspl$ + press$        END IF    END IFLOOPSELECT CASE UCASE$(dspl$)CASE "USER1"    PRINT "Enter Pasword:";    usr$ = dspl$    dspl$ = ""    DO        LOCATE 3, 15: PRINT pss$; "   "' NEW, print the ** for the varible        press$ = INKEY$        IF press$  0 THEN                sb = LEN(dspl$)                Ndspl$ = MID$(dspl$, 1, (sb - 1))                Npss$ = MID$(pss$, 1, (sb - 1)) 'NEW, Subtract ***                dspl$ = Ndspl$                pss$ = Npss$ 'Restore the ***            ELSEIF press$ = CHR$(13) THEN                EXIT DO            ELSE               dspl$ = dspl$ + press$               pss$ = pss$ + "*" 'NEW, calculate how many ***            END IF        END IF    LOOP    IF UCASE$(dspl$) = "ENTER" THEN         PRINT "Welcome to our servers, "; usr$; "!"        PRINT "Press any key to end..."        SLEEP        END    ELSE        PRINT "Username and password to not compute!"        PRINT "Press any key do end..."        SLEEP        END    END IFCASE "ADMIN"    PRINT "Enter Pasword:";    usr$ = dspl$    dspl$ = ""    DO        LOCATE 3, 15: PRINT pss$; "   "        press$ = INKEY$        IF press$  0 THEN                sb = LEN(dspl$)                Ndspl$ = MID$(dspl$, 1, (sb - 1))                Npss$ = MID$(pss$, 1, (sb - 1))                dspl$ = Ndspl$                pss$ = Npss$            ELSEIF press$ = CHR$(13) THEN                EXIT DO            ELSE               dspl$ = dspl$ + press$               pss$ = pss$ + "*"            END IF        END IF    LOOP    IF UCASE$(dspl$) = "LETMEIN" THEN         PRINT "Welcome to our servers, "; usr$; "!"        PRINT "Press any key to end..."        SLEEP        END    ELSE        PRINT "Username and password do not compute!"        PRINT "Press any key to end..."        SLEEP        END    END IFCASE ELSE    PRINT "No user under that name: Try again..."    PRINT "Press any key to end..."    SLEEP    ENDEND SELECT

[/quote]

Statistics: Posted by Seb McClouth — Sat Jan 26, 2008 1:17 pm

Fastest way to get Keyboard presses

2008-01-25T16:16:48-05:00

Can you tell me in depth how to use the INP command please burger I've looked at tuts and QB help but no luck

EDIT: CHR$(what??)

Statistics: Posted by Sinuvoid — Fri Jan 25, 2008 4:16 pm

New thread?

2008-01-25T18:37:35-05:00

Don't use INPUT...........use an INKEY$ loop that runs until a user presses the enter key. INKEY can also filter out certain key entries, such a only number or letter presses. Look up the ASCII codes for the type of entry you need.

When a valid key is pressed, just print an asterisk. You can also allow backspacing by checking for Character code 8.

Apparently you cannot use CHR$ and (8) in a text here LOL.

INP(&H60) reads the keyboard scancodes. A key release is 128 more than the press value returned. Make a DO loop and just PRINT it. Use LOOP UNTIL code = 1, the escape key. Few of the scancodes are the same as ASCII.

INP is for reading a port value. OUT changes the values.

Ted

Statistics: Posted by burger2227 — Fri Jan 25, 2008 1:39 pm

Fastest way to get Keyboard presses

2008-01-24T21:42:23-05:00

1, how do I tell it???
2, I use INP because its fast and plus ive never used it Before so its good practise

EDIT: Ok, the INP isnt working for me. I've tried tut's but no luck. Can you guys explain it for me please

2, How can I make letters typed in the INPUT command come out as *'s (exmaple, password program)

Statistics: Posted by Sinuvoid — Thu Jan 24, 2008 9:42 pm

Fastest way to get Keyboard presses

2008-01-24T21:31:16-05:00

First off, you can't use characters in CASE, ie CASE 4B, unless they are hexadecimal, in which case you need to tell it so. And, you don't need to have the INP in there, just use the one I posted, it works fine.

Statistics: Posted by Patz QuickBASIC Creations — Thu Jan 24, 2008 9:31 pm