[R] ToolTip report du message

[JIF]

Bonjour, voila dans mon scripte j'ai mis un message tooltip en cas de bug du scripte. Mais le souci c'est que j'aimerais que ce message soit reporté dans le tooltip ?

Voici un scripte de test car le code entier de mon scripte fait plus de 5000 ligne.

Voici le code

Code : Tout sélectionner

Global $a = "1"
Global $b = ", 2"
Global $b = ", 3"

; a
If  ; objet a chercher. Then
    ; fonction a faire si l'objet est detecté
Else
    ToolTip( $??? ,0,0)
EndIf

; b
If  ; objet a chercher. Then
    ; fonction a faire si l'objet est detecté
Else
    ToolTip( $??? ,0,0)
EndIf   
    
; c
If  ; objet a chercher. Then
    ; fonction a faire si l'objet ets detecté
Else    
    ToolTip( $??? ,0,0)
EndIf

Merci de me répondre.

Imaginons par exemple que il y est un bug à ; a et à ;c. Mais pas a ; b. Comment faire pour que le tooltips n'affiche que 1, 3 ?

Cordialement JIF,

[Habibsbib]

Déja il faut changer la position de tes Tooltips, autrement ils vont se superposer au cas ou il aurait un bug et c'est ^pas le top. Ensuite, si tu fais plusieurs "If" comme tu l'a fait à la suite, ton script va comprendre que tout ça :

Code : Tout sélectionner

If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( $??? ,0,0)
; b
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( $??? ,0,0)
; c
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( $??? ,0,0)

...est lié, alors que d'après ce que 'jai compris, ce n'est pas le cas. Donc déja, il faut ajouter les EndIf ; je te propose cela :

Code : Tout sélectionner

Global $a = "1"
Global $b = ", 2"
Global $c = ", 3"
; a
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( "L'objet "&$a&"n'a pas été trouvé" ,0,0)
EndIf
; b
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( "L'objet "&$b&"n'a pas été trouvé" ,10,10)
EndIf
; c
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
ToolTip( "L'objet "&$c&"n'a pas été trouvé" ,20,20)
EndIf

... ca devrait marcher, sauf dans le cas ou tu as plus d'une centaine de variables (?), car tu ne l'as pas précisé en disant avoir un script de plus de 1000 lignes, donc il vadrait mieux que tu nous en informe.

En espèrant t'avoir aidé sûrement pas, mais bon..., @Habibsbib

PS: Au fait, enlève vite la coloration ou les modos vont t'alummer

[guitarist]

Et pourquoi ne pas faire ces tolltips pendant un laps de temps du style 5 sec?

[JIF]

Merci de vos réponse, mais ce n'est pas cela que je cherche a faire car en effet il y aura bien plus de 100 messages antit bug. Pour les EndIf en effets j'ai oublier de les mettre dans le scripte de test mais ils y sont bien dans le vrais scripte. Je ne peux pas passé par des sleep car je ne serai pas derrière l'encrant pour voir et sa ne fera que ralentir considérablement le scripte. Je pourrai passé par des détection d'image, mais sa prendrai une quantité de lignes faramineuse et rien que pour cela je passerai vite de 5 000 lignes a plus de 30 000 lignes.

Merci de me répondre pour trouver une solution.

Cordialement JIF,

[Habibsbib]

Quand même, ca paraît un peu étonnant un scritp de 1000 lignes de ce type ! Expose nous l'utilité de ce script, on pourra peut-être toruver un détournement au problème

[Tlem]

@JIF : Il y à plusieurs manière de prendre votre demande.

1 - Si je m'en réfère à votre texte, vous dites :

j'ai mis un message tooltip en cas de bug du scripte

Le problème, c'est que si le script bug, alors il n'affichera rien car il est planté ou il s'est terminé avec erreur.

2 - Si c'est pour recenser les codes qui n'ont pas été exécutés alors le mieux est d'utilisez une variable dans laquelle vous allez stocker les codes non exécutés ($Err = $Err & '1' ; pour signaler que le code de a; n'à pas été exécuté).
Ensuite deux choix :

• On affiche/rafraichit le Tooltip avec la valeur de la variable.
• On affiche le Tooltip après l'exécution des codes.

[JIF]

Merci de vos réponses, mais j'aimerais savoir comment faire pour utilisé le code que ma passé Thlem car ces cette solution qui me semble la plus envisagée ?

Code : Tout sélectionner

