Gestion du KEYPAD Mikropascal

< Sujet précédent  Sujet suivant >
Index du Forum -> Forum des Projets fin d'études, mini-projets et des réalisations electroniques -> Projets fin d'études
AuteurMessage
 nirmeta
Newbie



Messages : 2
Inscrit(e) le: 23/03/2008
Posté le 30/03/2009 15: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
Tunisia.png Technologuepro
Administrator



Messages : 447
Inscrit(e) le: 15/11/2007
Posté le 30/03/2009 16: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

Haut de page

© 2019 Technologue pro, cours électricité électronique informatique · © 2007 - 2019 Technologue pro - Ressources pédagogiques pour l'enseignement technologique en Tunisie
Usage dans un cadre strictement académique

Technologue: cours en ligne gratuit en électricité, électronique, informatique industrielle et mécanique pour l'enseignement technologique en Tunisie et offre des cours en ligne en génie électrique, informatique, mécanique, une base de données de TP, projets fin d'études et un annuaire de ressources pédagogiques
Licence - Sitemap - Qui somme nous ? - confidentialité- Tunisie Index