Flashy circles

Soyez le premier à donner votre avis sur cette source.

Vue 3 299 fois - Téléchargée 211 fois

Description

C'est un programme tout con (encore un !) qui fait apparaitre tout plein de cercles sur la form, et les fait disparaitre.
On a pas le temps de bien voir leur création/destruction parce que ça va vite mais c'est ça qui peut s'avérer amusant (vous pouvez aussi le ralentir).
Je voulais faire autre chose au départ et puis finalement je suis tombé la dessus et voila le résultat.

PS : ne vous attendez pas a des merveilles...

Source / Exemple :


'Form avec comme propriétés :
' - BackColor en noir
' - BorderStyle à 0 (none)
'et avec un timer a 10 ms d'interval

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 0 Then
    End
End If
End Sub

Private Sub Form_Load()
Randomize
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Dim X(), Y(), Ray() As Single
Dim i, j, k, l, m As Integer

ReDim X(1): ReDim Y(1): ReDim Ray(1)

For i = 0 To 25
    ReDim Preserve X(UBound(X) + i)
    X(UBound(X)) = Rnd * Me.ScaleWidth
Next i

For j = 0 To 25
    ReDim Preserve Y(UBound(Y) + j)
    Y(UBound(Y)) = Rnd * Me.ScaleHeight
Next j

For k = 0 To 25
    ReDim Preserve Ray(UBound(Ray) + k)
    Ray(UBound(Ray)) = Me.ScaleHeight / 25 * Rnd
Next k

For l = LBound(X) To UBound(X)
    Call DrawCircle(X(l), Y(l), Ray(l))
Next l

For m = LBound(X) To UBound(X)
    Call DelCircle(X(m), Y(m), Ray(m))
Next m
End Sub

Private Sub DrawCircle(ByVal X As Single, ByVal Y As Single, ByVal Ray As Single)
Dim i, R, G, B As Integer

R = Rnd * 255
G = Rnd * 255
B = Rnd * 255

For i = 0 To Ray
    Me.Circle (X, Y), i, RGB(R, G, B)
    DoEvents
Next i
End Sub

Private Sub DelCircle(ByVal X As Single, ByVal Y As Single, ByVal Ray As Single)
Dim i As Integer

For i = 0 To Ray
    Me.Circle (X, Y), i, Me.BackColor
    DoEvents
Next i
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
124
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
30 juillet 2003

Ya pas de screen parce que l'intéret (enfin l'intéret que j'y vois) c'est l'enchainement rapide du dessin et de la suppression des cercles (pour se niquer les yeux c'est pas mal !)
Ca ne peut pas être représenté par un screen...
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1
Catégorie : Graphique

Et le screen il est ou ?

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.