[TP] Equivalent de l'instruction read en mode graphique

Version imprimable

23/05/2005, 23h06
bkadje

[TP] Equivalent de l'instruction read en mode graphique

bonjour,j'aimerai avoir l'équivalent de l'instruction read ou readln du mode texte en turbo pascal dans le mode graphique pascal.En général je voudrais savoir comment faire afin qu'un utilisateur puisse entrer des données dans un programme pascal utilisant le mode graphique. :)
24/05/2005, 00h17
M.Dlb

Les instruction read (à proscrire ) et readln marchent en mode graphique. Sois plus précis dans tes questions ;)

Bonjour,

L'instruction Readln fonctionne bien en mode graphique, mais a pour effet de superposer des caractères textes aux pixels, ce qui gâche un peu l'effet.
Avec l'unité graph tu n'as pas d'autre solution que d'implémenter toi-même ta procédure Readln pour le mode graphique.

Sinon, un exemple :

Code:

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
 
procedure InLn(X, Y, PoliceSize : integer; var Out : String);
                                        {A noter que les valeurs en X et
                                         Y employées sont à modifier selon
                                         la fonte.}
const Size = 8;                         {la taille de la police .CHR employée
                                         est importante car elle permet
                                         d'aligner le curseur sur le caractère
                                         actif. Par défaut un caractère BGI
                                         est une matrice de 8x8 pixels mais
                                         ça peut varier(TriplexFont,Smallfont
                                         etc...)}
 
var Nini  : string;
    Key   : char;
    i     : integer;
 
begin
     Setcolor(15);
     Nini:='';
     Moveto(X,Y);
     Outtext('Entrez le N initial : ');   {la phrase est un résidu}
     OuttextXY(X+180,Y,'_');
     i:=0;
     Setfillstyle(solidfill,0);
     Repeat
           Key:=readkey;
           If ((key<>#13) and (Key<>#27)) then
           begin
                Bar(X+180,Y-10,GetmaxX,Y+15);   {Note : cette ligne est a modifier
                                                 selon tes besoins évidemment}
                If (Key=#8) then
                begin
                     If (i>=1) then dec(i);
                     OuttextXY(X+180+(i*PoliceSize),Y,'_');
                     Nini:=Copy(Nini,1,length(Nini)-1);
                end
                else
                begin
                     inc(i);
                     OuttextXY(X+180+(i*PoliceSize),Y,'_');
                     Nini:=Nini+Key;
                end;
           end;
           OuttextXY(X+180,Y,Nini);
           If (key=#27) then Nini:='';
     Until ((key=#27) or (key=#13));
     Out:=Nini;
end;

Souvenirs d'un post précédent :D
a++

28/06/2005, 19h28
j.p.mignot

Utiliser ReadKey est le mieux mais il faut en général vider le buffer du clavier avant de commencer afin d'évier des surprises!

Voici un de mes vieux code (il a 2 ans. ha les debut !!!).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 function lire(col,lin,colf:integer) : string; var z: char; begin nom:=''; repeat z:=readkey; case z of 'a'..'z','A'..'Z','-',',','.' : nom:=nom+z; chr(ord(8)) : if nom<>'' then nom:=copy(nom,1,length(nom)-1); end; setfillstyle(1,white); bar(col-2,lin-2,colf-2,lin+7); outtextxy(col,lin,nom); until ord(z)=13; end;
a l'epoque elle etait toutes simple, mais je ma modifier a ma volonte et selon l'utilisation.

J'espere qu'elle te servira autant quelle l'a fait avec moi.