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

Télécharger le projet
Commenter

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 :


\ /
\ /
_______\/_______
/ \
/ \
/ \
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|)