Un cur 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!
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.