Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[AU3/EXE] Code Color

Voir le sujet précédent Voir le sujet suivant Aller en bas

[AU3/EXE] Code Color

Message par Dylan Gadacha le Dim 19 Jan 2014, 22:13

Voici un Code Color comme celui de Fred et celui de Sacha, mais cette fois-ci en AutoIt:
Code:
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>

HotKeySet("{ESC}", Close)

GUICreate("Code Color - BBat Software", 320, 160)
GUISetBkColor("0x6699FF")
GUISetState(@SW_SHOW)

Local $Draw_Hex, $Draw_Red, $Draw_Green, $Draw_Blue

While 1

   Sleep(50)

   GUICtrlDelete($Draw_Hex)
   GUICtrlDelete($Draw_Red)
   GUICtrlDelete($Draw_Green)
   GUICtrlDelete($Draw_Blue)

   ; HEX
   $Coord = MouseGetPos()
   $Hex = "0x" & Hex(PixelGetColor($Coord[0], $Coord[1]), 6)
   $Draw_Hex = GUICtrlCreateLabel("" & Hex(PixelGetColor($Coord[0], $Coord[1]), 6), 10, 10, 300, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0xFFFFFF")

   ; RED
   $Red = BitAND(BitShift($Hex, 16), 0xFF)
   $Draw_Red = GUICtrlCreateLabel("" & $Red, 10, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0xFF0000")

   ; GREEN
   $Green = BitAND(BitShift($Hex, 8), 0xFF)
   $Draw_Green = GUICtrlCreateLabel("" & $Green, 110, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0x339933")

   ; BLUE
   $Blue = BitAND($Hex, 0xFF)
   $Draw_Blue = GUICtrlCreateLabel("" & $Blue, 210, 85, 100, 65, $SS_CENTER)
   GUICtrlSetFont(-1, 42, 0, 0, "Arial Rounded MT Bold")
   GUICtrlSetBkColor(-1, "0x0000FF")

WEnd

Func Close()
   Exit
EndFunc

[Vous devez être inscrit et connecté pour voir ce lien]

Exécutable: http://www.sendspace.com/file/ti36am

ECHAP pour fermer le programme.

Si vous savez comment réduire le clignotement tout en conservant la "réactivité", n'hésitez pas à le modifier, parce que là, ça pique les yeux lol! 

Dylan.
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: [AU3/EXE] Code Color

Message par FRED92G le Dim 19 Jan 2014, 23:53

SA ME RAPPEL UN DE MES VBNET SA LE CODE COLOR SA

_________________
____________________________________________________________________________________________________________________________
 [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image] [Vous devez être inscrit et connecté pour voir cette image]
 
ICI PAS DE TOURISME ON A AUTRE CHOSE A FAIRE ET AUCUN DROIT A L ERREUR ET PERMI OR MIE D' AVOIR UN BON DICO OU DECODEUR
SURTOUT APRES QUE LE GRAND DOCTEUR ET PARLER.
avatar
FRED92G
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 260
Data de inscrição : 04/06/2013
Idade : 31
Localização : FRANCE

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum