Index du Forum


Création d'un jeu de GO en Basic! pour Android

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

[QB64]Chargeur d'Images Tpx

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Projet: Time Of Empires -> Vos Programmes ou bout de code
Sujet précédent :: Sujet suivant  
Auteur Message
Mr Siuol
Administrateur

Hors ligne

Inscrit le: 15 Mai 2013
Messages: 24

MessagePosté le: Mar 2 Juil - 12:01 (2013)    Sujet du message: [QB64]Chargeur d'Images Tpx Répondre en citant

Ce programme charge une image Tpx, il range chaque couleur de pixel dans un tableau Bidimensionnel . Il est fait en QB64.
Le programme commence par lire l'image en mettant chaque couleur de pixel dans un tableau.
Après, il affiche l'image , en lisant le tableau !


 
Code:

_FULLSCREEN
SCREEN _NEWIMAGE(800, 600, 32)
WHILE _FILEEXISTS(name$) <> -1
    CLS
    PRINT " Cette fonction sert a chargr les images dans un tableau"
    LINE INPUT "Entrez le Nom, Sans l'extension, de l'image a charger : ", name$
    name$ = name$ + ".tpx"
WEND
OPEN name$ FOR INPUT AS #1

INPUT #1, Largeur$
INPUT #1, Hauteur$

Largeur~% = VAL(Largeur$)
Hauteur~% = VAL(Hauteur$)
DIM Array~&(1 TO Largeur~%, 1 TO Hauteur~%)

FOR H~% = 1 TO Hauteur~% STEP 1
    LINE INPUT #1, tmp$
    FOR L~% = 1 TO Largeur~% STEP 1
        IF NOT MID$(tmp$, 1, 6) = "XXXXXX" THEN
            Array~&(L~%, H~%) = _RGB32(VAL("&H" + MID$(tmp$, 5, 2)), VAL("&H" + MID$(tmp$, 3, 2)), VAL("&H" + MID$(tmp$, 1, 2)))
        ELSE
            Array~&(L~%, H~%) = 0
        END IF
        'PSET (L~%, H~%), _RGB(VAL("&H" + MID$(tmp$, 5, 2)), VAL("&H" + MID$(tmp$, 3, 2)), VAL("&H" + MID$(tmp$, 1, 2)))
        tmp$ = MID$(tmp$, 7)
    NEXT
NEXT
CLOSE #1
PRINT "L'image a ete charge dans un tableau !"
SLEEP
FOR H~% = 1 TO Hauteur~% STEP 1
    FOR L~% = 1 TO Largeur~% STEP 1
        IF NOT Array~&(L~%, H~%) = 0 THEN PSET (L~%, H~%), Array~&(L~%, H~%)
    NEXT
NEXT 


Vous pouvez télécharger la version compilé pour windows: ICI

 


Revenir en haut
Publicité






MessagePosté le: Mar 2 Juil - 12:01 (2013)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Projet: Time Of Empires -> Vos Programmes ou bout de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | créer un forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com