J'ai plus les yeux en face des trous RESOLU !

j'ai un message d'objet déja défini en ligne : 105
mais là je vois pas, j'ai exprès commencé à 400 pour être sur de ne pas tombé sur un objet déjà déclaré ... scratch

Code:: ' La variable passe partout
dim x%, M% ,Lg$,a$
dim Dossier$,Doss_Langue$,Doss_Img$,Doss_Son$,Doss_Bdd$
dim Param$,Langue$,Base$
dim Titre$(20),Animal$(8),Num_memo%(10)

label Init_Prog,Init_List,Init_Langue,Menu_Langue
label Menu,Jouer,Arreter,Lien,Quitter
label Enrgt_Choix,Suivant,Ecouter
' ******************************************************************************
' Definition de la fenêtre principale
height 0,350 :width 0,500:top 0,(screen_y-350)/2:left 0,(screen_x-500)/2
caption 0,"Les animaux du monde"

' Le menu
main_menu 1
for x% =2 to 5
sub_menu x%:parent x%,1:on_click x%,Menu
next x%
for x% =6 to 8
sub_menu x%:parent x%,2:on_click x%,Menu
next x%
' Le container pour le jeu
container 100:hide 100
top 100,5 : left 100,5:height 100,280:width 100,475:font_name 100,"Times new roman"
for x% =101 to 109 :alpha x% :parent x%,100:next x%
for x%=101 to 109:caption x%,"Xxxxx":next x%
top 101,25:left 101,100:font_size 101,16
top 102,60:left 102,13
top 103,60:left 103,60
top 104,60:left 104,160
top 105,60:left 105,207
top 106,60:left 106,307
top 107,60:left 107,354
top 108,100:left 108,200
top 109,255:left 109,13

button 110:parent 110,100:top 110,250:left 110,385:width 110,24:cursor_point 110
caption 110,"X":font_name 110,"Webdings":font_size 110,12:on_click 110,Ecouter
button 111:parent 111,100:top 111,250:left 111,415:width 111,24:cursor_point 111
caption 111,"4":font_name 111,"Webdings":font_size 111,12:on_click 111,Enrgt_Choix
button 112:parent 112,100:top 112,250:left 112,445:width 112,24:cursor_point 112
caption 112,"8":font_name 112,"Webdings":font_size 112,12:on_click 112,Suivant
list 113:parent 113,100:top 113,120:left 113,200:width 113,200:height 113,120
picture 114:parent 114,100:top 114,95:left 114,10:width 114,150:height 114,150

' Le container pour l'A Propos
container 200:hide 200
top 200,5 : left 200,5:height 200,280:width 200,475
alpha 201:parent 201,200:top 201,30:left 201,20:caption 201,"Cet Utilitaire a été créé avec:":font_name 201,"Arial"
alpha 202:parent 202,200:top 202,60:left 202,50:caption 202,"PANORAMIC":font_name 202,"Arial":font_size 202,15
cursor_point 202:font_bold 202:font_color 202,0,0,255:on_click 202,Lien
hint 202,"Cliquez pour rejoindre la communauté des ''Panoramiciens''"
alpha 203:parent 203,200:top 203,68:left 203,190:caption 203,"Vs 0.9.23i6 du 16/05/2012":font_name 203,"Arial"
alpha 204:parent 204,200:top 204,100:left 204,40:caption 204,"Pour respecter l'esprit, cet utilitaire est freeware"+chr$(13)+"et ne peut être vendu."
font_name 204,"Arial":font_color 204,255,0,0
alpha 205:parent 205,200:top 205,150:left 205,70:caption 205,"Ce jeu est basé sur une idée originale de Papydall"+chr$(13)+"Membre du Forum Panoramic"

' contenu du fichier inf
dlist 300
' liste des langues
dlist 301
' contenu du fichier langue
dlist 302
' contenu du fichier base
dlist 303

