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
» Synedit Parameters
par Yannick Aujourd'hui à 0:27

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 21:16

» Compilateur FBPano
par jean_debord Hier à 9:56

» Bienvenue à Virtualalan !
par UltraVox Hier à 9:18

» Concours de Morpions
par jjn4 Hier à 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

» >199
par maelilou Mar 20 Juin 2017 - 14:13

» NUMBER_FOCUS
par Yannick Lun 19 Juin 2017 - 15:25

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 | 
 

 Mes Procédures

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

avatar

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

MessageSujet: Mes Procédures   Mar 26 Fév 2013 - 21:21

Un petit outils que je suis entrain de me bricoler
pour stocker et retrouver mes procédures plus facilement...et plus rapidement... Rolling Eyes
( moi qui est la mémoire qui flanche... Laughing )
Code:
Application_title "Mes Procédures"

Constantes()
Variables()
Event()
Interface()
Init()

End
' Déclaration des constantes____________________________________________________
Sub Constantes()
  Dim Dos$ : Dos$=Dir_current$
  Dim KGF$ :KGF$=Dos$+"\KGF.dll"
End_Sub
' Déclaration des variables globales____________________________________________
Sub Variables()
  Dim Clic%,Change%
  Dim SF%
End_Sub
' Déclaration des évènements____________________________________________________
Sub Event()
  Label Clic,Change
End_Sub
' Mise en place de l'interface utilisateur______________________________________
Sub Interface()
  O_Form(0,0,1,0,0,480,660,"Mes Procédures"):font_name 0,"arial"
  O_Main_Menu(1,0)
  O_Sub_Menu(2,1,"Fichier",0):O_Sub_Menu(3,1,"Edit",0):O_Sub_Menu(4,1,"Options",0):O_Sub_Menu(5,1,"A Propos...",0):O_Sub_Menu(6,1,"Aide",0)
  O_Sub_menu(100,2,"Ouvrir",1):O_Sub_menu(101,2,"Nouveau",1):O_Sub_menu(102,2,"Quitter",1)
  O_Sub_menu(103,3,"Copier",1):O_Sub_menu(104,3,"Coller",1)
'  Emplacement réservé pour de futur options
  O_Container(10,0,0,0,6,417,632,"")
  O_DList(14,"")
  O_Alpha(15,10,1,15,5,0,0,"Procédures :"):font_color 15,0,0,255
  O_List(11,10,1,31,5,360,150,""):font_name 11,"courier new":On_Click 11,Clic:cursor_point 11
  O_Alpha(16,10,1,15,160,0,0,"Code :"):font_color 16,0,0,255
  O_Memo(12,10,1,31,160,170,460) :font_name 12,"courier new":Bar_Vertical 12:on_click 12,Clic
  O_Alpha(17,10,1,206,160,0,0,"Commentaires :"):font_color 17,0,0,255
  O_Memo(18,10,1,221,160,170,460) :font_name 18,"courier new":Bar_Vertical 18:On_Click 18,Clic
  O_Alpha(13,10,1,395,10,0,0,""):Font_Color 13,0,0,255
  O_Container(20,0,0,0,6,417,632,"")
  O_Alpha(21,20,1,15,10,0,0,"Catégorie :")
  O_Combo(22,20,1,30,10,0,150)
  O_Alpha(23,20,1,60,10,0,0,"Nom de la Sub :")
  O_Edit(24,20,1,75,10,0,150):on_change 24,Change
  O_Alpha(25,20,1,105,70,0,0,"Définition :")
  O_Memo(26,20,1,120,70,100,460):Bar_Vertical 26:on_click 26,Clic
  O_Alpha(27,20,1,225,70,0,0,"Sub :")
  O_Memo(28,20,1,240,70,120,460):Bar_Vertical 28:on_click 28,Clic
  O_Button(29,20,1,385,447,0,0,"Abandon",1)
  O_Button(30,20,1,385,527,0,0,"Enregistrer",1)
End_Sub

Sub Init()
  Dll_on KGF$
End_Sub

Clic:
  Clic%=Number_click
  Select Clic%
  case 5  :APp()
  case 6  :Aide()
  case 11 :SF%=11:Clear 12:Clear 18:Selection(14)
  case 12 :SF%=12
  case 18 :SF%=18
  case 26 :SF%=26
  case 28 :SF%=28
  case 29 :Init_Nouveau()
  case 30 :Enregistrer()
  case 100:Init_Ouvrir() :show 10:if show(20)=1: hide 20:end_if:Choix_Categorie()
  case 101:Init_Nouveau():Show 20:if show(10)=1: hide 10:end_if
  case 102:Quitter()
  case 103:Copier(SF%)
  case 104:Coller(SF%)
  case 203:DLoad_File(Text$(202)+".ygc"):Hide 200:Show 10
  End_Select
Return

Sub Selection(No%)
  Dim_Local i%,a$,x%,Line1%,Line2%,b$
  If count(11)>0
      i%=item_index(11)
      a$=item_index$(11)
      Caption 13,a$
  End_if
  '  définition du point de départ du chapitre
  Line1%=0
  if count(No%)>0
      for x%=1 to count(No%):if item_read$(No%,x%)="#"+a$:Line1%=x% :end_if:next x%
  end_if
  '  détermination du point de fin du chapitre
  Line2%=0
  if line1%<count(No%)
      for x%=(Line1%+1) to count(No%):if left$(item_read$(No%,x%),1)="#":Line2%=x% :exit_for:end_if:next x%
  end_if
  '  lecture du chapitre dans No% - écriture dans 12
  if Line2% >0
      if (Line1%+1)<>Line2%
        for x%=(Line1%+1) to (Line2%-1)
            b$=item_read$(No%,x%)
            if left$(b$,1)="*" then item_add 12,right$(b$,len(b$)-1)
            if left$(b$,1)="$" then item_add 18,right$(b$,len(b$)-1)
        next x%
      end_if
  else
      if (Line1%+1)<count(No%)
        for x%=(Line1%+1) to count(No%)
            b$=item_read$(No%,x%)
            if left$(b$,1)="*" then item_add 12,right$(b$,len(b$)-1)
            if left$(b$,1)="$" then item_add 18,right$(b$,len(b$)-1)
        next x%
      end_if
  end_if
