Discussion :

[Alcatîz]

Bonjour !

Le temps est à l'orage, aujourd'hui...

pour basculer plein écran/fenêtre, il faut faire alt+Tab avec ton clavier

Ne serait-ce pas plutôt Alt-Enter ? De toute façon, en mode fenêtré l'OS émule (ou plutôt devrait émuler) le clignotement.

Tu pourrais essayer d'exécuter directement l'interruption BIOS d'affichage de chaîne de caractères. Dans cette chaîne, il faut préciser à la fois les caractères et leurs attributs : tu serais fixé pour de bon sur la responsabilité des routines de Free Pascal dans ton problème.

(désolé, je dis toujours "tu" à un frère programmeur. Il n'y a pas de grossièreté là-dedans).

[néo333]

Pour le tu et le vous je n'y ai jamais fais attention c'etais juste une façon de parler pour montrer à wormful_sickfoot le décalage qu'il y avait entre ça façon de parler et celle des autres admin de ce forum !!!

En ce qui concerne free pascal que ça soit en plein ecran ou pas c toujours la même chose pas de clignotement c ce que j'essai d'expliquer depuis le début !!! bref j'ai trouvé une solution peut être unpeu lourde mais ça va !!

si on arrive a emuler la plupart des focntions dos a travers windows, je vois pas purquoi on arriverais pas à émuler le clignotement voila ce que je me dis !!!!

@+

[néo333]

Voila mon programme je vais retravailler dessus pour en faire une fonctionne c cool pascal!!!! allez je vous tiens au courent pour la suite !!

j'ai quand même une petite question :comment faire en sorte que mon curseur disparaisse Merci

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
 
 
Program cligno;
uses Crt,dos;
var long:integer;
   M,M1:string;
   i:integer;
 
begin
 
clrscr;
 
writeln('TAPEZ VOTRE MOT');
readln(M);
long:=length(M);
 
for i := 1 to (long) do
 
begin
 
   M1[i] := ' ';
 
   M1 :=M1+M1[i];
 
end;
 
 repeat
  gotoxy (30,15);
  write(M);
  delay(500);
  gotoxy (30,15);
  write(M1);
  delay(500);
 
  until keypressed;
 
end.

[M.Dlb]

Pour le tu et le vous je n'y ai jamais fais attention c'etais juste une façon de parler pour montrer à wormful_sickfoot le décalage qu'il y avait entre ça façon de parler et celle des autres admin de ce forum !!!

Je suis pas admin désolé

En ce qui concerne free pascal que ça soit en plein ecran ou pas c toujours la même chose pas de clignotement c ce que j'essai d'expliquer depuis le début !!!

Tu l'as jamais dit explicitement....

Le clignotement a été implémenté dans les modes texte du BIOS : mode 0, 1, 2, 3, 7 et 8 ( et peut-être les modes texte VESA, mais je n'ai pas testé, en théorie ca devrait marcher ). Passe en mode 03, et si ca marche pas, change d'ordinateur... ( ou de compilateur, comme tu veux... )
a+

[Alcatîz]

A propos, le clignotement habituel du curseur est-il visible ?

A tout hasard, dans la négative, il existe une fonction qui te permet de définir l'apparence du curseur (du moins, de définir les lignes de début et de fin).

Tu peux essayer d'ajouter ce code au début de ton programme (il faudra peut-être l'adapter à Free Pascal, que je ne connais absolument pas) :

Code :

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

1
2
3
4
5
6
7
8
9
Const LigneDebut : Byte = 11;
      LigneFin : Byte = 12;
   ...
Var Registres : Registers;
   ...
Registres.AH:=$01;
Registres.CH:=LigneDebut;
Registres.CL:=LigneFin;
Intr($10,Registres);

En jouant sur les valeurs de LigneDebut et LigneFin, tu finiras peut-être par voir apparaître ton curseur, clignotant ou pas.

[néo333]

Merci pour ton code Alcatîz je vais voir ce que ça donne !!!

Pour wormful_sickfoot c ca le problème entre nous c que tu crois que je sais tout !!!!c quoi un mode 3 du bios ... je sais pas ce que c !!!!?????.

je suis dans la maintenance et je m'interesse a la programmation je sais plein de truc dans mon metier coté hardware et software UC imprimante ect ... mais presque rien en programmation !!!

[M.Dlb]

Oui, si le Bit 6 de CH vaut 0 et le bit 5 de CH vaut 1, tu auras peut-être, si tu es sage, un curseur invisible...

a+

[néo333]

Merci je vais essayer !!!!!

[M.Dlb]

Je connais un technicien de maintenance, qui a le bac et qui comprend quand je lui parle du BIOS et de mode texte... Tu dois pas très bien maîtriser ton domaine, si t'as pas au courant qu'il existe plusieurs modes texte, qui sont des standards ( depuis 1981... t'es légèrement en retard )

Bon comme je suis sympa, je te donne le code pour passer en mode texte 03... c'est tout con :

Code :

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

1
2
3
4
5
 
asm
MOV AX,03;
INT 10h;
end;

Et comme je suis vraiment ultra sympa, je ne te laisse pas chercher et je te donne le code pour avoir un curseur invisible (pas testé, pas sûr que ca marche ) :

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
 
procedure CurseurInvisible;assembler;
asm
MOV CH,32;
MOV AH,1;
INT 10h;
end;
 
procedure CurseurVisible;assembler;
asm
MOV CH,1;
MOV AH,1;
MOV CL,0;
INT 10h;
end;

Voilà, tu vois que je suis sympa, suffit de pas me prendre pour un con...

a+

[néo333]

Quand tu me parler j'ai toujours l'impression qu'on c déja connu, et que je t'ai fais du mal !!! Merci encore !!! mais je ne t'ai jamais pris pour un con pas un seul instant JE COMPREND PAS !!!!

[néo333]

Je vais encore vous arceler !!!! décolé !!!


1/ Il ya un bug dans la matrice est ce que quelqu'un peut me dire pourquoi ça fais ça quand je l'execute j'ai des petit dessin qui clignote en même temps si j'execute que la procedure ben pas de soucis mais des que je fais appele a la procédure ben le bug apparait !!!!

2/enfait wormful_sickfoot ça marche pas pour le curseur !!!

3/ Cette réponde va vachement m'aider !!
Si vous avez pascal 7 chez vous et que vous voulez l'expoiter sans contrainte ben vous êtes obliger d'être sous DOS je me trompe ???
Est ce que parmis vous y'en a qui bosse sous DOS encore , et pendant que j'y suis est ce que windows xp dispose reelement d'un noyau DOS et que le dos n'est pas émulé et qu'il a access au differentes focntion de windows xp ??? Si c vrai je crois que je vais passer sous xp


DESOLE POUR TOUTE MES QUESTIONS BETES !!!!



VOILA MON CODE POUR LA PREMIERE QUESTION !!!!

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
Program cligno;
uses Crt,dos,
 
 
procedure clin(M:string);
 
var
 
   M1:string;
   long,i:integer;
 begin
 
long:=length(M);
 
        for i := 1 to (long) do
 
        begin
 
        M1[i] := ' ';
 
        M1 :=M1+M1[i];
 
        end;
 
textcolor(yellow);
textbackground(9);
clrscr;
 
        repeat
        gotoxy (30,15);
        write(M);
        delay(500);
        gotoxy (30,15);
        write(M1);
        delay(500);
 
  until keypressed;
 
end;
var long:integer;
    M:string;
 
begin
clrscr;
writeln('TAPEZ VOTRE MOT');
readln(M);
 
clin (M);
 
end.

[charly]

1) la question est incomprehensible , donc pas de reponse
2)tu dois mal t y prendre , j ai une totale confiance en worms a se sujet
3)Turbo pascal 7 est effectivemment pour Dos , et effectivemment il peux y avoir de nb beugue sous xp qui ne possede bien une emulation de dos , et pas de noyau ( sauf dans les version proffessionnelle je crois )

