Crash application sans message erreur.

Version imprimable

Bonjour à tous, ;)
Voilà j'ai un petit problème dans mon application, en mode Debug mon appli se ferme comme une brute, et je reviens sous visual studio, sans même un message d'erreur...

Fonctionnement de mon appli : je lance un processus "Ansur.exe", qui exécute un test électrique. Je surveille la fermeture de ce processus. Dès lors qu'il est terminé, je lance la fonction "Fermeture". Je lis alors un fichier texte résultant du contrôle électrique créé précédemment via Ansur.
Si j'ai 15 fois le mot "..... Test Passed", j'affiche ma PictureBox24. Sinon, c'est que le test à échoué et j'affiche ma PictureBox23.
Également, je passe ma ToolStripProgressBar2 à 100%, et marque "Terminé" en ToolStripStatusLabel3.

Et c'est pile à ce moment là que mon appli plante... :roll:

Voici un extrait de mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
 StrCommandLine = FILE_ANSUR + " /r " + FILE_RESULT + FILE_JOBORDER + " /h"
            Call Shell(StrCommandLine, 1)
 
 
 
        Catch ex As Exception
 
            'Code exécuté en cas d'exception
            MsgBox("Erreur")
 
        End Try
 
        'Controle fermeture processus ansur.exe
 
        Dim p As Process = Process.GetProcessesByName("ansur")(0)
        AddHandler p.Exited, AddressOf Fermeture
        p.EnableRaisingEvents = True
 
        Me.ToolStripProgressBar2.Value = 90
        Me.ToolStripStatusLabel3.Text = "Contôle du résultat de test..."
 
 
    End Sub
 
 
    Private Sub Fermeture(ByVal sender As Object, ByVal e As EventArgs)
 
        Dim num As Integer = 0
        Dim FichierALire As String
        Dim i As Integer = 0
        FichierALire = FILE_RESULT & dossiertable & ".mtr"
        Try
            Dim sr As StreamReader = New StreamReader(FichierALire, System.Text.Encoding.Default)
            Dim ligne As String
            '--- Traitement du fichier ligne par ligne
            While Not sr.EndOfStream()
                ligne = sr.ReadLine()
 
                If ligne = "                     <Status>Passed</Status>" Then
                    i = (i + 1)
                End If
 
            End While
            '--- Referme StreamReader
            sr.Close()
 
            If i = 14 Then
                'MsgBox("Test passé !")
                num = 1
            Else
                'MsgBox("Test échoué !")
                num = 2
            End If
 
        Catch ex As Exception
            'traitement de l'exception sinon :
            Throw ex
        End Try
        Call resultattest(num)
 
    End Sub
 
    Private Sub resultattest(ByVal num As Integer)
 
        'MsgBox(num)
        Me.ToolStripProgressBar2.Value = 100
        Me.ToolStripStatusLabel3.Text = "Terminé."
        If num = 1 Then
            Me.PictureBox24.Visible = True
        Else
            Me.PictureBox23.Visible = True
        End If
 
    End Sub

Quelqu'un aurait-il une idée ? Merci pour votre aide ! :ccool:

Bonjour,

Remplacez :
Code:

1 2 3 4 5 6 Catch ex As Exception 'traitement de l'exception sinon : Throw ex End Try Call resultattest(num)
Par :
Code:

1 2 3 4 5 6 Catch ex As Exception MessageBox.Show(ex.Message) Finally Call resultattest(num) End Try
Vous n'auriez pas appelé la fermeture du formulaire quelque part défois ?:mrgreen:

19/04/2013, 13h40
botbot

Bonjour Rainui et merci pour votre réponse, en quoi consiste exactement le "Throw ex" ?

J'ai remplacé le code, et rien n'y fait, ça crash toujours... :cry:

D'autant plus j'ai 2 userform qui se ferment, j'en aurait qu'un, ok mais là j'en ai deux... ^^

merci
19/04/2013, 13h42
Pol63

qu'est-ce qui te fait dire que c'est un crash vu qu'il n'y a pas de message d'erreur ?

@rainui, à voir si le code que tu proposes correspond à ce qu'il veut faire, je pense qu'en cas d'erreur il veut throw sinon (et seulement sinon) afficher les résultats

