Aide au débogage d'application une fois compilé


Télécharger le projet
Commenter

Description

Bonjour a tous

Voici un petit logiciel pour aider le débogage d'une application une fois le fichier exe créé

Comment ça marche ?

Le logiciel debugform récupère les messages (méthode SendMessage 'handle du textbox de debugform', WM_SETTEXT, 0, ByVal 'message' )que l'on vient d'insérer dans le code du programme et les affiches.

Pour inclure les messages dans le programme :

-Ajouter le module de classe 'debugclass.cls'
-Ajouter la ligne dans la déclaration de la feuille :
Dim cdebug as New debugclass
-Ajouter le message a l'endroit voulu :
cdebug.nomapplication -> nom de l'application
cdebug.printtext « mon message » -> envoie le message
cdebug.cleartexte -> efface les messages
cdebug.couleur -> choix de la couleur (noir,rouge ou bleu)
cdebug.gras-> texte en gras true ou false

Une fois le logiciel compilé lancer le logiciel 'debugform.exe' et lancer le logiciel compilé.
-il est possible de lancer plusieurs applications a la fois.

Attention!
-compilez l'executable debugform.exe dans le dossier 'Fichier source debugform' pour avoir le fichier debugform.exe!
-le logiciel inscrit une valeur dans la base de registre et l'efface un fois le logiciel clôturé.

Source / Exemple : 


VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "test débogage"
   ClientHeight    =   5550
   ClientLeft      =   2865
   ClientTop       =   5685
   ClientWidth     =   6555
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5550
   ScaleWidth      =   6555
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   1335
      Top             =   2085
   End
   Begin VB.CommandButton Command1 
      Caption         =   "lancer le timer"
      Height          =   465
      Left            =   4035
      TabIndex        =   0
      Top             =   1155
      Width           =   1365
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cdebug As New debugclass
Private Sub Command1_Click()
cdebug.cleartexte
cdebug.couleur = cnoir
cdebug.gras = False
cdebug.printtext "Appuie sur lancer le timer"
cdebug.couleur = cbleu
cdebug.gras = True
cdebug.printtext "je lance le timer"
End Sub

Private Sub Timer1_Timer()
cdebug.printtext "Sub timer1_timer"
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (t3t3)