MSX Village forum

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

igal Membre non connecté

Conseiller Municipal

Rang

Avatar

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 :D
Edité par igal Le 24/03/2013 à 19h10


Tiens... voila du boudin, voila du boudin, voila du boudin... :siffle
MSXlegend Membre non connecté

Conseiller Municipal

Rang

Avatar

Groupe : Shoutbox

Inscrit le : 18/06/2010 à 22h42

Messages: 5784

Le 24/03/2013 à 22h15
On fait mumuse Igal :lol

(ps: je recupere ton petit programme, ça peux servir ;) ) Edité par MSXlegend Le 24/03/2013 à 22h16


Createur du KCX Bluetooth emitter au format cartouche compatible stereo moonsound
Jipe Membre non connecté

Maire-adjoint

Rang

Avatar

Association

Inscrit le : 02/10/2009 à 19h41

Messages: 10328

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 :oups


:noel
Site web    
metalgear Membre non connecté

Villageois

Rang

Avatar

Inscrit le : 12/10/2009 à 17h29

Messages: 778

Le 25/03/2013 à 12h32
J'avais commencé un jeu de cartes euh...en 1994 et il utilisait la souris sous basic ... pas fini le jeu bien qu'il me restait plus beaucoup de trucs :oups


MSXien...pur et dur et toujours Supmsx
Site web    
Franck Membre non connecté

Maire-adjoint

Rang

Avatar

Association

Inscrit le : 02/10/2009 à 22h54

Messages: 3295

Le 25/03/2013 à 17h04
Tu pourras le finir pour son vingtième anniversaire :D
   
metalgear Membre non connecté

Villageois

Rang

Avatar

Inscrit le : 12/10/2009 à 17h29

Messages: 778

Le 26/03/2013 à 09h05
Euh... :oups ...Oui si on compte avec celui-ci 3 autres ^^


MSXien...pur et dur et toujours Supmsx
Site web    
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie