begin process at 2008 08 22 06:09:59
1 229 779 membres
50 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉER UN FOND ÉTOILÉ


Information sur la source

Catégorie :Graphique Classé sous : etoile, fond Niveau : Initié Date de création : 17/03/2001 Vu : 3 241

Note :
4,86 / 10 - par 7 personnes
4,86 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Source

  • Dim X(150), Y(150), S(150) As Integer
  • Private Sub Form_Activate()
  • Randomize
  • For i = 1 To 150
  • X(i) = Int(Me.Width * Rnd)
  • Y(i) = Int(Me.Height * Rnd)
  • S(i) = Int(Rnd * 16)
  • Next
  • End Sub
  • Private Sub Form_Load()
  • Me.BackColor = 0
  • End Sub
  • Private Sub Timer1_Timer()
  • For i = 1 To 150
  • Circle (X(i), Y(i)), S(i), vbWhite
  • Next
  • Timer1.Enabled = False
  • End Sub
Dim X(150), Y(150), S(150) As Integer
Private Sub Form_Activate()
Randomize
For i = 1 To 150
X(i) = Int(Me.Width * Rnd)
Y(i) = Int(Me.Height * Rnd)
S(i) = Int(Rnd * 16)
Next
End Sub

Private Sub Form_Load()
Me.BackColor = 0
End Sub

Private Sub Timer1_Timer()
For i = 1 To 150
Circle (X(i), Y(i)), S(i), vbWhite
Next
Timer1.Enabled = False
End Sub 

Conclusion

ça crée un fond étoilé, comme dans l'espace.on peut changer le nombre d'étoiles
  • signaler à un administrateur
    Commentaire de ng le 11/11/2003 12:16:26

    Optimisation....

    Private Sub Form_Activate()
    Dim i As Integer
    Me.BackColor = 0
    Randomize
    For i = 1 To 150
        Circle (Int(ScaleWidth * Rnd), Int(ScaleHeight * Rnd)), Int(Rnd * 16), vbWhite
    Next
    End Sub

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS