[RESOLU] Utilisation d'une Souris sous Basic.

La Place des Développeurs [RESOLU] Utilisation d'une Souris sous Basic. Comment utiliser une souris sous Basic Msx.

igal

Conseiller Municipal

Rang

Groupe : compte ++

Inscrit le : 29/07/2010 à 17h19

Messages: 5492

Le 24/03/2013 à 19h06

Je me suis souvent demandé comment utiliser la souris sous BASIC.

Il s'avère qu'un petit programme BASIC accompagne la documentation des Souris Philips.

Voici le listing.

Code TEXT :

 
0  'SAVE"SOURIS.ASC",A
10 ON ERROR GOTO 20
20 DEFINT A-Z
30 OPEN"GRP:"FOR OUTPUT AS#1
40 SCREEN 5:COLOR 15,1,1:CLS
50 A$=""
60 FOR I=1TO8
70 READ A:A$=A$+CHR$(A)
80 NEXT I
90 SPRITE$(0)=A$
100 IF PAD (12)=0THEN100
110 X=X+PAD(13):Y=Y+PAD(14)
120 IF X>256 THEN X=256
130 IF Y>192 THEN Y=192
140 IF X<0 THEN X=0
150 IF Y<0 THEN Y=0
160 PUT SPRITE 0,(X-4, Y-4),15
170 IF NOT STRIG (1)=-1 THEN X1=X: Y1=Y:GOTO 100
180 LINE (X1,Y1)-(X,Y):X1=X:Y1=Y
190 GOTO 100
200 DATA 16,16,16,238,16,16,16,0

Voici le fichier .ASC
SOURIS.zip

Très amusant à l'utilisation, voici un petit dessin fait à la va vite avec la souris

Edité par igal Le 24/03/2013 à 19h10

Tiens... voila du boudin, voila du boudin, voila du boudin...

E-mail Site web

MSXlegend

Conseiller Municipal

Rang

Groupe : Shoutbox

Inscrit le : 18/06/2010 à 22h42

Messages: 6380

Le 24/03/2013 à 22h15

On fait mumuse Igal

(ps: je recupere ton petit programme, ça peux servir

) Edité par MSXlegend Le 24/03/2013 à 22h16

Tous mes PCB -> github.com/msxlegend
challenge 2013 -> neodream MSX 2013
Concepteur du -> KCX Bluetooth transmitter

E-mail Site web

Jipe

Maire-adjoint

Rang

Inscrit le : 02/10/2009 à 19h41

Messages: 10875

Le 25/03/2013 à 11h19

ça ne sert pas qu'a dessiner , on peux pointer cliquer comme dans windows

mais attention certains jeux sont allergiques a la souris : je m'explique si la souris est branchée dans un port les commandes au clavier sont bloquées

je vous jure que la premiére fois c'est la panique surtout quand le jeu marchait bien la fois d'avant