PureBasic

Forums PureBasic
Nous sommes le Lun 24/Juin/2019 10:01

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 19 messages ]  Aller à la page 1, 2  Suivante
Auteur Message
 Sujet du message: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 15:51 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Bonjour à tous

En plusieurs décennies de prog, j'ai jamais rien compris aux couleurs (en autre me direz vous .... :mrgreen:), et pourtant je n'ai jamais été recherché par Lucky luke :D
Et à chaque fois que je suis obligé de passer une couleur d'un langage à l'autre (HTML, PB, VB, etc ..), c'est "javel lacroix" et la banniere pour m'y retrouver.

Alors comme j'ai pas de mémoire, et que je me rappelle jamais ou est le rouge, le vert et le saint esprit, j'avais fait il y a longtemps, un petit convertisseur perso pour m'en sortir... "too much"... (En français "tout moche") :mrgreen:
J'utilise aussi quelques supers petits utilitaires comme ColorCop, ou autres, mais tous ne donnent pas tous les codages de couleurs que je voulais ...enfin pour ceux que j'ai testés. :|

Et en ce moment, je bosse sur le XML....et cette fois ça a été la cerise sur le ponpon :?
C'est encore une autre forme, alors j'ai fouiné sur les forums et suis tombé sur un code de INFRATEC, http://www.purebasic.fr/english/viewtop ... 51#p307251
avec lequel j'ai Image mon convertisseur pour en faire un petit utilitaire,..... mais en rigolo, étonnant non ?? :lol:


ImageAlors messieurs et messieurs !!!! KCC est fier de vous présenter
ImageImageImageCOCO
Imageson nouvel petit ami de programmation :D


Image


A mon avis...c'est pleins de bugs, car il y a pas que le programme qui est en version BETA :mrgreen:
Mais j'espere une fois pour toute avec mon nouveau "Zoizo", que comme KODAK, je vais arrêter les voleurs de couleurs.

Comment qu'on fait ?

On balade la souris ou qu'on veut.....et tel le snipper embusqué au fond d'un immeuble, on vise avec la croix dans le viseur
Quand on a la cible....CTRL+SHIFT et hop on a tous ses papiers d'identités :D

Mais le COCO, il est encore plus fort...on a une couleur "cake part"

- En décimal ==> 10233
- En HTML ==> #F92700
- En RGB ==> RGB(249, 39, 0)
- En HEXA VB ==> &H000027F9&
- En XML ==> FFF92700

Et qu'on voudrait y savoir "çaquecé" :?:

Et ben, on copie sa valeur dans le "serre papelar" et on le colle dans le champs en haut prévu à cet effet, et hop toute la vie de la couleur apparait sans avoir besoin de la menacer dans la lunette de tir ...waaaaooouuuhhh !! 8O

On peut régler la grosseur du viseur avec le curseur, pour le SHERMAN par exemple :wink: qui est habitué à avoir des viseurs de "guedins" dans son tank 8O
Et on peut bien sûr récupérer la valeur en double cliquant sur la ligne concernée...

Voila, je viens de le "finir" si on peux dire, commencer serait peut être plus approprié :lol:
Et je l'ai pas encore vraiment utilisé, je verrais à la longue si il fonctionne et si je m'en sert..
A moins que vos yeux de cadors, spécialistes en couleurs, me déplume mon Coco, à coups de remarques pertinentes. :oops:

http://erdsjb.free.fr/purestorage/provi ... o_v0.0.zip

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 16:40 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1978
j'avais amélioré code ci dessus ainsi :

Code:
; German forum: http://www.purebasic.fr/german/viewtopic.php?t=2887&highlight=
; Author: DarkDragon (based on code by Rings, extended by Andre)
; Date: 09. April 2005
; OS: Windows
; Demo: No
; Get the color under the mouse cursor
; Farbe des Punktes unter dem Mauscursor ermitteln
Declare  OpenWindow_Win()
Declare  GetColorUnderMouse()

