Discussion :

[hirochirak]

Bonjour à tous !

Je développe en VB6 des tableaux de bords qui permettent de générer des documents Excel, PowerPoint ...

Lorsque je manipule Powerpoint il arrive de temps en temps qu'un message d'erreur apparaisse disant "Serveur Occupé".

Un collègue à développer une petite application qui toutes les 5 minutes vérifie si une fenetre "Serveur Occupé" est apparu est force sa fermeture (Validation du bouton "Réessayer")

Le probleme vient du fait qu'on utilise un timer dans un boucle While et j'ai l'impression que le fait d'etre dans un boucle While le processeur est occupé à 100% pendant les 5 minutes d'attente.

J'aimerais donc savoir si il existe une possibilité de générer une boucle infinie, qui effectue une action simple à intervalle régulier et ce sans "bouffer" toutes les ressources du processeur.

Nous avons essayer d'utiliser un timer, d'utiliser la fonction sleep mais dans tous les cas le processeur de la machine tourne à 100% ce qui affecte énormément le processus principal de génération du tableau de bord.

J'espere avoir reussi a exposer mon probleme convenablement

Merci d'avance de vos réponses

@+

Hirochirak

[ouskel'n'or]

Tiens, avec timer l'UC n'est occupée que ponctuellement et "qu'à" 40%
Tu peux essayer... (tu modifies, tu n'auras pas "Application" c'est du VBA)

Code :

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

1
2
3
4
5
6
7
 
Sub JeFaisTourner()
    'Relance la pendule (mise à jour de OnTime) toutes les 10 secondes
    For i = 1 To 50: Beep: Next
    Application.OnTime Now + TimeValue("00:00:10"), "JeFaisTourner"
 
End Sub

pour l'arrêter, tu supprimes la macro !

A+

[ThierryAIM]

ousk, ca, c'est du VBA, non compatible avec VB6, l'objet du post

[ouskel'n'or]

(tu modifies, tu n'auras pas "Application" c'est du VBA)

C'était pour l'idée, pas pour le code Salut Thierry, tu nous es revenu ?

[hirochirak]

OK !!!

En fait j'ai deja essayer avec un timer et ca bouffe vraiment enormement de temps processeur.

Mon probleme vient du fait que pour générer mes tableauxde bord j'utilise une fonction qui analyse des onglets Excel de données brutes.

Or pour effectuer l'analyse il est necessaire de parcourir chaque ligne de données.

C'est tout de meme bizarre, le fait de faire un sleep ou d'utiliser un timer a l'air de bloquer l'application de tableau de bord.

@+

Hirochirak

[hirochirak]

Pour faire un réup et après avior réfléchi au probleme j'ai une idée mais je sais pas si c'est possible.

Est il possible d'écrire un processus dormant c'est à dire garder un processus qui sommeil et qui se réveille à un interval de temps qu'on définie.

Le but serait que le processus soit lancer dans la liste des taches mais qu'il n'est aucune ou une très faible incidence sur les performances.

Ensuite via un timer ou tout autre solution, le processus se reveille effectue son action et se rendort.

Je ne suis pas un spécialiste de ce genre de probleme donc je me permets de vous appeler au secours

Merci d'avance de vos réponses

@+

Hirochirak

[ThierryAIM]

Dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function SetTimer Lib "user32" _
    (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _   ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
    (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim rep As Integer
    rep = MsgBox("Interrompre la tache" & TimerID & " ? ", vbYesNo)
    If rep = vbYes Then
        Unload Form1
    End If
End Sub

Dans une form :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
    SetTimer Me.hwnd, 1, 5000, AddressOf TimerProc
    Me.Hide
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    KillTimer Me.hwnd, 1
End Sub

en espérant que cela réponde à ton attente

[hirochirak]

Et bien la réponse était plus simple (désolé d'etre une bille)

En fait la pause dans le programme ne se lancer que dans certain cas alors qu'elle doit se faire a chaque boucle.

Probleme resolu en deplacant la fonction sleep

Merci bcp de vos réponses je pense que j'ai encore des choses a tester pour ameliorer le processus.

@+

Hirochirak