TI-Nspire Image Converter 3

→ **MyCalcs** profile · by **Excale** » 13 Nov 2010, 20:50

Levak wrote:Comment tu peux être sûr alors, si tu es un logiciel que ta lib est présente dans ce dossier ?
Il faut le faire manuellement en donnant le chemin d'accès et tout le tralala... un enfer à programmer

Sous Windows il y a un dossier pour stocker toutes les libs. Souvent, les programmes vérifient si elle est dedans et agissent en conséquence.
Mais parfois ils laissent les libs directement dans le fichier d'installation, donc inaccessibles pour les autres...

My calculator programs · by **Adriweb** » 13 Nov 2010, 21:14

Perso, même en ASCII je vois pas de "ÿ" ou de " "... :/ je me repencherai sur ce problème demain

My calculator programs · by **Adriweb** » 14 Nov 2010, 13:03

Oui, j'ai finalement vu les "ÿ" et tout ca avec un éditeur hexa... Je verrai ca plus tard pour faire marcher tout ca dans le programme.

Sinon, pour le FileRead, par exemple la :

Code: Select all: For $k = 1 to 318 [...] $bmpbrut = FileRead($bmpfile, 1) [...]

Le FileRead va donc lire les 2 premiers caracteres du fichiers ,et ceci 318 fois ?

Donc le $bmpbrut va contenir les memes characteres 318 fois ... ?

Tu en penses quoi ?

→ **MyCalcs** profile · by **Excale** » 14 Nov 2010, 13:14

AdRiWeB wrote:Oui, j'ai finalement vu les "ÿ" et tout ca avec un éditeur hexa... Je verrai ca plus tard pour faire marcher tout ca dans le programme.

Sinon, pour le FileRead, par exemple la :

Code: Select all
For $k = 1 to 318 [...] $bmpbrut = FileRead($bmpfile, 1) [...]

Le FileRead va donc lire les 2 premiers caracteres du fichiers ,et ceci 318 fois ?

Donc le $bmpbrut va contenir les memes characteres 318 fois ... ?

Tu en penses quoi ?

