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
» Demande urgente en maths.
par JL35 Aujourd'hui à 22:26

» Compilateur FBPano
par jean_debord Aujourd'hui à 11:24

» Problème de math
par braveen Aujourd'hui à 10:53

» A propos des attributs de fichier
par papydall Hier à 14:33

» Problème de math
par Marc37 Sam 21 Oct 2017 - 23:04

» I Love You
par papydall Sam 21 Oct 2017 - 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Sam 21 Oct 2017 - 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Mes Procédures

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

avatar

Nombre de messages : 7994
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 d'utilisation des sound dans TC ™ Gold 7.0 E1
» Procédure Optimisation
» mise a jour des pilotes, comment proceder?

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