|
FULLW #1 'Ouvrir une fenëtre windows FILESELECT "*.bmp","",fic$ 'Sêlectionner un fichier BITMAP r$ = CHR$(13) + CHR$(10) 'Retour á la ligne OPEN "i",#1,fic$ 'Ouvrir le fichier BITMAP en lecture seule af$ = r$ + "HEADER :" af$ = af$ + r$ + " Signature : " + MKI$(INP&(#1)) af$ = af$ + r$ + " Taille du fichier en octets : " + STR$(INP%(#1)) af$ = af$ + r$ + " Rêservê : " + STR$(INP&(#1)) af$ = af$ + r$ + " Rêservê : " + STR$(INP&(#1)) af$ = af$ + r$ + " Offset de l'image : " + STR$(INP%(#1)) af$ = af$ + r$ + r$ + "BITMAP INFO :" af$ = af$ + r$ + " Taille de la zone bitmap info : " + STR$(INP%(#1)) af$ = af$ + r$ + " Largeur en pixels : " + STR$(INP%(#1)) af$ = af$ + r$ + " Hauteur en pixels : " + STR$(INP%(#1)) af$ = af$ + r$ + " Nombre de plans : " + STR$(INP&(#1)) af$ = af$ + r$ + " Bits par pixels (1=monochrome, 4=16 couleurs, 8=256 et 24=16 millions : " + STR$(INP&(#1)) af$ = af$ + r$ + " Compression 0=aucune 1=RLE8 2=RLE4 : " + STR$(INP%(#1)) af$ = af$ + r$ + " Taille de l'image en octets *: " + STR$(INP%(#1)) af$ = af$ + r$ + " Rêsolution pixel par métres largeur : " + STR$(INP%(#1)) af$ = af$ + r$ + " Rêsolution pixel par métres hauteur : " + STR$(INP%(#1)) af$ = af$ + r$ + " Couleurs utilisêes (0=max) : " + STR$(INP%(#1)) af$ = af$ + r$ + " Couleurs importantes (0=toutes) : " + STR$(INP%(#1)) CLOSE #1 'Fin de lectrue du fichier et fermeture du canal ? af$ // Afficher les informations collectêe ? r$ + "* La taille de l'image en 24 bits se calcule comme suit : ((Largeur * 3) + MOD(Largeur,2) * (4 - MOD(Largeur * 3,4))) * Hauteur" ? "Fin... Appuyez sur une touche pour terminer." KEYGET rien% 'Attend l'appui d'une touche CLOSEW #1 'Ferme la fenëtre windows |