Forum Liberty Basic France
• Index
' ABAQUE DES COULEURS 18/11/14
Code VB :
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
C'est un petit utilitaire sans prétention qui peut aider dans le choix d'une couleur.
Ou avoir une idée de la restitution des couleurs par notre écran...
____________________
Just BASIC v2.0 :
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie