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
» StratégoV8 et V9
par Minibug Aujourd'hui à 1:10

» Rotation d'une image d'un angle quelconque
par JL35 Hier à 23:02

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Mes Procédures

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

avatar

Nombre de messages : 8011
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: