ScanCodes - GameCreators Forum

Author

Message

Mickm

18

Years of Service

User Offline

Joined: 22nd Apr 2006

Location: Kingston, ON

Posted: 30th Aug 2006 23:25

Link

How can you get the scan codes ahead of time for a lookup table?

Here is the code I currently have

+ Code Snippet

TYPE ASCII
   Character AS STRING
   Code AS INTEGER
   Value AS INTEGER
   Image AS INTEGER
ENDTYPE

DIM keyboard(25) AS ASCII

   FOR iTemp = 65 TO 90
      keyboard(iTemp - 65).Character = CHR$(iTemp)
      keyboard(iTemp - 65).Code = 0 ` Unknown
      keyboard(iTemp - 65).Value = iTemp
      keyboard(iTemp - 65).Image = iTemp - 65
   NEXT iTemp

Online Flash Games and Guides .::. http://www.gamestack.org
Online Notebook .::. http://onlinenotes.gamestack.org

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 31st Aug 2006 00:15

Link

I'm not sure what you mean, but try using scancode().

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 31st Aug 2006 00:18

Link

Run this in DB

Sync On
repeat
print scancode()
sync
until spacekey()>0

Press any key you want and note down the scancodes.

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 31st Aug 2006 00:21

Link

Chart attached.

Attachments

Login to view attachments

Back to top

Profile PM Email

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 31st Aug 2006 00:37

Link

I never understood how they came up with 200's

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 31st Aug 2006 00:42

Link

You mean like the Windows buttons and stuff?

Back to top

Profile PM Email

Mickm

18

Years of Service

User Offline

Joined: 22nd Apr 2006

Location: Kingston, ON

Posted: 31st Aug 2006 03:44 Edited at: 31st Aug 2006 03:46

Link

I already know how to get them via USER INPUT.
However i want to make them on the fly programmatically without the user.

And i dont want to have to do

+ Code Snippet

code = 16 `Q
code = ...

or

+ Code Snippet

code = 16 : code = ...

What i am wonder is, can you get the scan codes programmically and on the fly.

If not i will make a loopup table with 25 lines

Online Flash Games and Guides .::. http://www.gamestack.org
Online Notebook .::. http://onlinenotes.gamestack.org

Back to top

Profile PM Email Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 31st Aug 2006 04:30 Edited at: 31st Aug 2006 04:31

Link

KEYSTATE. Use that. Example:

if Keystate(17) then health=health+1

That'll say that if the W key is pressed, then increase the variable HEALTH.

Back to top

Profile PM Email

Mickm

18

Years of Service

User Offline

Joined: 22nd Apr 2006

Location: Kingston, ON

Posted: 31st Aug 2006 05:18 Edited at: 31st Aug 2006 05:25

Link

I guess i am not explaining myself correctly, sorry.

Say I have a UDT array that contains
Character
ImageID
Scan

Now I have a for loop that does the following (not real code)
1. Assigns each Character a letter from A - z ( CHR$(65 - 90) )
2. Assigns each ImageID a number from 1 to 26
3. Assigns each Scan the Scan code of the number.

+ Code Snippet

TYPE ASCII
   Character AS STRING
   Code AS INTEGER
   Image AS INTEGER
ENDTYPE

DIM keyboard(25) AS ASCII