[Alcatîz]

Il y a une partie de ton code un peu bizarre :

Code :

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

1
2
3
4
5
6
long:=length(M); 
        for i := 1 to (long) do 
        begin 
        M1[i] := ' '; 
        M1 :=M1+M1[i]; 
        end;

Si je ne me trompe pas, tu souhaites créer une chaîne M1 de même taille que M, mais remplie de blancs. Il y a plus simple :

Code :

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

1
2
for i:=1 to length(M) do M1[i]:=' ';
M1[0]:=M[0];

A la deuxième ligne, tu recopies l'octet de taille.

Mais j'ai une remarque plus générale : en supposant que tu dois faire clignoter plusieurs chaînes n'importe où sur l'écran, ta méthode va devenir ingérable !

Es-tu sûr que ton programme travaille bien en mode 3 (80x25, 16 couleurs) ? As-tu également vérifié les propriétés de la fenêtre dans laquelle ton programme s'exécute ?

Pour vraiment entrer dans le problème en profondeur, il est tout-à-fait possible de paramétrer la carte vidéo pour que le clignotement (le bit 7 de l'attribut) soit activé ou bien remplacé par une couleur de plus forte intensité.

Voici un bout de code que tu peux insérer au tout début de ton programme :

Code :

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

1
2
3
4
5
6
Var Registres : Registers;
   ...
Registres.AH:=$10;
Registres.AL:=$03;
Registres.BL:=1;
Intr($10,Registres);

La valeur du registre BL permet d'activer (1) ou désactiver (0) le clignotement.

On y arrivera !

[charly]

mmm , je pense que a se degres il fauderais demmender au astrophysicien de la nasa de nous depaner , sa depasse nos competences ...

[néo333]

lol tu lis dans mes pensé charly !!!! c justement ce que je me disais ça me fais rire parceque je crois que je comprend très lentement !!!

Je crois que je devrais lire deux ou trois gros livre avant de reposer des question !!!

@+

[Alcatîz]

Meuuuuh non !

Il s'agit juste ici d'exécuter une interruption du BIOS (ou d'émuler celle-ci) qui contrôle le clignotement. Plutôt que de passer par du code assembleur, on peut utiliser le type Registers du Pascal.

En clair, les opérations sont :

1. Charger la valeur 10h dans le registre AH (fonction du BIOS gérant les registres de palette);
2. Charger la valeur 03h dans le registre AL (sous-fonction s'occupant du clignotement);
3. Charger la valeur 1 ou 0 dans le registre BL (clignotement ou pas);
4. Exécuter l'interruption 10h.

Pas de quoi appeler la NASA ! C'est peut-être la première fois que tu es confronté aux interruptions. Mais pour résoudre un problème, il faut parfois mettre les mains dans le cambouis...

Bref, essaye toujours : si ça marche, tu pourras oublier tout ça et te concentrer sur ton programme.

[charly]

<mode sadique> et si tu n y arrives pas , change de metier </mode sadique > blague a part , je persiste a te dire , que faire mumuse avec des interuptions , procedure et autre connerie de bas niveau sous xp , c est pas terrible , je ne reponds de rien en cas de surchauffe du processeur , carte graphique crammer , carte mere pliais en deux , ou bios ecrouler de rire a cause du programme que tu as fais aller courage , on en voit le bout

[haypo]

Voici un bout de code que tu peux insérer au tout début de ton programme :

Code :

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

1
2
3
4
5
6
Var Registres : Registers;
   ...
Registres.AH:=$10;
Registres.AL:=$03;
Registres.BL:=1;
Intr($10,Registres);

La valeur du registre BL permet d'activer (1) ou désactiver (0) le clignotement.

Cool, je savais pas que ça existait avec l'interruption 10h ! Moi j'ai bidouillé les ports VGA pour y arriver. C'est dans mon unité "OptVideo". Le code :

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
procedure Clignotement (Actif: boolean); 
var TmpO: Byte; 
begin
  { Port 3C0h = Contrôleur d'attribut de la carte VGA }
  Port[$3C0] := $10;
 
  { Fonction 10h = Mode contrôle : }
  {                                }
  { bit| Description }
  { ---+------------- }
  {  7 | Taille de la palette interne }
  {  6 | Selection de l'horloge des pixel }
  {  5 | Compatibilité de 'Pixel Panning' }
  {  4 | <inutilisé> }
  {  3 | Clignotement }
  {  2 | Doublement de la dernière ligne des caractères graphiques }
  {  1 | Moniteur monochrome }
  {  0 | Mode graphique }
 
  if Actif then
    Port[$3C0] := Port[$3C0] or (8+4)
  else
    Port[$3C0] := Port[$3C0] or 4 and (255-8);
 
  { Désactive le port 3C0h }
  Port[$3C0] := $FF;
 
  { Actualise l'écran }
  TmpO := Port[$3DA];
end;

J'ai bcp lutté pour ariver à cette fonction ! Mais je pense qu'utiliser l'interruption 10h est plus "portable" (lol, une interruption portable) ...

@+ Haypo

[M.Dlb]

Pour le curseur, ca marche, je viens de tester...
Il manquait juste quelque chose pour le réafficher correctement :

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
 
procedure CurseurInvisible;assembler;
asm
MOV AH,1;
MOV CH,32;
INT 10h;
end;
 
procedure CurseurVisible;assembler;
asm
MOV AH,1;
MOV CH,14;
MOV CL,1;
INT 10h;
end;

Décidément, quand on sait pas programmer...

a+

[M.Dlb]

En ce qui concerne DOS et Turbo Pascal, et Windows XP, il n'y a pas de problème si on fait les choses bien... Je suis sous XP Pro et j'utilise Turbo Pascal 7 sans problème ( je trouve par contre que l'exécution du programme d'environnement est vachement plus lente que sous DOS pur... peut-être l'émulation et le multi-tâche... ). Seulement seule la version Pro de XP permet de faire cela car elle seule contient un noyau DOS... Si tu décides de passer sous XP, choisis donc la version Pro et profite de cette occasion pour changer de compilateur !

a+