原理图：

基于74HC165键盘的实物：

'/////////////////////////////////////////////////////////////////////////
'///工程：FastAVR Basic 74HC165读按键试验，键值在C口用LED显示
'///芯片：mega8515
'///简介：74HC165 是8位并入串出的移位寄存器，接8个带上拉电阻的按键至GND
'///编译：通过，61 words
'///实践：通过，
'///作者：agui2008
'///时间：2005/8/15
'//////////////////////////////////////////////////////////////////////////
$Device= m8515      '声明AVR型号
$Stack = 32         '设置堆栈大小
$Clock = 1          '时钟频率1M
$ShiftOut Data=PORTA.1 ,Clk=PORTA.2,Msb      '声明一个简单的移位式SPI
'//porta.0=165_595_SH/LD SH=1 LD=0 （74HC165的锁存端子接到－－PORTA.0)
'//porta.1=165_OH\ (74HC165的输出数据接到－－PORTA.1)
'//porta.2=165_CLK (74HC165的移位时钟接到－－PORTA.2)
$Def SL = PORTA.0      '给PORTA.O取别名SL
Dim n_key As Byte      '定义字节变量n_key用于保存键值
Set DDRA.0             '此端口控制165的锁存端，设为输出
DDRC=255               '设PORTC口为输出，用于LED显示键值
Do
Reset SL               '给SL一个低电平锁存165
Set SL
n_key=ShiftIn          '读出165锁存的数据
n_key=Not n_key        '由于我的数据线连接到165的反相输出端，所以倒一下
PORTC=n_key            '读到的数据输出到C口
WaitMs 25              '延时25毫秒
Loop