- Option Explicit
- Dim i 'progress : x
- Dim X 'vitesse
- Dim tableau() As ColorConstants
- Const factmult = 4 'facteur de multiplication
-
- Private Sub Form_Load()
- Dim a As Integer, col As Double, val As Boolean
- Dim plus As Double
- ReDim tableau(4080 * factmult) 'redimensionne: 4080 facteur de 255
- plus = 1 'initialisation de la variable
- For a = 1 To factmult
- plus = plus / 2 'divise le reste par 2 autant de fois qu'il le faut
- Next a
- For a = 1 To UBound(tableau)
- If val = False Then 'test si couleur montante ou descandente
- col = col + plus 'fait un step
- If col >= 255 Then: val = True 'quand arrive dans le noir demi-tour
- Else
- col = col - plus 'pas le bon nom de variable lol
- If col <= 1 Then: val = False 'quand arrive dans le blanc
- End If
- tableau(a) = RGB(255 - col, 255 - col, 255) 'crée tableau couleur
- Next a
- End Sub
-
- Private Sub Timer1_Timer()
- X = X + 50 '50 = vitesse
- End Sub
-
- Private Sub Timer2_Timer()
- For i = 1 To Pic.ScaleWidth
- Pic.Line (i, 1)-(i, Pic.ScaleHeight), tableau((i + X) Mod UBound(tableau)) 'crée la ligne de couleur en fonction trouvé dans le tableau
- 'en fonction de la soustraction (vitesse)
- Next i
- End Sub
Option Explicit
Dim i 'progress : x
Dim X 'vitesse
Dim tableau() As ColorConstants
Const factmult = 4 'facteur de multiplication
Private Sub Form_Load()
Dim a As Integer, col As Double, val As Boolean
Dim plus As Double
ReDim tableau(4080 * factmult) 'redimensionne: 4080 facteur de 255
plus = 1 'initialisation de la variable
For a = 1 To factmult
plus = plus / 2 'divise le reste par 2 autant de fois qu'il le faut
Next a
For a = 1 To UBound(tableau)
If val = False Then 'test si couleur montante ou descandente
col = col + plus 'fait un step
If col >= 255 Then: val = True 'quand arrive dans le noir demi-tour
Else
col = col - plus 'pas le bon nom de variable lol
If col <= 1 Then: val = False 'quand arrive dans le blanc
End If
tableau(a) = RGB(255 - col, 255 - col, 255) 'crée tableau couleur
Next a
End Sub
Private Sub Timer1_Timer()
X = X + 50 '50 = vitesse
End Sub
Private Sub Timer2_Timer()
For i = 1 To Pic.ScaleWidth
Pic.Line (i, 1)-(i, Pic.ScaleHeight), tableau((i + X) Mod UBound(tableau)) 'crée la ligne de couleur en fonction trouvé dans le tableau
'en fonction de la soustraction (vitesse)
Next i
End Sub