E> For N=150 To 300
X Mouse=N : Y Mouse=N/2
Print X Mouse : Print Y Mouse
Next N
MOUSE KEY
fonction : lire l'état des boutons de la souris
k=Mouse Key
La fonction MOUSE KEY vérifie si un des boutons de la souris a été pressé et retourne un rapport sous forme d'un motif binaire composé des éléments suivants :
Motif Rapport Bit 0 Bouton gauche de la souris Bit 1 Bouton droit de la souris Bit 2 Troisième bouton de la souris s'il existe
Comme d'habitude, les chiffres zéro et un composent le rapport, avec un un affiché quand le bouton correspondant est enfoncé, sinon un zéro est affiché. Essayez cette routine :
E> Curs Off
Do
Locate 0,0
M= Mouse Key : Print "Motif Binaire ";Bin$(M,8);" Numéro ";M
Loop
MOUSE CLICK
fonction : vérifier un clic sur un bouton de la souris
c=Mouse Click
Ceci est similaire à MOUSE KEY, mais au lieu de vérifier si un bouton de la souris est maintenu enfoncé, MOUSE CLICK ne s'intéresse qu'à savoir si l'utilisateur a effectué un seul clic sur un bouton de la souris. Elle retourne le motif binaire familier suivant :
Motif Rapport Bit 1 Test unique pour le bouton gauche de la souris Bit 2 Test unique pour le bouton droit de la souris Bit 3 Test unique pour le troisième bouton de la souris, si disponible
Ces bits sont automatiquement réinitialisés à zéro après qu'un test a été effectué, donc ils ne vérifient qu'un seul appui à la fois. Voici un exemple :
E> Curs Off
Do
M=Mouse Click
If M<>0 Then Print "Motif Binaire ";Bin$(M,8);" Numéro";M
Loop