End_Sub

Sub Init_Nouveau()
  Text 24,"":clear 26:clear 28:clear 22:Combo_Load(22)
End_Sub

Sub Init_Ouvrir()
  Clear 12:Clear 18:Clear 11
End_Sub

Sub Choix_Categorie()
  Dim_Local hnd%,res%,flag%
  flag%=1
  If Object_exists(200)=0
      O_Form(200,0,1,0,0,100,250,"Catégorie"):Font_name 200,"arial"
      O_Alpha(201,200,1,10,10,0,0,"Catégorie :")
      O_Combo(202,200,1,25,10,0,180)
      O_Button(203,200,1,25,195,20,20,"Ok",1)
  Else
      Show 200
      Clear 202
  End_If
  Combo_Load(202)
  hnd%=handle_form("Catégorie")
  res%=dll_call2("WindowTopMost",hnd%,flag%)
End_Sub

Sub Enregistrer()
    dim_local F$
    F$=Text$(22)+".ygc"
    If File_Exists(F$)=1
      Ajout_Proc(F$)
    Else
      Create_File_Proc(F$)
    End_If
    pause 1000
    Init_Nouveau()
End_Sub

Sub Ajout_Proc(File$)
  Dim_Local No%,x%,a$,b$
  No%=Number_objects+1
  O_Dlist(No%,File$)
  If Text$(24)<>""
      item_add No%,"#"+Text$(24)
      if count(26)>0
        for x%=1 to count(26):Item_add No%,"*"+item_read$(26,x%):next x%
      end_if
      if count(28)>0
        for x%=1 to count(28):Item_add No%,"$"+Item_read$(28,x%):next x%
      end_if
      file_save No%,File$
  else
      a$=string$(5," ")+"Procédure sans nom !"
      b$=string$((5+len(a$))/2," ")+"Attention !!!"
      message b$+chr$(13)+a$
  end_if
  Delete No%
End_Sub

Sub Create_File_Proc(File$)
  Dim_local x%
  file_open_write 1000,File$
  If Text$(24)<>""
      file_writeln 1000,"#"+Text$(24)
      if count(26)>0
        for x%=1 to count(26):file_writeln 1000,"*"+item_read$(26,x%):next x%
      end_if
      if count(28)>0
        for x%=1 to count(28):file_writeln 1000,"$"+item_read$(28,x%):next x%
      end_if
      file_close 1000
  else
      a$=string$(5," ")+"Procédure sans nom !"
      b$=string$((5+len(a$))/2," ")+"Attention !!!"
      message b$+chr$(13)+a$
  end_if
End_Sub

Sub Quitter()
  Dll_Off
  terminate
End_Sub

Sub Copier(No%)
  Clipboard_copy No%
End_Sub

Sub Coller(No%)
  Clipboard_paste No%
End_Sub

Sub APp()
End_Sub

Sub Aide()
End_Sub

Sub DLoad_File(T$)
  Dim_Local x%,a$
  Clear 14
  File_Load 14,T$
  for x%=1 to count(14)
      a$=item_read$(14,x%):if left$(a$,1)="#":item_add 11,right$(a$,len(a$)-1):end_if
  next x%
End_Sub

Change:
  Change%=Number_Change
  Select Change%
  case 24:Write_in26()
  End_Select
Return

Sub Write_in26()
  dim_local x%,a$,b$,c$
  item_delete 26,3 :item_delete 26,2:item_delete 26,1
  a$=text$(24)
  for x%=1 to len(a$)
      b$=left$(a$,1)
      if b$=" " then b$="_"
      c$=c$+b$
      a$=right$(a$,len(a$)-1)
  next x%
  item_add 26,"Sub "+c$+"()"
  item_add 26,""
  item_add 26,"End_Sub"
End_sub

Sub Combo_Load(No%)
  Dim_local x%,a$
  a$=File_Find_First$
  if Right$(a$,4)=".ygc":a$=Left$(a$,Len(a$)-4):Item_Add No%,a$:End_If
  a$=file_find_next$
  While a$<>"_"
      If Right$(a$,4)=".ygc":a$=Left$(a$,Len(a$)-4):Item_Add No%,a$:End_If
      a$=File_Find_Next$
  End_While
  File_Find_Close
End_Sub

#include "Objet_Lib.bas"

Voilà le fichier souffre douleur, il doit être enregistrer dans le dossier source
sous le nom de "Objets.ygc":
Spoiler:
 

Embarassed J'ai oublié de dire ...d'écrire que la Lib est sur mon webdav et qu'il faut kgf.dll
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Mes Procédures
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Problème avec ADR() et procédures
» Procédure à suivre avant de poster
» Procédure judiciaire vis à vis de mon forum
» Génération procédurale et niveaux aléatoires
» Procédure d'utilisation des sound dans TC ™ Gold 7.0 E1

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: