Discussion :

[Roland Chastain]

Une discussion autour de Turbo Vision trouvera-t-elle des amateurs ?

Je m'y suis plongé depuis quelques jours, dans l'intention d'apprendre les bases de la programmation événementielle. Outre l'intérêt théorique de la chose, c'est vraiment un bel outil, qui reste parfaitement utilisable.

Je cherche donc de quel type d'objet je pourrais me servir pour faire un damier. Auriez-vous des idées à me donner ?

J'ai déjà trouvé le début :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program Exemple;
 
{ --- Le plus petit code Turbo Vision --- }
 
uses App;
 
var a: TApplication;
 
begin
  a.Init;
  a.Run;
  a.Done;
end.

[droggo]

Joa,

Désolé, il y a bien trop longtemps que je n'utilise plus ce bel outil (en gros, depuis la sortie de BPW, ce qui ne nous rajeunit pas ).

[Paul TOTH]

pareil, c'est trop vieux pour que je me souvienne des détails...par contre je me souviens d'une écriture assez lourde avec les pointeurs d'objets qui ont été agréablement remplacés par des classes d'objet dans Delphi.

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
 
var
  TMonObject = object
    constructor Init;
  end;
  PMonObject = ^TMonObject;
 
var
  o1 : PMonObject;
begin
  New(o1, Init);
end;
 
// et sous Delphi
 
tyoe
  TMaClass = class
    constructor Create;
  end;
 
var
  c1: TMaClass;
begin
  c1 := TMaClass.Create;
end;

[M.Dlb]

Ahhhh un amateur de Turbo Vision... Pour ce genre d'affichage, je verrais 2 possibilités:

• Soit une surcharge de TDesktop, où tu dessinerai directement ton damier et tes pièces.
• Soit une fenêtre "custom" où tu affiches le damier et les pièces aussi...

Il faut savoir que Turbo Vision, c'est un mode "multi fenêtres", donc ca peut influencer la façon dont tu disposes ton écran, car une fenetre peut en recouvrir une autre etc...

Tu peux regarder ces deux tutos:
http://mdalbin.developpez.com/tutori...l/turbovision/
http://mdalbin.developpez.com/tutoriels/pascal/tvpa/

Turbo Vision est vraiment marrant à programmer, surtout quand tu commences à faire tes propres composants...

[Roland Chastain]

Pour ce genre d'affichage, je verrais 2 possibilités:

• Soit une surcharge de TDesktop, où tu dessinerai directement ton damier et tes pièces.
• Soit une fenêtre "custom" où tu affiches le damier et les pièces aussi...

D'accord, je vais regarder de ce côté-là.

Il faut savoir que Turbo Vision, c'est un mode "multi fenêtres", donc ca peut influencer la façon dont tu disposes ton écran, car une fenetre peut en recouvrir une autre etc...

Comme je débute, je pense que je vais partir sur le projet le plus simple possible.

Tu peux regarder ces deux tutos:
http://mdalbin.developpez.com/tutori...l/turbovision/
http://mdalbin.developpez.com/tutoriels/pascal/tvpa/

Je les ai lus et relus. J'ai même écrit mon premier bout de code (pièce jointe) à partir de l'exemple donné dans la première partie.

J'ai juste changé des valeurs pour voir si je comprenais le code. Puis j'ai ajouté le mode 43 lignes en noir et blanc. Dans 25 lignes mon échiquier est trop à l'étroit. Mais 43 lignes n'entrent pas dans mon écran ! C'est pourquoi j'étais très content de trouver hier une unité qui permet un mode de 28 lignes. Juste ce qu'il me faut !

Je retourne au travail.

[M.Dlb]

Mais 43 lignes n'entrent pas dans mon écran !

Tu dois certainement ajuster ton écran pour que ca rentre. Si c'est un écran plat, tu as une option pour auto-ajuster l'affichage à la configuration utilisée.

[Roland Chastain]

Tu dois certainement ajuster ton écran pour que ca rentre. Si c'est un écran plat, tu as une option pour auto-ajuster l'affichage à la configuration utilisée.

Merci du conseil. Je vais essayer pour voir ce que ça donne.

J'avais oublié la pièce jointe dans mon précédent message, je l'ai rajoutée. Voici une capture d'écran. C'est joli, non ?

[Alcatîz]

Bonjour,

Pour ton information, Turbo Vision existe également sous Free Pascal et Virtual Pascal.

[M.Dlb]

La version adapté de Turbo Vision pour Free Pascal s'appelle Free Vision. FV fonctionne à 99% pareil que Turbo Pascal, les applis développées avec Turbo Vision sont directement portable sous FV, quelques problèmes subsistent si quelques fonctions sont appelées car leur équivalent FV n'existent pas forcément. Dans ce cas, il faut légèrement modifier le code...

[Roland Chastain]

Pour ton information, Turbo Vision existe également sous Free Pascal et Virtual Pascal.

Bon à savoir !

Je viens de faire l'essai avec l'un et l'autre : impeccable.

En revanche je n'ai pas réussi à mettre la main sur un manuel. Quelqu'un n'en aurait-il pas une copie dans un coin de son disque dur ?

[M.Dlb]

F1

L'aide de TP est complète, quelle soit en anglais ou en français.

[Roland Chastain]

F1

L'aide de TP est complète, quelle soit en anglais ou en français.

Cela m'avait échappé.

Je n'avais pas remarqué non plus que le dossier DOCDEMOS contenait un tutoriel Turbo Vision.

J'ai passé du temps à lire des exemples de code et je commence à voir à peu près comment les choses fonctionnent, mais je n'ai pas vraiment avancé en ce qui concerne mon damier.

Voici ce que j'ai fait :

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
(* Recherche d'un damier sous Turbo Vision *)
 
Program Essai1;
 
Uses
  App,
  Drivers,
  Objects;
 
Type
  Ta=Object(TApplication)
    Procedure InitDesktop; Virtual;
    Constructor Init;
  End;
 
Var
  a: Ta;
 
Constructor Ta.Init;
Begin
  Inherited Init;
  SetScreenMode(smBW80);
  Redraw;
End;
 
Procedure Ta.InitDesktop;
Var r: TRect;
Begin
  r.Assign(0,0,24,16);
  Desktop:=New(PDesktop,Init(r));
End;
 
Begin
  a.Init;
  a.Run;
  a.Done;
End.

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
(* Recherche d'un damier sous Turbo Vision *)
 
Program Essai2;
 
Uses
  App,
  Objects;
 
Type
  Pd=^Td;
  Td=Object(TDesktop)
    Procedure InitBackground; Virtual;
  End;
 
  Ta=Object(TApplication)
    Procedure InitDesktop; Virtual;
  End;
 
Procedure Td.InitBackground;
Var r: TRect;
Begin
  GetExtent(r);
  New(Background,Init(r,'X'));
End;
 
Procedure Ta.InitDesktop;
Var r: TRect;
Begin
  r.Assign(0,0,24,16);
  DeskTop:=New(Pd,Init(r));
End;
 
Var a: Ta;
Begin
  a.Init;
  a.Run;
  a.Done;
End.

A l'aide !

[M.Dlb]

Hello,

En y réflechissant, tu ne pourras pas gérer les évènements avec un le TDesktop. Le mieux pour toi serait de définir un composant spécifique, que tu peux appeler TDamier par exemple, héritant de TView qui permet de gérer les évènements (en surchargeant la méthode HandleEvent)...