Svenska ElektronikForumet

Kod: Markera allt

#include <Wire.h> // i2c

void setup()
{
  int key;
  
  Wire.begin();   // start Wire library as I2C-Bus Master
  Serial.begin(9600);
}
void loop()
{
 
{ 
  int key = 0;                    //Nollställer key
  Wire.beginTransmission(0x31);    //7-bitarsa adress till keypad, adress i 8-bitar är 0x62
  Wire.send(4);                    //Getkey-funktionen i keypaden
  Wire.endTransmission();          
  delayMicroseconds(45);           //Vänta 45us
  Wire.beginTransmission(0x31);    //Förbered hämtning från keypad
  Wire.requestFrom(int(0x31), 1);  //hämta från keypad (adress), register 1)
}

  if (Wire.available()) {          //Finns värde tillgängligt?
    key = Wire.receive();         //För över värde till till Key
  }
 
  Wire.endTransmission();

if (key < 255)                    // Om Key inte är lika med 255, dvs ingen knapptryckning registrerad
{ 
  Serial.print(key);              // Skriv innehållet i Key seriellt
}

delay (50) ; //vänta 50ms

}

Kod: Markera allt

program Keypad_Test
dim kp, cnt, oldstate as byte
    txt as byte[7]

' Keypad module connections
dim keypadPort as byte at PORTC
' End Keypad module connections

' Lcd module connections
dim LCD_RS as sbit at RB4_bit
    LCD_EN as sbit at RB5_bit
    LCD_D4 as sbit at RB0_bit
    LCD_D5 as sbit at RB1_bit
    LCD_D6 as sbit at RB2_bit
    LCD_D7 as sbit at RB3_bit

    LCD_RS_Direction as sbit at TRISB4_bit
    LCD_EN_Direction as sbit at TRISB5_bit
    LCD_D4_Direction as sbit at TRISB0_bit
    LCD_D5_Direction as sbit at TRISB1_bit
    LCD_D6_Direction as sbit at TRISB2_bit
    LCD_D7_Direction as sbit at TRISB3_bit
' End Lcd module connections

main:
  oldstate = 0
  cnt = 0                             ' Reset counter
  Keypad_Init()                       ' Initialize Keypad
  ANSEL  = 0                          ' Configure AN pins as digital I/O
  ANSELH = 0
  Lcd_Init()                          ' Initialize Lcd
  Lcd_Cmd(_LCD_CLEAR)                 ' Clear display
  Lcd_Cmd(_LCD_CURSOR_OFF)            ' Cursor off
  Lcd_Out(1, 1, "Key  :")             ' Write message text on Lcd
  Lcd_Out(2, 1, "Times:")

  while TRUE
    
    kp = 0                            ' Reset key code variable

    ' Wait for key to be pressed and released
    while ( kp = 0 )
      kp = Keypad_Key_Click()         ' Store key code in kp variable
    wend
    ' Prepare value for output, transform key to it"s ASCII value
    select case kp
      'case 10: kp = 42   ' "*"       ' Uncomment this block for keypad4x3
      'case 11: kp = 48   ' "0"
      'case 12: kp = 35   ' "#"
      'default: kp += 48
      
    case 1
      kp = 49  ' 1                    ' Uncomment this block for keypad4x4
    case 2
      kp = 50  ' 2
    case 3
      kp = 51  ' 3
    case 4
      kp = 65  ' A
    case 5
      kp = 52  ' 4
    case 6
      kp = 53  ' 5
    case 7
      kp = 54  ' 6
    case 8
      kp = 66  ' B
    case 9
      kp = 55  ' 7
    case 10
      kp = 56  ' 8
    case 11
      kp = 57  ' 9
    case 12
      kp = 67  ' C
    case 13
      kp = 42  ' *
    case 14
      kp = 48  ' 0
    case 15
      kp = 35  ' #
    case 16
      kp = 68  ' D
       
    end select

    if (kp <> oldstate) then        ' Pressed key differs from previous
      cnt = 1
      oldstate = kp
    else                            ' Pressed key is same as previous
      Inc(cnt)
    end if
    Lcd_Chr(1, 10, kp)              ' Print key ASCII value on Lcd

    if (cnt = 255) then             ' If counter varialble overflow
      cnt = 0
      Lcd_Out(2, 10, "     ")
    end if

    WordToStr(cnt, txt)             ' Transform counter value to string
    Lcd_Out(2, 10, txt)             ' Display counter value on Lcd
  wend
end.