Faire un IMPRIME ECRAN en QBASIC

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « 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 : 24 août 1993 - Révision : 1

Commentaires