1. avec BP7 dans une applcation on pouvait positionner le curseur sur l'écran
vu comme une page de texte de 80 colonnes et de 25 lignes
USES CRT;
BEGIN
GOTOXY(20, 10); (* positionne le curseur colonne 20 et ligne 10 *)
Write('A'); (* écrit A à cette place *)
Etc.
END.
2. avec D7, GotoXY a une autre signification : il s'agit de semble-t-il
de se positionner dans un graphique. (Les données de la procédure ne sont
pas de type Entier mais DOUBLE).
3. Pour avoir l'analogue avec D7 de ce qui existait avec BP7 il y a rien d'évident.
SetConsoleCursorPosition semble être une solution
Mais trouver dans ces longues unités les seules lignes utiles pour utiliser
SetConsoleCursorPosition n'est pas facile.
4. Pourquoi vouloir positionner le curseur sur la console :
Certains de mes programmes BP7 construisent sous forme texte
(Police Terminal) des dessins de problèmes de pentaminos
Par exemple : les 3940 solutions des 12 pentacubes dans un boite 4x5x3)
Avec un processeur à 2Ghz, l'exécution dure environ 15 minutes
(malgré les séquences critiques écrites en assembleur)
Pendant les quelques sept milliards d'essais, le programme affiche à la console
le dessin de chaque solution trouvée; (fait avec les 11 fragments d'encadrés
de la police Terminal) plus quelques informations texte.
Cela fait patienter et montre que la programme à l'air de fonctionner.
Ce qui avait été utile pour la mise au point.
Un résultat se trouve ici :
https://www.flickr.com/photos/141992...7720301614861/
-------------------------------------------------------------------------------------------------------------------
Message précédent pas assez précis et équivoque
L'aide de Delphi7 montre GotoXY dans l'unité RpBase.
Comment déclarer avec précision cette procédure pour qu'elle soit reconnue ?
(Utilisation uniquement dans une application Console)
Cela pour convertir des programmes BP7 qui effectuent des dessins de ... pentaminos
sous forme de textes évolutifs, utilisant les 11 fragments d'encadrés de la police Terminal.
(les "carrés" obtenus font 18 pixels de haut et 20 pixels de large)
L.M.
Partager