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

Soyez le premier à donner votre avis sur cette source.

Vue 4 019 fois - Téléchargée 636 fois


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

NHenry
Messages postés
14591
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 novembre 2019
137 -
Bonjour,

Serait-il possible d'avoir le code source de l’exécutable "executable debugform.zip" aussi ?
Car là est tout l'intérêt de la chose.

Peux-tu donner des détails techniques sur la méthode utilisée pour communiquer entre les 2 applications ?
Est-ce que ton système gère plusieurs applications en même temps ?
cs_Nectar108
Messages postés
16
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
22 avril 2013
-
C'est une application géniale ! Les images des boutons "Effacer" et "premierplan" n'apparaissent pas au chargement de la feuille, mais seulement lors du premier "clic" sur les boutons. Il est possible que ce soit mon système équipé avec Seven !
Je ne suis pas sûr que la totalité du code soit vraiment nécessaire, mais ce n'est ni un reproche, ni une critique, seulement un commentaire ; comme d'habitude, chacun a loisir d'adapter le code a ses propres besoins !
Merci pour cette source, plutôt utile et intéressante selon moi.
Renfield avait développé quelque chose d'approchant avec une source appelée "Pilotage d'applications", il me semble. Cette source plutôt bien faite, n'a pu être utilisée par mes soins, car nécessitant l'aide d'un logiciel annexe (WinInspector, je crois), que je n'ai pu trouvé facilement. Dommage !!

J'ignore si vous êtes devenu un expert dans l'utilisation de "SendMessage" ou de passages de paramètres entre applications, mais si tel est le cas, je vous encourage à poster, c'est super utile !
Travail superbe, merci encore !!!

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.