Encore plus petite matrix

Soyez le premier à donner votre avis sur cette source.

Vue 4 867 fois - Téléchargée 235 fois

Description

Basé sur le code de kilomaster voila encore un effet matrice en un minimum de ligne, et un minimum de boucles.

J'ai enlevé les variables qui ne servent à rien, le code d'initialisation, 3 des 4 timer, quelques fonctions que je ne trouvait pas 'utiles' :) des boucles inutiles, le type dont la moitié des variables ne servait à rien. et voici un effet matrix en une vingtaine de lignes de code.

aucune utilité, donc :)

Vous prener une nouvelle form, vous mettez un timer, l'autoredraw a true, la couleur de fond à noir et ce code :

Source / Exemple :


Dim XYTab(1 To 60, 1) As Integer, CTab(1 To 420) As String * 1

Private Sub Form_Click() 'on clique pour quitter
    End
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    For i = 1 To 60
        If XYTab(i, 1) > Height Or XYTab(i, 1) = 0 Then 'initialisation ou bordure
            XYTab(i, 0) = Int(Rnd * Width)
            XYTab(i, 1) = Int(Rnd * Height)
        End If
    Next i
    Cls
    For i = 1 To 420
        If Rnd > 0.8 Then CTab(i) = Chr(Rnd * 255)
        CurrentX = XYTab(i - 60 * Int(i / 60) + 1, 0)
        CurrentY = XYTab(i - 60 * Int(i / 60) + 1, 1) - i * 3
        XYTab(i - 60 * Int(i / 60) + 1, 1) = XYTab(i - 60 * Int(i / 60) + 1, 1) + 10
        ForeColor = RGB(0, 255 - 10 * (Int(i / 30)), 0)
        Print CTab(i) 'on affiche
    Next i
End Sub

Conclusion :


et le tour est joué. si non y'a un zip, aussi :)
A+, et comme d'hab
http://www.rature.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de kilomaster

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.