FOR iTemp = 65 TO 90
   keyboard(iTemp - 65).Character = CHR$(iTemp)
   keyboard(iTemp - 65).Code = 0 `  Return SCANCODE
   keyboard(iTemp - 65).Image = iTemp - 64
NEXT iTemp

The reason why I want to do this is because it is easier to use a lookup table like this then having 3 for statments to find out which key was press.

Example
Letter 'Q'
keyboard(17).Character = "Q"
keyboard(17).Code = 16 <-- this i cannot get programmatically
keyboard(17).ImageID = 18

If you can't understand or it cannot be done programmatically i will use 26 statements to do it.

Online Flash Games and Guides .::. http://www.gamestack.org
Online Notebook .::. http://onlinenotes.gamestack.org

Back to top

Profile PM Email Website

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 31st Aug 2006 11:59 Edited at: 31st Aug 2006 12:03

Link

I understand what you are trying to do now, but no, you can't do it 'programmatically'. However, you don't need to write 26 statements either.
Use the pic below to get the scancodes and write them in a DATA statement then use a FOR ... NEXT loop to assign them.

For example:

+ Code Snippet

FOR iTemp = 65 TO 90
   Read Code
   keyboard(iTemp - 65).Character = CHR$(iTemp)
   keyboard(iTemp - 65).Code =  Code
   keyboard(iTemp - 65).Image = iTemp - 64
NEXT iTemp

Data 30,48,46 etc...

Back to top

Profile PM Email

Mickm

18

Years of Service

User Offline

Joined: 22nd Apr 2006

Location: Kingston, ON

Posted: 31st Aug 2006 16:25

Link

Thanks scraggle for the answer, some times its hard to explain what you need to do in code.

I totally forgot about the DATA thing. Much better than using this function I wrote.

FUNCTION RETURNSCANCODE(Char$)
   IF UPPER$(Char$) = "Q" THEN EXITFUNCTION 16 : IF UPPER$(Char$) = "W" THEN EXITFUNCTION 17
   IF UPPER$(Char$) = "E" THEN EXITFUNCTION 18 : IF UPPER$(Char$) = "R" THEN EXITFUNCTION 19
   IF UPPER$(Char$) = "T" THEN EXITFUNCTION 20 : IF UPPER$(Char$) = "Y" THEN EXITFUNCTION 21
   IF UPPER$(Char$) = "U" THEN EXITFUNCTION 22 : IF UPPER$(Char$) = "I" THEN EXITFUNCTION 23
   IF UPPER$(Char$) = "O" THEN EXITFUNCTION 24 : IF UPPER$(Char$) = "P" THEN EXITFUNCTION 25

IF UPPER$(Char$) = "A" THEN EXITFUNCTION 30 : IF UPPER$(Char$) = "S" THEN EXITFUNCTION 31
   IF UPPER$(Char$) = "D" THEN EXITFUNCTION 32 : IF UPPER$(Char$) = "F" THEN EXITFUNCTION 33
   IF UPPER$(Char$) = "G" THEN EXITFUNCTION 34 : IF UPPER$(Char$) = "H" THEN EXITFUNCTION 35
   IF UPPER$(Char$) = "J" THEN EXITFUNCTION 36 : IF UPPER$(Char$) = "K" THEN EXITFUNCTION 37
   IF UPPER$(Char$) = "L" THEN EXITFUNCTION 38

IF UPPER$(Char$) = "Z" THEN EXITFUNCTION 44 : IF UPPER$(Char$) = "X" THEN EXITFUNCTION 45
   IF UPPER$(Char$) = "C" THEN EXITFUNCTION 46 : IF UPPER$(Char$) = "V" THEN EXITFUNCTION 47
   IF UPPER$(Char$) = "B" THEN EXITFUNCTION 48 : IF UPPER$(Char$) = "N" THEN EXITFUNCTION 49
   IF UPPER$(Char$) = "M" THEN EXITFUNCTION 50
ENDFUNCTION -1

+ Code Snippet

FUNCTION RETURNSCANCODE(Char$)
   IF UPPER$(Char$) = "Q" THEN EXITFUNCTION 16 : IF UPPER$(Char$) = "W" THEN EXITFUNCTION 17
   IF UPPER$(Char$) = "E" THEN EXITFUNCTION 18 : IF UPPER$(Char$) = "R" THEN EXITFUNCTION 19
   IF UPPER$(Char$) = "T" THEN EXITFUNCTION 20 : IF UPPER$(Char$) = "Y" THEN EXITFUNCTION 21
   IF UPPER$(Char$) = "U" THEN EXITFUNCTION 22 : IF UPPER$(Char$) = "I" THEN EXITFUNCTION 23
   IF UPPER$(Char$) = "O" THEN EXITFUNCTION 24 : IF UPPER$(Char$) = "P" THEN EXITFUNCTION 25

   IF UPPER$(Char$) = "A" THEN EXITFUNCTION 30 : IF UPPER$(Char$) = "S" THEN EXITFUNCTION 31
   IF UPPER$(Char$) = "D" THEN EXITFUNCTION 32 : IF UPPER$(Char$) = "F" THEN EXITFUNCTION 33
   IF UPPER$(Char$) = "G" THEN EXITFUNCTION 34 : IF UPPER$(Char$) = "H" THEN EXITFUNCTION 35
   IF UPPER$(Char$) = "J" THEN EXITFUNCTION 36 : IF UPPER$(Char$) = "K" THEN EXITFUNCTION 37
   IF UPPER$(Char$) = "L" THEN EXITFUNCTION 38

   IF UPPER$(Char$) = "Z" THEN EXITFUNCTION 44 : IF UPPER$(Char$) = "X" THEN EXITFUNCTION 45
   IF UPPER$(Char$) = "C" THEN EXITFUNCTION 46 : IF UPPER$(Char$) = "V" THEN EXITFUNCTION 47
   IF UPPER$(Char$) = "B" THEN EXITFUNCTION 48 : IF UPPER$(Char$) = "N" THEN EXITFUNCTION 49
   IF UPPER$(Char$) = "M" THEN EXITFUNCTION 50
ENDFUNCTION -1

Online Flash Games and Guides .::. http://www.gamestack.org
Online Notebook .::. http://onlinenotes.gamestack.org

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / ScanCodes

Attachments