besoin d'aide pour ce code

Sujet: besoin d'aide pour ce code Ven 31 Jan 2014 - 17:49

Bonsoir à tous,
Je me suis fabriqué un petit code pour Lancer un nouveau projet Panoramic, qui me crée le dossier et le fichier.bas à l'intérieur et m'ouvre l'éditeur Panoramic. Et le fichier.bas intègre une mise en place du futur code.
Jusque là çà fonctionne, mais je n'arrive pas à trouver le moyen, quand je clique sur ouvrir de l'éditeur, de forcer celui-ci à s'ouvrir sur le répertoire que je viens de créer.
Pour faire l'essai vous devez adapter les chemins des ligne 5 et 8 à votre configuration.
Faites vos chemins vers le bureau pour retrouver facilement le dossier qui est créé.

Code:: ' Lanceur d'un nouveau projet Panoramic
error_french
hide 0
open_dialog 1
Dim_Label()
a$="C:\Users\JeanClaude\Desktop\"
New_Projet()
Cre_dossier_Fichier(a$,b$)
dir_dialog 1,a$
execute "C:\Users\JeanClaude\Desktop\PANORAMIC_EDITOR_9-25i6.exe"
terminate
END
' -------------
sub New_Projet()
m1:
b$=message_input$("Nouveau Projet Panoramic","Entrez le nom de votre nouveau projet Panoramic","Projet_1")
if b$="" then message "Nom de Projet incorrect":goto m1
c$=b$+".bas"
end_sub
' -------------
Sub Cre_dossier_Fichier(dos_courant$,rep$)
a$=dos_courant$+rep$
if dir_exists(a$)=0 then dir_make a$
dir_change a$
file_open_write 1,c$:file_writeln 1,"' "+b$
file_writeln 1,""
file_writeln 1,"error_french"
file_writeln 1,"Dim_Label()"
file_writeln 1,"Objets()"
file_writeln 1,""
file_writeln 1,"END"
file_writeln 1,"' ============================================================================="
file_writeln 1,"Sub Dim_Label()"
file_writeln 1,""
file_writeln 1,"End_Sub"
file_writeln 1,"' ----------"
file_writeln 1,"Sub Objets()"
file_writeln 1,""
file_writeln 1,"End_Sub"
file_writeln 1,"' ----------"
file_close 1
end_sub
' -------------
Sub Dim_Label()
dim a$,b$,c$
label m1
end_sub

Merci à celui qui me trouvera une solution.

Réédition 18h11 une petite correction mineure
Réédition 01/02 à 8h25 Ajout de DIR_DIALOG (sans effet pour le moment)

Invité

Bonsoir J.Claude
Je ne sais pas si cela peut t'aider. Je prend l'exemple de bout de code de mon programme en cours. J'ai fait au départ un installateur de ce genre: (il n'est pas dit que je ne vais pas y repenser)

Spoiler:

Code:: ' programme de démarrage pour initialiser le programme WEB
' il faut l'adresse du programme et celui du site web
width 0,800
dim t$,a$,f$ , dossier$ ,site$ , control% ,a%,b$
label dossier_current , dos_site , control
dossier$ = dir_current$
t$ = chr$(13) + chr$(10)
open_dialog 1 : save_dialog 2
alpha 3 : font_size 3,10: font_bold 3 : left 3,10 : top 3,10
a$="Dossier actuel:"+ dossier$ +" , le fichier concerné est celui qui "+ t$ +"lira le fichier de sauvegarde des paramètres de départ"
a$ = a$ + t$ + "Si " + dossier$ +" n'est pas le bon dossier, il convient de le définir."+t$+"C'est celui qui exécute le programme principale."

caption 3,a$

button 4 : left 4,10 : top 4,100: caption 4,"redéfinir le dossier de départ" : width 4,200 : on_click 4,dossier_current
edit 5 : left 5,230 : top 5,100 : width 5,300 : font_size 5,10 : font_bold 5: text 5,dossier$

alpha 6 : font_size 6,10 : font_bold 6 : left 6,10 : top 6,130 : caption 6,"Définir maintenant le dossier du site WEB sur le disque"
button 7: left 7,10 : top 7,150 : caption 7,"définir le dossier du site à créer":width 7,200 : on_click 7,dos_SITE
edit 8 : left 8,230: top 8,150 : width 8,300 : font_size 8,10 : font_bold 8

