Est ce moi ou Panoramic ?

J'appelle une "open dialog" que je détruis par "delete" après utilisation pour pouvoir le rappeler ailleurs dans mon prog
Si après un premier appelle par la première déclaration , je le rapelle par la deuxième déclaration, il ne tient pas compte de "dir_dialog"
Mieux lorsque je l'appelle par ma deuxième déclaration directement ,rien.....

NB : les deux déclarations sont dans des fonctions quasi similaire mais distinctes.

Je mets le code :

Code:: dim x%, Menu%,Fich_Travail$
dim Dossier$,Doss_Bdd$,Doss_Langue$
' ------------------------------------------------------------------------------
label Adressage
label Menu,Creer_Base,Ajout_Animal,Modif_Animal,Creer_Langue,Ajout_Ligne,Modif_Ligne,Quitter
' ******************************************************************************
height 0,350:width 0,500:top 0,(screen_y-350)/2:left 0,(screen_x-500)/2
caption 0,"Outils Administrateur":application_title "Outils Administrateur"

main_menu 1
sub_menu 2 :parent 2,1 :caption 2,"Fichier"
sub_menu 3 :parent 3,1 :caption 3,"Base"
sub_menu 4 :parent 4,1 :caption 4,"Langue"
sub_menu 5 :parent 5,2 :caption 5,"Quitter" :on_click 5,Menu
sub_menu 6 :parent 6,3 :caption 6,"Créer" :on_click 6,Menu
sub_menu 7 :parent 7,3 :caption 7,"Ajouter item" :on_click 7,Menu
sub_menu 8 :parent 8,3 :caption 8,"Modifier item" :on_click 8,Menu
sub_menu 9 :parent 9,4 :caption 9,"Créer" :on_click 9,Menu
sub_menu 10:parent 10,4:caption 10,"Ajouter item" :on_click 10,Menu
sub_menu 11:parent 11,4:caption 11,"Modifier item" :on_click 11,Menu

for x%=100 to 400 step 100:container x%:hide x%:next x%

dlist 900 :dlist 901

gosub Adressage
end
' ******************************************************************************
Adressage:
Dossier$=dir_current$
Doss_Bdd$=Dossier$+"\Bdd"
Doss_Langue$=Dossier$+"\Langues"
return
' ------------------------------------------------------------------------------
Menu:
For x%=5 to 9
if clicked(x%)=1 then Menu%=x%
Next x%
Select Menu%
Case 5
Gosub Quitter
Case 6
Gosub Creer_Base
Case 7
Gosub Ajout_Animal
Case 8
Gosub Modif_Animal
Case 9
Gosub Creer_Langue
Case 10
Gosub Ajout_Ligne
Case 11
Gosub Modif_Ligne
End_Select
return
' ------------------------------------------------------------------------------
Creer_Base:
if message_input("Nouvelle Base","Langue :","Langue")=1
Fich_Travail$=Doss_Bdd$+"\"+message_text$+"_Bdd.txt"
file_open_write 1000,Fich_Travail$
file_close 1000
if message_information_yes_no("Voulez vous ajouter des animaux"+chr$(13)+"maintenant ?")=1
gosub Ajout_Animal
end_if
end_if
return
' ------------------------------------------------------------------------------
Ajout_Animal:
if Fich_Travail$=""
open_dialog 902
dir_dialog 902,Doss_Bdd$
if file_name$(902)<>"_" then Fich_Travail$=file_name$(902)
end_if
if object_exists(902)=1 then delete 902
message Fich_Travail$
return
' ------------------------------------------------------------------------------
Modif_Animal:
return
' ------------------------------------------------------------------------------
Creer_Langue:
if message_input("Nouvelle Langue","Langue :","Langue")=1
Fich_Travail$=Doss_Langue$+"\"+message_text$+"_Bdd.txt"
file_open_write 1000,Fich_Travail$
file_close 1000
if message_information_yes_no("Voulez vous ajouter des animaux"+chr$(13)+"maintenant ?")=1
gosub Ajout_Ligne
end_if
end_if
return
' ------------------------------------------------------------------------------
Ajout_Ligne:
if Fich_Travail$=""
open_dialog 902
dir_dialog 902,Doss_Langue$
if file_name$(902)<>"_" then Fich_Travail$=file_name$(902)
end_if
if object_exists(902)=1 then delete 902
message Fich_Travail$
return
' ------------------------------------------------------------------------------
Modif_Ligne:
return
' ------------------------------------------------------------------------------
Quitter:
Terminate

