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

neamar

Messages postés: 26
Date d'inscription: vendredi 9 septembre 2005
Statut: Membre
Dernière intervention: 12 avril 2009

- 21 mai 2007 à 21:47
ciberrique

Messages postés: 589
Date d'inscription: lundi 25 août 2003
Statut: Membre
Dernière intervention: 18 juillet 2010

- 22 mai 2007 à 17:19

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/42786-jeu-ou-la-boule-de-destruction-est-attiree-vers-la-souris-des-fois-difficile-a-diriger

ciberrique

Messages postés: 589
Date d'inscription: lundi 25 août 2003
Statut: Membre
Dernière intervention: 18 juillet 2010

1
22 mai 2007 à 17:19

Pas d'erreur chez moi...

cs_margot000

Messages postés: 23
Date d'inscription: mercredi 24 janvier 2007
Statut: Membre
Dernière intervention: 11 juillet 2007

22 mai 2007 à 17:12

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

ciberrique

Messages postés: 589
Date d'inscription: lundi 25 août 2003
Statut: Membre
Dernière intervention: 18 juillet 2010

1
22 mai 2007 à 01:17

Oups j'ai oublié ^^ :

Pour tes images utilise BitBlt et TransparentBlt, ensuite lorsque tu sors de l'ecran de jeu la boule passe de l'autre coté mais ne perds pas de vitesse en se rapprochant mais en gagne.

Euh ensuite, je crois que c'est tout. Bonne continuation.

ciberrique

Messages postés: 589
Date d'inscription: lundi 25 août 2003
Statut: Membre
Dernière intervention: 18 juillet 2010

1
22 mai 2007 à 01:12

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

cs_margot000

Messages postés: 23
Date d'inscription: mercredi 24 janvier 2007
Statut: Membre
Dernière intervention: 11 juillet 2007

21 mai 2007 à 21:53

mais comment utilisé GetTickCount a la place d'un timer ?? tu aurais pa une source pour illustrer ton commentaire stp ?
merci d'avance MarGot

Afficher les 6 commentaires