1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Flashy circles

Flashy circles

Soyez le premier à donner votre avis sur cette source.

Vue 3 465 fois - Téléchargée 230 fois

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

Ajouter un commentaire Commentaires
Arecibo Messages postés 124 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 30 juillet 2003
9 juil. 2003 à 22:50
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...
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 1
9 juil. 2003 à 22:40
Catégorie : Graphique

Et le screen il est ou ?
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)