Discussion :

[Aspic]

Bonjour,

Je souhaiterais désactiver le curseur dans un programme en Batch. En effet, lors d'une boucle, cela refresh constamment et c'est pénible !!

Je parle du curseur automatique qui s'affiche lorsque l'on tape sur le clavier (c'est pas le curseur de la souris !). Il s'agit donc de : "_"

Merci beaucoup !!

[mario52]

Bonjour

Apparence du curseur
comment l'appeler en programmation systeme ?
extrêmement facile

http://pascal.developpez.com/cours/artint/

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
program curseur;        {programme TP7 pour controler le curseur en mode DOS}
                        {AGRILLO MARIO 15/04/2007}
uses DOS;
var  R : registers;
     debut,d,
     fin,f:word;
 
begin
     {valeurs en ligne de commande}
     {EX: curseur 2 7 }
     if ParamCount<>0 then begin
                           val(ParamStr(1),debut,d);  {compris entre 0 et 7}
                           val(ParamStr(2),fin  ,f);  {compris entre 0 et 7}
                                                      {fin 0 = curseur invisible}
                           R.ah:=$01;
                           R.ch:=debut;
                           R.cl:=fin;
                           intr($10,R);
                           end else begin
                                    writeln('Ligne de commande EX : curseur 2 7');
                                    writeln('Agrillo Mario 2007');
                                    end;
end.

[Aspic]

Salut c'est pas du code MSDOS ^^
Donc je peux pas l'en servir !

[wilbe]

Salut,

Sur mes trés anciens souvenirs assembleur et en lisant l'exemple pascal, tu devrais réussir à quelquechose avec ceci :
Pascal :
R.ah:=$01;
R.ch:=debut;
R.cl:=fin;
intr($10,R);

Du coup en assembleur :
MOV AH,01
MOV CH,00
MOV CL,00
INT 10

extrait de http://www.uv.tietgen.dk/staff/mlha/.../INT/INT10.htm

INT 10, 1 : set cursor shape
AH = 1
CH,CL = starting, ending scan line
= 6, 7: default CGA cursor
= 11,12: default EGA cursor
= 13,14: default VGA cursor
CH = 32(20h): no cursor

[Aspic]

Merci sauf que je ne programme pas en pascal ni en assembleur mais en vb.net !

[wilbe]

Salut,

Je sais bien mais ne peux tu pas appeller un .exe depuis ton .vb ?