Agenda pour commerciaux V1

Fortix · Message par **Fortix** » ven. 20/juil./2007 20:50

Bonsoirs à tous, j'ais programmé un agenda à la demande d'une personne mais je ne sais plus qui

enfin bref le programme est là, il est enfin finit, donc pour ceux à qui ça intersse

Enumeration
  #_Fenetre_Password
  #_Fenetre_Principal
  #_Fenetre_Info
  #_Recherche_Societe
EndEnumeration

Enumeration 
  #ListIcon_0 
  #Editor_0 
  
  #String_0
  #String_1
  #String_2
  #String_3
  #String_4 
  #_Zone_Recherche
EndEnumeration

If CreatePopupMenu(0)
    MenuItem(1,  "Ajouter Société")
    MenuItem(9,  "Rechercher Société")
    MenuItem(2,  "Modifier selection")
    MenuItem(3,  "Effacer selection")
    MenuBar()
    MenuItem(10, "Enregistrer")
    MenuItem(4,  "Fermer [X]")
EndIf

If CreatePopupMenu(1)
        OpenSubMenu("Phrases types")
            MenuItem(16, Chr(7)+" Mise en attente ")
            MenuItem(17, Chr(7)+" Déjas en partenariat ")
            MenuItem(18, Chr(7)+" Devis éffectué ")
                MenuBar()
            MenuItem(19, Chr(7)+" R.D.V le ")            
            MenuItem(20, Chr(7)+" Nos Partenaires ")
            MenuItem(21, Chr(7)+" Commande éffectué ")
                MenuBar()
            MenuItem(22, Chr(7)+" Je dois les contacter ")
            MenuItem(23, Chr(7)+" Nous mettent au courant ")
            MenuItem(24, Chr(7)+" Faire une Mise au point")
                MenuBar()
            MenuItem(25, Chr(7)+" Effectué Relationnel ")
            MenuItem(26, Chr(7)+" Font un Appel d'Offre ")
            MenuItem(27, Chr(7)+" Budget Serré, Veulent Négocier ")            
        CloseSubMenu()
        MenuBar()
    ;MenuItem(8,  "Valider")
    MenuItem(5,  "Dater")
    MenuItem(15, "Marquer [>]")    
    MenuItem(7,  "Recommencer")
    MenuBar()
    MenuItem(10, "Enregistrer")
    MenuItem(4,  "Fermer [X]")
EndIf

If CreatePopupMenu(2)
    MenuItem(8,  "Valider")
    MenuItem(4,  "Fermer [X]")
EndIf

If CreatePopupMenu(3)
    MenuItem(8,  "Valider")
    MenuItem(7,  "Recommencer")
    MenuItem(12, "Annuler")
EndIf

If CreatePopupMenu(4)
    MenuItem(8,  "Valider")
    MenuItem(12, "Annuler")
EndIf

Global largeur, hauteur, x_list, y_list

Global Nom_Societe_$, Donnees_$, element, Texte_Notes_$, txt_Add_Saut_$, txt_Add_Tab_$, txt_Add_chr10_$, poss, PVC_$, Only_Date_$, Time_$

Global Action, mode, Methode, Type, Modificaton

