Besoin d'un oeil neuf

J 'ai créé une version 3 de coloramic.
Dans cette version, les fichiers en auto création sont placés
dans deux #include, un pour les fichiers *.bmp et un pour les fichiers *.txt.
En entête de ces deux fichiers figure la fonction de re-création des fichiers.
Pour les images, pas de souci mais pour les fichiers texte, affraid

bug dans la fonction...

Les fichiers sont bien créés, à la bonne place mais au lieu de les remplir avec le texte en data,
la fonction les remplit avec le nom de la variable sensée contenir le texte en data.... scratch

Quelqu'un voit il une horreur..heu...une erreur de ma part dans l'écriture de celle ci ?

Code:: Create_File_txt:
for db%=1 to 6
read Dir$ :read Titre$:read Nb_Lign%
file_open_write 9000,Dir$+"\"+Titre$+".txt"
for x%=1 to Nb_Lign%
read donnee$
file_writeln 9000,donnee$
next x%
file_close 9000
next db%
return
data "C:\Users\Yannick\Desktop\Coloramic_V3\Langues","French",21
data "Fichier"
data "Langue"
data "A Propos"
data "Aide"
data "Ouvrir"
data "Quitter"
data "Double cliquer pour effacer un item"
data "Valider"
data "Annuler"
data "Patienter pendant la conversion"
data "De"
data "Vers"
data "Cette application a été créée avec :"
data "PANORAMIC EDITOR"
data "Vs 0.9.23 du 19/07/2012"
data "Créé par :"
data "ygeronimi"
data "avec la collaboration de la communauté des panoramiciens"
data "Cette application est ''Freeware'' et ne peut donc être vendue"
data "Cliquez pour nous rejoindre..."
data "Fichier inexistant"
Data "C:\Users\Yannick\Desktop\Coloramic_V3\Langues","English",21
Data "Files"
Data "Langage"
Data "About"
Data "Help"
Data "Open"
Data "Exit"
Data "Double click to clear an item"
Data "Valid"
Data "Cancel"
Data "Wait please..."
Data "From"
Data "To"
Data "This application was created with :"
Data "PANORAMIC EDITOR"
Data "Vs 0.9.23 of 19/07/2012"
Data "Created by :"
Data "ygeronimi"
Data "with the collaboration of panoramiciens"
Data "This application is freeware and can not be sold"
Data "Click to join us..."
Data "Unknown file..."
Data "C:\Users\Yannick\Desktop\Coloramic_V3\Langues","Deutsch",21
data "Datei"
data "Sprache"
data "Über"
data "Die Beihilfen"
data "Öffnen"
data "Verlassen"
data "Doppelklick auf ein Element zul Löschen"
data "Bestätigen"
data "Kündigen"
data "Warten auf die Umwandlung"
data "von"
data "auf"
Data "Dieses Programm wurde erstellt mit :"
Data "PANORAMIC EDITOR"
Data "Vs 0.9.23 von 19/07/2012"
Data "Erstellt von :"
Data "ygeronimi"
Data "In Zusammenarbeit mit der Gemeinde der Panoramiker"
Data "Diese Anwendung ist Freeware und kann nicht verkauft werden"
Data "Klicken Sie, um sich uns anzuschließen ..."
Data "Vorhandene Datei..."
Data "C:\Users\Yannick\Desktop\Coloramic_V3\Aide","Aide_French",64
Data "Fonction de Coloramic ?"
Data "****************************"
Data ""
data "Coloramic a pour fonction de changer une couleur d'une image"
data "par une autre."
data "Lorsqu'une couleur est utilisée pour la transparence, il y a des"
data "risques d'une altération de l'image à son affichage."
data "En changeant la couleur transparente par sa couleur voisine"
data "la plus proche l'oeil ne détecte pas ce changement mais"
data "l'affichage s'en trouve amélioré."
data ""
data "Comment installer Coloramic ?"
data "***********************************"
data ""
data "- ''Coloramic.exe'' et le fichier ''KGF.dll'' ainsi que ''Fd.jpg''"
data "sont à placer dans un même dossier."
data ""
data "- Lancer l'exécutable, il créée lui même les dossiers et fichiers"
data "indispensables à son bon fonctionnement."
data ""
data "- Vous pouvez ajouter les drapeaux des pays dont la langue"
data "est présente dans ''...Coloramic\Langue''"
data "dans le dossier ''...Coloramic\Flags''"
data ""
data ""
data "Comment utiliser Coloramic ?"
data "**********************************"
data ""
data "- Cliquer sur ''Fichier\Ouvrir'' une boite de dialogue apparait."
data ""
data "- Choisir le dossier à charger dans Coloramic, en le selectionnant"
data "le contenu apparait dans la liste de droite."
data ""
data "- Valider le choix du dossier, tous les fichiers portant l'extension"
data "*.bmp sont chargés dans Coloramic, la boite de dialogue disparait"
data "et laisse place à une fenêtre. Dans la liste apparaissent tous les fichiers"
data "chargés avec leurs dimensions ( H x L )."
data ""
data "- Pour effacer un fichier de la liste, double-cliquez sur celui ci dans"
data "la liste"
data ""
data "- Choisir la couleur à changer, une image avec trois selecteurs de"
data "couleur ( en bas à gauche ) permettent de selectionner et visualiser"
data "la couleur à changer (0,0,0 par défaut)."
data ""
data "- Choisir la couleur de remplacement, une image avec trois selecteurs"
data "de couleur ( en bas à droite ) permettent de selectionner et visualiser"
data "la couleur à obtenir (0,0,1 par défaut)."
data ""
data "- Valider et une barre d'état apparait et indique le pourcentage de"
data "conversion effectué. La barre disparait, tous les fichiers sont convertis"
data "et se trouvent dans le dossier ''...Coloramic\BE_OutPut''"
data ""
data "Avertissement !"
data "******************"
data ""
data "Si vous incorporez un fichier dans le dossier ''...\Coloramic\Langue''."
data "Le fichier doit être au format *.txt et se conformer aux lignes des fichiers"
data "existants tant par le nombre de celles-ci que par la traduction."
data "Tout autre formatage est à vos risques et périls."
data ""
data "Si vous insérez un fichier dans le dossier ''...\Coloramic\Flags''."
data "Il doit être au format *.bmp ( 24 couleurs )."
data "Tout autre formatage est à vos risques et périls."

