Tracer le déroulement d'une application

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 235 fois - Téléchargée 42 fois

Contenu du snippet

Permet de suivre le déroulement d'un programme.
Il suffit de disposer l'instruction aux endroits souhaités.
Une variable globale permet de déconnecter pour la version défénitive sans avoir
à oter les traces.

Bien utile !!!

Source / Exemple :


' création du fichier trace debug.txt
' qui permet suivre le déroulement d'un programme,  il suffit de mettre aux
' endroits voulus          Trace "==> " & "ce que tu veux" & "    " & Time  ' le N° de ligne, le  programme etc

' Inclure la Référence scrrun.dll (répert windows system
' si vous ne voulez pas corriger le code ensuite pour oter les trace, il suffit d'une variable 
' Globale G_Debug initialisée dans un fichier ini
' votre code sera if d_debug=true then Trace "Planre ligne 615 prog nomprog"

 Dim l_fso As New FileSystemObject
 ' pemet de démarrer avec un fichier debug propre
' le fichier sera créé automatiquement au premier appel de trace
      If (l_fso.FileExists(App.Path & "\debug.txt") = True) Then _
            l_fso.DeleteFile App.Path & "\debug.txt", True 

' Dans le programme
    '********************************
     If condition    Then  ' ou condition est le cas ou tu veux une trace 
        
           Trace "==> " & "ce que tu veux" & "    " & Time  ' le N° de ligne, le programme etc
     Endif
' ou

à l'endroit souhaité
  Trace "==> " & "ce que tu veux" & "    " & Time  ' le N° de ligne, le programme etc

Public Sub trace(p_strPhrase As String)
On Error GoTo Erreur
    Dim fichier1 As Integer
    fichier1 = FreeFile
    Open App.Path & "\debug.txt" For Append As #fichier1
    Print #fichier1, p_strPhrase
    Close #fichier1
    Exit Sub

Erreur:
    MsgBox err.Description & " : " & err.Number
End Sub

A voir également

Ajouter un commentaire Commentaire
Messages postés
78
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
7 septembre 2006

Alternative : utilisez l'instruction Debug.Print qui affiche ce que vous voulez dans la fenêtre "immédiate"

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.