Page 1 sur 2

probleme avec ElapsedMilliseconds()

Publié : lun. 06/juin/2005 13:18
par graph100
ma version de pb ne compile pas la plupart des exemples
que je trouve sur le forum
je pense qu'il s'agit des librairies
y doit m'en manquer !!
qq sait ou je peut en telecharger et comment il faut les rajouter 8O 8O
excusez mon ingnorance :lol:

Publié : lun. 06/juin/2005 13:22
par Oliv
EllapsedMilliseconds() est arrivé avec la version 9.8X ou 3.90, essai de voir si tu es à jour ;)

Publié : lun. 06/juin/2005 13:49
par graph100
merci en effet j'suis pas a jours j'ai la 3.80
bon cette fonction elle sert a quoi ??

c'est possible de savoir le nombre de fichier d'un type donne dans un dossier?

Publié : lun. 06/juin/2005 14:06
par Dr. Dri
1)à connaitre la valeur de "l'horloge" du processeur, avec ca tu peux mesurer des durées...

2)avec un examinedirectory() et une boucle oué

Dri

Publié : lun. 06/juin/2005 14:12
par graph100
"l'horloge" du processeur on peut aussi l'avoir avec
Date() non c'est quoi la difference ?

Publié : lun. 06/juin/2005 14:23
par Oliv
Non, EllapsedMmory() sert à savoir depuis combien de temps est allumé le PC, ce qui est utilisé pour voir combien de temps met une action à ce dérouler par exemple
Manuel a écrit : Renvoie le nombre de milli-secondes qui se sont écoulées depuis le démarrage de l'ordinateur. Cette fonction est relativement précise: il peut y avoir de legères différences en fonction de l'OS sur lequel le programme s'éxecute.
Si tu as acheté PureBaisc, les mises à jour sont gratuites, profites-en ;) . Sinon fait une mise à jur de ta version de démo quand même :D

Publié : lun. 06/juin/2005 14:39
par Dr. Dri
par horloge j'entendait pas la date ^^
enfin je sais m'en servir mais si je sais pas expliquer mon aide n'apporte pas grand chose ^^

Dri :jesors:

Publié : lun. 06/juin/2005 18:34
par Droopy
Cette fontion de l'Api est dans ma lib

Regarde les fonctions Optimizing Code ( le code source est fourni )

Publié : mar. 07/juin/2005 10:05
par graph100
comment on fait pour utiliser les lib que vous faite ???

Publié : mar. 07/juin/2005 10:48
par dlolo
Salut,

Pour utiliser les libs il faut les 'installer' :

2 cas :

1 la lib a un programme d'installation, dans ce cas : rien à faire d'autre que de lancer l'instal.

2 la lib est sous forme de fichier compressé, dans ce cas, il faut copier manuellement le ou les fichiers de la lib :

- Le fichier principal doit être copié dans le répertoire Purebasic\pulibraries\userlibraries.

- Il peut y avoir aussi un fichier 'résident' qui contient les définitions des structures et des constantes de cette lib. De ce fait, les structures et constantes seront disponibles pour chaque programme.

Ce fichier '.res' doit être copié dans le répertoire \Purebasic\Residents

- Un fichier d'aide peut aussi être présent, il faut mettre ce fichier dans le répertoire \Purebasic\help. Je crois que ce répertoire n'existe pas à l'install de Purebasic, si c'est le cas, il faut le créer, à vérifier...

Publié : mar. 07/juin/2005 11:01
par graph100
ca marche pas les ai mi dans:
Pure Basic\PureLibraries\UserLibraries


voici le code

Procedure Window0()
If OpenWindow(0, 0, 0, 500, 600, #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered, "Editeur")
If CreateMenu(0, WindowID())
MenuTitle("Fichier")
MenuItem(0, "Ouvrir")
MenuItem(1, "Enregistrer")
MenuItem(2, "Enregistrer sous")
MenuItem(3, "Quitter")
EndIf
If CreateGadgetList(WindowID())
ScrollAreaGadget(0, 0, 0, WindowWidth(), WindowHeight() - 20, WindowWidth() * 3, WindowHeight() * 3, 50, #PB_ScrollArea_BorderLess)
EditorGadget(1, 0, 0, WindowWidth() * 3, WindowHeight() * 3)
CloseGadgetList()
EndIf
EndIf
EndProcedure

Procedure window1()
If OpenWindow(1, 0, 0, 400, 230, #PB_Window_ScreenCentered, "Ouvrir un fichier")
If CreateGadgetList(WindowID())
ExplorerListGadget(4, 10, 10, 380, 180, "", #PB_Explorer_MultiSelect | #PB_Explorer_AlwaysShowSelection )
ButtonGadget(5, 10, 200, 70, 20, "Ouvrir")
ButtonGadget(6, 320, 200, 70, 20, "Annuler")
EndIf
EndIf
EndProcedure

menu :

window0()

Repeat
event = WaitWindowEvent()

If event = #pb_eventmenu
If EventMenuID() = 0
CloseWindow(0)
window1()
Repeat
WaitWindowEvent()
event = EventGadgetID()
Until event <> 0
If event = 1 : dir.s = GetGadgetText(0) + GetGadgetItemText(0, GetGadgetState(0), 0) : Else : dir.s = "" : EndIf
CloseWindow(1)
ClearGadgetItemList(1)
Editor_OFile(1,dir, "Le fichier n'a pas pus être ouvert")
ElseIf EventMenuID() = 1

ElseIf EventMenuID() = 2

ElseIf EventMenuID() = 3
End
EndIf
EndIf

Until event = #pb_event_closewindow


je suis sur que la ligne
Editor_OFile(1,dir, "Le fichier n'a pas pus être ouvert")
bug mais j'suis novice :??:

Publié : mar. 07/juin/2005 12:15
par dlolo
Il faudrait être plus précis dans la description du bug, il faut savoir si c'est un problème d'installation de la lib ou un problème de code.

Publié : mar. 07/juin/2005 13:21
par Torp
As tu mis ta version à jour comme dit plus haut ? Si les libs que tu utilises sont faites pour marcher avec des versions plus recentes ça marchera jamais.

Publié : mar. 07/juin/2005 15:21
par Oliv
As-tu redémarré PB ou le compilateur ?

Publié : lun. 20/juin/2005 14:11
par graph100
??