Codes clavier en Quick Basic (scan codes)

Fermé
DenisBasic - 17 déc. 2008 à 12:45
 DenisBasic - 17 déc. 2008 à 14:03
Bonjour,
J'utilise (ou plutôt ma femme...) un programme de gestion de compta familiale que j'ai écrit il y a une vingtaine d'années en MS Basic, puis QuicBasic 4.5 (il fait environ 5000 lignes).
Il y a longtemps que j'ai oublié la programmation... La dernière fois que je l'ai modifié, c'était pour passer l'an 2000, et ça m'a pris des jours à me replonger dedans.

Il a fonctionné sur plusieurs ordinateurs, mais voilà, sur un clavier de portable Dell C610, il n'obéit pas à la touche + utilisée en touche de fonction.
Voilà la subroutine :
SUB CleSaisie STATIC
'
' affectation et activation des cl‚s de fonction
' pour la saisie et le relev‚ :
'
KEY OFF
KEY 1, "Aide"
KEY 2, "D‚tail "
KEY 3, "Cartes" ' Cartes Bancaires
KEY 4, "Ech‚ances" ' Ech‚ances
KEY 5, "RemChq " ' Remise ChŠque
KEY 6, "Viremnt" ' Virement Automatique
KEY 7, "Pr‚lŠvt" ' Pr‚l‚vement Automatique
KEY 8, "Guichet" ' Op‚ration Guichet
KEY 9, "DatVal" ' Modif. Date de Valeur
KEY 10, "Mode" ' Changement de mode

''' KEY 31, "Euro" ' Conversion Euro ; Key 31 = Key 12


KEY 15, CHR$(0) + CHR$(78) ' Touche Relev‚ : + de droite
KEY 16, CHR$(0) + CHR$(83) ' Touche Annulation : Del
KEY 17, CHR$(32) + CHR$(78) ' Num Lock + Touche Relev‚
KEY 18, CHR$(64) + CHR$(78) ' Caps Lock + Touche Relev‚
KEY 19, CHR$(96) + CHR$(78) ' Num + Caps Lock + Touche Relev‚
KEY 20, CHR$(0) + CHR$(1) ' Defaire: Esc
KEY 21, CHR$(128) + CHR$(83) ' Del sur clavier 102
KEY 22, CHR$(160) + CHR$(83) ' Num Lock + Del sur clavier 102
KEY 23, CHR$(32) + CHR$(1) ' Defaire: Esc sur clavier 102

ON KEY(1) GOSUB AideSaisie
ON KEY(2) GOSUB Detail
ON KEY(3) GOSUB Cartes
ON KEY(4) GOSUB Echeances
ON KEY(5) GOSUB RemChq
ON KEY(6) GOSUB Viremnt
ON KEY(7) GOSUB Prelevt
ON KEY(8) GOSUB Guichet
ON KEY(9) GOSUB DatVal
ON KEY(10) GOSUB ChMode
ON KEY(15) GOSUB Releve
ON KEY(16) GOSUB Annul
ON KEY(17) GOSUB Releve
ON KEY(18) GOSUB Releve
ON KEY(19) GOSUB Releve
ON KEY(20) GOSUB Defaire
ON KEY(21) GOSUB Annul
ON KEY(22) GOSUB Annul
ON KEY(23) GOSUB Defaire

FOR k = 1 TO 10: KEY(k) ON: NEXT k
KEY(16) ON: KEY(21) ON: KEY(22) ON
KEY(20) ON: KEY(23) ON
COLOR 4: KEY ON
'
END SUB 'CleSaisie

(La touche + me permet de relever des opérations en mode relevé)

Sur le portable Dell, j'ai utilisé toutes les combinaisons de touche + avec Verr Num, Shift, Shift lock, etc, et rien ne marche.

Donc il me faudrait un programme qui affiche les codes Scan du clavier.
J'en avais fait un à l'époque, mais je ne le trouve plus.

Merci.
A voir également:

1 réponse

jean-yvon Messages postés 108 Date d'inscription lundi 4 août 2008 Statut Membre Dernière intervention 5 juillet 2009 10
17 déc. 2008 à 12:52
Bonjour,
Ouaip! Le Qbasic ça nous rajeunis pas!
Et si tu changeais le code "touche" simplement en prenant une autre touche?
Je crois que c'est le plus simple.
En allant sur le site de dell tu pourrais avoir le code des touches!
@+
JY
0
Oui, c'est une bonne idée, et facile à mettre en place, car dans le mode relevé j'ai l'embarras du choix des touches...

Je fais faire celà pour aller au plus simple.

Il n'empêche, je me demande pourquoi cett put... de touche + ne génère pas le même code sur un clavier de portable Dell ... (ça marche bien avec un clavier Dell 101 touches).

Merci.
0