Je crois que je vais aller commenter mon code, ce sera plus simple.
Fileread(nombre d'octets à prendre) c'est plutôt takeinthefile(nombre d'octets à prendre).
J'en met deux à la poubelle (d'où ma superbe variable poubelle), et puis je prends le suivant.

→ **MyCalcs** profile · by **Excale** » 14 Nov 2010, 13:28

Voilà:

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=BMP2XML.exe #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;~ 318*212 ;~ liste max: 318*34 == 318*35 ;~ On ouvre les deux fichiers (lecture+écriture) $xmlfile=FileOpen( "Problem1.xml", 2) ; Check if file opened for writing OK If $xmlfile = -1 Then MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier") Exit EndIf $bmpfile=FileOpen( "converted.bmp", 0) ; Check if file opened for reading OK If $bmpfile = -1 Then MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier") Exit EndIf ;~ On écrit le début du fichier xml FileWrite($xmlfile, "?xml version=""1.0"" encoding=""UTF-8"" ?prob xmlns=""urn:TI.Problem"" ver=""1.0""syme t=""1"" f=""0""nx1/nv{") ;~ On vire l'entête du bmp (fileread prends le nombre d'octets demandé) $poubelle = FileRead($bmpfile, 54) For $i = 1 To 7 ;~ ça c'est pour que les listes ne soint pas trop grosses If $i 1 Then ;~ On écrit la transition entre deux variables FileWrite($xmlfile, "-1}/v/ee t=""1"" f=""0""nx" $i "/nv{") EndIf For $j = 1 To 31 ;~ en gros c'est le Y de l'image (je rapelle qu'un fichier bmp est écrit en ligne en partant de la ligne du bas) For $k = 1 to 318 ;~ en gros c'est le X de l'image ;~ un pixel est codé par 3 octets: on a que 00000000*3 et 11111111*3, donc je vire les deux premiers $poubelle = FileRead($bmpfile, 2) ;~ et là je prends le troisième $bmpbrut = FileRead($bmpfile, 1) If @error = -1 Then ;~ si pas fichu de lire (arrivé au bout du fichier), pas grave on fait rien $poubelle = $poubelle ElseIf $bmpbrut = "" Then ;~ si on tombe sur 00000000, ca donne un pixel noir alors on écrit la coordonée X du point (qui correspond à $k), et on met une virgule pour séparer le points FileWrite($xmlfile, $k) FileWrite($xmlfile, ",") Endif Next ;~ règle du bmp dans ce cas là, on vire 2 octets pour finnir la ligne $poubelle = FileRead($bmpfile, 2) Next Next ;~ on... ferme le bmp FileClose($bmpfile) ;~ on le rouvre. Le curseur est donc repositionné au premier octet $bmpfile=FileOpen( "converted.bmp", 0) ; Check if file opened for reading OK If $bmpfile = -1 Then MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier") Exit EndIf ;~ on remet l'entête dehors $poubelle = FileRead($bmpfile, 54) ;~ encore une transiton entre les variables FileWrite($xmlfile, "-1}/v/ee t=""1"" f=""0""ny1/nv{") For $i = 0 To 6 ;~ ça c'est pour que les listes ne soint pas trop grosses If $i 0 Then ;~ On écrit la transition entre deux variables FileWrite($xmlfile, "-1}/v/ee t=""1"" f=""0""ny" $i + 1 "/nv{") EndIf ;~ voir en haut, c'est pareil (sauf que l'on écrit Y et non X) For $j = 1 to 31 For $k = 1 to 318 $poubelle = FileRead($bmpfile, 2) $bmpbrut = FileRead($bmpfile, 1) If @error = -1 Then $poubelle = $poubelle ElseIf $bmpbrut = "" Then FileWrite($xmlfile, $j + $i * 31 ) FileWrite($xmlfile, ",") Endif Next $poubelle = FileRead($bmpfile, 2) Next Next FileClose($bmpfile) ;~ On écrit la fin du fichier xml. je l'ai fait en 2 ligne sinon c'était trop gros. rappel: "" est en fait " en réalité FileWrite($xmlfile, "-1}/v/e/symcard clay=""0"" h1=""10000"" h2=""10000"" w1=""10000"" w2=""10000""flag0/flagwdgt xmlns:gg=""urn:TI.GeoGrapher"" type=""TI.GeoGrapher"" ver=""1.0""gg:mFlags2048/gg:mFlagsgg:value1/gg:valuegg:anim_x10/gg:anim_xgg:anim_y35/gg:anim_ygg:figgg:ver3/gg:vergg:objsgg:axes_systemgg:id1/gg:idgg:axes_p/gg:axes_pgg:xorg50/gg:xorggg:yorg50/gg:yorggg:xuni0.34185/gg:xunigg:yuni0.34185/gg:yunigg:xmin-20/gg:xmingg:xmax20/gg:xmaxgg:ymin-10/gg:ymingg:ymax10/gg:ymaxgg:acol0/gg:acolgg:aast0/gg:aastgg:aazm4/gg:aazmgg:apth0/gg:apthgg:asho1/gg:ashogg:lbl/gg:lblgg:stat0/gg:stat/gg:axes_systemgg:axisgg:id2/gg:idgg:par1 /gg:pargg:xaxis/gg:xaxisgg:smrt2/gg:smrtgg:sm1-6.837/gg:sm1gg:sm26.837/gg:sm2gg:alco0/gg:alcogg:acst0/gg:acstgg:apst0/gg:apstgg:apth0/gg:apthgg:asho1/gg:ashogg:ales0/gg:alesgg:lblx/gg:lblgg:stat16/gg:stat/gg:axisgg:labelgg:id3/gg:idgg:par2 /gg:pargg:lbl_agg:t0.5/gg:tgg:dx0/gg:dxgg:dy0/gg:dy/gg:lbl_agg:chrs1 1 3 0 0 0 x/gg:chrsgg:deta0/gg:detagg:atta1/gg:attagg:x57.41200005/gg:xgg:y50.42499995/gg:ygg:atco0/gg:atcogg:afon0/gg:afongg:asho1/gg:ashogg:lbl/gg:lblgg:stat0/gg:stat/gg:labelgg:axisgg:id4/gg:idgg:par1 /gg:pargg:yaxis/gg:yaxisgg:smrt2/gg:smrtgg:sm1-3.4185/gg:sm1gg:sm23.4185/gg:sm2gg:alco0/gg:alcogg:acst0/gg:acstgg:apst0/gg:apstgg:apth0/gg:apthgg:asho1/gg:ashogg:ales0/gg:alesgg:lbly/gg:lblgg:stat16/gg:stat/gg:axisgg:labelgg:id5/gg:idgg:par4 /gg:pargg:lbl_agg:t0.5/gg:tgg:dx0/gg:dxgg:dy0/gg:dy/gg:lbl_agg:chrs1 1 3 0 0 0 y/gg:chrsgg:deta0/gg:detagg:atta1/gg:attagg:x49.82500005/gg:xgg:y54.59349995/gg:ygg:atco0/gg:atcogg:afon0/gg:afongg:asho1/gg:ashogg:lbl/gg:lblgg:stat0/gg:stat/gg:labelgg:gridgg:id6/gg:idgg:par1 /gg:pargg:grid_as/gg:grid_asgg:acol10066329/gg:acolgg:agst0/gg:agstgg:apth0/gg:apthgg:asho0/gg:ashogg:lbl/gg:lblgg:stat16/gg:stat/gg:gridgg:expressiongg:id7/gg:idgg:r_expr/gg:r_exprgg:expr{x1,y1}/gg:exprgg:prms/gg:prmsgg:lbls1/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id8/gg:idgg:par7 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id9/gg:idgg:r_expr/gg:r_exprgg:expr{x2,y2}/gg:exprgg:prms/gg:prmsgg:lbls2/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id10/gg:idgg:par9 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id11/gg:idgg:r_expr/gg:r_exprgg:expr{x3,y3}/gg:exprgg:prms/gg:prmsgg:lbls3/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id12/gg:idgg:par11 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id13/gg:idgg:r_expr/gg:r_exprgg:expr{x4,y4}/gg:exprgg:prms/gg:prmsgg:lbls4/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id14/gg:idgg:par13 1 /gg:pargg:scat_e/gg:scat_egg:acol0") FileWrite($xmlfile, "/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id15/gg:idgg:r_expr/gg:r_exprgg:expr{x5,y5}/gg:exprgg:prms/gg:prmsgg:lbls5/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id16/gg:idgg:par15 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id17/gg:idgg:r_expr/gg:r_exprgg:expr{x6,y6}/gg:exprgg:prms/gg:prmsgg:lbls6/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id18/gg:idgg:par17 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plotgg:expressiongg:id19/gg:idgg:r_expr/gg:r_exprgg:expr{x7,y7}/gg:exprgg:prms/gg:prmsgg:lbls7/gg:lblgg:stat73744/gg:stat/gg:expressiongg:scatter_plotgg:id20/gg:idgg:par19 1 /gg:pargg:scat_e/gg:scat_egg:acol0/gg:acolgg:asho1/gg:ashogg:adst6/gg:adstgg:adcn0/gg:adcngg:apac-255 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 /gg:apacgg:lbl/gg:lblgg:stat0/gg:stat/gg:scatter_plot/gg:objsgg:toolgg:ToolGraphergg:vis0/gg:visgg:dhs/gg:dhsgg:phs/gg:phsgg:shs*s1**s2**s3**s4**s5**s6**s7*/gg:shs/gg:ToolGraphergg:ToolScalegg:len20/gg:lengg:vis0/gg:vis/gg:ToolScale/gg:toolgg:anim1/gg:animgg:w100/gg:wgg:h100/gg:hgg:vpx42.05/gg:vpxgg:vpy54.6/gg:vpygg:geos1/gg:geosgg:geoucm/gg:geou/gg:fig/wdgt/card/prob") FileClose($xmlfile)

Mes programmes · by **Levak** » 14 Nov 2010, 13:42

Je dois dire que tu as de grosses erreurs de logique des fois... (tu vas me dire "ça marche", justement, c'est le moment de faire mieux)

Code: Select all
If @error = -1 Then ;~ si pas fichu de lire (arrivé au bout du fichier), pas grave on fait rien $poubelle = $poubelle ElseIf $bmpbrut = "" Then ;~ si on tombe sur 00000000, ca donne un pixel noir alors on écrit la coordonée X du point (qui correspond à $k), et on met une virgule pour séparer le points FileWrite($xmlfile, $k) FileWrite($xmlfile, ",") Endif

$poubelle = $poubelle
-_- sérieusement...

Allez, je t'aide :

Code: Select all: If @error != -1 $bmpbrut = "" Then ;~ si on tombe sur 00000000, ca donne un pixel noir alors on écrit la coordonée X du point (qui correspond à $k), et on met une virgule pour séparer le points FileWrite($xmlfile, $k) FileWrite($xmlfile, ",") Endif

J'ai rectifié avec une syntaxe correspondant au C, je ne connais pas exactement le langage donc je te laisse corriger.
!= - différent de
- ET conditionnel

→ **MyCalcs** profile · by **Excale** » 14 Nov 2010, 13:51

Levak wrote:$poubelle = $poubelle
-_- sérieusement...

Allez, je t'aide :
Code: Select all
If @error != -1 $bmpbrut = "" Then ;~ si on tombe sur 00000000, ca donne un pixel noir alors on écrit la coordonée X du point (qui correspond à $k), et on met une virgule pour séparer le points FileWrite($xmlfile, $k) FileWrite($xmlfile, ",") Endif

J'ai rectifié avec une syntaxe correspondant au C, je ne connais pas exactement le langage donc je te laisse corriger.
!= - différent de
- ET conditionnel

Malheureusement, ça ne marche pas.

Soit $bmpbrut me retourne 0, soit il me retourne 255.
Il faut écrire le point si $bmpbrut vaut 0.
Or, si @error vaut -1 , j'ai une chance sur deux que $bmpbrut vaille 0, et là il ne faut pas écrire le point.

EDIT: Le contrôle du flood bug, j'en suis à bien plus de 10sec.
edit by Levak : dsl j'ai fail entre quote et edit, donc j'ai "rectifié" de ce que je me souvenais.

Mes programmes · by **Levak** » 14 Nov 2010, 14:03

Excale wrote:
Malheureusement, ça ne marche pas.

Soit $bmpbrut me retourne 0, soit il me retourne 255.
Il faut écrire le point si $bmpbrut vaut 0.
Or, si @error vaut -1 , j'ai une chance sur deux que $bmpbrut vaille 0, et là il ne faut pas écrire le point.

C'est ce que je dis, tu as un problème de logique.
Alors soit ton $poubelle=$poubelle va muter et qu'il va y avoir quelque chose de plus logique à mettre, en attendant, ma solution est EXACTEMENT la même qu'avant dans le sens logique.
Si Effectivement plus tard tu as envie de rajouter des choses dans la branche error=-1 ... ok.

Reprenons :

If error = -1 bmpbrut = 0
- si error = -1 ET si bmpbrut = 0 alors on rentre dans la condition
c'est la même chose que :
- si jamais error != -1 OU si jamais bmpbrut != 0 on ne rentre pas dans la condition donc on a rien fait

Tu avais fait :
If error = -1
- si error = -1 alors on rentre dans la condition qui ne fait rien (=fuite)
- si error != -1 alors :
---- If bmpbrut = 0
---- si bmpbrut = 0 alors on rentre dans la condition
---- si bmpbrut !=0 on a rien fait

Ça revient au même.

→ **MyCalcs** profile · by **Excale** » 14 Nov 2010, 14:07

Levak wrote:C'est ce que je dis, tu as un problème de logique.

J'ai lu trop vite et j'ai pas vu le bmpbrut=""

, désolé.

My calculator programs · by **Adriweb** » 14 Nov 2010, 14:38

merci pour le nouveau code, mais il a maintenant assez changé, donc je vais devoir réécrire certaines parties

pas grave, on n'est pas si pressé.

Par contre, ca m'embete toujours un peu ces histoires de FileRead

Il faudrait une config qui fasse pas à pas ton code et voir le résultat en temps réel, avec à coté la même chose sur Mac avec mon script...

Par exemple, juste pour clarifier
Prenons le fichier .bmp comme ceci : "ABCDEF" (juste pour l'exemple...)

Code: Select all: $poubelle = FileRead($bmpfile, 2) $bmpbrut = FileRead($bmpfile, 1)

renvoie :

$poubelle : "AB"
$bmpbrut : "A"

J'ai bien l'impression que ce que toi tu veux faire fait en sorte que $bmpbrut = "C" (car c'est 1 position apres le "AB"