Vous êtes actuellement hors ligne, en attente de reconnexion à Internet.

Faire un IMPRIME ECRAN en QBASIC

Ancien nº de publication de cet article : F07902
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.
Symptômes

Comment puis-je faire, dans un programme QBASIC, pour faire une
impression d'écran, de la même façon qu'avec la touche IMPR ECRAN de mon
clavier ?

Résolution

Pour réaliser cette opération, il faut insérer le code BASIC suivant dans
votre programme :

DIM a%(2)
DEF SEG = VARSEG(a%(0))
FOR i% = 0 TO 2
READ d%
POKE VARPTR(a%(0)) + i%, d%
NEXT i%
DATA 205, 5, 203 : ' int 5 retf 'Code en langage machine
'pour imprimer l'écran
CALL ABSOLUTE(VARPTR(a%(0)))
DEF SEG
Propriétés

ID d'article : 457902 - Dernière mise à jour : 08/24/1993 00:00:00 - Révision : 1.0

Microsoft MS-DOS 6.0 Standard

  • impress KB457902
Commentaires