Codes clavier en Quick Basic (scan codes)
DenisBasic
-
DenisBasic -
DenisBasic -
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.
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:
- Codes clavier en Quick Basic (scan codes)
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Scan qr code pc - Guide
- Codes gta - Guide
- & Sur clavier - Guide
- Clavier de l'ordinateur - Guide
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.