Bon, çà peut venir de moi...
...c'est souvent le cas Laughing

mais il me semble m'en être déjà servit de cette façon
dans un autre prog mais avec la version antérieur de l'éditeur.

Bonjour ygeronimi

Est-ce que tu as le message d’erreur ‘invalide filname’ ?
Si oui, c’est parce que tu ne te trouve pas dans le bon repertoire (Dossier$=dir_current$)
Dans le sous-programme ‘Adressage’ après ‘Dossier$=dir_current$’ ajoute ‘print dossier$ : stop’
Ou bien
Dans le sous-programme ‘Créer_Base’ ajoute la ligne suivante juste avant ( file_open_write 1000, Fich_Travail$)
Ajoute donc cette ligne : print fich_travail$: stop
Et tu vois que tu n’es pas dans le bon repertoire.

Si tu ne te trouves pas dans le bon repertoire, le sous repertoire ‘\Bdd’ n’est pas crée d’où l’erreur.
Enregistre donc ton programme dans le repertoire qui contient les sous-repertoires ’\Bdd’ ;’\cris’ ;’\images’ ;’\langues’ etc..

Pour repondre à ta question : Est ce moi ou Panoramic ?
je dirais que c'est toi; mais peut-être aussi que c'est moi !

HA HA HA

lol!

Les dossiers sont biens existants et je peux voir
dans la boite de dialogue que je ne suis pas au bon endroit.
Les fichiers présents n'ont pas la bonne dénomination.
Dans le dossier "Bdd" , les fichiers sont nommés "Langue_Bdd.txt"
et dans le dossier "Langues" , "Langue.txt".

Et cela n'explique pas le problème d'affichage de la boite de dialogue. Laughing

C'était moi !!

He papydall !, regardes la ligne 37 geek

j'avais oublié de rajouter les menu 10 et 11 Laughing

Je le savais : ou c’était toi Shocked

ou c’était moi Embarassed

, mais NON panoramic !

Va falloir que je pense sérieusement à dormir la nuit...
...au lieu de programmer l'improgrammable Laughing

Le Pb c'est que pour pouvoir ce concentrer chez moi... Rolling Eyes

...il faut qu'ils dorment tous Wink

Eh oui.
C’est toujours comme ça !

"...Faites des gosses !" qui disaient..... affraid

Moi tranquille quelque temps, ils sont partis en Bretagne Smile

Quoi !!!!! ils sont venus dans mon trou !!!! j'avais assez des miens ....

lol!

Ma femme vient de centre Bretagne (près de Mur de Bretagne où vivent encore ses Grand-parents) et ses parents vivent à Rennes. Une tante vie à Saint-Gelvin, une autre à Nantes, une autre à côté de Saint Malo.. Je m'arrète là dans mon énumération, mais j'aurais pu continuer avec les cousins, cousines etc ... Tu voies maintenant pourquoi ils sont en Bretagne Wink

Moi je suis né dans le 13 mais la vie m'a ramené en Bretagne Suspect

où malgrès le fait que je ne les voies quasiment jamais j'ai de la "Famille"

et en ce moment, nous sommes envahis par de fêtards qui prennent notre ville
pour un bistrot géant. Laughing

Edit : Devines où je suis ?... Laughing

Je sais où tu es : tu es chez toi!
HA HA HA!

» Logithèque : une base de données en Panoramic pour Panoramic
» IDE Panoramic écrit en Panoramic
» PANORAMIC V 0.9.6 available / PANORAMIC V 0.9.6 disponible
» Logo Panoramic en Panoramic
» PANORAMIC V 0.9.18