Re: Import
Publié : dim. 12/juin/2016 5:08
Salut microdevweb 
Désoler j'ai pas compris
Si quelqu'un pouvais m'aider et me dire comment faire svp.
Désoler j'ai pas compris
Si quelqu'un pouvais m'aider et me dire comment faire svp.
http://www.purebasic.fr/french/viewtopi ... 07#p183807J'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
- 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