1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
CLS
SCREEN 12
'-----------declaration des variables--------------
'--------------------------------------------------
largeurcarre = 50 'largeur des cases
nbcol = 5 'nombre de colonnes
nbligne = 5 'nombre de lignes
ecart = 5 'ecart entre les cases
xdep = 180 'deplacement sur l axe des x
ydep = 120 'deplacement sur l axe des y
couleur = 4 'couleur par defaut (blanc)
rayoncercle = 20 'rayon du cercle
deplacementx = 0 'variable pour la position du cercle rouge
deplacementy = 0
xcercle = 0 'variable xcercle et ycercle
ycercle = 0
LOCATE 30, 1
PRINT "Appuyer sur Esc pour quitter"
WHILE (1)
'_____________TOUCHE_____________________________________
'
'variable inkey stocké dans la variable touche '
touche$ = INKEY$ '
'
SELECT CASE touche$ '
'
'si on appuie sur la touche Esc le programme s'arrete '
CASE CHR$(27) '
END '
'
CASE CHR$(0) + "K" '
'
'deplacement pour l'appuie de la touche gauche '
IF (deplacementx > 0) THEN '
deplacementx = (deplacementx - 1) '
END IF '
'
CASE CHR$(0) + "M" '
'
'deplacement pour l'appuie de la touche droite '
IF (deplacementx < (nbcol - 1)) THEN '
deplacementx = (deplacementx + 1) '
END IF '
'
CASE CHR$(0) + "H" '
'
'deplacement pour l'appuie de la touche haut '
IF (deplacementy > 0) THEN '
deplacementy = (deplacementy - 1) '
END IF '
'
CASE CHR$(0) + "P" '
'
'deplacement pour l'appuie de la touche bas '
IF (deplacementy < (nbligne - 1)) THEN '
deplacementy = (deplacementy + 1) '
END IF '
'
'
END SELECT '
'
'_______________________________________________________'
'______________DAMIER____________________________________________________________
'
'boucle for pour placer les lignes '
FOR i = 0 TO (nbligne - 1) '
'
'boucle for pour placer les colonnes '
FOR j = 0 TO (nbcol - 1) '
'
'si i = deplacementy et j = deplacementx alors le cercle est rouge... '
IF (i = deplacementy) AND (j = deplacementx) THEN '
'
couleur = 4 '
'
'sinon le cercle est noir '
ELSE couleur = 0 '
'
END IF '
'
'
x = xdep + (j * (largeurcarre + ecart)) '
y = ydep + (i * (largeurcarre + ecart)) '
'
'création du damier avec les coordonées x et y '
LINE (x, y)-(x + largeurcarre, y + largeurcarre), 15, B '
'
'
'_____________CERCLE____________________________________________________________'
'
'création des variables xcercle et ycercle pour la création du cercle '
xcercle = x + (largeurcarre / 2) '
ycercle = y + (largeurcarre / 2) '
'
'création du cercle avec les coordonnées xcercle, ycercle '
CIRCLE (xcercle, ycercle), rayoncercle, couleur '
'
'
IF (touche$ = "a") THEN '
'
IF (i = deplacementx) AND (j = deplacementy) THEN '
'
CIRCLE (xcercle, ycercle), rayoncercle, 1 '
'
END IF '
END IF '
'
NEXT j '
NEXT i '
'
WEND