list 10 : left 10,550:top 10,10:height 10,100
item_add 10, "Enter.jpg" : item_add 10,"haut_page.jpg" :item_add 10,"LettreBIG.jpg"
item_add 10,"LettreSMALL.jpg" : item_add 10,"marbre4.jpg" : item_add 10,"style.css"
button 11 : left 11,550 : top 11,200 : caption 11,"controle" : on_click 11,control
memo 12:top 12,200 : width 12,500 : height 12,150
end
' ==========================================================================

dossier_current:
   dossier$ = text$(5)
   if right$(dossier$,1) <> "\" then dossier$ = dossier$ + "\" : text 5,dossier$
   if dir_exists(dossier$) = 0 then message "le dossier:" + dossier$ + " n'existe pas. Revérifiez!"

return

dos_site:
   site$ = text$(8)
   if right$(site$,1) <> "\" then site$ = site$ + "\" : text 8,site$
   if dir_exists(site$) = 0 then message "Le dossier:" + site$ +" n'existe pas. Revérifiez!"
return

' ==========================================================================
control:
   clear 12
   for a% = 1 to count(10)
   b$ = item_read$(10,a%)
   if file_exists(site$ + "\" + b$) = 0
   item_add 12, b$
   end_if

   next a%
   if count(12) > 0
   item_insert 12,1, "les fichiers suivants sont manquants"
   else
   message "la finalisation peut se faire" + t$ + dossier$ + "\path.ini"
   clear 12 : item_add 12,dossier$
   item_add 12,site$
   file_save 12,dossier$ + "\path.ini"
   terminate
   end_if

Ensuite dans le vrai programme, (et là il n'y a que le début, sinon cela ferait trop de code, tous les branchements sont retirés ):

Spoiler:

Code:: ' ---------------------container pour le choix des commandes----------------
  CONTAINER 30 : left 30,10 : top 30,30 : width 30,540 : height 30,200 : caption 30,"Menu"
  picture 32 : parent 32,30 : full_space 32 : color 32,255,215,85 : 2d_target_is 32
  2d_pen_width 4
  2d_line 136,10,136,70
  ' 2d_line 10,18 ,10,162
  2d_line 30,16,320,16
  ' 2d_line 10,164,20,164
  2d_line 136,66,306,66
' ---------------------------------------------
  2d_line 425,80,425,117
  2d_line 240,117,425,117
  2d_line 136,130,136,160
  alpha 29 : font_name 29,"Wingdings" : parent 29,30:color 29,255,215,85 : caption 29,chr$(231) : left 29,240 : top 29,128
  alpha 38 : font_name 38,"Wingdings" : parent 38,30:color 38,255,215,85 : caption 38,chr$(234) : left 38,132 : top 38,58
' alpha 39 : font_name 39,"Wingdings" : parent 39,30:color 39,255,215,85 : caption 39,chr$(234) : left 39,132 : top 39,106
  alpha 25 : font_name 25,"Wingdings" : parent 25,30:color 25,255,215,85 : caption 25,chr$(232) : left 25,306 : top 25,27
  alpha 26 : font_name 26,"Wingdings" : parent 26,30:color 26,255,215,85 : caption 26,chr$(232) : left 26,306 : top 26,77
  alpha 27 : font_name 27,"Wingdings" : parent 27,30:color 27,255,215,85 : caption 27,chr$(234) : left 27,132 : top 27,158

  ' les outils de sélection
  button 31 : parent 31,30 : left 31,30 : top 31,20 : width 31,210 : height 31,25 : caption 31,"Ouvrir nouveau site"
  picture 431 : parent 431,30:left 431,28 : top 431,18 : width 431,214 : height 431,29 : color 431,255,215,85
  button 33 : parent 33,30 : left 33,320 : top 33,20 : width 33,210 : height 33,25 : caption 33,"Ajouter une rubrique" : inactive 33
  picture 433 : parent 433,30 : left 433,318 : top 433,18 : width 433,214 : height 433,29 : color 433,255,215,85
  button 34 : parent 34,30 : left 34,30 : top 34,70 : width 34,210 : height 34,25 : caption 34,"Choisir une rubrique" : inactive 34
  picture 434 : parent 434,30 :left 434,28 : top 434,68 : width 434,214 : height 434,29 : color 434,255,215,85
  button 35 : parent 35,30 : left 35,320 : top 35,70 : width 35,210 : height 35,25 : caption 35,"Ajouter / lire un sujet"
  picture 435 : parent 435,30 : left 435,318 : top 435,68 : width 435,214 : height 435,29 : color 435,255,215,85
  button 36 : parent 36,30 : left 36,30 : top 36,120: width 36,210 : height 36,25 : caption 36,"Modifier un sujet"
  picture 436 : parent 436,30 : left 436,28 : top 436,118 : width 436,214 : height 436,29 : color 436,255,215,85
  button 37 : parent 37,30 : left 37,30 : top 37,170: width 37,210 : height 37,25 : caption 37,"Ajouter une info dernier sujet"
  picture 437 : parent 437,30 : left 437,28 : top 437,168 : width 437,214 : height 437,29 : color 437,255,215,85
  BUTTON 28 : parent 28,30 : left 28,320 : top 28,160: width 28,100 : height 28,32 : caption 28,"QUITTEZ"

Et en cliquant sur nouveau site, j'obtiens ceci (pour ne pas mettre des tas de lignes)

Spoiler:

Où là je peux modifier les paramètres, qui sont sauvegardés, et à chaque démarrage, ils sont repris. En les modifiant, je peux repartir sur un autre projet.

Je ne sais pas si les explications sont suffisantes, d'ailleurs peut-être ai-je mal compris. Pour l'instant j'ai pas loin de 3000 lignes, et ce ne serait pas explicite. Cela aurait été bien mieux que quelqu'un te réponde, cela aurait été plus clair que venant de moi.

Je l'envoi comme cela, autrement je ne vais pas m'en sortir.

Sujet: Re: besoin d'aide pour ce code Ven 31 Jan 2014 - 21:23

Je te remercie Cosmos pour ton aide,

j'ai fait des essais, pour le moment je ne suis pas, mais il faut que je regarde de plus près.

Je vais regarder, plus en détail, demain matin, car à cette heure je ne peux plus me concentrer. hé oui, ma santé me limite.

En tous cas je te remercie et je te dis, demain, ce que j'ai pu tirer de ton aide.

A+

Bonjour,

@Cosmos, j'ai parcouru tes codes mais je n'y est pas trouvé ma solution.

En fait j'ai mal expliqué ce que je cherche. Au code, du début du poste, j'ai ajouté un open_dialog et un dir_dialog.

Dans mon esprit, le dir_dialog (avant execute) aurait dû forcer, à la prochaine ouverture de l'open_dialog, le positionnement de ce dernier dans le répertoire qui vient d'être créé par le programme, or il n'en est rien.

A+

Ton Open_Dialog 1 n'est jamais utilisé. Ce n'est pas file_open 1 qui l'utilise. Pour cela, il faudrait utiliser file_name$(1) pour ouvrir le sélecteur de fichier. Et comme tu souhaites créer un fichier, il serait plus utile de prendre create_dialog au lieu de open_dialog.

Tu imposes le chemin complet, y compris le nouveau sous-dossier Projet1. Si je créer l'arborescence "C:\Users\JeanClaude\Desktop\" chez moi, ça marche, le dossier Projet1 est bien créé au bon endroit, et le fichier Projet1.bas est bien créé dans le dossier Projet1 sous cette arborecence.

Mais je le répète, ton open_dialog n'est pas pris en compte. Pour cela, il faudrait utiliser file_name$(1) où 1 est le numéro du open_dialog. Dans ton file_open_write, le 1 est un "canal" d'ouverture de fichier, sans aucun lien avec le numéro d'objet du open_dialog.

Invité

Bonjour.
Je n'ai pas analysé ton code comme Klaus là fait. Je n'avais pas le temps.
Maintenant je comprend bien que celui que j'ai mis n'ai pas compréhensible. Je sais que le code complet fonctionne bien, car malgré les problèmes que j'ai eu au début à chaque fois en testant de placer ailleurs le programme, il y avait des problèmes, et maintenant cela fonctionne à 100%. J'ai installé le programme sur disque virtuel, remis sur usb, etc... pour essayé, et maintenant lorsque je lance le programme, c'est toujours la dernière configuration qui démarre.

Le problème est que je n'ai mis qu'une partie de code, sans les branchements, et il aurait fallu que je fasse un petit programme pour montré, et je n'ai pas le temps, d'ailleurs là je vais partir. Hier je n'ai eu le temps de mettre au point sur papier un problème sur mon programme pour tout à fait autre chose, il faut dire que pour une fois j'ai regardé tard la TV, ce qui ne m'étais pas arrivé depuis un certain temps.

Je suis désolé, vu le peu d'explication que j'ai mis, j'aurai mieux fait de rester en dehors.

@Cosmos,
Il ne faut pas rester dehors, la nuit, c'est pas bon en hiver. Very Happy

Tu as tout de même fournie un code qui donne des idées.

@Klaus,
File_name$, oui j'y avait pensé, mais le problème c'est qu'il s'ouvre avant l'éditeur Panoramic (avant execute).
Je vais tenter l'expérience cet après-midi, pour voir ce que çà donne.
Tu parles de create_dialog Question

Ne serait-ce pas une fonction de KGF.dll ? dans ce code je ne l'utilise pas.

A+

Non. Je me suis trompé. Ce n'est pas Create_Dialog, mais Save_Dialog dont je voulais parler...

Bon, je viens de tester avec file_name$ (combiné avec save_dialog et/ou open dialog), çà ne change rien.

Ce qui est normal, vu que l'éditeur Panoramic va chercher l'information du dernier chemin utilisé je ne sais où, et çà n'a pas de correspondance avec la création du dossier projet_1 fait par le programme.

Pour le moment et à défaut d'une solution, je vais supprimer EXECUTE et laisser à l'utilisateur le soin d'ouvrir lui même l'éditeur Panramic et de retrouver le dossier qui vient d'être créé. Ça reste, quand même, un utilitaire de mise en place d'un nouveau projet Panoramic assez pratique. Chacun peut l'adapter à sa façon de coder (je parle des lignes de code pré-établies).

PS:j'ai bien pensé à poser la question, à l'utilisateur, de définir où il souhaite enregistrer son nouveau projet par une proposition "mes documents, le bureau ou programme file" mais suivant qu'il est sous XP, W7 ou W8, çà va pas être simple pour le coder, vu que l’arborescente n'est pas la même pour chaque OS .

A+

@ Jean Claude,

Le code que tu as mis est il complet ?...

Code:: ' Lanceur d'un nouveau projet Panoramic
error_french
hide 0
Dim_Label()
a$="C:\Users\Yannick\Desktop\"
New_Projet()
execute c$
terminate
END
' -------------
sub New_Projet()
m1:
if message_input("Nouveau Projet Panoramic","Entrez le nom de votre nouveau projet Panoramic","Projet_1")=1
if message_text$=""
message "Nom de Projet incorrect":goto m1
else
b$=message_text$
c$=a$+"\"+b$+"\"+b$+".bas"
message c$
Cre_dossier_Fichier(a$,b$)
end_if
end_if
end_sub
' -------------
Sub Cre_dossier_Fichier(dos_courant$,rep$)
a$=dos_courant$+rep$
if dir_exists(a$)=0 : dir_make a$ :end_if
dir_change a$
file_open_write 1,c$:file_writeln 1,"' "+b$
file_writeln 1,""
file_writeln 1,"error_french"
file_writeln 1,"Dim_Label()"
file_writeln 1,"Objets()"
file_writeln 1,""
file_writeln 1,"END"
file_writeln 1,"' ============================================================================="
file_writeln 1,"Sub Dim_Label()"
file_writeln 1,""
file_writeln 1,"End_Sub"
file_writeln 1,"' ----------"
file_writeln 1,"Sub Objets()"
file_writeln 1,""
file_writeln 1,"End_Sub"
file_writeln 1,"' ----------"
file_close 1
end_sub
' -------------
Sub Dim_Label()
dim a$,b$,c$
label m1
end_sub

Attention ! il faut que les fichiers *.bas soit rattachés à Panoramic en ouverture (chez moi c' est freebasic qui les ouvre )

Si tu veux que Panoramic se branche sur le dossier choisi, il n'y a qu'une solution: par la commande EXECUTE, il faut lancer un fichier BAT dans lequel tu fais un "CD C:\...\mon_dossier", puis la ligne qui lance Panoramic avec le source en question. En effet, il n'y a AUCUN lien entre un programme Panoramic en cours d'exécution et un autre programme que tu lances.= par EXECUTE. Le dossier par défaut n'est absolument pas transmissible.

Ou alors, tu oublies la commande EXECUTE et tu utilises

Code:: res% = DLL_call3("ExecuteProgram",adr(path$),adr(param$),adr(folder$))

de KGF.dll (fonctions diverses). Là, tu peux spécifier le dossier par défaut.

Une autre vision de la sub new_project

Code:: sub New_Projet()
m1:
if message_input("Nouveau Projet Panoramic","Entrez le nom de votre nouveau projet Panoramic","Projet_1")=1
   if message_text$=""
   message "Nom de Projet incorrect":goto m1
   else
   b$=message_text$
   c$=a$+"\"+b$+"\"+b$+".bas"
   if file_exists(c$)=1
   if message_warning_yes_no("Projet Existant !"+chr$(13)+"Voulez vous écrasé le dossier existant ?")=1
   Cre_dossier_Fichier(a$,b$)
   execute c$
   else
   if message_confirmation_yes_no("Voulez vous ouvrir "+b$+" ?")=1
   execute c$
   else
   if message_information_yes_no("Voulez vous ouvrir un autre fichier ?")=1
   Open_dialog 1
dir_dialog 1,a$
   c$=file_name$(1)
   execute c$
   else
   goto m1
   end_if
   end_if
   end_if
   end_if
   end_if
end_if
end_sub

@ Klaus,

On s' est croisé...

Pour ouvrir une boite de dialog dans un dossier spécifique on a Dir_Dialog N,D
N = open_dialog N
D = chemin du dossier

Pour ouvrir un fichier *.bas directement, il faut que le log d' ouverture de ces fichiers par défaut soit Panoramic_editor.
A ce moment là, tu fais execute Fichier$

EDit : Le plus hard est d' arriver à ce que les fichiers *.bas soit ouvert par Panoramic_editor par défaut.

Merci à vous deux,

Je suis de l'avis de Klaus, il n'y a pas de solution en Panoramic pur, il faut passer par KGF.dll.

Le code de Ygeronimi ouvre le fichier (chez moi, c'est le Bloc-note, car je l'ai utilisé une fois pour regarder dedans)

Mais avec le code de Ygeronimi l’ouverture du fichier *.bas directement dans l'éditeur, çà marche à moitié, il suffit d'utiliser l'option "ouvrir avec" de Windows et ensuite les futurs projets lance l'éditeur automatiquement, mais ils ne sont pas chargés (Normal). On est plus proche de ce que je recherchais.
Mais:
Le bémol c'est que l'on doit quand même charger le programme dans l'éditeur manuellement et et surtout, l'open_dialog ne s'ouvre toujours pas sur le bon dossier.

Ceci dit, le mieux est de ne pas ouvrir l'éditeur, l'utilisateur choisissant lui même le répertoire au départ en modifiant le code, il sait où aller chercher le dossier projet_xxx.
Ce code n'a d'utilité que pour un programmeur Panoramicien donc je ne pense pas qu'il soit utile de mobiliser le monstre KGF.dll pour si peu.

En tous cas, je vous remercie tous les trois d'avoir essayé.

Bon je vais aller jeter un œil sur les autres postes, car çà bouge beaucoup aujourd'hui.

Je vais te mettre un dossier Zip avec

Le source et le *.exe

chez moi, le programme ouvre le source dans Panoramic_Editor,
je n' ai pas à recharger le source dans Panoramic_Editor.

Le seul bémol, c'est que l' éditeur s' ouvre dans ce format. Il faut le redimensionner pour voir le source.

Ps je ferai un "edit" sur ce post dès que j' aurai mis le dossier sur le webdav.

Edit : C' est sur le webdav.

Autre chose. Pour forcer Panoramic_Editor à avoir le dossier source du projet directement et éviter de devoir enregistrer
le source.

tu peux essayer : Dir_change "chemin du dossier"
en entête de ton source.

Je vais regarder cela de plus près, car effectivement le code se charge dans l'éditeur Panoramic. mais c'est le code "lanceur", donc ce n'est pas le bon.
Une remarque: dans le chemin (au départ) çà se termine par \ et dans la sub, tu en rajoute un.

Je vais y regarder demain, car tu m'as permis de découvrir que l'éditeur a bien charger un programme (il est simplement masqué).

A+

Bizarre... scratch

Chez moi j' ai le code du fichier créé...

@Ygeronimi,
Finalement j'ai trouvé un compromis (avec mon code et sans EXECUTE), le programme prépare le dossier_projet avec le fichier.bas à l'intérieur, puis j'ouvre ce dossier et je double-clic sur le fichier.bas qui est chargé dans l'éditeur .

Il me reste à transposer ta Sub (sans les execute) pour éviter un écrasement involontaire du projet par l'utilisateur.

A+

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

ygeronimi a écrit:: Bizarre...

Chez moi j' ai le code du chier créé...

Comme tu dis... bizarre...

Tu fichier JL35 !

lol!

Je pense que le verbe en dit plus que le nom !
Jean Claude, où vois-tu fichier ?
Je n’en vois que le verbe !

D'ailleurs, il est bien écrit que c'est bizarre.

lol!

@ Jean Claude,

Si tu as trouvé ton bonheur, là est l' essentiel. Wink

@ ceux qui se demande si je vais ch.... Laughing

Merci tout va bien ! Laughing

J' ai corrigé, c' était évidemment une faute de frappe ( quand la tête va plus vite que les doigts... Wink

)
mais vu l' heure à laquelle j' ai du poster....

Invité

Pour ce qui est de Jean-Claude:

Citation :: Tu fichier JL35 !

J'ai compris qu'il voulait dire avec humour: 'tu fais chier' pour fichier, donc le mot fichier est le verbe déguisé.

Pour en revenir au partis de programme que j'ai posté, je mes suis demandé pourquoi c'était si compliqué. Voila:
J'ai un programme qui remplace l'éditeur. Avec celui-ci, je créé un autre programme qui est découpé en une dizaine d'include, et un programme général qui les rassemble. L'éditeur de ma conception a un lanceur exe qui récupère le programme rassemblé pour le lancer avec une fonction chain.

C'est pour cela que cela parait compliqué, et j'y ai pas pensé au départ, c'est il est évident que la méthode n'était pas adapté au problème de Jean-Claude. Par contre moi j'ai résolu mon problème, parce qu'au départ, cela fonctionnait mal, et la solution a résolu mes problèmes, qui permettait en lançant mon propre éditeur, et de retrouver le programme, et lancer les applications, sans qu'il soit nécessaire de mettre les chemins dans les différents programmes, ce que je voulais évité.

Donc vraiment ne pas tenir compte de ma première intervention, qui n'a pas de sens pour Jean-Claude.

La seule chose que j'aurait à dire, est plutôt que de se servir du programme panoramic sans l'éditeur pour lancer un programme, je préfère l'instruction chain. On n'a pas la bannière de panoramic.

Bravo, Cosmos, tu as bien compris que fichier était un verve "déguisé" pour remplacer le mot que voulait taper Ygeronimi, qui à mon avis avait fumé un truc puissant, à moins qu'il n'était tout simplement fatigué. Ou il se disait "tu fait ch... avec ton code de m....., Jean Claude", mais çà je ne le crois pas.
lol!

Si tu était à coté du sujet (au départ), je ne vois pas me problème, au contraire tu as certainement déclenché l'intérêt des intervenants.

Je dois dire que, souvent, je n'interviens pas sur un sujet en pensant que je suis à coté, et au final je m'aperçois que je n'était pas loin. C'est un tord qu'il faudra que je corrige.

A+

» besoin daide pour code
» Besoin d'aide pour la Cryptographie en RSA svp
» besoin d'aide pour interception clavier
» V2.81 du 13/02/2014 - code 5 pour RichEditGetInformation
» Code Morse pour 007