Le langage SMS est exclu sur les forums ProgBoards, tout message ne respectant pas la charte sera déplacé, modifié, ou supprimé par nos modérateurs.

Forum Langages » BASIC » Code Souris

tekiflo
ProgBoarder
Citer Windows XP Firefox 2 - Posté le 02/02/2008 à 22:06
Bonjour !

J'aimerais avoir de l'aide pour ce code :

Wall (134) : Afficher le code source - Ouvrir dans une nouvelle fenêtre

Il marche bien pour l'affichage de la souris mais il ne gère pas les clics.

Pouvez-vous m'aider et me dire pourquoi il ne fonctionne pas ?

Merci d'avance.
Oops, i did it again ^^
RemonterCiter Linux Firefox 2 - Posté le 02/02/2008 à 22:55
Bienvenue!

Ce que je peux te dire, c'est que CybWarrior publie depuis longtemps une très bonne doc sur la gestion de la souris en QBasic avec les interruptions.

Aujourd'hui, on peux la consulter ici: http://cybwarrior.com/FR/QBasic-Le-langage-machine-et-la-souris.html
Computaid SPRL - Conception - Développement - Infogérance : http://www.computaid.be
eTigris - Hébergement mutualisé - Serveurs dédiés : http://www.etigris.com
tekiflo
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 02/02/2008 à 23:06
En fait j'ai déjà codé un driver souris (voir ici :

Wall (135) : Afficher le code source - Ouvrir dans une nouvelle fenêtre
)

Mais il était très bâclé et je voulais un code venant de moi à la base.

C'est donc pour cela que j'ai codé ce driver, mais il ne prend pas la fonction de click, allez savoir pourquoi.

Donc si quelqu'un pourrait jeter un coup d'œil a mon driver buggé pour voir ce qu'il pourrait y avoir comme problème, ce serait gentil ^^
Oops, i did it again ^^
RemonterCiter Linux Firefox 2 - Posté le 02/02/2008 à 23:13
En fait, je ne fait plus de QBasic depuis longtemps, mais je sais que tu trouveras la réponse que tu cherches sur la doc de CybWarrior.

Je ne te dit pas forcément de pomper le code, mais tu pourras vérifier que les interruptions que tu utilises pour gérer le clic sont les bonnes, et que tu les utilises de la bonne manière.
Computaid SPRL - Conception - Développement - Infogérance : http://www.computaid.be
eTigris - Hébergement mutualisé - Serveurs dédiés : http://www.etigris.com
tekiflo
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 02/02/2008 à 23:16
Okay, merci quand même ^^

Je vais jeter un coup d'œil sur la doc de CybWarrior, et je vous en dirai des nouvelles si j'arrive à voir où est le bug.

Eh au fait, bonne nuit ^^
Oops, i did it again ^^
Francesco
Modérateur
RemonterCiter Linux Mozilla 5 - Posté le 03/02/2008 à 14:22
En regardant ton code, j'ai plusieurs questions :
1) pourquoi cache tu et affiche le pointeur sans arret ?
2) pourquoi met tu un saut conditionnel pour tester l'état de la souris ?

Ce que je ferais :


DO

IF INKEY$ = CHR$(27) THEN SYSTEM

15 '-- Appel des SUBS de click si on clique sur la souris
inregs.ax = 3
CALL INTERRUPT(&H33, inregs, outregs)
xmouse = outregs.cx: ymouse = outregs.dx
IF outregs.bx = 1 THEN PRINT "click"
10 LOOP



Cela me semble plus simple et devrait fonctionner. Sinon, en cas de doute sur les interruptions du DOS, il y a une liste qu'il faut connaitre : celle de Ralph Brown. Une petite recherche sur Google te donnera vite son site (par contre, c'est en anglais)...

Edité par Francesco ( 03/02/2008 14:23:32 )
Gates gave you the windows.
GNU gave us the whole house.(Alexandrin)
tekiflo
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 03/02/2008 à 20:00
Merci pour ce code et ce site pour les interruptions dos : http://www.ctyme.com/rbrown.htm

Cela marche maintenant, avec les 2 versions que j'ai posté ! ^^

Merci beaucoup Francesco et Neliger, vous m'avez bien aidé !
Oops, i did it again ^^
Francesco
Modérateur
RemonterCiter Linux Firefox 2 - Posté le 03/02/2008 à 20:03
Mais de rien (clein d'oeil)
Gates gave you the windows.
GNU gave us the whole house.(Alexandrin)
RemonterCiter Linux Msie 6 - Posté le 03/02/2008 à 20:17
De rien, et bienvenue parmi nous!
Computaid SPRL - Conception - Développement - Infogérance : http://www.computaid.be
eTigris - Hébergement mutualisé - Serveurs dédiés : http://www.etigris.com

Poster une réponse

STOP aux fautes volontaires !
Message
Formatage
Note: pour partager du code source, merci d'utiliser le wall !
Smileys (sourire) (yekyek) (clein d'oeil) (désapprouve) (triste) (cool) (langue) (confus) (gêné) (neutre) (eek) (surpris) (diable) (flèche) (exclamation) (question) (diable) (idée) (méchant)
Pseudonyme
Recopiez le code
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,052 s - Crédits - Stats
1 connecté