[résolu] Probleme de Timer sous VB6

[sebdraluorg]

salut a tous,

 

voila mon probleme, j'ai cree une petite application sous vb utilisant un timer

jusque la tout est ok je compile mon application tout vas tres bien, puis deux trois jours apres je reouvre mon projet pour faire quelques modifications puis je compile mon code et vlatil pas que celle ci se coupe des que le timer se met en marche

J'essai en vain de regler le probleme puis laisse tombe ce projet faute de temps et je commence un nouveau et vlatil pas de nouveau le meme probleme

 

Quelqu'un aurait il une idee ?

 

merci d'avance @+

Modifié le 27 octobre 2004 par sebdraluorg

[Clafouti]

Qu'est-ce que tu entends exactement par "...celle ci se coupe des que le timer se met en marche...". L'application s'arrête ? Elle se plante ? Y a-t-il un message d'erreur ?

Donnes plus de précisions et éventuellement affiche un bout de code (si c'est pas trop long).

[sebdraluorg]

salut,

 

en fait l'application se coupe (se ferme) des que le timer se met en marche si je le met a interbal 100 l'appli n'a meme pas le temps de se lancer si je le mets a interval 2000 par exemple l'appli se ferme apes 2 secondes

 

Pourtant tant ke je ne compile pas ca marche tres bien meme en debogage

ca ne foire qu'une fois compile.

voici une partie du code"

Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = True
GetMemoryInfo
Dim ram As long
Dim RAMTotal As Long
Dim RAMDispo As Long
Dim RAMuTIL As Long
Dim PCRAMDispo As Long
Dim PCRAMuTIL As Long
   RAMTotal = TotalPhysicalMemory / 1024 / 1000
   RAMDispo = AvailablePhysicalMemory / 1024 / 1000
   RAMuTIL = RAMTotal - RAMDispo
   PCRAMDispo = RAMDispo / RAMTotal * 100
   PCRAMuTIL = RAMuTIL / RAMTotal * 100
Label1.Caption = "MEMOIRE VIVE TOTALE =  " & RAMTotal & " Mo"
Label2.Caption = "MEMOIRE DISPONIBLE =  " & RAMDispo & " Mo"
Label3.Caption = "MEMOIRE UTILISEE =  " & RAMuTIL & " Mo"
ReyProgressBar1.Max = 100
ReyProgressBar1.Value = PCRAMDispo
ReyProgressBar1.CaptionMask = PCRAMDispo & "%"
End Sub

Modifié le 28 octobre 2004 par sebdraluorg

[higgins]

salut, je pense que tu as une procédure qui fait planter l'appli,

peux tu détailler "GetMemoryInfo"

 

essaie de mettre

on error resume next

au début de ta procédure Timer1_Timer() cela permet de passer la ligne de code si il y a une erreur

 

Private Sub Timer1_Timer()
on error resume next
Timer1.Enabled = True ' pas necessaire car si cette boucle est appelée par l'interval c'est que le timer est enabled!
GetMemoryInfo
.
.
.
if err then msgbox err.description 'affiche l'erreur
end sub

Modifié le 28 octobre 2004 par higgins

[sebdraluorg]

salut,

 

salut, je pense que tu as une procédure qui fait planter l'appli,

peux tu détailler "GetMemoryInfo"

 

merci en effet j'avais bien une erreur dans les declaration de "GetMemoryInfo"

et pour la premiere appli qui tournait plus c'etait une erreur dans le Systray

merci encore car je commencais a me taper la tete au mur.

 

mais c'est quand meme bizare que le debogage ne trouvait aucune erreur et j'utilise pourtant Option Explicit

mais bon now ca fonctionne c'est ce qui compte merci a tous @+

[higgins]

SAlut,

le mode déboguage ne "vérifie" que les erreurs de code, pas une erreur due à une DLL qui est appellée par ton programme.

 

higgins

[sebdraluorg]

salut,

 

Bon a savoir... merci

en fait je pensais qu'il s'arretait des qu' il rencontrait une erreur de quelque nature.