FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Panoramic et ses curiosités
par Klaus Aujourd'hui à 2:20

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 New Panoramic Project

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: New Panoramic Project   Jeu 20 Sep 2012 - 13:25

Un petit outils que je me suis créé ce matin... Laughing
( nécessite KGF.Dll )
Code:
'              *************************************************
'              *                                              *
'              *          NEW PANORAMIC PROJECT                *
'              *                                              *
'              *************************************************

'              Crée un dossier "Projets Panoramic" sur le bureau
'              à sa première utilisation puis propose de choisir
'              le nom du nouveau projet,crée son dossier et un
'              fichier *.bas de son nom en son sein qu'il ouvre
'              dans l'éditeur.( Mettre à jours vos adresses )

' ------------------------------------------------------------------------------
Hide 0
Dim D$,Dos$,Kgf$,Pano$,Fichier$,court$
Init_Var()
Verif(D$)
Close0()
end
' ------------------------------------------------------------------------------
' PROCEDURE D INITIALISATION DES VARIABLES DE BASE
' ------------------------------------------------------------------------------
Sub Init_Var()
  D$="C:\Users\Yannick\Desktop\Projets Panoramic"
  Kgf$="C:\Users\Yannick\Desktop\NPP\KGF.dll"
  Pano$="C:\PROGRA~2\PANORA~1\PANORA~2.EXE"
End_Sub
' ------------------------------------------------------------------------------
' PROCEDURE DE NOMINATION DU PROJET
' ------------------------------------------------------------------------------
Sub Dossier()
  If Message_input("Nom du Projet","Nom :","")=1
      Dos$=Message_Text$
  Else
      If Message_Information_OK("Vous allez quitter"+chr$(13)+"New Panoramic Project ?")=1
        close0()
      End_If
  End_If
End_Sub
' ------------------------------------------------------------------------------
' PROCEDURE DE VERIFICATION
' ------------------------------------------------------------------------------
Sub Verif(D$)
  Dim_Local x%,New$,DN$
  DN$=D$+"\Nouveau_"
  if dir_exists(D$)=0 Then Dir_Make D$
  Dossier()
  If Dos$=""
      x%=1
      New$=DN$+str$(x%)
      While Dir_Exists(New$)=1
        x%=x%+1
        New$=DN$+str$(x%)
      End_While
  Else
      New$=D$+"\"+Dos$
  End_If
  Create(New$,Dos$)
End_Sub
' ------------------------------------------------------------------------------
' PROCEDURE DE CREATION DES DOSSIERS ET FICHIERS
' ------------------------------------------------------------------------------
Sub Create(New$,Dos$)
  Dim_Local x% ,L$,res%
  if Dos$="" then Dos$="Projet"
  Dir_make New$
  Fichier$=New$+"\"+Dos$+".bas"
  File_Open_Write 1,New$+"\"+Dos$+".bas"
      For x%=1 To 53:Read L$:File_Writeln 1,L$:Next x%
  File_Close 1
  File_Copy Kgf$,New$+"\KGF.dll"
  dll_on Dir_current$+"\KGF.dll"
      court$=string$(255," ")
      res%=dll_call2("GetShortName",adr(Fichier$),adr(court$))
      if res%>0 Then Message "Erreur dans la conversion"
  dll_off
  Execute Pano$+Chr$(32)+court$
End_Sub
' ------------------------------------------------------------------------------
' PROCEDURE DE SORTIE
' ------------------------------------------------------------------------------
Sub Close0()
Terminate
End_Sub
'-------------------------------------------------------------------------------
'SQUELETTE DE PROGRAMME
' ------------------------------------------------------------------------------
Data "Dim No%,Menu% "
Data "' ------------------------------------------------------------------------------"
Data "Label Clic "
Data "' ------------------------------------------------------------------------------"
Data "F0()"
Data "Menu()"
Data "Objets()"
Data "Init()"
Data "end"
Data "' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤"
Data "Sub F0()"
Data "  Width 0,500:height 0,350"
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Sub Menu()"
Data "  Dim_Local x% "
Data "  Main_Menu 1"
Data "  For x%=2 To 10:Sub_Menu x% :On_Click x%,Clic :Next x% "
Data "  For x%=2 To 5 :Parent x%,1:Next x% "
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Sub Objets()"
Data "End_Sub"
Data "' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤"
Data "Sub Init()"
Data "  Init_Dossier()"
Data "  Init_Langue()"
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Sub Init_Dossier()"
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Sub Init_Langue()"
Data "  Init_Caption()"
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Sub Init_Caption()"
Data "End_Sub"
Data "' ------------------------------------------------------------------------------"
Data "Clic:"
Data "  For No%=2 to 10"
Data "      If Clicked(No%)=1 Then Menu%=No% "
Data "  Next No%"
Data "  Select Menu% "
Data "  Case 2"
Data "  Case 3"
Data "  Case 4"
Data "  Case 5"
Data "  End_Select"
Data "Return"
Data "' ------------------------------------------------------------------------------"
Data "' DATA LANGUES"
Data "' ------------------------------------------------------------------------------"

