Purebasic est un langage Procedurale

Merci Dobro, c'est que du tout bon et la boucle principale c'est une idée géniale au début du programme, je vais m'y mettre !Dobro a écrit :fait en partie ici :
http://www.purebasic.fr/french/viewtopic.php?f=1&t=8982
Code : Tout sélectionner
;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;
Global FEN_Principale
Global BTN_Valider, SAI_Nom
Procedure OpenFEN_Principale(x = 0, y = 0, width = 600, height = 400)
FEN_Principale = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu)
BTN_Valider = ButtonGadget(#PB_Any, 200, 30, 100, 25, "Valider")
SAI_Nom = StringGadget(#PB_Any, 60, 30, 100, 25, "")
EndProcedure
Code : Tout sélectionner
EnableExplicit
Global FEN_Principale_Fenetre_d_appel.i
Global FEN_Principale_QuitteFenetre.b
XIncludeFile("FEN_Principale.pbf")
;-
;-=== FEN_Principale =============================
;-
Procedure Initialisation_de_FEN_Principale()
EndProcedure
Procedure Fermeture_de_FEN_Principale()
If FEN_Principale_Fenetre_d_appel<>-1
DisableWindow(FEN_Principale_Fenetre_d_appel, 0)
SetActiveWindow(FEN_Principale_Fenetre_d_appel)
EndIf
CloseWindow(FEN_Principale)
FEN_Principale_QuitteFenetre=#True
EndProcedure
;-
;-=== BTN_Valider =============================
;-
Procedure Initialisation_de_BTN_Valider()
EndProcedure
Procedure Clic_sur_BTN_Valider()
EndProcedure
;-
;-=== SAI_Nom =============================
;-
Procedure Initialisation_de_SAI_Nom()
EndProcedure
Procedure Entree_de_SAI_Nom()
EndProcedure
Procedure Sortie_de_SAI_Nom()
EndProcedure
Procedure A_Chaque_Modification_de_SAI_Nom()
EndProcedure
;-
;-*** Ouverture de la fenêtre / Boucle d'évènements ********
;-
Procedure Ouverture_de_FEN_Principale()
Protected.i Event, EventWindow, EventMenu, EventGadget, EventType
FEN_Principale_QuitteFenetre=#False
FEN_Principale_Fenetre_d_appel=GetActiveWindow()
If FEN_Principale_Fenetre_d_appel<>-1
DisableWindow(FEN_Principale_Fenetre_d_appel,1)
EndIf
OpenFEN_Principale()
SetActiveWindow(FEN_Principale)
Initialisation_de_FEN_Principale()
If Not FEN_Principale_QuitteFenetre : Initialisation_de_BTN_Valider() : EndIf
If Not FEN_Principale_QuitteFenetre : Initialisation_de_SAI_Nom() : EndIf
While Not FEN_Principale_QuitteFenetre
Event = WaitWindowEvent()
EventWindow = EventWindow()
EventMenu = EventMenu()
EventGadget = EventGadget()
EventType = EventType()
Select EventWindow
Case FEN_Principale
Select Event
Case #PB_Event_Menu
Select EventMenu
EndSelect
Case #PB_Event_Gadget
Select EventGadget
Case BTN_Valider
Select EventType
Case #PB_EventType_LeftClick : Clic_sur_BTN_Valider()
EndSelect
Case SAI_Nom
Select EventType
Case #PB_EventType_Focus : Entree_de_SAI_Nom()
Case #PB_EventType_LostFocus : Sortie_de_SAI_Nom()
Case #PB_EventType_Change : A_Chaque_Modification_de_SAI_Nom()
EndSelect
EndSelect
Case #PB_Event_CloseWindow : Fermeture_de_FEN_Principale()
EndSelect
EndSelect
Wend
EndProcedure
Ouverture_de_FEN_Principale()
microdevweb a écrit : Je penses qu'il serais possible de faire en PB un éditeur qui travaillerais comme WD (comme ta philosophie), avec un éditeur de Form ou tu pourrais placer ton code directement sur le Bouton champ ect... Si l'aventure te tente? et d'autres aussi se serais un super projet pour faire un peux la nic à pcsoft et valoriser encore plus PB
cool, c'est une bonne idée!microdevweb a écrit : PS: Je travaille également actuellement sur un éditeur d'analyse, mon but est de pouvoir faire un rad après.