'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 4/13/2006 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
TRISB = %10000000
ADCON1 = %11111111 'all ports digital
INCLUDE "KeyPad.bas"
'
' Hardware connection
' ===================
DEFINE KEYPAD_ROW 4 ' 8 row
define KEYPAD_ROW_PORT PORTA ' on PORTA
DEFINE KEYPAD_ROW_BIT 0 ' <3:0>
DEFINE KEYPAD_COL 3 ' 3 col
DEFINE KEYPAD_COL_PORT PORTC ' on PORTC
DEFINE KEYPAD_COL_BIT 4 ' <7:4>
DEFINE KEYPAD_DEBOUNCEMS 200 ' debounce delay = 200 mSec
define KEYPAD_AUTOREPEAT 0 ' use auto-repeat
'
' Serial Communication definition
' ===============================
DEFINE LCD_DREG PORTB ' Set LCD Data port
DEFINE LCD_DBIT 0 ' Set starting Data bit (0)
DEFINE LCD_RSREG PORTB ' Set LCD Register Select port
DEFINE LCD_RSBIT 4 ' Set LCD Register Select bit
DEFINE LCD_EREG PORTB ' Set LCD Enable port
DEFINE LCD_EBIT 6 ' Set LCD Enable bit
DEFINE LCD_BITS 4 ' Set LCD bus size (4 or 8 bits)
DEFINE LCD_LINES 2 ' Set number of lines on LCD
DEFINE LCD_COMMANDUS 2000 ' Set command delay time in us
DEFINE LCD_DATAUS 50 ' Set data delay time in us
'
' Variables definition
' ===================
myvar var byte
' ---------------------------------[Program Start]----------------------------------------------
main:
lcdout $fe, 1, "Hello"
pause 500
start:
@ READKEYPAD _myvar
lcdout $fe, 1, "Key=", DEC myvar
goto start
END
Bookmarks