Discussion :

[adec62360]

Salut à tous

un problème je n'arriva pas à avoir le pointer de la souris j’ai telecharger des unités
mai il fonctionne mai il ne affiche pas le pointer
une source que j'ai telecharger
developpez.com
mairci

[M.Dlb]

Pas très clair, ce que tu dis... Tu veux utiliser quoi et comment ? Mode texte, mode graphique ? Assembleur, pas assembleur ? Thé, café ?

[adec62360]

Ok je m'excuse.

Je veux afficher en mode texte.

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
31
32
33
34
35
36
37
38
39
40
procedure mouse (var m1,m2,m3,m4 : word);
var regs : registers;
begin
  with regs do
  begin
    ax := m1;
    bx := m2;
    cx := m3;
    dx := m4;
  end;
  intr (51,regs);
  with regs do
  begin
    m1 := ax;
    m2 := bx;
    m3 := cx;
    m4 := dx;
  end;
end;
 
Procedure resetmouse;
var m1,m2,m3,m4 :word;
begin
  m1 := 0;
  mouse (m1,m2,m3,m4);
end;
 
Procedure showmouse;
var m1,m2,m3,m4 : word;
begin
  m1 := 1;
  mouse (m1,m2,m3,m4);
end;
 
Procedure hidemouse;
var m1,m2,m3,m4 : word;
begin
  m1 := 2;
  mouse (m1,m2,m3,m4);
end;

[droggo]

Doa,

Mets ton code entre les balises [ code] [ /code], sans les espaces qui ne sont là que pour invalider ces balises, ça rendra le code plus lisible.

Et après vérification, mets ton code en forme : indentation.

Sans aller bien loin, je vois un peu de partout des choses comme ceci:

Code :

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

1
2
3
4
5
6
Procedure showmouse;
var m1,m2,m3,m4 : word;
begin
m1 := 1;
mouse (m1,m2,m3,m4);
end;

c'est à dire utilisation de variables locales non initialisées ==> comportement indéfini.

Une règle est de toujours initialiser les variables.