0/5 (6 avis)
Vue 5 236 fois - Téléchargée 510 fois
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
26 juin 2002 à 18:42
26 juin 2002 à 17:49
10 juin 2002 à 17:54
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....
12 févr. 2002 à 16:59
12 févr. 2002 à 11:06
good source
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.