Soyez le premier à donner votre avis sur cette source.
Vue 3 480 fois - Téléchargée 265 fois
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
10 juin 2002 à 17:58
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 ...
11 févr. 2002 à 03:52
11 févr. 2002 à 01:18
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.