CHENILLARD AVEC LES LED DU CLAVIER, EMULATION DES TOUCHES

Utilisateur anonyme - 22 févr. 2007 à 03:04
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 25 juin 2008 à 03:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41582-chenillard-avec-les-led-du-clavier-emulation-des-touches

jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008
25 juin 2008 à 03:54
Trés instructif
cs_cbibi Messages postés 112 Date d'inscription mardi 24 juin 2003 Statut Membre Dernière intervention 11 novembre 2007
19 déc. 2007 à 05:55
C'est marant ^^ Plus besoin d'acheter des guirlandes je vais mettre des clavier usb en serie sur mon hub XD
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
27 févr. 2007 à 22:14
original et instructif comme dab..
8/10
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 2
26 févr. 2007 à 23:07
Bonsoir,

@ Foxi, je m'en suis rendu compte après, trop tard pour effacer mon message, désolé.

@+,

Cincap
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
26 févr. 2007 à 20:57
@cincap :

la modif est deja faite dans le projet... donc il n'y a pas besoin de copier coller quoique ce soit.
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 2
26 févr. 2007 à 09:22
Bonjour à tous,

@ Cirec, ta correction parle d'un "timer1" au lieu de "TmrAnim" repris dans la source de Foxi.

Cela peut générer des messages d'erreur chez les débutants qui vont faire un copy/coller de ta modif directement dans la source et générer un message d'erreur sans rien comprendre.

Sinon, bravo pour ce K2000 et sa modif.

@+,

Cincap
Utilisateur anonyme
23 févr. 2007 à 15:08
Merci ... effectivement ça fonctinne maintenant :)

encore un truc d'appris
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
23 févr. 2007 à 09:02
faut ajouter une langue pour que le boutton s'active ... ajoute n'importe quoi, vas regler le boutton et supprimer l'ajout.
Utilisateur anonyme
22 févr. 2007 à 20:44
@Florenth: "c'est toi qui choisit la touche qui désactive Verr-maj "

hummm ... chez moi le bouton "Paramètres de touches" est grisé et il m'est impossible
de le rendre actif ????

@+
Cirec
@f0xi: c'est toi qui choisit la touche qui désactive Verr-maj :

Il faut aller dans Panneau de config > Options régionales, date, heure ... > Options régionales > Onglet "langues" > Détails > Bouton "Paramètres de touches" > Pour désactiver les majuscules > Et voila !!!!!

J'adore les menus de config de windows, tellement simple pour les débutants !
++
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 35
22 févr. 2007 à 10:36
tiens oui, j'ai completement oublier de faire un tableau pour le nom du boutton ... regression d'experience la :)

j'etais occuper sur autre chose lol.

par contre je crois que c'est mon clavier qui est bizarre, car j'en ai trois et deux desactive le caplock avec la touche capslock ...
Utilisateur anonyme
22 févr. 2007 à 03:04
Salut,

c'est Noël avant l'heure ... lol

Pour tous ceux qui ont un clavier avec la touche de verouillage majuscule qui reste allumée
il faut remplacer tous les VK_SHIFT par VK_CAPITAL


@F0xi : tu peux éviter d'écrire ceci:
case Timer1.Enabled of
false : (sender as TButton).Caption := 'Start';
True : (sender as TButton).Caption := 'Stop';
end;

en faisant comme cela:

procedure TForm1.Button1Click(Sender: TObject);
{déclaration en constante d'un tableau contenant les deux chaines}
Const bnt_Name : Array[Boolean] of String = ('Start', 'Stop');
begin
{ inverse l'etat du timer }
Timer1.Enabled := not Timer1.Enabled;

{ désactive les touches }
ReleaseKey(VK_NUMLOCK);
PushAsyncKey(VK_CAPITAL);
ReleaseKey(VK_SCROLL);

{ change le caption du boutton selon l'etat du timer }
{et du coup ça s'écrit en une seule ligne}
(sender as TButton).Caption := bnt_Name[Timer1.Enabled];
end;

en tous cas c'est fun ... :)

@+
Cirec
Rejoignez-nous