[TP] Affichage de la souris

Version imprimable

11/06/2007, 18h46
adec62360

[TP] Affichage de la souris

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
11/06/2007, 18h59
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é ? :aie:

afficher sourirs

Ok je m'excuse.

Je veux afficher en mode texte.

Le code :

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
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;

11/06/2007, 20h07
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. :D

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:

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.