Gladir.com - Basic Pro du MonsterBook - Animation et effets spéciaux - TScroll


Comme tous les rêveurs de mon espèce, j'ai rêvé des merveilles pouvant être accomplis avec un microprocesseur 80386 et une carte VGA comme le montre si bien le livre «PC Interdit». Aimant tellement se genre de matériel, j'ai délibérément ajouté des instructions supplémentaires et des fonctions pour permettre de tirer facilement partie des propriétés de se genre de matériel. Cependant, bien que ce code fonctionnait a merveille sous des vieilles machines ne tournant pas avec Windows, les résultats sont devenues de plus en plus incompatible grâce à la montée en puissance de Windows au détriment du DOS. En somme, ce code est dédié au rêveur du passé ayant révolution les possibilités du DOS! A l'aide du code source «Basic Pro du MonsterBook» suivant, vous trouvez la réponse que vous souhaitez:
' Démonstrateur de défilement d'écran sous le Basic PRO
' Tous droits réservés par Gladir.com 1997
' Programmeur: Sylvain Maltais
SCREEN 0:WIDTH 80:COLOR 7,0
BytesPerLine(320)            'Instruction supplémentaire pour faire élargir les bandes écran en 320/2=160 caratères de large
FillBox(0,0)-(159,49),7,"-"  'Permet de créer une boîte avec un caractère spécifique
Y=0:YDir=1
FOR J%=0TO 49:FOR I%=0TO 15:HPRINT(I%*10,J%),I%:NEXT I%:NEXT
WHILE INSTAT=0
 Y=Y+YDir
 IF Y<=0 OR Y>=NumYTexts*16THEN YDir=-YDir
 VScale Y
WEND
K%=ReadKey:X=0:XDir=1
WHILE INSTAT=0
 X=X+XDir
 IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
 HScale X
WEND
K%=ReadKey
WHILE INSTAT=0
 X=X+XDir:Y=Y+YDir
 IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
 IF Y<=0OR Y>=NumYTexts*16THEN YDir=-YDir
 VScale Y
 HScale X
WEND
K%=ReadKey
FillBox(0,0)-(159,49),&H70,"þ"
PAGE 1:FillBox(0,0)-(159,49),7,"-"
FOR J%=1TO 50:FOR I%=1TO 16:LOCATE J%,I%*10-9:PRINT I%;:NEXT:NEXT
X=0:XDir=1:Y=0:YDir=1:I=0:IDir=1
WHILE INSTAT=0
 X=X+XDir:Y=Y+YDir:I=I+IDir
 IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
 IF Y<=0OR Y>=NumYTexts*16THEN YDir=-YDir
 IF I<=0OR I>=NumYTexts*16THEN IDir=-IDir
 SplitScreen I
 VScale Y
 HScale X
WEND
SCREEN 0

Dernière mise à jour: Lundi, le 2 avril 2007