windir$ = Space (#MAX_PATH) 
GetWindowsDirectory_ ( @windir$, #MAX_PATH)
sy = FindString(windir$, ":\", 1)
sys$=Mid(windir$, 1, sy+1)

Prfl_$ = ProgramFilename()
PVC_$ = GetPathPart(Prfl_$)

;PVC_$ = "c:\Block\"

largeur = 349
hauteur = 304
x_list  = 10
y_list  = 10

Procedure Datage_()
Shared Pack_Date_$, Only_Date_$, Time_$
    Jour = DayOfWeek(Date())
    Select Jour
        Case 0 ;
            Jour_$="Dimanche"
        Case 1 ;
            Jour_$="Lundi"
        Case 2 ;
            Jour_$="Mardi"
        Case 3 ;
            Jour_$="Mercredi"
        Case 4 ;
            Jour_$="Jeudi"
        Case 5 ;
            Jour_$="Vendredi"
        Case 6 ;
            Jour_$="Samedi"
    EndSelect
    Date_$ = FormatDate("%dd/%mm/%yy", Date())
    Time_$ = FormatDate("%hh:%ii", Date())
    Only_Date_$ = Jour_$ +" "+ Date_$
    Pack_Date_$ = Chr(7)+"  "+ Jour_$ +" "+ Date_$ +" à "+ Time_$+" :"
EndProcedure

Procedure Fenetre_Principal_()
    If OpenWindow(#_Fenetre_Principal,  0,  0,  (largeur*2) +30, hauteur+20,  "$$$__The Akkim Bekker Business__$$$",   #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered  ) 
        SetWindowColor(#_Fenetre_Principal, RGB(0,0,0))
;         Datage_()
;         SetWindowTitle(#_Fenetre_Principal, "$$$__The Akkim Bekker Business__$$$                                                "+Only_Date_$+"                        "+Time_$)
        If CreateGadgetList(WindowID(#_Fenetre_Principal))
            ListIconGadget(#ListIcon_0,  x_list,  y_list,  largeur,  hauteur,  "Société",  93,  #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection )
                AddGadgetColumn(#ListIcon_0,  1, "Standart",  72)
                AddGadgetColumn(#ListIcon_0,  2, "Contact",  91)
                AddGadgetColumn(#ListIcon_0,  3, "Direct",  72)
                AddGadgetColumn(#ListIcon_0,  4, "",  0)
            EditorGadget(#Editor_0,  x_list + largeur +10, y_list,  largeur,  hauteur)
                SetGadgetColor(#ListIcon_0, #PB_Gadget_BackColor , RGB(0,0,0))
                SetGadgetColor(#ListIcon_0, #PB_Gadget_FrontColor , RGB(255,192,0))
                  
                SetGadgetColor(#Editor_0, #PB_Gadget_BackColor  , RGB(255,128,0))
                SetGadgetColor(#Editor_0, #PB_Gadget_FrontColor  , RGB(0,0,0))
        EndIf
    EndIf
EndProcedure

Procedure Fenetre_Password_()
    If OpenWindow(#_Fenetre_Password ,  0,  0,  169,  34,  "Akkim Password",   #PB_Window_TitleBar | #PB_Window_ScreenCentered  )
        SetWindowColor(#_Fenetre_Password, RGB(0,0,0))
        If CreateGadgetList(WindowID(#_Fenetre_Password ))
            StringGadget(#String_0,  5,  5,  160,  25,  "",  #PB_String_Password)
                SetGadgetColor(#String_0, #PB_Gadget_BackColor  , RGB(0,0,0))
                SetGadgetColor(#String_0, #PB_Gadget_FrontColor  , RGB(255,128,0))     
        EndIf
    EndIf
EndProcedure

Procedure Recherche_Societe_()
    If OpenWindow(#_Recherche_Societe ,  0,  0,  169,  34,  "Akkim Recherche",   #PB_Window_TitleBar | #PB_Window_ScreenCentered  )
        SetWindowColor(#_Recherche_Societe, RGB(0,0,0))
        If CreateGadgetList(WindowID(#_Recherche_Societe))
            StringGadget(#_Zone_Recherche,  5,  5,  160,  25,  "")
                SetGadgetColor(#_Zone_Recherche, #PB_Gadget_BackColor  , RGB(0,0,0))
                SetGadgetColor(#_Zone_Recherche, #PB_Gadget_FrontColor  , RGB(255,128,0))
        EndIf
    EndIf
EndProcedure

Procedure Fenetre_Info_()
    If OpenWindow(#_Fenetre_Info,  0,  0,  185, 65,  "Akkim Info",   #PB_Window_TitleBar | #PB_Window_ScreenCentered )
        SetWindowColor(#_Fenetre_Info, RGB(0,0,0))
        If CreateGadgetList(WindowID(#_Fenetre_Info))
            StringGadget(#String_1,  5,  5,  85,  25,  "")
                GadgetToolTip(#String_1,  "Société")
            StringGadget(#String_2,  5,  35,  85,  25,  "", #PB_String_Numeric)
                GadgetToolTip(#String_2,  "Standart")
            StringGadget(#String_3,  95, 5,  85,  25,  "")
                GadgetToolTip(#String_3,  "Contact, m+Contact=Mr, sinon =Mme")
            StringGadget(#String_4,  95, 35,  85,  25,  "", #PB_String_Numeric)
                GadgetToolTip(#String_4,  "Direct")
        EndIf
    EndIf
EndProcedure



Procedure Traducteur_Saut_(texte_$, trad_1)
Shared txt_Add_Saut_$
    Symbol_$="]" : Code_$=Chr(13)
    
    If trad_1
        Swap Symbol_$, Code_$
    EndIf
    
    If FindString(texte_$, Symbol_$, 1)
        txt_Add_Saut_$  =  ReplaceString(texte_$,Symbol_$, Code_$)
    Else
        txt_Add_Saut_$  =  texte_$
    EndIf
EndProcedure

Procedure Traducteur_Tab_(texte_$, trad_2)
Shared txt_Add_Tab_$
    Symbol_$="^" : Code_$=Chr(9)
    
    If trad_2
        Swap Symbol_$, Code_$
    EndIf   
     
    If FindString(texte_$, Symbol_$, 1)
        txt_Add_Tab_$  =  ReplaceString(texte_$, Symbol_$, Code_$)
    Else
        txt_Add_Tab_$  =  texte_$
    EndIf 
EndProcedure

Procedure Traducteur_chr10_(texte_$, trad_3)
Shared txt_Add_chr10_$
    Symbol_$="[" : Code_$=Chr(10)
    
    If trad_3
        Swap Symbol_$, Code_$
    EndIf   
     
    If FindString(texte_$, Symbol_$, 1)
        txt_Add_chr10_$  =  ReplaceString(texte_$, Symbol_$, Code_$)
    Else
        txt_Add_chr10_$  =  texte_$
    EndIf 
EndProcedure




Procedure Enumerateur_(Val_Min, Val_Max, Action, mode, Methode, Type, Modificaton)
    For Objet = Val_Min To Val_Max   
        Select Action        
            Case 1 ;Lecture/Ecriture Fichier
                Select mode
                    Case 1 ;Lecture 
                        Info_$   =  ReadString(0)
                        If Info_$
                            societe_$ = StringField(Info_$, 1, "|")
                            standart_$ = StringField(Info_$, 2, "|")
                            contact_$ = StringField(Info_$, 3, "|")
                            diret_$ = StringField(Info_$, 4, "|")
                            note_$ = StringField(Info_$, 5, "|")

                            AddGadgetItem(#ListIcon_0,  -1,  societe_$ +Chr(10)+ standart_$ +Chr(10)+ contact_$ +Chr(10)+ diret_$ +Chr(10)+ note_$)
                        EndIf
                    Case 2 ;Ecriture  
                        
                        societe_$       = GetGadgetItemText(#ListIcon_0, Objet,  0)
                        standart_$      = GetGadgetItemText(#ListIcon_0, Objet,  1)
                        contact_$       = GetGadgetItemText(#ListIcon_0, Objet,  2)
                        diret_$         = GetGadgetItemText(#ListIcon_0, Objet,  3)
                        Notes_Societe_$ = GetGadgetItemText(#ListIcon_0, Objet,  4)
                        
                        
                        Traducteur_Saut_(Notes_Societe_$,1)
                        Traducteur_Tab_(txt_Add_Saut_$,1)
                        Traducteur_chr10_(txt_Add_Tab_$, 1)
                        
                        WriteStringN( 0,  societe_$ + "|" + standart_$ + "|" + contact_$ + "|" + diret_$ + "|" + txt_Add_chr10_$)
                                       
                EndSelect
                
            Case 2 ;Prélèvement pour Recherche, Récupération, Effaçage, Modifiage
                Select Methode
                    Case 1 ;Recherche Dans Liste 
                        If Nom_Societe_$   =  GetGadgetItemText(#ListIcon_0,  Objet ,  0) 
                            SetGadgetItemState(#ListIcon_0, Objet, #PB_ListIcon_Selected)
                            Break
                        Else ;Une autre chance !
                            If CountString(GetGadgetItemText(#ListIcon_0,  Objet ,  0), Nom_Societe_$)
                                SetGadgetItemState(#ListIcon_0, Objet, #PB_ListIcon_Selected)
                                Break
                            EndIf
                        EndIf

;                     Case 2 ;Récupération                    
;                         Select Type
;                             Case 1 ;Simple
;                                 Donnees_$   =  GetGadgetText(Objet)
;                             Case 2 ;Précis (Liste Icone)
;                                 Donnees_$   =  GetGadgetItemText(#ListIcon_0,  element, Objet)
;                         EndSelect
;                         
;                     Case 3 ;Effaçage
;                         ClearGadgetItemList(Objet)
;                         
;                     Case 4 ;Modifiage (Liste Icone)                    
;                         Select Modificaton
;                             Case 1 ;Non Définit
;                                 If CountGadgetItems(#ListIcon_0)  =  0               
;                                     SetGadgetItemText(#ListIcon_0,  element,  Donnees_$, Objet)
;                                 Else             
;                                     SetGadgetItemText(#ListIcon_0,  -1,  Donnees_$, Objet)
;                                 EndIf
;                             Case 2 ;Définit
;                                 SetGadgetItemText(#ListIcon_0,  element,  Donnees_$, Objet)
;                         EndSelect 
                               
                EndSelect
                
        EndSelect
        
    Next Objet
EndProcedure

Fenetre_Password_()

Repeat
    
    Datage_()
    
    Gadget_Acti = GetActiveGadget()
    Fenetre = GetActiveWindow()

    If Fenetre = #_Fenetre_Principal
    
        If Past_Time_$ <> Time_$
            SetWindowTitle(#_Fenetre_Principal, "$$$__The FORTIX Business__$$$                                                "+Only_Date_$+"                        "+Time_$)
            Past_Time_$=Time_$
        EndIf
        
        element = GetGadgetState(#ListIcon_0)
        If  element <>  - 1 
            DisableGadget(#Editor_0,  0)
            If element_carnage <> element                                            
                Notes_$ = GetGadgetItemText(#ListIcon_0,  element,  4)

                Traducteur_Saut_(Notes_$,0)
                Traducteur_Tab_(txt_Add_Saut_$,0)
                Traducteur_chr10_(txt_Add_Tab_$, 0)

                SetGadgetText(#Editor_0, txt_Add_chr10_$)
                
                element_carnage = element
                
            Else
                Texte_Notes_$ = GetGadgetText(#Editor_0)
                SetGadgetItemText(#ListIcon_0,  element,  Texte_Notes_$,  4)               
            EndIf        
        Else
            DisableGadget(#Editor_0,  1)
        EndIf
    EndIf

      
        
    Select WaitWindowEvent()
        
        Case #WM_RBUTTONDOWN

            Select Fenetre   
                Case 0 ;Password
                    type = 2
                Case 1 ;Principal
                    GetCursorPos_(CurPos.POINT) 
                    HObjet = WindowFromPoint_(CurPos\x, CurPos\y) 
                    Popup_type = GetDlgCtrlID_(HObjet)
                    Select Popup_type
                        Case #ListIcon_0
                            type = 0
                        Case #Editor_0
                            type = 1                                                           
                    EndSelect
                Case 2 ;Info
                    type = 3
                Case 3 ;Recherche
                    type = 4
            EndSelect

            DisplayPopupMenu(type,  WindowID(Fenetre))
          
        Case #PB_Event_Menu
      
            Select EventMenu()
    
                Case 1 ;Ajouter Société
                
                    Fenetre_Info_()
                
                Case 9 ;Rechercher Société  
                
                    Recherche_Societe_()  
                    
                Case 2 ;Modifier selection 
                
                    societe_$   =  GetGadgetItemText(#ListIcon_0,  element,  0)
                    standart_$  =  GetGadgetItemText(#ListIcon_0,  element,  1)
                    contact_$   =  GetGadgetItemText(#ListIcon_0,  element,  2)
                    diret_$     =  GetGadgetItemText(#ListIcon_0,  element,  3)
        
                    Fenetre_Info_()
                    
                    SetGadgetText(#String_1,  societe_$)
                    SetGadgetText(#String_2,  standart_$)
                    SetGadgetText(#String_3,  Mid(contact_$,4,Len(contact_$)-3))
                    SetGadgetText(#String_4,  diret_$)
                    
                    Definit  =  1
    
                Case 3 ;Effacer selection
                                        
                    Fenetre_Password_()    
                    v_eff = 1
                    
                Case 4 ;Fermer
                    close = 1                
                    
; -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -               
               
                Case 5 ;Dater
                    If Gadget_Acti = #Editor_0
                        ;Datage_()
                        AddGadgetItem(#Editor_0, -1, "")
                        AddGadgetItem(#Editor_0, -1, Pack_Date_$)
                        AddGadgetItem(#Editor_0, -1, "- ")
                    EndIf
; -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -          
                Case 8 ;Valider
                
                    Select Fenetre
                    
                        Case 0
                            If v_eff
                                txt_Pwd_$ = "kim"
                            Else
                                txt_Pwd_$ = "KIMKIM"
                            EndIf
                            
                            If GetGadgetText(#String_0) = txt_Pwd_$
                                CloseWindow(#_Fenetre_Password)
                                If v_eff
                                    RemoveGadgetItem(#ListIcon_0,  element)
                                    
                                    ClearGadgetItemList(#Editor_0)
                                    SetGadgetItemText(#ListIcon_0,  element,  "",  4)
                                    
                                    v_eff = 0
                                Else
                                    Fenetre_Principal_()
                                   
                                    If ExamineDirectory(0,PVC_$,"Repertoire.*")
                                        ReadFile(0, PVC_$+"Repertoire") 
                                            Enumerateur_(1, Lof(0), 1, 1, 0, 0, 0) 
                                        CloseFile(0)
                                    Else
                                        If ExamineDirectory(0,sys$,"Repertoire.*")
                                            If CopyFile(sys$+"Repertoire",PVC_$+"Repertoire") 
                                                ReadFile(0, PVC_$+"Repertoire") 
                                                    Enumerateur_(1, Lof(0), 1, 1, 0, 0, 0) 
                                                CloseFile(0)
                                            EndIf                               
                                        EndIf 
                                    EndIf
                                EndIf
                            Else
                                MessageRequester("Erreur!","Vous n'avez pas l'autorisation d'utiliser ce programme et encore moin de le modifier!",0)
                                CloseWindow(#_Fenetre_Password)                       
                                End
                            EndIf 
                        
;                         Case 1 ;Fenêtre Principale (Editor, Liste Icône)
;                         
;                             Texte_Notes_$ = GetGadgetText(#Editor_0)
;                             SetGadgetItemText(#ListIcon_0,  element,  Texte_Notes_$,  4)
                                               
                        Case 2 ;Info
                        
                            Societe_$   =  GetGadgetText(#String_1)
                            Standart_$  =  GetGadgetText(#String_2)
                            Contact_$   =  GetGadgetText(#String_3)
                            Direct_$    =  GetGadgetText(#String_4)
                            
                            If Societe_$
                                Societe_$ = UCase(Societe_$)
                            Else
                                Societe_$   =  "-- -- -- -- --"
                            EndIf
               
                            If Len(Standart_$) = 0
                                Standart_$  =  "-- -- -- -- --"
                            EndIf
                                
                            If Contact_$
                                Civil_$=Mid(Contact_$, 1, 1)
                                If Civil_$="m"
                                    Contact_$ =Mid(Contact_$, 2, Len(Contact_$) -1)
                                    Civil_$ = ReplaceString(Civil_$,"m","Mr ")
                                Else
                                    Civil_$ = "Mme "
                                EndIf
                                
                                L_$ = Mid(Contact_$ ,1,1)
                                Rest_$ = Mid(Contact_$ ,2,Len(Contact_$)-1)
                                Contact_$ = UCase(L_$) + Rest_$ 
                                
                                Contact_$ = Civil_$ + Contact_$ 
                            Else
                                Contact_$   =  "-- -- -- -- --"  
                            EndIf
                
                            If Len(Direct_$) = 0
                                Direct_$    =  "-- -- -- -- --"
                            EndIf
                 
                            If Definit
                                SetGadgetItemText(#ListIcon_0,  element,  Societe_$,  0)
                                SetGadgetItemText(#ListIcon_0,  element,  Standart_$,  1)
                                SetGadgetItemText(#ListIcon_0,  element,  Contact_$,  2)
                                SetGadgetItemText(#ListIcon_0,  element,  Direct_$,  3)
                                Definit  =  0
                
                                sortie_info  =  1
                                 
                            ElseIf CountGadgetItems(#ListIcon_0)  =  0               
                                AddGadgetItem(#ListIcon_0,  0, Societe_$ + Chr(10) + Standart_$ + Chr(10) + Contact_$ + Chr(10) + Direct_$ )
                            Else             
                                AddGadgetItem(#ListIcon_0,   - 1, Societe_$ + Chr(10) + Standart_$ + Chr(10) + Contact_$ + Chr(10) + Direct_$ )
                            EndIf
                            
                            If sortie_info
                                CloseWindow(#_Fenetre_Info)
                            EndIf
                
                        Case 3 ;Recherche
                        
                            Nom_Societe_$ = UCase(GetGadgetText(#_Zone_Recherche))
                            
                            Enumerateur_(0, CountGadgetItems(#ListIcon_0), 2, 0, 1, 0, 0)                            
    
                    EndSelect
                    
                Case 10 ;Enregistrer    
                    If CreateFile(0, PVC_$+"Repertoire")
                        Enumerateur_(0, CountGadgetItems(#ListIcon_0) -1, 1, 2, 0, 0, 0)
                        CloseFile(0);:Debug "Fichier enregisté"       
                    EndIf        
; -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -          

                Case 7 ;Recommencer                
                    Select Fenetre                    
                        Case 1 ;Fenêtre Principale (Editor, Liste Icône)
                            ClearGadgetItemList(#Editor_0)
                            SetGadgetItemText(#ListIcon_0,  element,  "",  4)
                                                   
                        Case 2 ;Info
                            For p=3 To 6
                                SetGadgetText(p, "")
                            Next p
                    EndSelect 
                    
                Case 12 ;Annuler                
                    Select Fenetre                    
                        Case 2 ;Info
                            CloseWindow(#_Fenetre_Info)                       
                        Case 3 ;Recherche
                            CloseWindow(#_Recherche_Societe)
                    EndSelect 
                    
                Case 15 ;Marquer
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> ")    
                    EndIf
                    
                Case 16 ;
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Mise en attente !, ")    
                    EndIf
                Case 17 ;
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> En partenariat !, ")    
                    EndIf
                Case 18 ;
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Devis éffectué !, ")    
                    EndIf
                Case 19 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> R.D.V le :")    
                    EndIf
                    
                Case 20 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Nos Partenaires !")    
                    EndIf
                Case 21 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Commande éffectué !, ")    
                    EndIf
                Case 22 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Je dois les contacter, ")    
                    EndIf
                Case 23 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Nous mettent au courant !,")    
                    EndIf
                Case 24 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Faire une Mise au point")    
                    EndIf
                Case 25 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Effectué Relationnel !,")    
                    EndIf    
                Case 26 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Font un Appel d'Offre !,")    
                    EndIf    
                Case 27 ; 
                    If Gadget_Acti = #Editor_0
                        AddGadgetItem(#Editor_0, -1, "> Budget Serré, Veulent Négocier !,")    
                    EndIf                               
            EndSelect
 
       Case #PB_Event_CloseWindow
            close=1     

    EndSelect

Until close 
;--------------------------------------------------------------------------- 

If Fenetre = #_Fenetre_Principal
    If CreateFile(0, PVC_$+"Repertoire")
        Enumerateur_(0, CountGadgetItems(#ListIcon_0) -1, 1, 2, 0, 0, 0)
        CloseFile(0)
        CopyFile(PVC_$+"Repertoire",sys$+"Repertoire")
    EndIf 
    CloseWindow(#_Fenetre_Principal)
EndIf

;--------------------------------------------------------------------------- 


End
;

vous remarquerez qu'il n'y a absolument aucun boutton, c'est normal,
parce qu'elle est là la nouveautée, car touts se commande en popup

c'est vrai ce n'est pas du tout pratique à première vue mais par la suite vous comprendrez que si!!!!

car au final, vous executerez un max de choses en un minimun d'action
d'où le principe

merci à tous

et faites moi part de vos remarques svp, (très important pour les prochaines versions )

nico · Message par **nico** » ven. 20/juil./2007 22:53

ça plante,essaye le!

Good07 · Message par **Good07** » sam. 21/juil./2007 7:21

Bonjour Fortix.

Bon moi je ne peu pas tester. Je suis bloqué sur l'entrée du mot de passe et je ne sait pas quoi entrer.
J'ai essayé KIM, kimkim et n'importe quel mot qui me passait par la tête, mais aucun résultat.

nico · Message par **nico** » sam. 21/juil./2007 9:31

Fais ça et tu pourra valider sans mot de passe:

Code : Tout sélectionner

                            If v_eff
                                txt_Pwd_$ = ""
                            Else
                                txt_Pwd_$ = ""
                            EndIf

Je crois que Fortix à voulu s'amuser un peu.

Good07 · Message par **Good07** » sam. 21/juil./2007 10:16

Bonjour Nico.

J'avais trouvé l'endroit où était testé le mot de passe, c'est pour cela que j'avais tapé kim ou KIMKIM, mais comment tu valides? j'appuie sur la touche entée et j'ai juste le son de windows qui ralle, même si j'utilise ton astuce.
J'utilise PureBasic 4.10 béta2.

nico · Message par **nico** » sam. 21/juil./2007 11:10

vous remarquerez qu'il n'y a absolument aucun boutton, c'est normal,
parce qu'elle est là la nouveautée, car touts se commande en popup

Click droit , valider!

Good07 · Message par **Good07** » sam. 21/juil./2007 11:29

Ok Nico ça marche.

Mais après j'ai un plantage ligne 442

objet non initialisé.

Fortix · Message par **Fortix** » sam. 21/juil./2007 15:39

PB V4 mot de passe initial "KIMKIM"; mot de passe pour éffaçage contacte "kim"

Bonjours à Nico et Good07, je l'ais réessayé à la demande de Nico,
mais je confirme qu'il fonctionne très bien chez moi,

pour la ligne 442 : soit il n'a pas retrouvé le fichier de sauguarde du
répertoire , en principe il génère deux fichiers nommés "Repertoire"

un à la position de l'exe (même répertoire)
et un aute à la racine du lecteur principal (ainsi trouvé automatiquement)

la fonction se trouvant à la ligne 442 est en mode "Lecture du fichier se trouvant à l'emplacement de l'exe" si se fichier n'est pas présent,
alors il se répercute vers l'autre fichier de sauguarde se trouvant à la racine du lecteur principale

cas impossible érreur de lecture du fichier "répertoire"
car pour celà j'ais du mobilisé 4 procédures très solides et surtous très synchronisés:

(écriture avec traduction de symbole de repèrage, lecture/écriture avec réinterpretation de chaque
caractères, relecture pour calibrage du texte fraichement interprété, et enfin: écriture et relecture pour le fixage final pour une préparation de sauveguarde auto/manuelle)

et je l'ai réessayer avec de confirmer se text ci, en lui imposant les plus
grosses contraintes, résultat il fonctionne impec

tenez moi au courant

Good07 · Message par **Good07** » sam. 21/juil./2007 21:36

Bonsoir Fortix.
Bon, je rentre du boulot et je viens de réessayer ton programme. Toujours une erreur ligne 442. Après examen de la racine du disque et de mon répertoire de sauvegarde pas de fichier nommé répertoire.
En fait, ton programme ne fonctionne pas si il n'est pas compilé. Je pense à cause du débogueur de Pure. Une fois compilé il fonctionne normalement, mais il manque d'ergonomie. On se retrouve avec 4 champs à remplir sans savoir dans quel ordre il faut le faire et ce que l'on doit y rentrer. Il faut valider pour voir où se positionne ce que l'on a rentré.
Voilà pour le début, je n'ai pas testé plus avant.

Fortix · Message par **Fortix** » sam. 21/juil./2007 21:51

Bonsoir Good07, tu as bien raison

, je pensais avoir mis des "minis aides flottants" pour guider, oups Désolé

tu remarqueras que l'exe n'est pas joli joli

, mais il demande qu'à être amélioré, et puis franchement ça me ferais plaisir

j'attire votre attention sur un point mineur:
personnaliser cet exe (mettez vos noms à la place de mon Speudonyme "Akkim" Alain Karta Kim Speudo d'un autre Forum!!!!)