Publié par AngeNoir le 13/05/2006
Code source: QuickBasic 4.5fr Description: Programme servant à obtenir plus de 16 couleurs en mode 12. Modification apporté: Donne les couleurs de Fond et de Grillage en affichant le compte rendu de celle-ci et permet de visualiser le mot (BONJOUR) dans cette nouvelle couleur. Permet aussi un déplacement sur chaque couleur à l'aide des touches Flèches directionnels.
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
'******************************************************************** '--- Publication le 12 mai 2006 '--- Une creation de: Ange.Noir '--- Cree avec la version QuicBasic 4.5fr '******************************************************************** SCREEN 12 CLS Ac = -1: Bc = 0 FOR x = 0 TO 375 STEP 25 FOR y = 0 TO 380 STEP 25 Ac = Ac + 1 IF Ac = 16 THEN Bc = Bc + 1: Ac = 0 LINE (x, y)-(x + 20, y + 20), Ac, BF FOR Xx = x TO x + 19 STEP 2 FOR Yy = y TO y + 19 STEP 2 PSET (Xx, Yy), Bc: PSET (Xx + 1, Yy + 1), Bc NEXT Yy NEXT Xx LINE (x, y)-(x + 20, y + 20), 7, B NEXT: NEXT '******************************************************************** Qx = 0: Qy = 0: CFond = 0: CGril = 0: Cadre = 7 LINE (Qx, Qy)-(Qx + 20, Qy + 20), 15, B LINE (400, 200)-(635, 395), CFond, BF LINE (400, 200)-(635, 395), Cadre, B DO LOCATE 1, 58: PRINT "Positionnement" LOCATE 2, 58: PRINT "X :"; CGril: LOCATE 2, 66: PRINT "Y :"; CFond LOCATE 8, 53: PRINT "Couleur de la Grille :"; CGril LINE (400, 128)-(635, 148), CGril, BF LINE (400, 128)-(635, 148), Cadre, B LOCATE 11, 53: PRINT "Couleur du Fond ‚cran:"; CFond LINE (401, 177)-(634, 195), CFond, BF LINE (400, 176)-(635, 196), Cadre, B LOCATE 4, 61: PRINT "BONJOUR": LOCATE 6, 58: PRINT "B O N J O U R" LINE (400, 46)-(635, 95), 2, B FOR ua = 400 TO 635: FOR ub = 46 TO 95: uc = POINT(ua, ub) IF uc = 15 THEN PSET (ua, ub + 210), 0 PSET (ua - 1, ub + 209), uc - 8 PSET (ua - 2, ub + 208), uc END IF NEXT ub: NEXT ua DO A$ = INKEY$ IF A$ = CHR$(27) THEN END IF A$ = CHR$(0) + CHR$(72) THEN LINE (Qx, Qy)-(Qx + 20, Qy + 20), Cadre, B Qy = Qy - 25: CFond = CFond - 1 END IF IF A$ = CHR$(0) + CHR$(75) THEN LINE (Qx, Qy)-(Qx + 20, Qy + 20), Cadre, B Qx = Qx - 25: CGril = CGril - 1 END IF IF A$ = CHR$(0) + CHR$(77) THEN LINE (Qx, Qy)-(Qx + 20, Qy + 20), Cadre, B Qx = Qx + 25: CGril = CGril + 1 END IF IF A$ = CHR$(0) + CHR$(80) THEN LINE (Qx, Qy)-(Qx + 20, Qy + 20), Cadre, B Qy = Qy + 25: CFond = CFond + 1 END IF IF Qx > 375 THEN Qx = 0 IF Qx < 0 THEN Qx = 375 IF Qy > 375 THEN Qy = 0 IF Qy < 0 THEN Qy = 375 IF CFond > 15 THEN CFond = 0 IF CFond < 0 THEN CFond = 15 IF CGril > 15 THEN CGril = 0 IF CGril < 0 THEN CGril = 15 LINE (Qx, Qy)-(Qx + 20, Qy + 20), 15, B LOOP WHILE A$ = "" LINE (400, 200)-(635, 395), CFond, BF FOR x = 400 TO 635 STEP 2 FOR y = 200 TO 395 STEP 2 PSET (x, y), CGril: PSET (x + 1, y + 1), CGril NEXT y NEXT x LINE (400, 200)-(635, 395), Cadre, B LOOP END
