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