'This label holds the mage data Plaatje:

'$BGF will put the bitmap into the program at this location $bgf "mcs.bgf"

'You could insert other picture data here

CONFIG KBD

Action

Configure the GETKBD() function and tell which port to use.

Syntax

CONFIG KBD = PORTx , DEBOUNCE = value [, DELAY = value]

Remarks

DEBOUNCE By default the debounce value is 20. A higher value might be needed. The maximum is 255.

The GETKBD() function can be used to read the pressed key from a matrix keypad attached to a port of the uP.

You can define the port with the CONFIG KBD statement.

In addition to the default behavior you can configure the keyboard to have 6 rows instead of 4 rows.

CONFIG KBD = PORTx , DEBOUNCE = value , rows=6, row5=pinD.6, row6=pind.7

page -351-

© MCS Electronics, 1995-2007

This would specify that row5 is connected to pind.6 and row7 to pind.7 Note that you can only use rows=6. Other values will not work.

See also

GETKBD

Example

'-----------------------------------------------------------------------------

------------

'specify which port must be used 'all 8 pins of the port are used Config Kbd = Portb

'dimension a variable that receives the value of the pressed key

Dim B As Byte

'loop for ever

Do

B = Getkbd()

'look in the help file on how to connect the matrix keyboard

'when you simulate the getkbd() it is important that you press/click the keyboard button

' before running the getkbd() line !!!

Print B

'when no key is pressed 16 will be returned

'use the Lookup() function to translate the value to another one

' this because the returned value does not match the number on the keyboad

Loop

End

CONFIG KEYBOARD

Action

Configure the GETATKBD() function and tell which port pins to use.

page -352-

© MCS Electronics, 1995-2007

Syntax

CONFIG KEYBOARD = PINX.y , DATA = PINX.y , KEYDATA = table

Remarks

The AT keyboard can be connected with only 4 wires: clock,data, gnd and vcc. Some info is displayed below. This is copied from an Atmel data sheet.

The INT0 or INT1 shown can be in fact any pin that can serve as an INPUT pin.

The application note from Atmel works in interrupt mode. For BASCOM we rewrote the code so that no interrupt is needed/used.

See also

GETATKBD

Example

'-----------------------------------------------------------------------------

page -353-

'-----------------------------------------------------------------------------

------------

'For this example :

'connect PC AT keyboard clock to PIND.2 on the 8535 'connect PC AT keyboard data to PIND.4 on the 8535

'The GetATKBD() function does not use an interrupt. 'But it waits until a key was pressed!

'configure the pins to use for the clock and data 'can be any pin that can serve as an input 'Keydata is the label of the key translation table

Config Keyboard = Pind.2 , Data = Pind.4 , Keydata = Keydata

'Dim some used variables

Dim S As String * 12 Dim B As Byte

'In this example we use SERIAL(COM) INPUT redirection $serialinput = Kbdinput

'Show the program is running Print "hello"

Do

'The following code is remarked but show how to use the GetATKBD() function ' B = Getatkbd() 'get a byte and store it into byte variable

'When no real key is pressed the result is 0 'So test if the result was > 0

'If B > 0 Then

'Print B ; Chr(b)

'End If

'The purpose of this sample was how to use a PC AT keyboard

'The input that normally comes from the serial port is redirected to the 'external keyboard so you use it to type

Input "Name " , S 'and show the result

Print S

'now wait for the F1 key , we defined the number 200 for F1 in the table

Do

B = Getatkbd() Loop Until B <> 0 Print B

Loop

page -354-