NB : Ceci n'est qu'une partie du code, j'ai placé les 3 fichiers sur mon Webdav ( trop de lignes pour le forum )
dans le dossier "Coloramic_V3"

http://www.mydrive.ch/
panoramicien@ygeronimi_panoramic
panoramic123

Bizarre ! vous avez dit Bizarre...
...comme c'est étrange...

J'ai remplacé ma variable Donnee$ par Lign$ et voilà que çà fonctionne correctement... scratch

Salut ygeronimi

Dans le bout de code que tu as publié, il n’y a pas de problème avec ta variable Donnee$. Et il n’y a aucune raison de la changer par une autre.
Mais le problème se trouve dans la boucle principale:
for db%=1 to 6
…
Cette boucle est sensée lire 6 fois un ensemble de lignes DATA, or, il n’y a QUE 4 BLOCS DE DATA
Il devrait y avoir une erreur de type ‘Out of data.Line xxx’

Le remède :
soit tu changes la boucle ainsi
For db% = 1 to 4
…
Soit tu complètes les DATA manquantes.

A+

la boucle est correct, ce n'est qu'un extrait du code la totalité fait 33000 lignes environ
tu comprendras que si je mets tout, je fais faire BOUMmm!!! au serveur du forum.... Laughing

et là en fait il n'y a qu' 1 bloc pas 4, 1 bloc = 1 fichier *.txt

Embarassed

heu...non en fait celui là en fait 271 c'est les images qui en fait plus de 33000

Quel est donc le problème ?

J’ai testé ton code et j’ai obtenu les 4 fichiers dont les contenus sont corrects :

Aide_French.txt
Deutsch.txt
English.txt
French.txt

Je n'y comprends plus rien, le contenu des fichiers était "donnee$" à chaque ligne
au lieu du contenu de la variable donnee$

Edit : ceci dit, j'ai changé le nom de la variable et tout est rentré dans l' ordre...

Mais il n’y a aucune raison à cela !
A moins que …..
Vérifie la ligne :
file_writeln 9000 , donnee$

