CALCUL DES FPS D' UN JEU
flint_l_eleveur
-
8 mai 2001 à 19:03
MarTiUS_Will Messages postés 36 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 28 septembre 2004 - 23 juil. 2004 à 07:10
MarTiUS_Will Messages postés 36 Date d'inscription jeudi 26 février 2004 Statut Membre Dernière intervention 28 septembre 2004 - 23 juil. 2004 à 07:10
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/1076-calcul-des-fps-d-un-jeu
https://codes-sources.commentcamarche.net/source/1076-calcul-des-fps-d-un-jeu
23 juil. 2004 à 07:10
Certain on dit que cela ne marchais pas, probable si tu ne connais pas bien VB...
Mais VUX, tu aurais pu te forcer un peut quand même.
Je publie ta source refaite a ma guise si jamais quelqu'un ne comprendrais pas. Le code est a placer dans un module.
'Variables:
Public FPS As Long
Private i As Integer
Private NewTime As Long
Private DifTime As Long
Private LastTime As Long
'Fonction :
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Function FFPS() As Long
If i < 10 Then 'Attend 10 fois avant de changer le taux de FPS
a% (i + 1): i a% 'Augmenter la valeur i
NewTime = timeGetTime 'Temps Actuel
DifTime = NewTime - LastTime 'Différence entre le nouveau et le dernier
LastTime = NewTime 'Définition du dernier temps (Celui Actuel)
Exit Function 'Fin de lafonction
Else 'Maintenant sa fait 10 Fois ;)
i = 0 'i est de nouveau a 0
NewTime = timeGetTime 'Comme ci haut.....
DifTime = NewTime - LastTime
LastTime = NewTime
FPS 1000 \ DifTime 'La variable FPS le nouveu taux d'FPS
End If
End Function
Bien sur ceci ne saura surement pas bien placer....
Et comme vux disait il faut appeler la fonction dans la boucle... et la valeur de FPS sera dans la variable "FPS As Long".
c'est tout :) j'ai noter 9 car il y avais la base et seulement quelques erreur.
10 mai 2001 à 15:47
10 mai 2001 à 07:18
9 mai 2001 à 20:28
9 mai 2001 à 07:18
Mémère
8 mai 2001 à 19:03