Crash application sans message erreur.

Version imprimable

Voir 40 message(s) de cette discussion en une page

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 ^^

Voir 40 message(s) de cette discussion en une page