;{- Enumerations / DataSections
;{ Windows
Enumeration
   #Win
EndEnumeration
;}
;{ Gadgets
Enumeration
   #Text_titre
   #Image
   #Editor
   #timer
EndEnumeration
;}
;{ Fonts
Enumeration
   #Font_Text_titre
EndEnumeration
;}
Define.l Event
;}
Global flag_timer=0
CreateImage(#image,83, 54,32)
OpenWindow_Win()

;{- Event loop
Repeat
   Event = WaitWindowEvent(2)
   Select Event
      Case #PB_Event_Timer
      if EventTimer() = #timer
         Color.l = GetColorUnderMouse()
         if Color.l<>mem_color.l
            ClearGadgetItems(#Editor)
            AddGadgetItem(#Editor, -1, "Color:" +str(Color))
            AddGadgetItem(#Editor, -1, "Color in Hex :" +Hex(Color))
            AddGadgetItem(#Editor, -1, "Rouge:" +str(Red(Color)))
            AddGadgetItem(#Editor, -1, "Vert:" +str(green(Color)))
            AddGadgetItem(#Editor, -1, "Bleu:" +str(blue(Color)))
            StartDrawing(ImageOutput(#image))
               box(1,1,83, 54,color.l)
            StopDrawing()
            SetGadgetState(#image,ImageId(#image))
            mem_color.l=Color.l
            ;SetClipboardText(GetGadgetText(#Editor))
         Endif
      Endif
      ; ///////////////////
      Case #PB_Event_Gadget
      Select EventGadget()
         Case #Text_titre
         Case #Image
         Case #Editor
      EndSelect
      ; ////////////////////////
      Case #PB_Event_CloseWindow
      Select EventWindow()
         Case #Win
         CloseWindow(#Win)
         Break
      EndSelect
   EndSelect
Forever
;

;}
Procedure OpenWindow_Win()
   If OpenWindow(#Win, 589, 123, 400, 168, "Couleur Graber", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      StickyWindow(#win,1)
      AddWindowTimer( #Win, #timer, 200)
      TextGadget(#Text_titre, 75, 7, 128, 32, "Couleur graber")
      ImageGadget(#Image, 15, 43, 83, 54, ImageId(#image), #PB_Image_Border)
      EditorGadget(#Editor, 116, 44, 250, 108, #PB_Editor_ReadOnly)
      SetGadgetColor(#Editor, #PB_Gadget_BackColor , $0 )
      SetGadgetColor(#Editor, #PB_Gadget_FrontColor , rgb(0,200,0) )
      ; Gadget Fonts
      SetGadgetFont(#Text_titre, LoadFont(#Font_Text_titre, "Comic Sans MS", 10, #PB_Font_Bold|#PB_Font_HighQuality))
   EndIf
EndProcedure
Procedure GetColorUnderMouse()
   GetCursorPos_(@CursorPos.POINT )
   hdc = GetDC_(0)
   If hdc <> 0
      Color = GetPixel_(hdc,CursorPos\x,CursorPos\y)
      ReleaseDC_(0, hdc)
      ProcedureReturn Color
   EndIf
EndProcedure

; Epb

_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 16:44 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Bah !! je l'avais pas retrouvé celui là 8O
Je me doutais bien qu'il y en avais d'autres... :wink:

Il est pas super fluide chez moi, mais merci ça peut m'être utile, pour voir si je me suis gourré dans les conversions 8)
DarkDragon c'est un cador dans le réseau, et surement ailleur....

Si il dit que c'est "FFFFF" et ben c'est "FFFFF" y'a pas de lézard.
Alors que mon COCO...pour l'instant....Ooooooo cocoooooooo !!!! faut s'en méfier :mrgreen:

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 16:45 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 1978
Kwai chang caine a écrit:
Il est pas super fluide chez moi,


essaye la deuxiemme version (il n'y a plus que celle là, j'ai viré l'autre :) )

[Edit] et le reste du message aussi ^^

_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 16:53 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6816
Localisation: IDF (Yvelines)
Whaou ! C'est la première fois que je vois mon ami KCC publier un utilitaire. Zorro oui il existe plusieurs autres codes et moi même j'utilise un utilitaire de ma conception du même style.

De plus celui de KCC permet de capturer la couleur avec une touche de racourci alors que le code que tu as amélioré ne le permet pas.

KCC : Ten points - Zorro : Five points

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat & http://purebasic.chat/forum

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 17:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Falsam a écrit:
Whaou ! C'est la première fois que je vois mon ami KCC publier un utilitaire
Oui presque vrai, la premiere fois, j'avais tellement prévenu que c'était dangereux que personne l'avait essayé, d'ailleurs je me rappelle même plus qu'est ce que c'était :lol:
Mais comme vous tous, j'en ai presque une centaine plus ou moins finis dans le frigo :wink:
Mais pour celui là, je le trouvais joli et rigolo, alors j'ai eu envie de le montrer à des connaisseurs 8)

Falsam a écrit:
KCC : Ten points

Merci beaucoup mon bon FALSAM, venant d'un connaisseur comme toi ça me va droit au coeur 8)

En fait le coup de la souris, m'est venu en plus.
Mon vrai besoin était l'autre fonction, c'est à dire la conversion dans le champs texte, y'a pas idée avec toujours les trois même canaux de couleurs de faire des variantes aussi compliquée.
Je te parle même pas de CROSOFT, comme DAB qui donne dans la simplicité &H000027F9& à mourir de rire cela est :lol: :lol:
J'espere que gràce à lui je vais pouvoir convertir mes couleurs XML
En fait faut virer les deux premieres lettres, je suppose qu'elles servent pour le ALPHA ?

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Dernière édition par Kwai chang caine le Jeu 02/Fév/2017 17:12, édité 4 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 17:10 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Zorro a écrit:
essaye la deuxiemme version (il n'y a plus que celle là, j'ai viré l'autre )
C'est mieux il me semble
En fait comme on sait pas trop ou on est ça donne l'impression de sauter d'une couleur à l'autre

Sur ce point la, INFRATEC il a fait fort avec sa loupe ou plutôt comme dirait Image en anglais avec sa "MAGNIFAILLEQUE"

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 17:31 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 13/Déc/2015 11:05
Messages: 649
Localisation: Allez, cherche...
UN-KRWA-YA-BLU !!! Magnifincroyadorablinimaginatropharaoniquissimextrêmagénialifique !!!! 8) 8)
KCC fait des utilitaires.... Comment dire... il est temps que je me sorte le canon du moteur ^^ :mrgreen:

Merci beaucoup KCC !! C'est la premiére fois que je te vois pondre un si joli coco :mrgreen: Et avec des belles plumes en plus ^^ :P :lol:

_________________
"Le bug se situe entre la chaise et le clavier"
Votre expert national en bogage et segfaults.

CPU : AMD A8 Quad core - RAM 8Gb - HDD 2To
  • Windows 10 x64 - PB 5.61 x64
  • Linux Ubuntu 16.04 LTS x64 (dual boot) - PB pas encore réinstallé


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 17:47 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Merci beaucoup mon SHERMAN 8)
En fait au début j'avais envie de montrer mon KIKI, puis en fin de compte, j'ai pensé que vu le nombre de "moquettes" qui hantait ce forum, mon COCO pourrait peut être plus intérésser :lol:
T'as vu, ça c'est du viseur de chez viseur...
En fait c'est "Lee infratec Oswald" qui me l'a preté :mrgreen:

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Jeu 02/Fév/2017 19:38 
Hors ligne

Inscription: Mer 04/Nov/2015 17:39
Messages: 991
KCC, il va pleuvoir des COCO !
KCC qui partage un programme et surtout qui arrive a se qu'il marche en plus sans tous faire planté !
Alors moi je dis chapeau mon pote !
Champagne vieux !

_________________
Processeur: Intel Core I7-4790 - 4 Cœurs - 8 Thread: 3.60 Ghz.
Ram: 32 GB.
Disque: C: SDD 250 GB, D: 3 TB.
Vidéo: NVIDIA GeForce GTX 960: 2 GB DDR5.
Écran: Asus VX248 24 Pouces: 1920 x 1080.
Système: Windows 7 64 Bits.

PureBasic: 5.60 x64 Bits.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Ven 03/Fév/2017 2:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 13/Déc/2015 11:05
Messages: 649
Localisation: Allez, cherche...
Je confirme ca c'est du putain de viseur !!!

A moi les '36 noscope trickshot 420 dank doublekill sur les boutons et gadgets de l'interface graphique !! :mrgreen: :lol: :mrgreen:

_________________
"Le bug se situe entre la chaise et le clavier"
Votre expert national en bogage et segfaults.

CPU : AMD A8 Quad core - RAM 8Gb - HDD 2To
  • Windows 10 x64 - PB 5.61 x64
  • Linux Ubuntu 16.04 LTS x64 (dual boot) - PB pas encore réinstallé


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Ven 03/Fév/2017 9:51 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Merci les copains. 8)

C'est vrai qu'il est "bo" ce coco, Y'a quand même des beaux "nanimo" dans la nature.
Quant à ce qu'il marche, je le saurais quand je l'utiliserai vraiment.
Parce que à force d'inverser les couleurs, J'suis un peu perdu.

J'avais même eu l'idée de rajouter le Rgba (), mais en discutant avec DJES...je sais pas pourquoi, l'envie m'en a pour l'instant passé :mrgreen:

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Ven 03/Fév/2017 10:09 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 11/Fév/2005 17:34
Messages: 4208
Localisation: Arras, France
V'là ! C'est de ma faute maintenant !

Je vois pas où est le problème, au contraire, puisque le GIF est dépassé depuis qu'existent le PNG et le MNG (ça fait quand même belle lurette, puisque pour ce premier, ça vient de l'Amiga), il va falloir que tu t'intéresses à la couche alpha. Tu verras, c'est très bien, et en plus, ça réserve plein de surprises comme tu les aimes :twisted:


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Ven 03/Fév/2017 10:23 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6623
Localisation: Isere
Nonnon...j'ai pas dit ça.
Mais ya des moments, dans la vie, ou plus on t'explique plus tu y trouves compliqué, tu te dit que le paysage "sable mouvant" on le visitera de loin en photo :mrgreen:

Pofpofpof...le gif a le vent en poupe.
On en voit de plus en plus, même maintenant les gens en font eux même pour se les envoyer, alors si le droid les a adopté, ils sont pas près d'être obsolètes.

Les mng perso, j'en ai jamais vu.
Sans parti pris, et pourtant dès qu'une image bouge et qu'elle me plaît je la telecharge.
Comme tu dit, si c'est vieux, et que ça l'a pas encore remplacé, ya sûrement une raison.
C'est comme les formats zip, pdf, mp3, une fois que les gens l'ont adopté, il faut une vraie bonne raison pour qu'ils changent.

Rien que le jpeg2000 qui devait ecraser le jpg car bien meilleur etc...et ben celui là non plus j'en ai jamais vu.

En tout cas merci de prendre la peine de te consacrer à une cause perdue. ...me rendre plus cultivé 8)

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: La valse des couleurs
MessagePosté: Ven 03/Fév/2017 11:12 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 11/Fév/2005 17:34
Messages: 4208
Localisation: Arras, France
Oui, c'est sûr, il faut un certain temps pour adopter de nouvelles technologies.
Après, ça dépend de ce que tu fais. Le PNG est déjà indispensable dans plein de domaines, où il a supplanté le TIFF bien que celui-ci a bien plus de possibilités (ce qui est aussi son plus gros défaut). Dans les pages web, comme dans les jeux ou le titrage, la couche alpha est devenue vitale... Le Jpeg2000 ou le SID, tu le rencontres dans les systèmes d'informations géographiques ou dans le médical, pour le traitement d'énormes quantités d'images.
Bref, ce sont des trucs de pros, et ils servent au quotidien. Avec la montée en puissance des ordis, les technologies basculent des pros vers le public. Par exemple avec le son, utiliser un vieux mp3 quand on a un bon casque audio, ça fait mal aux oreilles...
En tous cas, je suis aussi content que toi pour le GIF, et je ne vais pas tarder à le prouver... 8)


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 19 messages ]  Aller à la page 1, 2  Suivante

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye