Discussion :

[Gabi]

Bonjour, bonsoir,
je n'ai jamais pris le temps de me pencher sur un problème de ralentissement dans certains programmes jusqu'à aujourd'hui. Je viens de faire un petit test et j'obtiens un ralentissement de la boucle for avec cette configuration:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 for compt:=1 to (10-Vitesse_du_prog) do
 begin
     if keypressed then
     begin
        .....
     end;
     delay(Tempo_Clavier);
 end;

Je n'ai pas mesuré mais avec un Tempo_Clavier de 20 ms par ex, la boucle se fait mettons 100 fois toutes les 20ms et devient 3 ou 4 fois plus lente ensuite... ... jusqu'à ce qu'une touche soit pressée.

C'est comme si après 100 appels à keypressed sans touche dans le tampon du clavier, keypressed disait "Bon y'en a marre, t'arrête pas de me faire aller voir le tampon alors qu'il est toujours vide, maintenant je vais boire un café à chaque fois avant d'y aller".

Quelqu'un a déjà vu ça ?
Ou a une explication (logique) ?
Ça se guérit ?

Merci d'avance
Gabi

[DUGUERPF]

Je me sers pas mal de keypressed mais je n'ai jamais noté cet effet. En même temps, il est toujours dans des boucles plutôt du style
repeat...until keypressed (écrit différemment, mais l'idée est toujours celle-ci).

En revanche, pour delay, je sais qu'il est particulièrement instable, fonction de la puissance de la puce, mais aussi de sa bonne volonté. Ainsi, j'ai du créer pour les messages ou même pour la souri deux constantes delai_souris et delai_message, qui permettent dans les options à l'utilisateur de régler ce paramètre afin que delay soit confortable pour lui.

Je note quand même qu'il arrive que le programme ralentisse à l'excès (genre multipliant par deux ou trois la constante delai_message), ou totalement à l'inverse, ne tient pas compte du tout de cette constante, mettant des affichages avec des "delay" proches de 0.

Question complémentaire donc : est-ce keypressed qui dérape ou delay ? pour ma part, je réponds "delay", pas par connaissance, mais par empirisme.

[Gabi]

J'ai utilisé cette structure pour permettre à la variable "Vitesse_du_prog" de gérer la vitesse générale du jeu (c'est pour un tetris). Y'a peut être mieux, avis aux amateurs.

Histoire de compléter les expériences, il m'est arrivé aussi que le programme s'emballe (comme une delay=0 en effet), mais pas depuis quelques temps. Je me souviens que quand ça arrivait, en revenant sous l'EDI, le curseur du clavier bougeait aussi très vite et je pouvais faire défiler les pages de code à une vitesse folle (j'ai un tp7 instable ).

Un début de solution pour le keypressed serait d'ajouter "artificiellement" une touche dans le tampon clavier si aucune touche n'est pressée pendant un certain temps. Mais même si c'est possible, ça ne me plaît pas trop, c'est trop du bidouillage.

Et dire que j'étais juste parti pour ajouter un menu au jeu et il a fallu que je me rende compte de ce pb . Et le plus agaçant, c'est qu'il y aurait une autre solution, c'est d'utiliser Sclavier (unité de Haypo). Mais zut, moi je voulais changer le menu, C'EST TOUT !

Alors j'attends encore 3-4 jours et si rien ne vient me consoler, je vais chasser les mouches au bazooka.

Sur ce, passez quand même une bonne journée

[Alcatîz]

Bonjour,

Pour pouvoir reproduire le problème, pourrais-tu donner plus de précisions :

• Sur quel système exécutes-tu ton programme ?
• Eventuellement, sur quel émulateur ?
• S'il s'agit d'une console Windows, est-ce en plein écran ou en mode fenêtré ?
• L'exécutes-tu depuis l'interface de TP ou bien indépendamment ?

[Gabi]

Hello,

je suis sur XP et j'exécute TP7 en mode plein écran. Mais je pense que ca revient au même lors de l'exécution du programme, non? Puisqu'il se met en plein écran. Je lance toujours le prog depuis l'EDI (Ctrl + F9).
Sous windows, dans les propriétés du raccourci de TP, j'ai coché la compatibilité avec win 95, mais sans résultat.

Ah Ah Ah, en lançant directement l'exécutable, le problème n'apparaît plus.... Bon, pt'et ben que je vais en rester là alors.
Mais ça peut venir de quoi? Au moins par curiosité, j'aimerais le savoir.