Discussion :

[escargot72]

Bonjour

Pourriez-vous m'aider pour coder la procédure suivante ?

En TP 5.5, mon pgm va bien, depuis longtemps. Mais Free Pascal ne reconnaît pas le terme "mem".
Je croyais que tout était réglé après mon message précédent, mais non ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure FrameTextWindow(color,trait:byte);
 
const
      FrameChar : array[1..2,1..6] of char =
 
                ((#218,#191,#192,#217,#196,#179),
 
                 (#201,#187,#200,#188,#205,#186));
var
    i,pos,offset : integer;
    base : longint;
    note : byte;
begin
   GetVideo;
   CsrOff;
   SelTextWindow(ActiveWindow);
   TextColor(colorTable[color]);
 
   gotoXY(1,1);write(FrameChar[trait,1]);
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
   write(FrameChar[trait,2]);
   for i:=2 to YTextLimit-1 do
       begin
        gotoXY(1,i);write(FrameChar[trait,6]);
        gotoXY(XTextLimit,i);
        write(FrameChar[trait,6]);
       end;
 
   gotoXY(1,YTextLimit);
   write(FrameChar[trait,3]);
 
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
 
   pos:=  WinRefTable[ActiveWindow,3] +
         (WinRefTable[ActiveWindow,4] - 1) * colnum;
 
   if mode_video=7 then base:=$B000
              	 else base:=$B800;
<!!!!!!!!!!
   Mem[base:(2 * pos) - 2] := ord(FrameChar[trait,4]);
 
   Mem[base:((2 * pos) - 2) + 1] := Mem[base:((2 * pos) - 2) - 1];
!!!!!!!!>
   CsrOn;
 
end;

Merci par avance
Bernard

[Roland Chastain]

Bonjour ! Pour faciliter la lecture de votre code, il serait bon d'utiliser les balises appropriées. (Pour cela , vous pouvez vous servir du bouton marqué d'un #.)

Autrement, je voudrais bien essayer de vous aider mais sans avoir le code complet, c'est difficile.

[escargot72]

J'avais mis le texte entre <------------------- et ------------------>
Avec la balise citee : #

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure FrameTextWindow(color,trait:byte);
 
const
      FrameChar : array[1..2,1..6] of char =
 
                ((#218,#191,#192,#217,#196,#179),
 
                 (#201,#187,#200,#188,#205,#186));
var
    i,pos,offset : integer;
    base : longint;
    note : byte;
begin
   GetVideo;
   CsrOff;
   SelTextWindow(ActiveWindow);
   TextColor(colorTable[color]);
 
   gotoXY(1,1);write(FrameChar[trait,1]);
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
   write(FrameChar[trait,2]);
   for i:=2 to YTextLimit-1 do
       begin
        gotoXY(1,i);write(FrameChar[trait,6]);
        gotoXY(XTextLimit,i);
        write(FrameChar[trait,6]);
       end;
 
   gotoXY(1,YTextLimit);
   write(FrameChar[trait,3]);
 
   for i:=2 to XTextLimit-1 do write(FrameChar[trait,5]);
 
   pos:=  WinRefTable[ActiveWindow,3] +
         (WinRefTable[ActiveWindow,4] - 1) * colnum;
 
   if mode_video=7 then base:=$B000
   			 else base:=$B800;
 
   Mem[base:(2 * pos) - 2] := ord(FrameChar[trait,4]);
 
   Mem[base:((2 * pos) - 2) + 1] := Mem[base:((2 * pos) - 2) - 1];
 
   CsrOn;
 
end;

[Roland Chastain]

Bonjour ! Encore une fois, il paraît difficile de retoucher la procédure sans savoir ce qu'il y a dans le reste du code et sans pouvoir faire aucun essai.

J'ai cru comprendre que la procédure servait à encadrer du texte, mais je n'ai pas pu aller plus loin.

[Alcatîz]

Bonjour,

Sur quelle plateforme le programme doit-il tourner ? Un émulateur de DOS, une console Windows, un vrai MS-DOS ?

[escargot72]

Bonjour,

Sur quelle plateforme le programme doit-il tourner ? Un émulateur de DOS, une console Windows, un vrai MS-DOS ?

Bonsoir
Mon programme tourne sur W XP et MSDos, sans problème.
Mais envisageant la disparition des XP et du MsDos, je voudrais continuer ma gestion avec FreePascal pour les modifications occasionnelles.
J'ai essayé de faire tourner mon pgm avec VirtualMachine, mais les variables entières ou réelles ne sont pas reconnues.
Est-ce un problème de 32 bits ou 64 bits, je n'en sais rien.
Je constate que l'instruction "mem" ou "memw" n'est plus reconnue par freepascal.
Je vous remercie pour le temps que vous prenez pour m'aider car je suis sans solution.

A bientôt
Bernard