Ligne qui se dessine aleatoirement

Soyez le premier à donner votre avis sur cette source.

Vue 3 622 fois - Téléchargée 199 fois

Description

Y m'a pogné un tripe hier...
Bon ben c'est une ligne qui dessine aleatoirement quelque fois c'est beau d'autre fois c'Est laid en passant vou pouvez changer les variables coscos et sinsin etc.. pour plus de fun
Parceque sur chaque ordi ben c'est différent à cause de la vitesse du microprocesseur...

Source / Exemple :


'Tient vla le code si ça vous tente
Option Explicit
Dim bouge As Double
Dim midx As Integer
Dim midy As Integer
Dim coscos As Integer
Dim sinsin As Integer
Dim longueurst As Integer
Dim Cosdroitrayon As Integer
Dim Cosgaucherayon As Integer
Dim Sinhautrayon As Integer
Dim Sinbasrayon As Integer
Dim alearayon As Integer
Dim alearayonn As Integer
Dim alearayonnn As Integer
Dim alearayonnnn As Integer
Dim aleadirection As Integer
Dim direction As Double
Dim choix As Integer
Dim choixx As Integer

Private Sub Form_Load()
Randomize
aleadirection = Int(Rnd * 2) + 1
If aleadirection = 1 Then direction = -0.01
If aleadirection = 2 Then direction = 0.01
End Sub

Private Sub Form_Resize()
coscos = 5800
sinsin = 3900
longueurst = 1
midx = Me.Width / 2
midy = Me.Height / 2
Line1.X1 = Me.Width / 2
Line1.Y1 = Me.Height / 2
Label1.Left = 0
Label1.Width = Me.Width
End Sub
Public Function Coscoscosdroit()
If coscos > Cosdroitrayon Then
Coscoscosgauche
Exit Function
Else
coscos = coscos + 60
End If
End Function
Public Function Coscoscosgauche()
If coscos < Cosgaucherayon Then
Coscoscosdroit
Exit Function
Else
coscos = coscos - 60
End If
End Function
Public Function Sinsinsinhaut()
If sinsin < Sinhautrayon Then
Sinsinsinbas
Exit Function
Else
sinsin = sinsin - 60
End If
End Function
Public Function Sinsinsinbas()
If sinsin > Sinbasrayon Then
Sinsinsinhaut
Exit Function
Else
sinsin = sinsin + 60
End If
End Function
Private Sub Timer1_Timer()
bouge = bouge + direction
If choix = 1 Then Sinsinsinbas
If choix = 2 Then Sinsinsinhaut
If choixx = 3 Then Coscoscosdroit
If choixx = 4 Then Coscoscosgauche
Line1.X2 = coscos * Cos(bouge) + midx
Line1.Y2 = sinsin * Sin(bouge) + midy
PSet (Line1.X2, Line1.Y2), vbGreen
End Sub

Private Sub Timer2_Timer()
longueurst = longueurst + 1
Label1.Caption = Mid("Traçage en cours...", 1, longueurst)
If longueurst = 19 Then longueurst = 15
End Sub

Private Sub Timer3_Timer()
Randomize
aleadirection = Int(Rnd * 2) + 1
If aleadirection = 1 Then direction = -0.01
If aleadirection = 2 Then direction = 0.01
alearayon = Int(Rnd * 5800) + 1
alearayonn = Int(Rnd * -5800) + -1
alearayonnn = Int(Rnd * 3900) + 1
alearayonnnn = Int(Rnd * -3900) + -1
Cosdroitrayon = Int(Rnd * alearayon) + 1
Cosgaucherayon = Int(Rnd * alearayonn) + -1
Sinbasrayon = Int(Rnd * alearayonnn) + 500
Sinhautrayon = Int(Rnd * alearayonnnn) + -500
choix = Int(Rnd * 2) + 1
choixx = Int(Rnd * 2) + 1
End Sub

Conclusion :


Bon ben c'est ça !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Voila ATH|500| ,je t remonter avec un 10 de ma part :)
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Que fait tu la shivan 8 non sa vaut 9 ou 10!!!!!!!!!
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
arf c rigolo ce source !!

8/10
ATH|500|
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008
-
C'est juste que j'ai mis les optimisations pour la Vitesse et Non pour le Graphique.. vu que j'ai juste un 500 Mhz avec 128 Meg de ram lol !!! Et Xp quand il est au Top Graphique ben y prend du ram et de la puissance !
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Cool,Sa fesais longtemps que tu n'avais pas mi de source mais celle si est super hot!!!
P.S.Pkoi ta Xp si tu utilise pas le style graphique ?

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.