Forum Liberty Basic France

Débutant » Abaque des couleurs Cliquez dans les 3 barres et vous obtenez la couleur ainsi définie
Le 18/10/2016 à 16h01

Libertynaute Débutant

Groupe: Membre

Inscrit le: 19/09/2013
Messages: 16
' ABAQUE DES COULEURS 18/11/14
Code VB :
 
nomainwin
WindowWidth = 600 :WindowHeight = 600
UpperLeftX = 600  :UpperLeftY = 100
Open "Abaque des couleurs " for graphics_nsb as #1
#1, "Trapclose [quit]"
#1, "Down "
for x= 0 to 510 step 1        'Trois barres de couleurs
    #1, "color  ";255-x/2;" "; 0 ; " "; 0
    #1, " line ";40;" ";x+20;" ";100;" ";x+20
next x
for x= 0 to 510 step 1
    #1, "color  ";0;" ";255-x/2; " ";0
    #1, " line ";140;" ";x+20;" ";200;" ";x+20
next x
for x= 0 to 510 step 1
    #1, "color  ";0;" ";0; " ";255-x/2
    #1, " line ";240;" ";x+20;" ";300;" ";x +20
next x
#1, "when leftButtonDown [des] "
wait
[des]
xx = MouseX : yy = MouseY       ' Définition de la couleur
col=int((530-yy)/2)
if col<0 then col=0
if col>255 then col=255
if xx>40 and xx<100 then ro=col
if xx>140 and xx<200 then ve=col
if xx>240 and xx<300 then bl=col
#1, "font arial 15 ; place 360 100 "     'Dessin du rectangle en cou
#1, "color black "
#1, "backcolor white "
#1, "| Rouge = ";ro;"    "
#1, "| Vert    = ";ve;"    "
#1, "| Bleu    = ";bl;"    "
#1 "backcolor ";ro;" ";ve;" ";bl
#1 "place 340 200 "
#1 "boxfilled 550 530 "
wait
#1, "flush"
[quit]
close #1
end
 
____________________
jacques845

Web    
Le 20/10/2016 à 14h46

Libertynaute Débutant

Groupe: Membre

Inscrit le: 19/09/2013
Messages: 16
C'est un petit utilitaire sans prétention qui peut aider dans le choix d'une couleur.
____________________
jacques845

Web    
Le 20/10/2016 à 20h58

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 522
Ou avoir une idée de la restitution des couleurs par notre écran...
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Débutant » Abaque des couleurs Cliquez dans les 3 barres et vous obtenez la couleur ainsi définie  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie