home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / fr / yrtrace / yr31.byr < prev    next >
Text File  |  1995-04-26  |  3KB  |  62 lines
  1. REM =================== YRTRACE3.1 =============================
  2. SHOWWINDOW HWINDOW,SWMINIMIZE
  3. YRCLEARLIST
  4. PRINT "Bonjour, bienvenu dans YRTRACE 3.1":"Un tour dans YRTRACE v3.1"
  5. 5 CHOICE A:"PrΘsentation,Modifications,NouveautΘs,Limites,Quitter":"Votre choix"
  6. IF A=0 THEN GOSUB 1000
  7. IF A=1 THEN GOSUB 1010
  8. IF A=2 THEN GOSUB 1020
  9. IF A=3 THEN GOSUB 1030
  10. IF A=4 THEN END
  11. GOTO 5
  12. END
  13. 1000 REM ---------------- PrΘsentation ------------------------
  14. E$="YRTRACE traque les messages de Windows et les affiche dans une liste..."
  15. PRINT E$:"PrΘsentation"
  16. SHOWWINDOW HWINDOW,SWRESTORE
  17. MULTITASK ON
  18. FOR I=1 TO 100
  19. NEXT
  20. YRADDLINE "c'est dans cette liste"
  21. FOR I=1 TO 100
  22. NEXT
  23. YRADDLINE "que viennent s'ajouter les messages de Windows"
  24. FOR I=1 TO 100
  25. NEXT
  26. YRADDLINE "selon les options et si la capture est activΘe (voir boutons du haut )."
  27. FOR I=1 TO 70
  28. YRRUN ON
  29. YRRUN OFF
  30. NEXT
  31. SHOWWINDOW HWINDOW,SWMINIMIZE
  32. PRINT "YRTRACE traque Θgalement des erreurs qui se produisent dans une application":"PrΘsentation"
  33. PRINT "YRTRACE contient un macro langage proche du BASIC...":"PrΘsentation"
  34. MULTITASK OFF
  35. E=EXECPROG("NOTEPAD.EXE YR31.BYR")
  36. W=GETACTIVEWIN
  37. PRINT "Ceci est une macro en YRBASIC":"PrΘsentation"
  38. POSTMESSAGE W,RETURNMSGNUM("WM_QUIT"),0,0
  39. PRINT "Les macros peuvent Ωtre associΘes α un message de Windows":"PrΘsentation"
  40. PRINT "Nous vous laissons dΘcouvrir le reste" 
  41. RETURN
  42. 1010 REM ---------------- Modifications -----------------------
  43. PRINT "La taille du logiciel est considΘrablement rΘduite.":"Modification"
  44. PRINT "La prΘsentation est simplifiΘe pour encombrer moins l'Θcran.":"Modification"
  45. PRINT "<SΘlection d'une application> fonctionne correctement.":"Modifications: Bogue supprimΘ"
  46. PRINT "Il n'y a plus d'apparition intempestive de <Pointer une fenΩtre>.":"Modification: Bogue supprimΘ"
  47. RETURN
  48. 1020 REM --------------- NouveautΘs ---------------------------
  49. CHOICE B:"Edition d'une macro,Lien avec vos logiciels,DLLs,Messages,Retour":"NouveautΘs"
  50. IF B=0 THEN PRINT "Une option permet maintenant d'Θditer une macro α partir du bloc-notes.":"NouveautΘ"
  51. IF B=1 THEN PRINT "Via une DLL, vos logiciels peuvent se servir de YRTRACE":"NouveautΘ"
  52. IF B=1 THEN PRINT "Aussi, vous pouvez suivre le dΘroulement de vos logiciels.":NouveautΘ"
  53. IF B=2 THEN PRINT "YRTRACE permet de supprimer une DLL de la mΘmoire":"NouveautΘ"
  54. IF B=3 THEN PRINT "YRTRACE traite maintenant les messages multimΘdia.":"NouveautΘ"
  55. IF B=4 RETURN
  56. GOTO 1020
  57. 1030 REM ------------------ Limites ---------------------------
  58. PRINT "Malheureusement, malgrΘ la gratuitΘ, nous avons obtenu trΦs peu d'enregistrements...":"Limites"
  59. PRINT "Aussi, les nouvelles fonctions sont lΘgΦrement bridΘes...":"Limites" 
  60. PRINT "Enregistrez YRTRACE si vous l'utilisez vraiment...":"Limites"
  61. RETURN
  62.