Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog]ScrollLock Cligno
Auteur Message
Répondre en citant
Message [Prog]ScrollLock Cligno 
Salut  Very Happy


Bon voici mon premier programme en autoit qui sert a ...       ... rien.
Mais c'est pour m'entrainer et ca peu toujours etre utile dans certain cas  Very Happy


Il sert a faire clignoter le voyant de la touche Arrêt défil :


 
Code:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <ProgressConstants.au3>

GUICreate("ScrollLock", 130, 125)
GUICtrlCreateLabel("Touche Arret defilement", 10, 0)
 $t = GUICtrlCreateSlider(43, 20, 90, 20)
    GUICtrlSetLimit(-1, 2000, 200)     ; change min/max value
 $slrid = GUICtrlCreateLabel("2000ms", 0, 20)
$f = GUICtrlCreateInput("Nombre de fois", 15, 40, 90, 20)
$okbutton = GUICtrlCreateButton("Faire clignoter", 10, 60, 100, 25, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\img.bmp")
$p = GUICtrlCreateProgress ( 10, 90, 100, 20 )


GUISetState(@SW_SHOW)

While 1
  $msg = GUIGetMsg()

GUICtrlSetData($slrid, GUICtrlRead($t) & "ms")
sleep(25)
  Select
  Case $msg = $okbutton
   $ter = GUICtrlCreateLabel("Clignotement Terminer !", 10, 110)
   GUICtrlSetData($ter, GUICtrlCreateLabel("                       ", 10, 110))
   $adiv = 0
   $a = 0
   $b = 1
   $div = 100 / GUICtrlRead($f)
            
      While ( $a <> GUICtrlRead($f) ) ; Clignotement
    
   $a = $a + $b
         Send("{ScrollLock toggle}")
         Sleep ( GUICtrlRead($t) )
         Send("{ScrollLock toggle}")
         Sleep ( GUICtrlRead($t) )
   $adiv = $adiv + $div
        GUICtrlSetData($p, $adiv)
         Wend
  
   $ter = GUICtrlCreateLabel("Clignotement Terminer !", 10, 110)
         GUICtrlSetData($p, 100)
  
   
    Case $msg = $GUI_EVENT_CLOSE
  

      ExitLoop
  EndSelect

WEnd


Voila par contre j'aimerais bien trouver un moyen de remplacer le
 
Code:

$ter = GUICtrlCreateLabel("                                                                                                                      ", 10, 110)

par autre chose, j'ai essayer avec GUICtrlDelete mais sans succes.

edit : j'ai trouver ca : http://www.autoitscript.com/forum/topic/70318-edit-guictrlcreatelabel-and-u… mais j'arrive pas bien a m'en servir  Neutral



edit² : ca y est j'ai trouver j'ai poster la nouvelle version du code
img.jpg est ici mais n'est pas obligatoire !



Voila  Okay




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch