BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
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 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[AU3/EXE] Code Color EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[AU3/EXE] Code Color EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[AU3/EXE] Code Color EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[AU3/EXE] Code Color EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[AU3/EXE] Code Color EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[AU3/EXE] Code Color EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[AU3/EXE] Code Color EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[AU3/EXE] Code Color EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[AU3/EXE] Code Color EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment :
Nike : Jusqu’à 50% sur les articles de ...
Voir le deal

[AU3/EXE] Code Color

2 participants

Aller en bas

[AU3/EXE] Code Color Empty [AU3/EXE] Code Color

Message par Dylan Gadacha 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.
Dylan Gadacha
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

[AU3/EXE] Code Color Empty Re: [AU3/EXE] Code Color

Message par FRED92G Dim 19 Jan 2014, 23:53

SA ME RAPPEL UN DE MES VBNET SA LE CODE COLOR SA
FRED92G
FRED92G
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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