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

0/5 (6 avis)

Vue 5 236 fois - Téléchargée 510 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
ATH|500| Messages postés 155 Date d'inscription mardi 7 août 2001 Statut Membre Dernière intervention 30 janvier 2008
26 juin 2002 à 18:42
Ouais j'y pense sérieusement !!!
cs_Mercury Messages postés 329 Date d'inscription jeudi 3 janvier 2002 Statut Membre Dernière intervention 7 octobre 2005
26 juin 2002 à 17:49
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).
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
10 juin 2002 à 17:54
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....
sdrdis Messages postés 22 Date d'inscription dimanche 30 septembre 2001 Statut Membre Dernière intervention 30 août 2006
12 févr. 2002 à 16:59
splendide !
cs_Stephane Messages postés 550 Date d'inscription vendredi 5 janvier 2001 Statut Membre Dernière intervention 23 septembre 2006
12 févr. 2002 à 11:06
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.