par contre ta sub fermeture est appelée par un évènement donc par une classe du framework, donc y mettre un throw n'est pas une bonne idée, ca va remonter l'erreur dans le framework
thrower est utile si quelqu'un de plus bas niveau appelle, pas l'inverse
19/04/2013, 13h44
Pol63

Citation:

Envoyé par botbot

en quoi consiste exactement le "Throw ex" ?

vous tapez du code dont vous ne comprenez pas le sens !?
19/04/2013, 13h57
botbot
Citation:

Envoyé par Pol63

qu'est-ce qui te fait dire que c'est un crash vu qu'il n'y a pas de message d'erreur ?

Et bien mon programme qui le mode debug subitement dès lors que je veux changer la valeur de ma progressbar, alors que (je ne pense pas) lui avoir demandé...

@rainui, à voir si le code que tu proposes correspond à ce qu'il veut faire, je pense qu'en cas d'erreur il veut throw sinon (et seulement sinon) afficher les résultats

Citation:

Envoyé par Pol63

par contre ta sub fermeture est appelée par un évènement donc par une classe du framework, donc y mettre un throw n'est pas une bonne idée, ca va remonter l'erreur dans le framework
thrower est utile si quelqu'un de plus bas niveau appelle, pas l'inverse

Là je suis un peu perdu... Je vais me renseigner sur l'utilité du throw...quoi qu'il en soit, j'ai rectifié le code par :
Code:

1 2 3 4 5 6 Catch ex As Exception MessageBox.Show(ex.Message) Finally Call resultattest(num) End Try
J'ai fait un essai lorsque je lance mon programme directement à partir du .exe de la version Release. Surpise : ma progressbar prend bien la valeur 100% et le status label "Terminé."
En revanche curseur sablier et plantage infini, à mon avis au moment ou il veut afficher ma picturebox...
19/04/2013, 13h59
botbot

Citation:

Envoyé par Pol63

vous tapez du code dont vous ne comprenez pas le sens !?

En effet j'ai plus l'habitude du :

Try
Catch...
End try

Pourquoi j'étais parti sur du trhow, bonne question, j'ai surement du faire un copié coller d'un code existant que j'ai adapté sans trop chercher à comprendre... :oops:
19/04/2013, 14h04
Pol63

mettez un point d'arret sur la sub resultattest pour voir ce qui se passe en mode debug en pas à pas

si num ne peut avoir que 2 valeurs et sert à exprimer une réussite, pourquoi ne pas utiliser Reussite As Boolean, ca serait tellement plus clair ...

après qu'une appli se ferme ca ne veut pas forcément dire qu'il y a un crash, ca peut être un fermeture normale qu'on a fait en pensant écrire autre chose, par contre dans votre cas ca semble plus que probable vu que ca freeze en release
19/04/2013, 14h04
Rainui
Bonjour,

Si vous fermez le formulaire de démarrage et que votre application est réglée pour se fermer sur la fermeture de ce formulaire, l'application se fermera même si d'autres formulaires sont ouverts.

Pour éviter cela, dans les propriétés de l'application, allez sur l'onglet Application et changez le mode d'arret.

@Pol63 : une simple intuition en voyant :
Code:

1 2 3 4 5 6 7 Catch ex As Exception 'Code exécuté en cas d'exception MsgBox("Erreur") End Try
:lol:

EDIT: Vous pourriez taper moins vite, je n'ai pas le temps de répondre :mrgreen:

sinon c'est gentil de taper plein de code, mais quand on peut faire plus court c'est en général plus lisible (ca dépend des cas)

7x moins de lignes de code et le même résultat :
Code:

1 2 3 4 5 6 7 Private Sub Fermeture (ByVal sender As Object, ByVal e As EventArgs) dim lignesFichier() as string = system.io.file.readalllines(FILE_RESULT & dossiertable & ".mtr") Dim Reussite as Boolean = ((from l in lignesFichier where l <> " <Status>Passed</Status>" select 1).count = 0) resultattest(Reussite) End Sub
ca dépend aussi du niveau de l'expérience qu'on a, au début on arrive pas forcément à lire ca, auquel cas il suffit de décomposer, mais en gardant le principe
parfois rajouter des lignes ca reste quand même plus explicite aussi (du moins si on utilise des noms de variable qui ont plus de sens que num ou picturebox24)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Fermeture (ByVal sender As Object, ByVal e As EventArgs) dim lignesFichier() as string = system.io.file.readalllines(FILE_RESULT & dossiertable & ".mtr") dim lignesErreur = (from l in lignesFichier where l <> " <Status>Passed</Status>" select l) ' linq permet de faire l'équivalent d'une boucle ' ici on charge dans la variable les lignes du fichier qui sont différentes de ce qu'on l'on cherche Dim Reussite as Boolean = (lignesErreur.count = 0) ' un booléen peut se définir par une équation resultattest(Reussite) End Sub
du code en moins ca fait ca de moins à taper, ca de moins à lire pour débugger etc...

un cours au cas où : http://plasserre.developpez.com/

19/04/2013, 14h13
Pol63

Citation:

Envoyé par Rainui

EDIT: Vous pourriez taper moins vite, je n'ai pas le temps de répondre :mrgreen:

Et encore j'ai eu des soucis de piles du clavier ^^
19/04/2013, 17h09
botbot

Citation:

Envoyé par Rainui

Bonjour,

Si vous fermez le formulaire de démarrage et que votre application est réglée pour se fermer sur la fermeture de ce formulaire, l'application se fermera même si d'autres formulaires sont ouverts.

Pour éviter cela, dans les propriétés de l'application, allez sur l'onglet Application et changez le mode d'arret.

Mon problème en question est sur le form1, mon form de démarrage/fermeture est le form2.
J'ai essayé de changer cette propriété de fermeture en la passant à " A la fermeture du dernier formulaire", pareil... :(
19/04/2013, 17h35
Rainui

Bonjour,
C'est ce que j'ai compris en lisant une de vos réponses à Pol63.
Du coup mon post est obsolète :lol:

Que donne le point d'arret sur la procédure "resultattest()"?

Citation:
Envoyé par Pol63
sinon c'est gentil de taper plein de code, mais quand on peut faire plus court c'est en général plus lisible (ca dépend des cas)

7x moins de lignes de code et le même résultat :
Code:

1 2 3 4 5 6 7 Private Sub Fermeture (ByVal sender As Object, ByVal e As EventArgs) dim lignesFichier() as string = system.io.file.readalllines(FILE_RESULT & dossiertable & ".mtr") Dim Reussite as Boolean = ((from l in lignesFichier where l <> " <Status>Passed</Status>" select 1).count = 0) resultattest(Reussite) End Sub
ca dépend aussi du niveau de l'expérience qu'on a, au début on arrive pas forcément à lire ca, auquel cas il suffit de décomposer, mais en gardant le principe
parfois rajouter des lignes ca reste quand même plus explicite aussi (du moins si on utilise des noms de variable qui ont plus de sens que num ou picturebox24)
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Fermeture (ByVal sender As Object, ByVal e As EventArgs) dim lignesFichier() as string = system.io.file.readalllines(FILE_RESULT & dossiertable & ".mtr") dim lignesErreur = (from l in lignesFichier where l <> " <Status>Passed</Status>" select l) ' linq permet de faire l'équivalent d'une boucle ' ici on charge dans la variable les lignes du fichier qui sont différentes de ce qu'on l'on cherche Dim Reussite as Boolean = (lignesErreur.count = 0) ' un booléen peut se définir par une équation resultattest(Reussite) End Sub
du code en moins ca fait ca de moins à taper, ca de moins à lire pour débugger etc...

un cours au cas où : http://plasserre.developpez.com/
Au départ aussi j'avais tenté une variable Boolean, mais ne fonctionnant pas j'ai essayé de passer via une autre fonction... Clair que du coup le code est moins visible...

Le jour ou j'aurais l'expérience pour coder en si peu de lignes... ça fait rêver :mouarf:

J'ai donc remplacé par ton code, hélas j'ai toujours ce "plantage".

