Import

[Shadow]

Salut microdevweb
Désoler j'ai pas compris

Si quelqu'un pouvais m'aider et me dire comment faire svp.

[falsam]

Shadow je crois que je t'ai donné une méthode qui fonctionne
http://www.purebasic.fr/french/viewtopi ... 07#p183807

J'ai regardé ce que tu as fais et pardonne moi mais c'est n'importe quoi pour moi !!

Pourquoi tu crées une dll/lib par procédure ?

Pour ceux qui n'ont pas vu je mets les codes.

■ PureAssistant - Core.pb (Donnera PureAssistance - Core.lib)

Code : Tout sélectionner

; Core

Structure Core
  
  ConsoleTitle.s
  
EndStructure

Define Information.Core

ProcedureDLL.s PureAssistance_GetConsoleTitle()
  ProcedureReturn Information.Core\ConsoleTitle
EndProcedure

■ PureAssistant - Console (donnera PureAssistance - Console.lib

Code : Tout sélectionner

IncludeFile "PureAssistant - Core.pb"

ProcedureDLL PureAssistance_OpenConsole()
  
  ;La bibliothèque Console permet de créer une application en mode console. On utilise ce mode pour créer des programmes de petite taille ne nécessitant pas d'interface utilisateur avancé, ou pour une utilisation dans des scripts (ligne de commande). Ces instructions sont également utiles pour le programmeur lors du déboggage d'application en permettant d'afficher des informations sur la console sans interrompre le cours du programme.
  
  Windows = OpenWindow(#PB_Any, 0, 0, 300, 95, "Ouvrire une fenêtre console...", #PB_Window_SystemMenu | #PB_Window_TitleBar| #PB_Window_ScreenCentered)
  TextGadget(#PB_Any, 10, 10, WindowWidth(Windows) - 20, 15, "Choisissez le titre de la console (Optionnel):", #PB_Text_Center)
  Titre = StringGadget(#PB_Any, 10, 30, WindowWidth(Windows) - 20, 20, Titre$)
  SetGadgetAttribute(Titre, #PB_String_MaximumLength, 45)
  Valider = ButtonGadget(#PB_Any, 65, 60, 75, 25, "Valider")
  Annuler = ButtonGadget(#PB_Any, 150, 60, 75, 25, "Annuler")
  
  If Windows
    
    StickyWindow(Windows, #True)
    
    Repeat
      
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         
         Select EventGadget()
             
           Case Valider, Annuler
             Event = #PB_Event_CloseWindow

         EndSelect
            
     EndSelect
     
   Until Event = #PB_Event_CloseWindow
   
   Information.Core\ConsoleTitle = GetGadgetText(Titre)
   CloseWindow(Windows)
   
  EndIf
  
EndProcedure

Remarques :
- IncludeFile "PureAssistant - Core.pb" Pourquoi donc ?
- Le repeat WaitWindowEvent() est inquiétant dans ce code.
- CloseWindow(Windows) Qui est Windows ?

Et enfin le code principale qui va ouvrir les deux libs

Code : Tout sélectionner

; Pure Asistance V1 - Main

#Version = 1
#SousVersion = 1
#Build = 1

Enumeration Programme_Maker
  
  #Windows
  
EndEnumeration

If OpenWindow(#Windows, 0, 0, 800, 600, "Pure Asistance V1", #PB_Window_SystemMenu | #PB_Window_TitleBar| #PB_Window_ScreenCentered)
  
  Import "Plugins\PureAssistance - Console.lib"
    PureAssistance_OpenConsole()
  EndImport
  
  Import "Plugins\PureAssistance - Core.lib"
    PureAssistance_GetConsoleTitle()
  EndImport
  
  DisableWindow(#Windows, #True)
  PureAssistance_OpenConsole()
  DisableWindow(#Windows, #False)
  
  StickyWindow(#Windows, #True)
  StickyWindow(#Windows, #False)
  
  Debug PureAssistance_GetConsoleTitle()
  
  Repeat
    
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_Gadget
        
        Select EventGadget()
            
          Case 0
            
        EndSelect
        
    EndSelect
    
  Until Event = #PB_Event_CloseWindow
  CloseWindow(Windows)
  
EndIf

Tu te demandes pourquoi PureAssistance_GetConsoleTitle() ne retourne rien ? et bien parce que ....

[Shadow]

Falsam, c'est bien beau de dire c'est n'importe quoi, que c'est nul que c'est ceci
mais tu peut aussi me dire et me faire voir comment il faut faire ?

Moi je fais avec se que je sais donc si c'est n'importe quoi
fais moi voir comment ont fait

[falsam]

fais moi voir comment ont fait

Pour la troisiéme fois http://www.purebasic.fr/french/viewtopi ... 07#p183807

[Ar-S]

Tu souhaites qu'il te dise comment on fait ou qu'il fasse à ta place ?
Je crois que son topic est assez parlant non ?