Saint valentin

Télécharger le projet
Commenter

Description

Un cœur et des confettis.
Traçage de cercle à partir d'un point x et y.
Clonage de ce cercle à une distance d.
Effacement pour donner deux demi-cercle.
Ajout de courbe en utilisant la fonction racine-carré et sa symétrie.
Coloration avec des points aléatoire.

Source / Exemple : 


Public Sub tracer_coeur(x As Integer, y As Integer, d As Integer)
    Me.DrawWidth = 5
    Me.Circle (x + (d / 2), y), (d / 2), vbRed 'Dessination d'un cercle
    Me.Circle (x + d + (d / 2), y), (d / 2), vbRed
    Me.Line (x, y + 100)-(x + (2 * d), y + d + 100), Me.BackColor, BF 'Effacer la moitié inférieure des cercles
For i = 0 To d 'Dessination du reste
    Me.DrawWidth = 5
    Me.PSet (x + i, y + Sqr(i) * (d / 51)), vbRed
    Me.PSet (x + (2 * d) - i, y + Sqr(i) * (d / 51)), vbRed
Next i
For i = 0 To CInt(d / 11) 'Des graphitis pour le Saint Valentin
    Me.DrawWidth = 2
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbWhite
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbYellow
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbCyan
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbMagenta
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbGreen
    Me.PSet (Rnd() * Me.ScaleWidth, Rnd() * Me.ScaleHeight), vbBlue
Next i
End Sub

Conclusion :


Dans le zip, il y a encore des figures géométriques!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ravorasolofo)