Clavier et code

On Mon, 1 Sep 2003 17:40:25 +0200, "R Vuille" <xrmvuille@freesurf.ch> wrote:

Bonjour,
Je sais c'est pas dans les bons news mais je ne trouve pas.

Je recherche des image de dispositions des claviers (Suisse, Françasi
Canadien etc....)
Et les code de programmation des touches ? ASCII je connais, mais
életcroniquement codage ? Merci
C'est pour essaye de debuuger un problème sur un programme

Merci d'avance !!!!!!!!!

--
Merci et bonnes salutations
Pour m'écrire enlever le x xrmvuille@freesurf.ch
www.rmvuille.ch généalogie et site personnel.
Visitez www.saphirw.ch et donner vos impressions et idées

un vieux programme en turbopascal ci-dessous utilise l'interruption 16 de lecture du clavier
renvoie le code de touche et le code ascii

program codcarac ;
{ C+ }
uses crt , dos ;

Procedure lit_clavier( var code,ascii : integer) ;
Var Regs : registers;
begin
regs.ax := $1000 ;
intr ( $16 , regs ) ;
code := hi (regs.ax);
ascii := lo (regs.ax) ;
end ;

procedure lit_cla ;
var i, code , ascii : integer ;
begin
clrscr ;
repeat
write('Taper une Touche ');

lit_clavier (code,ascii);
if ascii = 0 Then
lit_clavier(code,ascii);

writeln ('son CODE de touche : ',code,' Valeur Ascii : ',ascii,#32,chr(ascii)) ;
until ascii = 27 ;
delay (2000);
end ;

begin
lit_cla ;
end .


--
* remove '.don't.spam' and '.invalid' from my eMail address if you want to write me *
* enlevez '.don't.spam' et '.invalid' de mon adresse eMail si vous voulez m'écrire *