gosub Init_Prog
gosub Init_List
gosub Init_Langue
end
' ******************************************************************************
Init_Prog:
Dossier$=Dir_current$
Doss_Langue$=Dossier$+"\Langues"
Doss_Img$=Dossier$+"\Images"
Doss_Son$=Dossier$+"\Sons"
Doss_Bdd$=Dossier$+"\Bdd"
Param$=Dossier$+"\Param.inf"
if file_exists(Param$)=0
file_open_write 304,Param$
file_writeln 304,"French.txt"
file_close 304
end_if
file_load 300,Param$
Langue$=Doss_Langue$+"\French.txt"
Base$=Doss_Bdd$+"\French_Bdd.txt"
gosub Init_List
return
' ------------------------------------------------------------------------------
Init_List:
dir_change Doss_Bdd$
item_add 301,file_find_first$
a$=file_find_next$
while a$<>"_"
if a$<>"_"
item_add 301,a$
else
exit_while
end_if
a$=file_find_next$
end_while
file_find_close
for x%=400 to 399+count(301)
sub_menu x% :parent x%,3:caption x%,left$(item_read$(301,x%-399),len(item_read$(301,x%-399))-4):on_click x%,Menu_Langue
next x%
file_load 302,Langue$
file_load 303,Base$
return
' ------------------------------------------------------------------------------
Init_Langue:
for x%=1 to 20 :Titre$(x%)=item_read$(302,x%) :next x%
for x%=1 to 7 :caption x%+1,Titre$(x%):next x%
caption 104,Titre$(10)
caption 106,Titre$(11)
caption 108,Titre$(12)
hint 110,Titre$(13)
hint 111,Titre$(14)
hint 112,Titre$(15)
return
' ------------------------------------------------------------------------------
Menu:
for x%=2 to 8
if clicked(x%)=1 then M% =x%
next x%
Select M%
case 2
case 3
case 4
show 200:hide 100
case 5
case 6
show 100:hide 200
gosub Jouer
case 7
gosub Arreter
case 8
gosub Quitter
end_select
return
' ------------------------------------------------------------------------------
Menu_Langue:
for x%=400 to 409
if object_exists(x%)=1
if clicked(x%)=1
Lg$=item_read$(301,x%-399)
Langue$=Doss_Langue$+"\"Lg$
clear 300:clear 302:clear 303
item_add 300,Lg$
file_save 300,Param$
file_load 302,Langue$
if file_exists(Doss_Bdd$+"\"+left$(Lg$,len(Lg$)-4)+"_Bdd.txt")=1
Base$=Doss_Bdd$+"\"+left$(Lg$,len(Lg$)-4)+"_Bdd.txt"
file_load 303,Base$
else
file_open_write 304,Doss_Bdd$+"\"+left$(Lg$,len(Lg$)-4)+"_Bdd.txt"
file_close 304
end_if
end_if
else
exit_for
end_if
next x%
gosub Init_Titre
return
' ------------------------------------------------------------------------------
Jouer:
return
'-------------------------------------------------------------------------------
Arreter:
return
' ------------------------------------------------------------------------------
Enrgt_Choix:
return
' ------------------------------------------------------------------------------
Suivant:
return
' ------------------------------------------------------------------------------
Ecouter:
sound 115
if Animal$(8)<>""
file_load 115,Animal$(8)
play 115
end_if
delete 115
return
' ------------------------------------------------------------------------------
Lien:
execute "http://panoramic-language.pagesperso-orange.fr/French/index.html"
return
' ------------------------------------------------------------------------------
Quitter:
Terminate

[strike]

Salut ygeronimi

Ton erreur provient du fait que tu appelles deux fois le sous-programme ‘Init_List’
Une fois en ligne 88 (dans ‘Init_Prog’) et une autre fois en ligne 69.
Donc tu dois enlever purement et simplement la ligne 88 et tout entrera en ordre.

C'est la fatigue non ?

Une petite erreur à la ligne 147 : il manque le + avant Lg$ ; corriger comme ceci

Code:: Langue$=Doss_Langue$+"\"+Lg$

Une autre erreur : le menu ‘A Propos’ est vide ; son contenu se trouve dans le menu ‘Langue’ et ce dernier se trouve dans le menu ‘Outils’

C’est la fatigue te dis-je !

Tout va bien !

plus d' horreur...heuuu....d'erreur... Laughing

bon j'ai presque fini encore quelques heures et "Les animaux du monde" auront fait peau neuve Laughing

Bref je m'étais embarqué dans un truc un peu ouf mais je vais rééditer sur le webdev la version final d'ici 14h00.
Par contre, je mettrai des fichiers tests et bon courage à ceux qui voudront compléter et faire les versions étrangères... Twisted Evil

Sachant que pour un fichier "Langue.txt" , il faudra un fichier "Langue_Bdd.txt" donc deux fichiers à traduire.... Twisted Evil

aller je vais Sleep

quelques minutes avant de finir comme Jean Claude.... lol!

Il parait que JC est devenu une référence ! king

Exact Papydall,

il y a tous ce qu'il y avait avant et tous ce qu'il y a après....

lol!

Et bien avant tout cela, proche du big bang, il y avait déjà JL35....

Very Happy

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

l'immortel Wink

Et le jean Charles où le case-t-on chronologiquement ?
Avant JC ou après JL ?

Peut-être après la devise de Jean Claude :
_________________
sunny

J'aime Panoramic car c'est un langage simple sunny

papydall a écrit:: Et le jean Charles où le case-t-on chronologiquement ?
Avant JC ou après JL ?

Peut-être après la devise de Jean Claude :
_________________
J'aime Panoramic car c'est un langage simple

...Jean-charles se trouve dans la toute première femto-seconde du big-bang Panoramic...

J'ai plus les yeux en face des trous RESOLU ! 11

Moi, c'est l'année 0, on référence tout par rapport à moi. On est en 2012 après JC, non ? Wink

(Je sais, ça fait prétentieux, mais bon, ce n'est pas grave .... Very Happy

)

D’après mes calculs qui ne sont pas toujours justes, Jean-charles se trouve tantôt dans la toute première atto-seconde , parfois aussi dans la zepto-seconde, exceptionnellement dans la yocto-seconde mais jamais dans la femto-seconde du big-bang Panoramic..
il n’est pas si jeune que ça ! Laughing

Pffff, moi je n'ai que 40 ans, monsieur J'ai plus les yeux en face des trous RESOLU ! D5itov1e

Hé jeune homme, lol!

Il y a un peu plus de la moitié des 40 ans que je n’ai plus 40 ans Exclamation

Mais j’ai voulu montrer ma science concernant les Préfixes diviseurs dans le Système d’unités. Idea

Comme jean Claude a choisis un nouveau jeu : celui de changer périodiquement d’avatar, moi également je vais jouer à ce jeu.
Mais mon avatar est AUTHENTIQUE et il date d'à peine quelques minutes (il vient juste de sortir de ma webcam) et il n’a rien à avoir avec ceux choisis par JC.

lol!

Puisque c'est la saison, je change d'avatar aussi !
Laughing

Erreur Papydall, concernant la toute première atto-seconde du "big-bang Panoramic", Jean-charles n'avait pas encore appuyé sur la touche "P" de son clavier.... Laughing

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Décidément, tout le monde met son portrait à jour, quel courage pour certains ! bon allez je m'y mets aussi, mais en tant qu'homme invisible, ça vous fait une belle jambe, même si c'est assez ressemblant !

Il parait que la « Jean-claudologie » est contagieuse !

@JL trente cinq « l’invisible »

Je n’ai jamais vu d’aussi magnifique avatar que le tien !
lol!