Publi้ par SFLPMEA le 12/05/2006
Programme OMBRE.BAS en Qbasic. Présentation du bureau avec deux méthodes d'ombre de caractères et cadres. Par SFLPMEA.
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
' *** OMBRE.BAS SCREEN 12 CLS : Ce% = 4 ' *** Couleur Ecriture Co% = 2 ' *** Couleur de l'ombre COLOR Ce% LOCATE 5, 20: PRINT "ษออออออออออออหออออออออออออหออออออออออออป" LOCATE 6, 20: PRINT "บ N๘1 บ SFLPMEA บ N๘3 บ" LOCATE 7, 20: PRINT "ฬออออออออออออฮออออออออออออฮออออออออออออน" LOCATE 8, 20: PRINT "บ N๘4 บ N๘5 บ N๘6 บ" LOCATE 9, 20: PRINT "ศออออออออออออสออออออออออออสออออออออออออผ" FOR x% = 152 TO 480: FOR y% = 64 TO 144 P% = POINT(x%, y%) IF P% = Ce% THEN xo% = x% + 1: yo% = y% + 1 IF POINT(xo%, yo%) = 0 THEN PSET (xo%, yo%), Co% END IF NEXT y%: NEXT x% COLOR Ce% LOCATE 10, 20: PRINT "ษออออออออออออหออออออออออออหออออออออออออป" LOCATE 11, 20: PRINT "บ N๘1 บ ANGE.NOIR บ N๘3 บ" LOCATE 12, 20: PRINT "ฬออออออออออออฮออออออออออออฮออออออออออออน" LOCATE 13, 20: PRINT "บ N๘4 บ N๘5 บ N๘6 บ" LOCATE 14, 20: PRINT "ศออออออออออออสออออออออออออสออออออออออออผ" FOR x% = 152 TO 480: FOR y% = 144 TO 224 P% = POINT(x%, y%) IF P% = Ce% THEN xo% = x% + 1: yo% = y% + 1 PSET (xo%, yo%), Co% END IF NEXT y%: NEXT x% COLOR Ce% LOCATE 15, 20: PRINT "ษออออออออออออหออออออออออออหออออออออออออป" LOCATE 16, 20: PRINT "บ N๘1 บ NATUREL บ N๘3 บ" LOCATE 17, 20: PRINT "ฬออออออออออออฮออออออออออออฮออออออออออออน" LOCATE 18, 20: PRINT "บ N๘4 บ N๘5 บ N๘6 บ" LOCATE 19, 20: PRINT "ศออออออออออออสออออออออออออสออออออออออออผ" COLOR 15
