[VB6] Ressources UC

**Asdorve** · 10/04/2006, 10h11

Bonjour,

J'ai une appli vb qui tourne en permanence sur le pc, mais elle prend pas mal de ressources (je le vois dans le gestionnaire de tâche).

Y-a-t-il la possibilité de prendre moins de ressources?
Dans les processus, colonne Processeur, je suis à 98...

Merci

**Megaxel** · 10/04/2006, 10h33

Si elle prend des ressources, c'est qu'elle a des choses à faire.
Soit elle a trop de choses à faire, et il n'y a pas grand-chose à espérer, soit elle n'en a pas tant que ça, mais elle les fait mal, et c'est le code qu'il faut optimiser.

**Asdorve** · 10/04/2006, 10h35

Elle scrute la base de données toutes les 10 minutes et affiche dans un datagrid les données. c'est tout.

**Megaxel** · 10/04/2006, 10h37

Et comment as-tu codé ton intervalle de 10 mn ?

**Asdorve** · 10/04/2006, 10h38

comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PauseTime = 600   ' Définit la durée.
    Start = Timer   ' Définit l'heure de début.
 
    Do While Timer < Start + PauseTime
        DoEvents   ' Donne le contrôle à d'autres processus.
    Loop
 
    Finish = Timer   ' Définit l'heure de fin.
    TotalTime = Finish - Start   ' Calcule la durée totale.

**Megaxel** · 10/04/2006, 10h42

Sors le DoEvents de la boucle de ton compteur, déjà.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DoEvents
Do While Timer < Start + PauseTime 
Loop

Ça change quelque chose?

**Asdorve** · 10/04/2006, 10h44

ça rame encore plus... enfin, un peu plus.

**Megaxel** · 10/04/2006, 10h58

Heum...

Bon, et si tu utilises "Application.Ontime" pour lancer périodiquement ta mise à jour de Datagrid?
Je balance des idées comme ça, sans savoir ce que ça va donner, désolé...

**Asdorve** · 10/04/2006, 11h00

Envoyé par Megaxel

Bon, et si tu utilises "Application.Ontime" pour lancer périodiquement ta mise à jour de Datagrid?

c'est quoi Application.ontime?

Sinon,

Envoyé par Megaxel

Je balance des idées comme ça, sans savoir ce que ça va donner, désolé...

vas-y, te gène pas...

**Megaxel** · 10/04/2006, 11h10

Regarde cet exemple, donné par Ouskel'n'or:
http://www.developpez.net/forums/vie...ication+ontime

**Asdorve** · 10/04/2006, 11h16

ça marche pas, "un objet est requis". Mais le vba est pas différent de vb tout court?

**jmfmarques** · 10/04/2006, 11h24

PauseTime = 600
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop

passe la main au système pendant 10 minutes !
c'est très différent d'un lancement toutes les dix minutes !
Montres nous, sous forme synoptique, le mécanisme de cette histoire là !...Car c'est à mon avis sa philosophie qu'il faudra revoir ...

**Theocourant** · 10/04/2006, 11h25

Salut,

Sinon, vu que tu travailles avec VB6, tu peux mettre en place un timer...

Par contre, il y a un petit inconvénient à utiliser le timer c'est qu'il est limiter à 1 événement toutes les 65000 ms au maximum, tu utilises un "indice de temps" pour effectuer des taches qu'à un moment précis...

Tu règles l'intervalle du Timer à 60000 ms (1min)

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub tmTimer_Timer()
'Gestion du timer
 
    IndTemps = IndTemps + 1
 
    Select Case IndTemps
        Case 10     '10 minutes
            IndTemps = 0    'Réinitialisation du compteur
            ' là tu places ton code pour la lecture de ta base ou l'appelle de la routine qui l'exécute
        Case Else   'Autres cas
    End Select
End Sub

Et voilà

J'espère que cela pourra t'aider

+

Théo

**Megaxel** · 10/04/2006, 11h27

Tu as laissé "Application" devant "Ontime"?
Puisque tu es en VB6, je ne sais pas trop comment ça fonctionne. L'aide en ligne, elle te dit quoi? Y'a pas un petit exemple?

**Asdorve** · 10/04/2006, 11h29

Envoyé par jmfmarques

passe la main au système pendant 10 minutes !
c'est très différent d'un lancement toutes les dix minutes !
Montres nous, sous forme synoptique, le mécanisme de cette histoire là !...Car c'est à mon avis sa philosophie qu'il faudra revoir ...

Voila comment ça se passe:
1- Je démarre mon appli
2- Je me connecte à la base de données
3-Je récupère mes valeurs
4-J'attends 10 minutes
5-Je reprends à partir du 3-

**jmfmarques** · 10/04/2006, 11h32

Déjà : libères-toi de la base de données (fermes la après traitement et reprends du 2). Je continue à réfléchir ...

**Asdorve** · 10/04/2006, 11h34

le pb, c'est que si je ferme la base de données en faisant un rsADO.close
le contenu du datagrid disparait...

**jmfmarques** · 10/04/2006, 11h37

Ben !.... tu le récupères où tu veux après consultation... puis le reconstitues à nouveau 10 minutes plus tard !

Ce procédé te prendra moins de ressources que le maintien, en ouverture, de ta SGBD et des runtimes dont elle se sert !....

**Asdorve** · 10/04/2006, 11h38

Envoyé par jmfmarques

Ben !.... tu le récupères où tu veux après consultation...

je le récupère dans quoi par exemple?

**sovo** · 10/04/2006, 11h42

tient voila ce que je te propose.

il me semble que si tu ne ferme ni ta connexion a la BD, ni ton recordset alors ton datagrid sera automatiquement rafraichis (enfin tu n'aura plus a le faire toi meme), et tu aura en continu ton datagrid a mis a jour. Et je croit aussi que ca te prendrais moins de ressource.

[VB6] Ressources UC

VB 6 et antérieur

Discussions similaires

Partager

Partager