Procedure Sauvegarder();sauvegarder le fichier
Resultat = OpenWindow(1, 0, 0, 500, 340, "Enregistrer sous" , #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
CreateGadgetList(WindowID(1))
ExplorerListGadget(8, 10, 10, 480, 240, "C:\*.kls;*.txt")
StringGadget(9, 10, 260, 300, 20, "default.kls")
StringGadget(10, 10, 290, 300, 20, ".kls (Kraessor Language Scripte)", #PB_String_ReadOnly)
ButtonGadget(11, 310, 290, 90, 20, "Valider")
ButtonGadget(12, 400, 290, 90, 20, "Annuler")
EndProcedure
Procedure Charger();Charger le fichier
Resultat = OpenWindow(2, 0, 0, 500, 340, "Charger un fichier" , #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
CreateGadgetList(WindowID(2))
ExplorerListGadget(8, 10, 10, 480, 240, "C:\*.kls;*.txt")
StringGadget(13, 10, 260, 300, 20, "default.kls")
StringGadget(14, 10, 290, 300, 20, ".kls (Kraessor Language Scripte)", #PB_String_ReadOnly)
ButtonGadget(15, 310, 290, 90, 20, "Valider")
ButtonGadget(16, 400, 290, 90, 20, "Annuler")
EndProcedure
Quitter=0
Resultat = OpenWindow(0, 0, 0, 520, 560, "KLS Scripte V.1.0" , #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
If CreateGadgetList(WindowID(0));cretion de l'environnement principal
PanelGadget(0, 10, 10, 500, 500)
AddGadgetItem(0,-1,"Zone de programmation")
EditorGadget(1, 10, 10, 460, 360)
ListViewGadget(7, 10, 380, 460, 80)
AddGadgetItem (7,-1,"Message()")
AddGadgetItem (7,-1,"MessageString()")
AddGadgetItem (7,-1,"MessageReal()")
AddGadgetItem (7,-1,"MessageQuestion()")
AddGadgetItem (7,-1,"BankAdd()")
AddGadgetItem (7,-1,"BankId()")
AddGadgetItem (7,-1,"BankConnecte()")
AddGadgetItem (7,-1,"DrawSprite()")
AddGadgetItem (7,-1,"Stop()")
AddGadgetItem(0,-1,"Aide")
TextGadget(5, 10, 10,250,20,"Devil Games Programme, créer par ombre")
TextGadget(6, 10, 50,350,60,"Si vous voulez de l'aide concernant ce programme rendez-vous sur le game maker zone ;
www.forum.gmzone.fr") If CreateStatusBar(0, WindowID(0));barre de status (en bas)
AddStatusBarField(90)
AddStatusBarField(100)
AddStatusBarField(130)
AddStatusBarField(100)
AddStatusBarField(100)
EndIf
StatusBarText(0, 0, "Version 1.0")
StatusBarText(0, 4, "Devil Games")
CreateMenu(0, WindowID(0))
MenuTitle("Fichier")
MenuItem(1, "Nouveau")
MenuItem(2, "Ouvrir")
MenuItem(3, "Enregistrer sous")
MenuItem(4, "Quitter")
;MenuTitle("Option")
;MenuItem(5, "Nouveau" +Chr(9)+"Ctrl+O")
;MenuItem(6, "Ouvrir" +Chr(9)+"Ctrl+E")
;MenuItem(7, "Enregistrer sous"+Chr(9)+"Ctrl+R")
;MenuItem(8, "Quitter" +Chr(9)+"Ctrl+F")
MenuTitle("Divers")
MenuItem(9, "A propos")
;MenuItem(10, "Aide")
;MenuItem(11, "Manuel")
Repeat;condition
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget;evenement gadget
Select EventGadget()
Case 1 :
Case 2 :
Sauvegarder()
Case 3
Case 4
Case 7
varSelect=GetGadgetState(7)
dep$=GetGadgetItemText(7,varSelect)
Res = CountGadgetItems(1)
AddGadgetItem(1,Res+1,dep$)
Case 11
Text$ = GetGadgetText(1)
Texte$ = GetGadgetText(9)
directory$=GetGadgetText(8)
If CreateFile(1, directory$+Texte$)
WriteStringN(1, Text$)
CloseFile(1)
EndIf
CloseWindow(1)
Case 12
CloseWindow(1)
Case 15
Texte$=GetGadgetText(13)
directory$=GetGadgetText(8)
If ReadFile(0, directory$+Texte$)
zone$ = ReadString(0)
SetGadgetText(1, zone$)
EndIf
CloseWindow(2)
Case 16
CloseWindow(2)
Case 8
If EventType()=#PB_EventType_LeftDoubleClick
altexte$=GetGadgetItemText(8,GetGadgetState(8))
If IsWindow(1)
SetGadgetText(9, altexte$)
EndIf
If IsWindow(2)
SetGadgetText(13, altexte$)
EndIf
EndIf
EndSelect
Case #PB_Event_Menu;evenement menu
Select EventMenu()
Case 9 ; à propos
MessageRequester("à propos", "KLS V.1.0", 0)
Case 4;menu : quitter
Quitter=1
Case 3;menu : sauvegarder
Sauvegarder()
Case 2;menu : charger
Charger()
Case 1;menu : nouveau
ClearGadgetItemList(1)
EndSelect
Case #PB_Event_CloseWindow ;evenement fenetre
If EventWindow()=0
Quitter = 1
EndIf
If EventWindow()=1
CloseWindow(1)
EndIf
If EventWindow()=2
CloseWindow(2)
EndIf
EndSelect
Until Quitter = 1
EndIf
Sujet: Mini projet PureBasic 
Mer 13 Fév - 17:32
j'ai donc commencer KLS Scripte un logiciel qui est en faite un simple editeur de texte qui permettra bientot pas mal de chose (voué à etre un editeur de scripte pour un de mes jeux vidéo) K***** Langage scripte .exe :
il va me falloir au moin dix lignes pour configurer la fenetre et prendre les données que l'utilisateur renvoie.
