Ligne qui se dessine aleatoirement

Télécharger le projet
Commenter

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 !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (ATH|500|)