Flashy circles

Télécharger le projet
Commenter

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
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 (Arecibo)