Lignes folles ¦ ( cos & sin ) ¦

Soyez le premier à donner votre avis sur cette source.

Vue 3 228 fois - Téléchargée 231 fois

Description

J'ai fait ça juste pour apprendre les cosinus sinus.. Mais c'est quand même le fun.. Un genre de screen saver. Regarde le pendant toute une journée et ça va être le fun ! :P Mais je crois que ça serais plus hot en C++ mais bon. Y faudrait que je le fasse en DirectX...

À NOTER QUE J'AI DIT CE PARAGRAPHE QUAND J'ÉTAIT SUR MON 200 MHZ SUR MON AUTRE ORDI un 500 MHz C'est plutôt pas mal cool :) !
PS:
SI VOUS VOYEZ PRESQUE PAS LES LIGNES QUI BOUGE ET QUE ÇA VA TROP VITE METTEZ L'INTEVAL DU TIMER PLUS HAUT QUE 1 GENRE 10 OU 100 !!!! C'est parceque j'ai fait ce code sur un 200 Mhz et ça ramait un peu! Mais sur mon 500 Mhz ça va trop vite...
ET VU QUE ÇA RAME PAS SUR UN 500 MHZ ET QUE VOUS AVEZ SUREMENT + QUE ÇA OU À PEU PRÈS JE VOUS CONSEILLE DE RAJOUTER DES LIGNES !!! ÇA VA ÊTRE ENCORE PLUS COOL ! MAIS JE CROIS QUE JE VAIS FAIRE UNE VERSION OU ON VA POUVOIR METTRE LE NOMBRE DE LIGNE QU'ON VEUT... À VENIR....

AMUSEZ-VOUS BIEN....
;) :) :) :) :) :) :) :) :) :) :) :) :) :) :) ): ): ): ): ): ): ): ): ): ): ): ): ): ): );

Source / Exemple :


Const PI = 3.14159
Dim bouge As Single
Dim bouge2 As Single
Dim bouge3 As Single
Dim bouge4 As Single
Dim bouge5 As Single
Dim alea As Single
Dim alea2 As Single
Dim alea3 As Single
Dim alea4 As Single
Dim alea5 As Single
Dim MidX As Integer, MidY As Integer
Sub centrer()
    Dim d As Integer
    Line1.Y1 = Me.ScaleHeight / 2
    Line1.X1 = Me.ScaleWidth / 2
    If Me.ScaleWidth < Me.ScaleHeight Then
        SecondLength = Me.ScaleWidth * 40 / 200
    Else
        SecondLength = Me.ScaleHeight * 40 / 200
    End If
    MidX = Me.ScaleWidth \ 2
    MidY = Me.ScaleHeight \ 2
    Label1.Left = Me.ScaleWidth - Label1.Width
    Label1.Top = Me.ScaleHeight - Label1.Height
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
End
End If
End Sub

Private Sub Form_Load()
alerte = MsgBox("Pour quitter pèse sur Escape", , "Note")
Label1.Caption = "By Pascal Guay" & vbCrLf & "( ATH|500| )"
End Sub

Private Sub Form_Resize()
    Call centrer
End Sub

Private Sub Timer1_Timer()
bouge = bouge + alea
bouge2 = bouge2 + alea2
bouge3 = bouge3 + alea3
bouge4 = bouge4 + alea4
bouge5 = bouge5 + alea5
Line1.X2 = 4000 * Cos(PI / 180 * (5 * bouge)) + MidX
Line1.Y2 = 4000 * Sin(PI / 180 * (1 * bouge)) + MidY
Image1.Left = Line1.X2 - 300
Image1.Top = Line1.Y2 - 300
Line2.X1 = Line1.X2
Line2.Y1 = Line1.Y2
Line2.X2 = 3500 * Cos(PI / 180 * (6 * bouge2)) + MidX
Line2.Y2 = 3500 * Sin(PI / 180 * (4 * bouge2)) + MidY
Line3.X1 = Line2.X2
Line3.Y1 = Line2.Y2
Line3.X2 = 3000 * Cos(PI / 180 * (2 * bouge3)) + MidX
Line3.Y2 = 3000 * Sin(PI / 180 * (5 * bouge3)) + MidY
Image2.Top = Line3.Y1 - 300
Image2.Left = Line3.X1 - 300
Line4.X1 = Line3.X2
Line4.Y1 = Line3.Y2
Line4.X2 = 2500 * Cos(PI / 180 * (1 * bouge4)) + MidX
Line4.Y2 = 2500 * Sin(PI / 180 * (6 * bouge4)) + MidY
Image3.Left = Line3.X2 - 300
Image3.Top = Line3.Y2 - 300
Line5.X1 = Line4.X2
Line5.Y1 = Line4.Y2
Line5.X2 = 3250 * Cos(PI / 180 * (4 * bouge5)) + MidX
Line5.Y2 = 3250 * Sin(PI / 180 * (4 * bouge5)) + MidY
Image4.Left = Line4.X2 - 300
Image4.Top = Line4.Y2 - 300
Line6.X1 = Line5.X2
Line6.Y1 = Line5.Y2
Image5.Left = Line6.X1 - 300
Image5.Top = Line6.Y1 - 300
Randomize
alea = (1.3 * Rnd) + 1.001
alea2 = (0.8 * Rnd) + 0.5
alea3 = (1# * Rnd) + 0.8
alea4 = (1.3 * Rnd) + 0.5
alea5 = (1.15 * Rnd) + 1#
End Sub

Conclusion :


COS SIN ¦¬)

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

Bel exemple de sinus cosinus,ya pas moyen daccelerer?
Parce que moi j'ai un processeur 333 jumper a 450 donc il chauffe en sacrament .Pi vu que la il fait chaud dewor,c'est capaciter on faibli.Ma le coller sur l'air climatiser mais en t-k
Si tu c comment accelerer sa ...
ATH|500|
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

lol :)
cs_aKheNathOn
Messages postés
575
Date d'inscription
dimanche 23 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2012

pas mal :) ! Bien vu ...

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.