Saint valentin

Soyez le premier à donner votre avis sur cette source.

Vue 2 567 fois - Téléchargée 325 fois

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!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
quote : Dans le zip, il y a encore des figures géométriques!
bha oui mais c'est pas du .net ..... st valentin un jours, ....
Messages postés
90
Date d'inscription
mardi 6 octobre 2009
Statut
Membre
Dernière intervention
31 mars 2014

Mankasitraka eh

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.