($Err = $Err & '1'

Pour répondre au question sur le bug de mon scripte, ce n'est en réalité pas mon scripte qui bug mais soit mon pc, soit internet. Il m'arrive pour je ne sais quelle raison que la page ne s'affiche pas correctement en moyen 1 foie toute les 3 heurs, mais le c'est assez aléatoire dé foie sa ne le fait que 6 heurs après ou alors 1 heurs après.

Pour le nombre faramineuse de ligne cela viens des anti-bugs. Si par exemple ma page internet a bugué alors mon scripte refait une grosse partie du code avec des If et des Else. Sachant que j'ai plus d'une vingtaine d'image et que l'anti-bug de l'image re-exécute au moins une foie le code de la page entière qui est de 300 ligne par page donc foie 2 avec l'anti-bugue, sa fait 600 ligne + (les 5 lignes que je vais rajouté pour mes tooltips) sachant que j'ai 20 images sa fai facile plus de 10 000 ligne de codes.

D'ailleurs hors sujet je serais comptent d'éviter a réécrire les 300 lignes de codes de l'antit bug avec une fonction qui re-exécute les lignes prétendante en cas de bugue, mais sa c'est encore un autres histoire.

Merci de me répondre.

Cordialement JIF,

[Tlem]

Un truc dans ce genre :

► Afficher le texte

Code : Tout sélectionner

Dim $Err = 0
; a
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
    _TipError(1)
EndIf
; b
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
    _TipError(2)
EndIf
; c
If  ; objet a chercher. Then
; fonction a faire si l'objet est détecté
Else
    _TipError(3)
EndIf

Func _TipError($iVal)
    $Err = $Err & ($iVal) & ','
    TrayTip ( "Erreur", "Objet(s) " & $iVal & "non trouvé(s)", 5)
EndFunc

[JIF]

Merci de ta réponsse Thlem. Cependant il semble avoir un problèmme que je ne comprend pas. Les TrayTips s'affiche corectemant en cas de bug, mais le problèmme c'est que lorsque par exemple je fais en sorte de faire les 3 bug de suiste pour voir si sa fonctionne, il m'affiche

Erreur, Objet(s) 1 non trouvé(s)
puis 5 secondes après
Erreur", "Objet(s) " 2 "non trouvé(s)
puis 5 secondes après
Erreur", "Objet(s) " 3 "non trouvé(s)

Mais il n'affiche pas par éxemple :

Erreur, Objet(s) 1 non trouvé(s)
puis 5 secondes après
Erreur", "Objet(s) " 1, 2 "non trouvé(s)
puis 5 secondes après
Erreur", "Objet(s) " 1, 2, 3 "non trouvé(s)

Voic mon code.

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <ImageSearch.au3>

$x = 0 
$y = 0

Dim $Err = 0
; a
Sleep(5000)
If _WaitForImageSearch("5.bmp",3,0,$x,$y,0) Then 
MouseMove(0,0)
Sleep(5000)
Else
_TipError(1)
Sleep(5000)
EndIf
; b
If _WaitForImageSearch("6.bmp",3,0,$x,$y,0) Then 
MouseMove(700,500)
Sleep(5000)
Else
_TipError(2)
Sleep(5000)
EndIf
; c
If _WaitForImageSearch("7.bmp",3,0,$x,$y,0) Then 
MouseMove(350,250)
Sleep(5000)
Else
_TipError(3)
Sleep(5000)
EndIf
Func _TipError($iVal)
$Err = $Err & ($iVal) & ','
TrayTip ( "Erreur", "Objet(s) " & $iVal & "non trouvé(s)", 5)
EndFunc

Commant faire pour remédier a ce problèmme.

Cordialemant JIF,

[Tlem]

Remplacez :

Code : Tout sélectionner

Dim $Err = 0

par

Code : Tout sélectionner

Dim $Err = ""

Code : Tout sélectionner

TrayTip("Erreur", "Objet(s) " & $iVal & "non trouvé(s)", 5)

par

Code : Tout sélectionner

TrayTip("Erreur", "Objet(s) " & $Err & " non trouvé(s)", 5)

[JIF]

Merci de ta réponsse Thlem. Le problèmme est résolut.

Cordialemant JIF,

[Tlem]

Mon pseudo c'est Tlem (sans le h) ou alors utilisez mon prénom qui est Thierry.

Merci

[JIF]

excusé moi pour cette erreur Thierry.
L'erreur ne devrai plus ce reproduire.

Cordialement JIF,