je n'y arrive pas
a qui saura m'aider, j'envoie mon programme
vous allez voir que je n'arrive pas a sauvegarder une fiche et à la rappeler
je suis trop nulle
merci de m'aider
Code : Tout sélectionner
;déclaration des constantes
Enumeration
#menu
#Text_0
#Text_1
#Text_2
#Text_3
#Text_4
#Text_5
#Text_6
#Text_7
#Text_8
#text_9
#text_10
#text_11
#text_12
#text_13
#text_14
#text_15
#text_16
#text_17
#text_18
#text_19
#text_20
#text_21
#text_22
#text_23
#text_24
#text_25
#String_0
#String_1
#String_2
#String_3
#String_4
#String_5
#String_6
#String_7
#String_8
#Button_0
#Button_1
#button_2
#button_consultation_film
#consultation
#film_du_catalogue
EndEnumeration
Enumeration
#message
#bouton_inserer
#page_film
#sauvegarder
#corriger
#gadget_editeur
#bouton_consulter
#page_consultation
EndEnumeration
Global titre$, acteur1$, realisateur$, acteur2$, acteur3$, duree$, origine$, annee$, producteur$
Declare creation_de_film()
Declare recapitulatif()
Declare creation_fichier()
Declare consultation_de_film()
Declare film_video()
Procedure ouverture_menu()
If OpenWindow(#menu,0,0,200,200,#pb_window_systemmenu|#pb_window_windowcentered,"menu")
If CreateGadgetList (WindowID())
ButtonGadget(#bouton_inserer,10,10,180,20,"INSERER UN FILM")
ButtonGadget(#bouton_consulter,10,40,180,20,"CONSULTER LE CATALOGUE")
EndIf
EndIf
Repeat
eventid = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case #bouton_inserer
CloseWindow(#menu)
creation_de_film()
Case #bouton_consulter
CloseWindow(#menu)
consultation_de_film()
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndProcedure
Procedure creation_de_film()
If OpenWindow(#page_film, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "information pour le film")
If CreateGadgetList(WindowID())
TextGadget(#Text_0, 10, 10, 90, 20, "Titre du film :")
TextGadget(#Text_1, 10, 40, 90, 20, "Réalisateur :")
TextGadget(#Text_2, 10, 70, 90, 20, "Premier acteur :")
TextGadget(#Text_3, 10, 100, 90, 20, "Deuxième acteur :")
TextGadget(#Text_4, 10, 130, 90, 20, "Troisième acteur :")
TextGadget(#Text_5, 10, 160, 90, 20, "Durée :")
TextGadget(#Text_6, 10, 190, 90, 20, "Origine :")
TextGadget(#Text_7, 10, 220, 90, 20, "Année :")
TextGadget(#Text_8, 10, 250, 90, 20, "Producteur :")
StringGadget(#String_0, 100, 10, 210, 20, "")
StringGadget(#String_1, 100, 40, 210, 20, "")
StringGadget(#String_2, 100, 70, 210, 20, "")
StringGadget(#String_3, 100, 100, 210, 20, "")
StringGadget(#String_4, 100, 130, 210, 20, "")
StringGadget(#String_5, 100, 160, 210, 20, "")
StringGadget(#String_6, 100, 190, 210, 20, "")
StringGadget(#String_7, 100, 220, 210, 20, "")
StringGadget(#String_8, 100, 250, 210, 20, "")
ButtonGadget(#Button_0, 30, 290, 120, 30, "Terminer")
ButtonGadget(#Button_1, 190, 290, 120, 30, "Annuler")
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID() ; La gestion des évenements
Case #Button_0
; L'utilistateur à terminer la saisie des informations
titre$ = GetGadgetText(#String_0)
realisateur$ = GetGadgetText(#String_1)
acteur1$ = GetGadgetText(#String_2)
acteur2$ = GetGadgetText(#String_3)
acteur3$ = GetGadgetText(#String_4)
duree$ = GetGadgetText(#String_5)
origine$ = GetGadgetText(#String_6)
annee$ = GetGadgetText(#String_7)
producteur$ = GetGadgetText(#String_8)
; On a mémorisé toute les informations utiles
; on ferme la fenetre.
recapitulatif()
Case #Button_1
; L'utilisateur à changer d'idée, on ferme la fenètre
EventID = #PB_EventCloseWindow
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
; On ferme la Fenètre pour la saisie des informations d'un film
CloseWindow(#page_film)
EndProcedure
ouverture_menu()
Procedure recapitulatif()
If OpenWindow(#page_film, 216, 0,430, 400, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_WindowCentered, "Récapitulatif des informations pour le nouveau film")
If CreateGadgetList(WindowID())
ButtonGadget(#sauvegarder,10,340,200,20,"sauvegarder")
ButtonGadget(#corriger,220,340,200,20,"corriger")
ButtonGadget(#button_2,150,370,200,20,"retour au menu")
If LoadFont(0,"arial",25,#PB_Font_Underline )
SetGadgetFont(#pb_default,FontID())
TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)
SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf
Repeat
eventid = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case #corriger
HideWindow(#page_film,1)
creation_de_film()
HideWindow(#page_film,0)
Case#sauvegarder
creation_fichier()
Case#button_2
HideWindow(#page_film,1)
ouverture_menu()
HideWindow(#page_film,0)
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
EndIf
EndProcedure
Procedure creation_fichier()
If CreateFile(0,"catalogue.Txt")
Titre.s= GetGadgetText(#text_9)
realisateur.s=GetGadgetText(#text_11)
acteur1.s = GetGadgetText(#text_13)
acteur2.s=GetGadgetText(#text_14)
acteur3.s=GetGadgetText(#text_15)
duree.s=GetGadgetText(#text_17)
origine.s=GetGadgetText(#text_19)
annee.s=GetGadgetText(#text_21)
producteur.s=GetGadgetText(#text_23)
WriteStringN(Titre)
WriteStringN(realisateur)
WriteStringN(acteur1)
WriteStringN(acteur2)
WriteStringN(acteur3)
WriteStringN(duree)
WriteStringN(origine)
WriteStringN(annee)
WriteStringN(producteur)
Debug titre
Debug realisateur
Debug acteur1
Debug acteur2
Debug acteur3
Debug duree
Debug origine
Debug annee
Debug producteur
CloseFile(0)
MessageRequester("validation","le film "+titre+" est bien enregistre")
Else
MessageRequester("probleme","impossible de creer le fichier",0)
EndIf
EndProcedure
Procedure consultation_de_film()
If OpenWindow(#page_consultation, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar |#pb_window_windowcentered,"consultation du catalogue")
If CreateGadgetList (WindowID())
ButtonGadget(#button_consultation_film,8,40,330,20,"consultation film")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID() ; La gestion des évenements
Case #button_consultation_film
CloseWindow(#page_consultation)
film_video()
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
EndIf
EndProcedure
Procedure film_video()
If OpenWindow(#film_du_catalogue, 216, 0, 343, 333, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar |#pb_window_windowcentered,"film du catalogue")
If OpenFile(0,"catalogue.txt")
If LoadFont(0,"arial",25,#PB_Font_Underline )
SetGadgetFont(#pb_default,FontID())
TextGadget(#text_9,10,10,430,40,titre$,#pb_text_center)
SetGadgetFont(#pb_default,#pb_default)
TextGadget(#text_10,10,100,100,20,"Réalisé par :")
TextGadget(#text_11,200,100,50,20,realisateur$)
TextGadget(#text_12,10,130,100,20,"avec entre autre : ")
TextGadget(#text_13,200,130,100,15,acteur1$)
TextGadget(#text_14,200,150,100,15,acteur2$)
TextGadget(#text_15,200,170,100,15,acteur3$)
TextGadget(#text_16,10,200,150,20,"La duree du film est de :")
TextGadget(#text_17,200,200,100,200,duree$)
TextGadget(#text_18,10,230,100,20,"l'origine est : ")
TextGadget(#text_19,200,230,100,20,origine$)
TextGadget(#text_20,10,260,190,20,"l'année de création de "+titre$+" est :")
TextGadget(#text_21,200,260,100,20,annee$)
TextGadget(#text_22,10,290,100,20,"produit par : ")
TextGadget(#text_23,200,290,100,20,producteur$)
EndIf
EndIf
EndIf
EndProcedure
, ton code était pas si mal. on fait toujours ce genre d'erreur quand on débute.