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 

[au3]Convertisseur Bmp -> 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 - 11:09 (2013)    Sujet du message: [au3]Convertisseur Bmp -> Tpx Répondre en citant

Ce programme converti les images Bmp 24 bit et les transforment en fichiers Tpx.
Ce programme est fait en AutoIt(=au3). Si vous voulez plus de détails sur le format TPX allez dans "Encodage des Images".

 
Code:


#include <String.au3>
$Nom=""
$B=1
While FileExists($Nom & ".bmp")<>1
    If $B=0 Then MsgBox(0,"Inexistant","Ce fichier n'existe pas ou n'est pas présent dans le répertoire")
    $Nom=InputBox("Nom Du Fichier","Entrez le Nom du fichier à Convertir sans l'extention: ")
    If ( $Nom = "") Then Exit
    $B=1
WEnd

$Largeur=InputBox("Largeur","Entrez la Largeur, en pixel, de l'image: ")
$Hauteur=InputBox("Hauteur","Entrez la Hauteur, en pixel, de l'image: ")

$B = MsgBox(4,"?","Voulez-vous utiliser la transparance ?")

If $B=6 Then
    $Bleu=InputBox("Blue","Entrez la teneur en Bleu de la couleur qui sera transparente:")
    $Rouge=InputBox("Rouge","Entrez la teneur en Rouge de la couleur qui sera transparente:")
    $Vert=InputBox("Vert","Entrez la teneur en Vert de la couleur qui sera transparente:")
    $Trans=Hex(StringLeft(Number($Bleu),3),2) & Hex(StringLeft(Number($Bleu),3),2) & Hex(StringLeft(Number($Bleu),3),2)
Else
    $Trans="0"
EndIf

$File = FileOpen($Nom & ".bmp",0)
$Text=FileRead($Nom & ".bmp")
FileClose($File)

$Text=StringTrimLeft($Text,54)
$Intru=Mod($Largeur,4)
$Largeur3=$Largeur * 3
$Ligne=$Largeur * 3 + $Intru

If FileExists($Nom & ".tpx") Then FileDelete($Nom & ".tpx")
$File = FileOpen($Nom & ".tpx",1)

FileWrite($File,$Largeur & @CR & $Hauteur)

If $Trans = "0" Then
    For $A=1 To $Hauteur
        $Tmp=StringMid($Text,1,$Largeur3)
        $Hex=""
        For $B=1 To $Largeur
            $Hex=Hex(Asc(StringMid($Tmp,1,1)),2) & Hex(Asc(StringMid($Tmp,2,1)),2) & Hex(Asc(StringMid($Tmp,3,1)),2) & $Hex
            $Tmp=StringMid($Tmp,4)
        Next
        FileWrite($File,@CR & $Hex)
        $Text=StringTrimLeft($Text,$Ligne)
    Next
Else
    For $A=1 To $Hauteur
        $Tmp=StringMid($Text,1,$Largeur3)
        $Hex=""
        For $B=1 To $Largeur
            $TmpHex=Hex(Asc(StringMid($Tmp,1,1)),2) & Hex(Asc(StringMid($Tmp,2,1)),2) & Hex(Asc(StringMid($Tmp,3,1)),2)
            If $TmpHex=$Trans Then $TmpHex="XXXXXX"
            $Hex=$Hex & $TmpHex
            $Tmp=StringMid($Tmp,4)
        Next
        FileWrite($File,@CR & $Hex)
        $Text=StringTrimLeft($Text,$Ligne)
    Next
EndIf
MsgBox(0,"Fini","La convertion est fini")

FileClose($File) 

Versions compilées: - 32 bits
                              - 64 bits
                             


Revenir en haut
Publicité






MessagePosté le: Mar 2 Juil - 11:09 (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