Discussion :

[mario9]

Bonjour

Merci d'avance pour vos réponses.

Voici mon problème (D7)

Je veux faire une boucle avec VK_NUMPAD1 en voulant varié de 0 a 9 le chiffre de VK_NUMPAD .J'ai toujours une erreur de Type.


Merci

Mario

[edam]

donne le code

[mario9]

Merci de votre aide


Je veux remplacer le 1 de 0 a 9 dans un une boucle pour passer cette ligne de code dans

Code :

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

1
2
3
 
         keybd_event(VK_NUMPAD1, 0, 0, 0);
         sleep(100);

Mario

[edam]

dans l'unité de windows en a:

VK_NUMPAD0 = 96;
{$EXTERNALSYM VK_NUMPAD1}
VK_NUMPAD1 = 97;
{$EXTERNALSYM VK_NUMPAD2}
VK_NUMPAD2 = 98;
{$EXTERNALSYM VK_NUMPAD3}
VK_NUMPAD3 = 99;
{$EXTERNALSYM VK_NUMPAD4}
VK_NUMPAD4 = 100;
{$EXTERNALSYM VK_NUMPAD5}
VK_NUMPAD5 = 101;
{$EXTERNALSYM VK_NUMPAD6}
VK_NUMPAD6 = 102;
{$EXTERNALSYM VK_NUMPAD7}
VK_NUMPAD7 = 103;
{$EXTERNALSYM VK_NUMPAD8}
VK_NUMPAD8 = 104;
{$EXTERNALSYM VK_NUMPAD9}
VK_NUMPAD9 = 105;

alors comme tu vois le VK_NUMPAD1=97 tu peut faire sa:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var  i:integer;
begin
    for i:=0 to 9 do
      begin
       keybd_event(VK_NUMPAD0+I, 0, 0, 0);
       keybd_event(VK_NUMPAD0+I, 0, KEYEVENTF_KEYUP, 0);
       sleep(10); //
       application.ProcessMessages;// ces 2 ligne simplement pour voir s'afficher les nbr
      end;
end;