Discussion :

[Thomas748]

Bonjour tlm j'etudie en 1ere année de programmation et je vais vous exposer mon probleme: voila j'ai aquis un clavier logitech sans fil qui ne dispose pas de diodes lumineuses (puisque a piles) et j'ai eut l'idée de les placer en facade de ma tour, pour se faire j'ai recuperer un circuit d'un vieu clavier, je l'ai coller deriere mon cache de facade en percant 3 trous pour les diodes et je l'ai brancher en ps/2 (mon clavier infrarouge etant usb)
Et cela fonctionne, mais voila j'aimerais realiser un programme qui ferrais clignoter ces diodes (genre a le K2000 par ex )l'orce que windows passe en veille et pascal puisque c'est le language que j'utilise au cours.
merci d'aissyer de maider car je patauge

[cerede2000]

Salut j'ai egalement un clavier sans fil en ps/2 et sans led j'aurai aimer savoir comment tu a brancher les tiennes merci

[M.Dlb]

Selon la RBIL, il faut envoyer ça sur le port 64h (qui est le port du controller clavier) :

EDh
this is a two part command to control the state of the NumLock, CpasLock and ScrollLock LEDs.
The second byte contains the state to set LEDs.
bit 7-3 reserved. should be set to 0.
bit 2 = 0 Caps Lock LED off
bit 1 = 0 Num Lock LED off
bit 0 = 0 Scroll Lock LED off

Il faut donc envoyer un EDh suivi d'un octet donné par le codage cité, sur le port 64h... Jamais testé, mais ca devrait marcher

a+

[Eric Sigoillot]

Moi j'ai déjà testé
Le code suivant permet de modifier les LED de clavier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
const
  ledCapsLock   = 4;
  ledNumLock    = 2;
  ledScrollLock = 1;
 
procedure SetKbdLeds(Led: Byte);
begin
  Mem[Seg0040:$0017] := Mem[Seg0040:$0017] xor (Led shl 4);
  Port[$60] := $ED;
  Port[$60] := (Mem[Seg0040:$0017] shr 4) and 7;
end;
 
...
 
begin
  SetKbdLeds(ledCapsLock);
end.

A+

[M.Dlb]

Rectification, c'est le port 60h et non pas le port 64h, comme l'a dit Hdd34 (le port 64h ne semble plus être utilisé depuis les PC XT...)

[Loceka]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure SetKbdLeds(Led: Byte);
begin
  Mem[Seg0040:$0017] := Mem[Seg0040:$0017] xor (Led shl 4);
  Port[$60] := $ED;
  Port[$60] := (Mem[Seg0040:$0017] shr 4) and 7;
end;

Je ne comprends pas bien ce que fait cette procédure (faut dire que j'ai jamais touché à la mémoire). Est-ce que tu pourrais détailler ce qu'elle permet s'il te plaît ?

D'après ce que j'ai compris, mem[] est vraie si elle et égale à elle même ou, et seulement ou, si elle vaut Led décallé de 4 bits ? J'avoue avoir du mal à comprendre le principe, même celui de la variable Port[]...

[M.Dlb]

Mem est une sorte de matrice, donnant une représentation abstractive de la mémoire (c'est beau ce que je dis ). On spécifie à Mem l'octet auquel on veut accéder en mémoire. Mem[Seg0040:$0017] signife donc qu'on veut accéder à l'octet situé à l'adresse $0040:$0017. Port est un tableau qui permet d'accéder aux ports de la machine, le port étant passé entre crochets.

Pour simplifier le fonctionnement, cette procédure récupère l'octet situé en mémoire à l'adresse $0040:$0017, le modifie en fonction du paramètre. En envoie le tout sur le port 60h...

Voilà à peu près

a+

[Eric Sigoillot]

Salut !

L'état des touches bascules du clavier est stocké en mémoire dans le segment des données du BIOS (le 40h), à l'offset 17h. L'état des touches qui possèdent une LED (Caps-, Num- et ScrollLock) est codé sur les bits 4, 5 et 6 (valeurs 1 shl 4, 2 shl 4 et 4 shl 4).
L'utilisation du xor permet de faire varier en on/off la valeur d'un bit, car :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
0 xor 1 = 1
1 xor 1 = 0

Donc, à supposer que la LED de NumLock soit éteinte, un appel SetKbdLed(ledNumLock) va l'allumer, et un second appel va l'éteindre.

La modification de la couleur des LED n'intervient que dans les instructions utilisant Port. La ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Port[$60] := $ED;

indique au clavier (dont le port est le 60h) que l'on va modifier l'état des LED, et que va suivre l'état souhaité (combinaison des bits 0, 1 et 2). On écrit alors cet état toujours dans le port 60h. Cette procédure étant intégrée à la base dans un gestionnaire de clavier complet, elle lisait donc l'état du clavier et modifiait les LED en conséquence.

On pourrait simplifier le problème comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure SetKbdLed(Led: Byte);
begin
  Port[$60] := $ED;
  Port[$60] := Led;
end;

Mais dans ce cas, quand on quittera le programme, les LED seront dans un état ne correspondant pas du tout à l'état réel des touches bascules.

A+

[Loceka]

Merci bien, c'est très clair.

[cerede2000]

Et "mem" marche avec un compilateur 32bits sous win xp?

[M.Dlb]

Certainement pas D'ailleurs, il me semble que Mem ne marche qu'en mode réel, puisqu'on utilise la représentation sur 20 bits, avec la représentation segment:déplacement... Or WinXp marche en mode protégé 32 bits...

[cerede2000]

Lol je m'attendai a cette reponse et ya une solution?

[Thomas748]

Arf, c'est vachement complexe pour moi qui fair de la programation purement économique....

[M.Dlb]

Lol je m'attendai a cette reponse et ya une solution?

Pour accéder directement à la mémoire ? J'en connais pas, sauf peut-être en passant par le DPMI, mais là non seulement je ne suis pas sûr que tu puisses, mais aussi je ne suis pas sûr que cela existe encore sous XP....

[cerede2000]

Ok et une solution pour faire la meme chose autrement?

[M.Dlb]

Des solutions simples ? Y'en a pas

[Eric Sigoillot]

Mais si il y en a ! Mais pas sous Dos...
Donc, au choix...

• Soit on est sous Win9x et on programme sous Dos, et dans ce cas on utilise la procédure définie plus haut
  
• Soit on est sous WinXP, et dans ce cas on utilise un compilateur 32 bits capable de créer une application Windows (Console ou pas), et on utilise la fonction keybd_event pour simuler l'appui sur les touches...

A+