Me revoici pour vous faire voir l'un de mes programme, certes il n'as rien d'extraordinaire mais j'en suis content, je l'es fait seule.
Je vous passe tout le blabla mais je l'es commenter un maximum
Code : Tout sélectionner
; Comment créer un jolie dégradé de couleur avec toutes les teinte possible ?:
; Le Rouge est à fond soit 255.
Rouge = 255
; Le Vert est au minimum soit 0.
Vert = 0
; Le Bleu est au minimum soit 0.
Bleu = 0
X = 0 ; Position en horizontal sur l'image.
CreateImage(1, 1530, 1, 24, 0) ; Création de l'image.
StartDrawing(ImageOutput(1))
; Tu augmente le Vert de 1 en 1 jusqu'à arriver à 255.
For Vert = 0 To 255
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Vert à 255 car il est égale à 256 en sortie de boucle.
Vert = 255
; Tu diminue le Rouge jusqu'à arriver à 0.
; Ont commance à 254 ou sinon il y aura des doublon.
For Rouge = 254 To 0 Step -1
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Rouge à 0 car il est égale à -1 en sortie de boucle.
Rouge = 0
; Tu augmente le Bleu de 1 en 1 jusqu'à arriver à 255.
; Ont commance à 1 ou sinon il y aura des doublon.
For Bleu = 1 To 255
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Bleu à 255 car il est égale à 256 en sortie de boucle.
Bleu = 255
; Tu diminue le Vert jusqu'à arriver à 0.
; Ont commance à 254 ou sinon il y aura des doublon.
For Vert = 254 To 0 Step -1
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Vert à 0 car il est égale à -1 en sortie de boucle.
Vert = 0
; Tu augmente le Rouge de 1 en 1 jusqu'à arriver à 255.
; Ont commance à 1 ou sinon il y aura des doublon.
For Rouge = 1 To 255
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Rouge à 255 car il est égale à 256 en sortie de boucle.
Rouge = 255
; Tu diminue le Bleu jusqu'à arriver à 0.
; Ont commance à 254 et termine à 1 ou sinon il y aura des doublon.
For Bleu = 254 To 1 Step -1
Couleur = RGB(Rouge, Vert, Bleu) ; Calcule de la couleur en RGB.
Plot(X, 0, Couleur) ; Ont déssine le point de la couleur sur l'image.
X + 1 ; Ont avvance d'une position.
Next
; Ont remet le Vert à 0 car il est égale à -1 en sortie de boucle.
Bleu = 0
StopDrawing()
; Fin.
SetClipboardImage(1)