Discussion :

[KOD]

alors voila , je debute dans la programmation, mon prof nous a filer des projets ( vous savez le genre de projet a 2 balles de 1 er semestre pour les dugenoux ki save pas programmer comme moi.)
alors voila moi j'ai pris le BackGammon ( jeu que je considerais comme antédiluvien mais au finale qui peut etre super strategique...... bref la n'est pas le sujet).
Alors moi je veux le faire avec la souris. ( apparament il faut utiliser des fonctions asembleurs ( jamais fais mais cela a l'air tres logique apres zietage dans tuto de Haypo mais pas moyen de me faire renvoyer les coordonnées X et Y .....

Voila je suis conscient que ce probleme n'est insurmontable qu'une seule fois ( apres comme on sait faire on se renseigne sur l'interruption et haut sa marche toujours pareil apparament.) mais la je suis bloquer et je ne peut pas faire avancer mon prog . c'est rageant SVP qu'une ame charitable puisse me transmettre son savoir et promis je lui envoie le jeu quand il est fini..........
-=KOD=- [ZETA]

[M.Dlb]

On utilise l'interruption 33h pour la souris, après il suffit d'utiliser les bonnes fonctions de l'interruption...
Poste ton code si tu veux plus de renseignements

a+

[KOD]

finalement j'ai reussi a avoir le pointeur a l'ecran. ( en utilisant la bibliotheuqe de haypo )
mais pas moyen de recupere les coord x et y de la souris au moment du clic. je pense que je n'arrive pas a correctement declarer les parametres de la fonction LITSOURIS, et/ou ATTENDSOURIS.
j'ai bien compris qu'elles se trouve dans le registre ( mais c koi un registre et comment on acceder au registre CX,BX etc.... ?

Merci d'avance...
-=KoD Zet@=-

[M.Dlb]

Si tu dois passer par l'assembleur, essaye d'abord d'en apprendre les bases (MOV, INT, CMP par exemple...). Procure-toi également de la doc sur les interruptions (la cultissime "Ralf Brown's Interrupt List", ou encore "HelpPC" de David Jurgens)

a+

[haypo]

finalement j'ai reussi a avoir le pointeur a l'ecran. ( en utilisant la bibliotheuqe de haypo )
mais pas moyen de recupere les coord x et y de la souris au moment du clic.(...)

Faut que je relise mon code ... ça date ! Je te conseille de voir les sources de :
http://pascal.developpez.com/peripherique/souris.zip

C'est le programme le plus simple que j'ai écrit qui utilise la souris.

Donc, pour lire les coordonnées de la souris, tu appelles LitSouris. Cette fonction lit :
- les coordonnées de la souris (X,Y),
- le déplacement par rapport au dernier appel de LitSouris (PlusX, PlusY),
- et l'état des boutons (B1, B2, B3).

Toutes les variables sont contenus dans la structure "Souris" (Souris.X, Souris.PlusX, Souris.B1, etc.). J'ai choisi de tout mettre dans Souris, car justement on a pas besoin de passer de paramètre :-)

@+ Haypo

[Eric Sigoillot]

Tu peux te passer de l'assembleur. Et vu ce que tu nous dis, dugenou , il vaudrait peut-être mieux que tu t'en passes.

Pour afficher la souris, fonction 1 de l'int 33h. Pas de paramètres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses
  Dos;
 
var
  Regs: Registers;
 
begin
Regs.ax := 1;
Intr($33, Regs);
end;

Pour récupérer les coordonnées, fonction 3 de l'int 33h, récupération sur cx et dx, respectivement pour X et Y :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
uses
  Dos;
 
var
  Regs: Registers;
  X, Y: Integer;
 
begin
Regs.ax := 3;
Intr($33, Regs);
X := Regs.cx;
Y := Regs.dx;
end.

Et ainsi de suite...

A+

[M.Dlb]

Mouarf, c'est pas si terrible de convertir

Code :

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

1
2
Regs.ax := 1; 
Intr($33, Regs);

en

Code :

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

1
2
MOV AX,1;
INT 33h;

[Eric Sigoillot]

Oui, sauf que s'il se plante avec une instruction mal écrite en asm, il peut se faire mal. Avec Registers, c'est un risque bien plus calculé. Rien ne ressemble plus à un opcode assembleur qu'une autre opcode assembleur.

Je ne connais pas la bête, alors au cas où. Et puis s'il commence à poser beaucoup sur l'asm, on est pas sorti

A+

[Giovanny Temgoua]

Ce serait possible souvent de donner des réponses Pascal à des problèmes Pascal :

Je veux dire, ce n'est pas tout le monde qui connaît l'assembleur et qui plus est quelqu'un qui commence en Info (là il ne pige que dal ). Donc ce serait bien à mon avis qu'on propose des solutions qui n'ont rien à voir avec le Pascal (ce n'est pas très marrant d'écrire un code sans pouvoir le modifier à souhait même s'il marche correctement!)

[M.Dlb]

Ben, l'assembleur c'est quand même le langage ultime, le père de tous les langages, et il permet de tout faire, absolument TOUT ! Pascal est un langage de niveau supérieur, mais il se base sur l'assembleur... Et il arrive que Pascal n'est pas prévu certaines situations, qu'il ne peut résoudre seul. Dans ces cas là, la seule solution reste l'assembleur !
En général, tout ce qui en rapport avec le système, comme la souris ou les modes graphiques, doit être géré avec des interruptions (et donc de l'assembleur, ou avec la fonction Intr de pascal...)

a+

[charly]

On a pas trop le choix en general , d'ou l'interet d'utiliser des lib toutes faites qui permettent de ne pas avoir a se salir les mains

[Eric Sigoillot]

Si j'ai bien capté, tu veux un code qui n'a rien à voir avec le Pascal. Soit.

Pour récupérer les coordonnées de la souris, il faut faire appel à l'interruption numéro $33, numéro de fonction 3. Pour ce faire, il faut appeler cette fameuse interruption en ayant au préalable chargé dans le registre système AX le numéro de la fonction, à savoir 3 dans notre exemple. Par la suite, une fois l'interruption appelée, on peut récupérer les coordonnées de la souris sur les regsitres CX (pour les abscisses, X) et DX (pour les ordonnées, Y). On peut aussi obtenir l'état actuel des boutons, avec le registre BX.

Voilà, pas de code, une solution très générale.

Pour le code Pascal, c'est ma proposition. Pour le code assembleur, c'est la proposition de Wormful.

Pour le pseudo-code :

Code :

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

1
2
3
4
5
6
 
AX <- 3
INT($33)
X <- CX
Y <- DX
Boutons <- BX

où INT représente un appel à une interruption système.

Et avec ceci ? 100 balles et un Mars ?

A+