Vous devrez revoir les chemins selon vos systèmes d'exploitation, et vos envies perso.
Le squelette n'a pas encore tous ses os Laughing mais vous pouvez créer le vôtre...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5838
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: New Panoramic Project   Jeu 20 Sep 2012 - 14:22

Si tu passe par un générateur de squelette, je modifierait plusieurs petites choses.
1/ Je rajouterais un compteur d'objet (appel Cpt_obj%) plutôt que de mettre les numéros "en dur"
2/ Pour garder le numéro de départ du menu, je créerais la varaible N_Menu% et j'initialiserais Cpt_obj% dans Init() que j'executerais avant le F0()
3/ dans Sub Menu(), ça donnerait
Code:

Data "Sub Menu()"
Data "  Dim_Local x% "
Data "  Cpt_obj%= Cpt_obj%+1 : N_Menu%=Cpt_obj% : Main_Menu Cpt_obj%"
Data "  For x%=N_Menu%+1 To N_Menu%+9:Sub_Menu x% :On_Click x%,Clic :Next x% "
Data "  For x%=N_Menu%+1 To N_Menu%+5 :Parent x%,1:Next x% "
Data "End_Sub"

4/ Dans clic, je ferais de Menu% une varaible locale à la procédure clic et je l'initailisaerais à 0 et je rajouterais un test de validité de Menu% avant le Select (Pas nécessaire dans l'état actuel du programme)
Ce qui donnerait
Code:
Data "Clic:"
Data "  Dim_Local Menu%"
Data "  For No%=N_Menu%+1 To N_Menu%+9"
Data "      If Clicked(No%)=1 Then Menu%=No% "
Data "  Next No%"
Data " If Menu% < 2 or Menu%> 5 then Return
Data "  Select Menu% "
Data "    Case 2"
Data "    Case 3"
Data "    Case 4"
Data "    Case 5"
Data "  End_Select"
Data "Return"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 20 Sep 2012 - 14:47

@ Jicehel,

J'ai mis ce tas d'os pour exemple, chacun est libre de mettre ce qu'il veut
mais je pense à faire autrement pour que le squelette soit changeable
depuis un *.exe sur la base de "File_Copy" et "File_Rename"
On pourrait ainsi avoir un dossier avec plusieurs cadavres et choisir
le macabé que l'on veut...


Le but est d'éviter la dispersion des fichiers sur le disque dur et les tâches fastidieuses
des lignes répétitives du début d'un source.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: New Panoramic Project   Jeu 20 Sep 2012 - 15:47

Il est question ici de squelette, d’os, de cadavres ; n’y a-t-il pas un nom pour ce métier ?


Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Jicehel

avatar

Nombre de messages : 5838
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: New Panoramic Project   Jeu 20 Sep 2012 - 16:02

Tout a fait et plus facilement utiliser les modèles de programmes. Bonne idée cette base de modèles pour commencer un projet selon ce que l'on veut faire
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7825
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 22 Sep 2012 - 3:58

Une Nouvelle version est sur le webdav

Panoramic 2\ NPP Vs 0.1.zip
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: New Panoramic Project   

Revenir en haut Aller en bas
 
New Panoramic Project
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Panoramic Project
» New Panoramic Project
» EDI réalisé entièrement en Panoramic
» EDI réalisé entièrement en Panoramic
» pas un panoramic mais utilitaires delphi.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: