Soyez le premier à donner votre avis sur cette source.
Vue 4 721 fois - Téléchargée 492 fois
Option Explicit Declare Function bnPrecisionOK Lib "D:\PrecisVb.dll" () As Long Declare Function bnCpuSpeedMghz Lib "D:\PrecisVb.dll" () As Long Declare Sub bnTicksStart Lib "D:\PrecisVb.dll" () Declare Function bnTicksResult Lib "D:\PrecisVb.dll" () As Double Declare Sub bnMilliscndStart Lib "D:\PrecisVb.dll" () Declare Function bnMilliscndResult Lib "D:\PrecisVb.dll" () As Double Function PerdreTemps(num As Long) As Double Dim d As Double, i As Long d = 1.5 While num d = d + 1.5 d = d - 1 d = d + i num = num - 1 Wend PerdreTemps = d End Function Sub TestDll() If bnPrecisionOK Then MsgBox "bnPrecisionOK" End Sub Sub DireCpuSpeed() If bnPrecisionOK Then MsgBox bnCpuSpeedMghz End Sub Sub TestTicks() Dim res As Double If bnPrecisionOK = 0 Then Exit Sub bnTicksStart res = PerdreTemps(9500000) MsgBox bnTicksResult MsgBox res End Sub Sub TestMillisecondes() Dim res As Double If bnPrecisionOK = 0 Then Exit Sub bnMilliscndStart res = PerdreTemps(9500000) MsgBox bnMilliscndResult MsgBox res End Sub
28 déc. 2004 à 17:15
http://www.vbfrance.com/code.aspx?ID=17608
Bonnes Fêtes à tous et bonne prog.
Afyn
Navedac
28 déc. 2004 à 12:06
en fait pour le moment j'utilise un timer avec un interval
fixé a un , dans ce timer j'ai mis a a + 1 et if a >100 then a1 , jusque la tout va bien . pour chaque valeur de a , j'ai une action correspondante ( je peut pas gerer toutes ce actions en même temps , pb de conflits ) . Logiquement , a doit faire sa boucle 10 fois dans une seconde , ben chez moi il fait une boucle ^par seconde , et j'ai besoin de créer l'illusion de la simultanéité de ces actions , bref je veux aller plus vite ^^ .
Mais je suis un vrai newbie et ne sait pas comment me servir de votre programme . Pourriez vous m'indiquer , si possible , pas a pas , ce que je dois faire pour me servir de ce programme ?
9 sept. 2004 à 16:11
Afyn
Navedac
9 sept. 2004 à 15:53
si vous avez des pistes de recherches merci pour les tuyaux
erdan
27 janv. 2004 à 18:40
Set Timer n'est pas efficace en fait pour un séquenceur MIDI.
(Résolution max 1ms +ou- 10 ms et le call back est un WM_Timer avec un low priority...)
SetWaitabletimer est meilleurs d'aprés les mesures que j'ai pu faire.
TimerQueueTimer doit être meilleurs, mais j'ai eu des soucis de stabilité (?) que je n'ai pas su résoudre, donc je me contente du
Waitable Timer pou l'instant.
Merci
A+
Afyn
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.