Avec le point d'arrêt en debug et mdoe pas à pas, il ferme tout quand il est sur cette ligne en rouge :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public Sub resultattest(ByVal num As Integer) 'MsgBox(num) Me.ToolStripProgressBar2.Value = 100 Me.ToolStripStatusLabel3.Text = "Terminé." If num = 1 Then Me.PictureBox24.Visible = True Else Me.PictureBox23.Visible = True End If End Sub
Je ne vois vraiment pas en quoi cette ligne peut faire fermer mes userform... 8O

Je n'ai jamais étudié de programmation, j'ai commencé à bidouiller avec le VBA d'Excel, maintenant je développe (enfin j'essaye, et j'en voit le bout ! :mouarf: ) un logiciel de contrôle d'un banc de test pour éclairage, qui pilote un testeur de sécurité électrique, un boitier de contrôle qui pilote l'éclairage à tester sans fil, et un luxmètre, des relais et alims 220v le tout avec des ports COM et USB. Et c'est cette dernière fonction qui parait anodine qui me pète les **** :D

essaye ca :

Code:

1
2
3
4
5
6
7
Public Sub resultattest(ByVal num As Integer)
    If Me.InvokeRequired Then
       MsgBox ("C'est ca le problème, je vais tout de suite le confirmer sur le forum")
    Else
       MsgBox ("Ca vient pas de là ...")
    End If
' ...

19/04/2013, 18h25
botbot

C'est ca le problème, je vais tout de suite le confirmer sur le forum :mrgreen:

Il faut donc "invoquer" la fonction ? J'avais déjà vu ça quelque part, mais à quoi celà sert il exactement ?

seul le thread principal a le droit de modifier l'interface graphique
et donc le process.exited est sur un autre thread
i faut donc dire au thread principal d'exécuter le code

un truc dans le genre :
Code:

1 2 3 4 5 6 7 Public Sub resultattest(ByVal num As Integer) If Me.InvokeRequired Then me.invoke(new action(of integer)(addressof resultattest),num) exit sub end if ' ton code

Bonjour,

Citation:

Envoyé par Pol63

sinon c'est gentil de taper plein de code, mais quand on peut faire plus court c'est en général plus lisible (ca dépend des cas)

7x moins de lignes de code et le même résultat :

Code:

1
2
3
4
5
6
7
Private Sub Fermeture (ByVal sender As Object, ByVal e As EventArgs)
  dim lignesFichier() as string = system.io.file.readalllines(FILE_RESULT & dossiertable & ".mtr")
 
  Dim Reussite as Boolean = ((from l in lignesFichier where l <> " <Status>Passed</Status>" select 1).count = 0)
 
  resultattest(Reussite)
End Sub

Encore plus compact ;)

Code:

1
2
3
    Private Sub Fermeture(ByVal sender As Object, ByVal e As EventArgs)
        resultattest((From ligne In System.IO.File.ReadAllLines(FILE_RESULT & dossiertable & ".mtr") Where ligne <> " <Status>Passed</Status>" Select 1).count = 0)
    End Sub

:dehors:

19/04/2013, 21h04
botbot

Merci Pol63 ça fonctionne impeccable avec le me.invoke ! :mrgreen:

Merci pour le code rv26tn je vais tester cela...

Bonne soirée à vous :ccool:
19/04/2013, 21h24
Pol63

Citation:

Envoyé par rv26t

Encore plus compact ;)

lol

on doit pouvoir aller encore plus loin si on a le droit de mettre une méthode anonyme dans le addhandler ^^

Ensuite, si l'on a souvent besoin de faire ce genre de recherche dans le programme, on construit de petites fonctions.

Recherche d'une ligne présente un certain nombre de fois dans un fichier texte.
Code:

1 2 3 Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurrence As Integer) As Boolean Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurrence) End Function
A+, Hervé.

19/04/2013, 22h22
Pol63

ton post encore plus court et encore plus beau a disparu

sinon là j'aurais bien vu un if nboccurrence = 1 then (...).firstordefault isnot nothing qui doit être plus performant

et en effet un conseil pour les débutants, si vous avez plusieurs fois (donc au moins 2) le même code ou à peu près le même code à quelques mots ou paramètres près c'est qu'il y a moyen de factoriser
20/04/2013, 00h01
rv26t
Il n'était pas plus court et plus beau mais différent. (je l'ai vu juste après l'avoir envoyé, désolé)

Il ne prenait pas en compte le nombre d'occurrences.
Il permettait simplement de savoir si une ligne existait dans un fichier.
Code:

1 2 3 Function ContientLigne(ByVal Fichier As String, ByVal LigneCherchee As String) As Boolean Return (System.IO.File.ReadAllLines(Fichier).Contains(LigneCherchee)) End Function
Il n'a pas beaucoup d'intérêt, on gagne peu de code, peu de lisibilité, et l'autre code donne la même solution en donnant 1 pour le nombre d'occurrence. (qui peut le plus peu le moins)

Par contre contains a l'air est légèrement plus performant que la sélection linq. Certainement parsequ'il interrompt la recherche dès la 1ére occurrence trouvée.
il pourrait s'écrire
Code:

1 2 3 Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String) As Boolean Return (System.IO.File.ReadAllLines(Fichier).Contains(LigneCherchee)) End Function
Pour utiliser la surcharge et ainsi optimiser la recherche. (mais sur un petit fichier l'impact est négligeable)

Citation:

Envoyé par botbot

...

Merci pour le code rv26tn je vais tester cela...

...

De rien

Pour résumé ton code peut s'écrire

Code:

1
2
3
4
5
6
7
8
9
    Private Sub Fermeture(ByVal sender As Object, ByVal e As EventArgs)
        Me.ToolStripProgressBar2.Value = 100
        Me.ToolStripStatusLabel3.Text = "Terminé."
        Me.PictureBox24.Visible = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
    End Sub
 
    Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurence As Integer) As Boolean
        Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurence)
    End Function

Bonjour à tous, si je ne m'abuse rv26t étant donné que je n'ai plus le "Me.invoke..." j'ai le même bug qu'auparavant.

Du coup, j'ai fait un mix : :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 Private Sub fermeture()
 
        Dim testreussi As Boolean = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
        resultattest(testreussi)
    End Sub
 
   Function ChercheLignes(ByVal Fichier As String, ByVal LigneCherchee As String, ByVal NbOccurence As Integer) As Boolean
        Return ((From ligne In System.IO.File.ReadAllLines(Fichier) Where ligne = LigneCherchee Select 1).Count = NbOccurence)
    End Function
 
 
    Public Sub resultattest(ByVal resultat As Boolean)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of Boolean)(AddressOf resultattest), resultat)
            Exit Sub
        End If
        'MsgBox(num)
        Me.ToolStripProgressBar2.Value = 100
        Me.ToolStripStatusLabel3.Text = "Terminé."
        If resultat = True Then
            Me.PictureBox24.Visible = True
            Me.PictureBox23.Visible = False
        Else
            Me.PictureBox23.Visible = True
            Me.PictureBox24.Visible = False
        End If
    End Sub

Si je vous montrait tout mon projet je suis sur que je passerai de 7500 lignes à 1500 :mouarf:

20/04/2013, 12h06
rv26t

Citation:

Envoyé par botbot

Bonjour à tous, si je ne m'abuse rv26t étant donné que je n'ai plus le "Me.invoke..." j'ai le même bug qu'auparavant.

Du coup, j'ai fait un mix : :mrgreen:

Effectivement je ne m'étais basé que sur ton code de départ pour tester (raccourcir le code). ;)

Je pense que ton nouveau code avec la correction doit pouvoir s'écrire

Code:

1
2
3
4
5
6
7
8
9
10
    Private Sub fermeture()
        If Me.InvokeRequired Then
            Me.Invoke(New Action(AddressOf fermeture))
        Else
            Me.ToolStripProgressBar2.Value = 100
            Me.ToolStripStatusLabel3.Text = "Terminé."
            Me.PictureBox24.Visible = ChercheLignes(FILE_RESULT & dossiertable & ".mtr", "                     <Status>Passed</Status>", 14) ' présence de 14 lignes "Passed" => picture visible
            Me.PictureBox23.Visible = Not Me.PictureBox24.Visible ' la visibilité de PictureBox23 doit être l'inverse de PictureBox24
        End If
    End Sub

A tester. ;)

Penser à marquer le sujet en :resolu: