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
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.