Soyez le premier à donner votre avis sur cette source.
Vue 3 710 fois - Téléchargée 217 fois
'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
8/10
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.