JEU OU LA BOULE DE DESTRUCTION EST ATTIRÉE VERS LA SOURIS DES FOIS DIFFICILE A DIRIGER !

Commentaire de neamar le 21/05/2007 21:47:27

Salut !
Au lieu de déplacer des Picture box sur la form, renseigne toi sur les Apis, ca évite les effets de clignotements...qui sont un peu gênants à la longue.
Tu trouveras une bonne introduction à ce domaine ici : http://www.vbexplorer.com/VBExplorer/gdi1.asp

Ensuite, essaie d'éviter les Timers, qui n'ont aucune précision...utilise plutot une boucle interne avec GetTickCount ou au pire timer (l'instruction qui renvoie le nombre de secondes écoulées depuis minuit...par soustraction, on obtient une bonne temporisation, beaucoup plus efficace...)
et sinon, j'aime bien l'idée..mais tu devrais enlever le"si on sort par en haut, on réapparait par en bas..", car la boule devient alors incontrôlable ! Bonne continuation dans l'univers VB !

Commentaire de ciberrique le 22/05/2007 01:12:54

Tiens voila un exemple de comment tu peux l'utiliser pour faire un Timer, il y a d'autres façons, à toi de choisir celle que tu preferes.


Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Type Timers
    T1 As Long
    T2 As Long
    State As Boolean
    Interval As Integer
End Type

Dim MonTimer As Timers


Private Sub Form_Load()
  
    Dim Running As Boolean
    
    Running = True

    MonTimer.Interval = 10000 '10000ms=10s
    
    Do
    
        If TimerIs(MonTimer) Then
            MsgBox "Fin"
            Running = False
        End If
        DoEvents
    
    Loop Until Running = False

End Sub


Private Function TimerIs(TimerUsed As Timers) As Boolean
    
    With TimerUsed
    
        .T2 = GetTickCount
    
        If .State = False Then
    
            .T1 = GetTickCount
            .State = True
    
        End If
        
        If .T2 - .T1 >= .Interval Then
            TimerIs = True
            .State = False
        End If
    
    End With
    
End Function

Commentaire de margot000 le 22/05/2007 17:12:16

quand je copie ton premier exemple dans un projet, msg erreur : Procedure Sub ou Fonction non definie !!