Discussion :

[Thiboz]

Bonjour!
Avant toute chose, j'utilise dev-pascal et freepascal.
Je suis en 1ere année d'une école d'ingé, ou on nous initie au pascal.
Je m'embetais chez moi, et donc j'ai eu envie de faire des petites recherches.
Je me suis intéressé au mode graphique.
J'avais un but, faire déplacer un carré sur un écran.

En mode texte, aucun probleme.

En mode graphique, aie!

J'ai tout d'abord pris un exo, enfin copier-coller de la source lol L'exo avec trois cases a b et c. Si on appuie, ca fait un bruit et ca change la couleur de la case. Bien sur, ca marche pas, enfin pas comme je voudrais. Il faut que je clique sur la fenetre ms-dos pour que la fenetre graphique réponde.
Pourtant readkey devrait marcher en mode graphique nan?

Je suis perdu...

[Alcatîz]

Bonjour !

Lorsque la console MS-DOS est en mode fenêtré, les programmes en mode graphique sont généralement figés.
Le comportement est-il le même lorsque tu passes en mode plein écran (Alt-Enter) ?

[Thiboz]

Alors, j'ai testé.

Tout d'abord en lancant le exe depuis windows, je passe en mode plein écran, dans la fenetre graphique, alt+enter marche pas, c'est surement normal. Je clique sur la console, et je relance alt+enter. Plein écran de la console... pas d'écran graphique...

deuxieme essai, je lance la console "executer>cmd", puis en plein écran et je lance l'exe depuis, mais ca revient a la fenetre graphique bloquée...

[M.Dlb]

Sous quel système tournes-tu ? Win XP ?

[Thiboz]

Oui, Win XP SP2.

[Alcatîz]

Certains modes graphiques sont mal émulés par la console. Dans quel mode tourne ton programme ?
Si le source n'est pas trop long, peux-tu le poster ici, que nous puissions également le tester ?

[Thiboz]

C'est pas tres dur pour la source, je l'ai prise sur developpez.com lol Donc je pense pas qu'il y ait de fautes dedans. Peut-etre le fait que je compile avec Dev-Pas et pas Turbo-Pascal ca joue, je ne sais pas. C'est pour ca que je me dis que peut-etre c'est un blem dans le compilateur plutot, meme si j'ai entendu beaucoup de bien de free-pascal.
Mais je reposte la source, au cas ou!

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
program graphinterac;
uses crt, graph;
 
var
  driver, mode: smallint;
  letter: char;
 
begin
  driver := Detect;
  mode:=0;
  InitGraph(driver, mode, 'c:/Dev-Pas/BGI');
  if (GraphResult <> grOk) then
  begin
    writeln('Erreur au cours de l''initialisation du mode graphique');
    halt(1);
  end;
 
  SetFillStyle(1, red);
  Bar(50, 80, 200, 100);
  Bar(250, 80, 400, 100);
  Bar(450, 80, 600, 100);
  OutTextXY(75, 70, 'Le bouton A');
  OutTextXY(275, 70, 'Le bouton B');
  OutTextXY(475, 70, 'Le bouton C');
 
  repeat
    letter := readkey;
    case letter of
      'a', 'A':
        begin
          sound(250);
          delay(50);
          nosound;
          SetFillStyle(1, blue);
          Bar(50, 80, 200, 100);
          delay(2000);
          SetFillStyle(1, red);
          Bar(50, 80, 200, 100);
        end;
      'b', 'B':
        begin
          sound(350);
          delay(50);
          nosound;
          SetFillStyle(1, blue);
          Bar(250, 80, 400, 100);
          delay(2000);
          SetFillStyle(1, red);
          Bar(250, 80, 400, 100);
        end;
      'c', 'C':
        begin
          sound(450);
          delay(50);
          nosound;
          SetFillStyle(1, blue);
          Bar(450, 80, 600, 100);
          delay(2000);
          SetFillStyle(1, red);
          Bar(450, 80, 600, 100);
        end;
    else
      begin
        sound(150);
        delay(50);
        nosound;
      end;
    end;
  until letter = #27;
 
  CloseGraph;
end.

[pilouface]

J´ai exactement le meme problème

je lance une fenetre graphique et je veux afficher des trucs dans mon mode graphique en fonction de la touche entrée au clavier

j´utilise pour cela un readkey. le seul problème est que le readkey se fait dans la fenetre dos et non pas sur la fenetre mode graphique.

je suis obligé de revenir à ma premiere fenetre pour taper ma touche( en gros ca sert plus à rien )

Merci d´avance pour votre aide.

Je suis sous win2000 avec freepascal, ca fait apparament la meme chose avec tp7 sous 98

[M.Dlb]

Tu as essayé de passer en plein écran (alt+entrée) ?

[pilouface]

Bonjour,

oui j´ai essayé de faire

readkey; {pour me laisser le temps de mettre le mode pleine ecran}

lançage du mode graphique.

readkey;


.
Le seul problème quand je fais ça , c´est que le mode graphique ne se lance plus ( ou alors il se lance sous la fenetre en plein ecran)
ce qui fait que le readkey marche très bien mais sans mode graphique

d´autre idées ? Merci d´avance