Formes et effets cool ( avec sin et cos ) _/\/\/\_ **************!!!!!

Soyez le premier à donner votre avis sur cette source.

Vue 4 812 fois - Téléchargée 461 fois

Description

J'ai fait ça encore pour étudier les Sinus et Cosinus.. ! Ça peut servir comme présentation ou même comme screen Saver. C'est le fun à regarder et surtout quand tu les fait toi même je te conseille d'essayer n'importe quoi car c'est le fun à chaque fois que t'essais quelques choses !! J'ai mis quelques animations en défaut mais tu peux te les crées toi même..
Petite Note. Ne met pas de 0 car la j'ai pas eu le temps de régler les bug... mais il y en a pas beaucoup de bug.. Il faut juste que tu mettes pas de 0 quand ils te demande les configuration dans le edit de ton animation... Bon c'est à peu près tout.. Oh oui.. Si ça va trop vite metter votre timer interval à 10 ou 100 ...
Amusez-Vous bien.

P.s Le design de ma form n'a pas été inspirer par celle de Gabi. Car je l'avais déjà fait avant qu'il mette ça source sur Vbfrance...

Source / Exemple :


Option Explicit
Dim MidX As Integer, MidY As Integer
Dim cosx, siny As Single
Dim formecos As Integer
Dim formesin As Integer
Dim nblignecos As Integer
Dim nblignesin As Integer
Dim message
Dim lignegrosseur As Integer
Const PI = 3.14159
Private Sub DrawDial()
    Dim milieu As Integer
        MidX = Me.ScaleWidth \ 2
    MidY = Me.ScaleHeight \ 2

    If Me.ScaleWidth < Me.ScaleHeight Then
        milieu = Me.ScaleWidth * 92 / 200 ' 92%
    Else
        milieu = Me.ScaleHeight * 92 / 200 ' 92%
    End If

End Sub

Private Sub Command1_Click()
Me.Cls
cosx = 2000: siny = 2000
formecos = 1
formesin = 1
formesin = 1
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Me.Cls
cosx = 2000: siny = 2000
formecos = 2
formesin = 1
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Me.Cls
cosx = 2000: siny = 2000
formecos = 10
formesin = 1
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command4_Click()
Me.Cls
cosx = 2000: siny = 2000
formecos = 3
formesin = 1
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command5_Click()
Me.Cls
cosx = 2: siny = 2
formecos = 1
formesin = 1
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command6_Click()
Me.Cls
cosx = 2000: siny = 2000
formecos = 90
formesin = 12
nblignecos = 180
nblignesin = 180
Timer1.Enabled = True
End Sub

Private Sub Command7_Click()
On Error GoTo erreur
Me.Cls
lignegrosseur = InputBox("INSCRIVEZ LA GROSSEUR DE VOS LIGNES 1 À 5 RECOMMENDÉ. 1 donne plutôt un effet transparent plutôt cool et 5 donne un effet non transparent aussi cool..", "LIGNES")
If lignegrosseur = 0 Then lignegrosseur = 1
cosx = InputBox("ENTRER LE NOMBRE DE VOTRE GROSSEUR DU COSINUS GÉNÉRALEMENT 2000 Mettez ça au dessus de 1000 au moins car sinon ça va être plus petit mais essayez donc ce que vous voulez....", "GROSSEUR COSINUS")
siny = InputBox("ENTRER LE NOMBRE DE VOTRE GROSSEUR DU SINUS GÉNÉRALEMENT Mettez ça au dessus de 1000 au moins car sinon ça va être plus petit mais essayez donc ce que vous voulez....", "GROSSEUR SINUS")
formecos = InputBox("ENTRER LE NOMBRE DE VOTRE DEGRÈS DU COSINUS", "DEGRES COSINUS")
formesin = InputBox("ENTRER LE NOMBRE DE VOTRE DEGRÈS DU SINUS", "DEGRES SINUS")
nblignecos = InputBox("ENTRER LE NOMBRE DE LIGNE DU COSINUS", "NB DE LIGNE COSINUS")
nblignesin = InputBox("ENTRER LE NOMBRE DE LIGNE DU SINUS", "NB DE LIGNE SINUS")
Timer1.Enabled = True
erreur:
End Sub

Private Sub Command8_Click()
End
End Sub
Private Sub Form_Load()
On Error GoTo erreur
Label1.Caption = "By Pascal Guay" & vbCrLf & "ATH|500|"
lignegrosseur = InputBox("INSCRIVEZ LA GROSSEUR DE VOS LIGNES 1 À 5 RECOMMENDÉ. 1 donne plutôt un effet transparent plutôt cool et 5 donne un effet non transparent aussi cool..", "LIGNES")
If lignegrosseur = 0 Then lignegrosseur = 1
cosx = 2000
siny = 2000
erreur:
End Sub
Private Sub Form_Resize()
Label1.Left = Me.ScaleWidth - Label1.Width
Label1.Top = Me.ScaleHeight - Label1.Height
Call DrawDial
End Sub

Private Sub Timer1_Timer()
    Dim i, positionX, positionY, milieu As Integer
    siny = siny - 10
    cosx = cosx - 50
    For i = 1 To 360
        Me.DrawWidth = lignegrosseur
        positionX = cosx * Cos(PI / nblignecos * (formecos * i)) + MidX
        positionY = siny * Sin(PI / nblignesin * (formesin * i)) + MidY
        PSet (positionX, positionY), vbGreen
    Next i
End Sub

Conclusion :


\ /
\ /
_______\/_______
/ \
/ \
/ \

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

Ouais j'y pense sérieusement !!!
Messages postés
329
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2005

Vu ton niveau en VB, qu'est-ce que tu attends pour passer au C++ ! Je suis certain que tu sous exploites tes compétences avec VB (trop limitatif).
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Vraiment Cool ,
Tu devrai mettre des animations en couleurs la ...
Bah je c que c'est compliquer mais se serait cool!

Ahh oui ,J'ai une suggestion,tu devrai faire un prog dans ce genre mais qui utilise une vrai image en la decomposant en pixel....
Messages postés
22
Date d'inscription
dimanche 30 septembre 2001
Statut
Membre
Dernière intervention
30 août 2006

splendide !
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006

yeh, tres beau rendu.

good source
Afficher les 6 commentaires

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.