Peut-être que tu as écrit "donnee$" au lieu de donnee$.

Voici le texte que j’ai obtenu : c’est CORRECT

Code:: Fonction de Coloramic ?
****************************

Coloramic a pour fonction de changer une couleur d'une image
par une autre.
Lorsqu'une couleur est utilisée pour la transparence, il y a des
risques d'une altération de l'image à son affichage.
En changeant la couleur transparente par sa couleur voisine
la plus proche l'oeil ne détecte pas ce changement mais
l'affichage s'en trouve amélioré.

Comment installer Coloramic ?
***********************************

- ''Coloramic.exe'' et le fichier ''KGF.dll'' ainsi que ''Fd.jpg''
sont à placer dans un même dossier.

- Lancer l'exécutable, il créée lui même les dossiers et fichiers
indispensables à son bon fonctionnement.

- Vous pouvez ajouter les drapeaux des pays dont la langue
est présente dans ''...Coloramic\Langue''
dans le dossier ''...Coloramic\Flags''

Comment utiliser Coloramic ?
**********************************

- Cliquer sur ''Fichier\Ouvrir'' une boite de dialogue apparait.

- Choisir le dossier à charger dans Coloramic, en le selectionnant
le contenu apparait dans la liste de droite.

- Valider le choix du dossier, tous les fichiers portant l'extension
*.bmp sont chargés dans Coloramic, la boite de dialogue disparait
et laisse place à une fenêtre. Dans la liste apparaissent tous les fichiers
chargés avec leurs dimensions ( H x L ).

- Pour effacer un fichier de la liste, double-cliquez sur celui ci dans
la liste

- Choisir la couleur à changer, une image avec trois selecteurs de
couleur ( en bas à gauche ) permettent de selectionner et visualiser
la couleur à changer (0,0,0 par défaut).

- Choisir la couleur de remplacement, une image avec trois selecteurs
de couleur ( en bas à droite ) permettent de selectionner et visualiser
la couleur à obtenir (0,0,1 par défaut).

- Valider et une barre d'état apparait et indique le pourcentage de
conversion effectué. La barre disparait, tous les fichiers sont convertis
et se trouvent dans le dossier ''...Coloramic\BE_OutPut''

Avertissement !
******************

Si vous incorporez un fichier dans le dossier ''...\Coloramic\Langue''.
Le fichier doit être au format *.txt et se conformer aux lignes des fichiers
existants tant par le nombre de celles-ci que par la traduction.
Tout autre formatage est à vos risques et périls.

Si vous insérez un fichier dans le dossier ''...\Coloramic\Flags''.
Il doit être au format *.bmp ( 24 couleurs ).
"Tout autre formatage est à vos risques et périls.

Est-ce que tu utilises la variables Donnee$ dans une autre partie du programme, pour autre chose ?
C’est bizarre c’est que tu dis : une variable au nom de donnee$ ne marche pas, alors qu’une variable au nom de lign$ marche !
!!! Il y a certainement une explication à ça !!!

Je pense que cette variable étant présente dans deux gosub successif,
et l'un n'attendant pas la fin de l'autre ( contrairement à ce que je pensais ),
la variable devait se retrouver en utilisation dans la deuxième avant d'en avoir finit
dans la première.

ceci dit je n'avais pas de message d'erreur bloquant...

Ceci est, sans doute, parce que PANORAMIC, ne connait pas les variables locales.
Toutes les variables déclarées dans un programme PANORAMIC sont des variables globales.
Toute modification de la valeur d’une valeur sera répercutée dans le reste du programme.

je crois que je vais opté pour la façon de certains
qui déclare les variables d'une fonction en début de celle ci
et les liberent par "free" à la fin de la fonction.

sauf pour celles qui doivent suivre l'intégralité du programme
style x% qui est ma variable passe partout ou celles des noms de dossier...

Bonne méthode, en attendant que PANORAMIC reconnaisse les variables locales qui sont utilisées dans des sous-programmes (fonction et/ou procédure).

» j'ai besoin d'aide avec dir_change
» Quoi de neuf à propos de Goric 3D ? (@Jack)
» Besoin de tests
» besoin daide pour code
» Besoin d'info sur les variables