| Auteur | Message |
nirmeta
Newbie
Messages : 2
Inscrit(e) le: 23/03/2008
|
 Posté le 30/03/2009 14:58 | | | Gestion du KEYPAD Mikropascal |
Bjr , mon problème se consiste a comment mémoriser le code que je tape affin de exécuter une procédure selon le code tapé .
cette exemple permet juste de mémoriser le dernier key (kp prend la valeur de dernier key tapé)
program KeyPad_Test;
var kp, curX, curY : byte;
begin
curX:=1;
curY:=1; // For keeping record of the 2x16 LCD cursor position
Keypad_Init(PORTD); // Initialize Keypad on PORTC
Lcd_Init(PORTB); // Initialize LCD on PORTB, change to PORTD for EasyPIC4
Lcd_Cmd(LCD_CLEAR); // Clear display
while true do
begin
kp := 0;
// Wait for key to be pressed and released
while kp = 0 do
begin
kp := Keypad_Released();
Delay_ms(10);
end;
// Prepare value for output
case kp of
1: kp := '7';
2: kp := '4';
3: kp := '1';
4: kp := 'C';
5: kp := '8';
6: kp := '5';
7: kp := '2';
8: kp := '0';
9: kp := '9';
10: kp := '6';
11: kp := '3';
12: kp := '=';
13: kp := '/';
14: kp := '*';
15: kp := '-';
16: kp := '+';
end;
if (curY > 16) then // change cursor position
if (curX = 1) then
begin
Lcd_Cmd(LCD_SECOND_ROW);
curX := 2;
curY := 1;
end
else
begin
Lcd_Cmd(LCD_FIRST_ROW);
curX := 1;
curY := 1;
end;
// Print on LCD
Lcd_Chr_CP(kp);
Inc(curY);
end;
end.
Merci d'avance
|
| Edité par nirmeta le 30/03/2009 16:03 |
|
|
| Revenir en haut | Permalien |   |
Google
Annonces
|
|
 Technologuepro
Administrator
Messages : 417
Inscrit(e) le: 15/11/2007
|
| Posté le 30/03/2009 15:16 | | | RE : Gestion du KEYPAD Mikropascal |
Bonjour,
il suffit de déclarer une chaine de caractères pour mémoriser le code
exp:
code : string[5];
ensuite enregistrer les key tapé dans cette chaine et les comparer à une valeur prédéfinie pour lancer une procédure
curX:=0;
*****
*****
code[curX]:= kp;
curX:=curX+1;
if curX:=4 then curX:=0;
*****
*****
if code='TEST' then ..........
Bonne chance
|
| Le savoir est une chose qu'on peut pas cacher, la connaissance existe pour être transmise aux autres... |
|
|
| Revenir en haut | Permalien |  |
Google
Annonces
|
|
