Ecrire dans un fichier.

wolfjeremy · Message par **wolfjeremy** » mer. 01/févr./2006 18:16

Salut, j'esseye d'ecrire dans un fichier, voila ma procedure :

Procedure choix_info()

etat_info = GetGadgetState(#gadget_checkbox_info)
etat_bouton_connexion = GetGadgetState(#gadget_bouton_connexion)

If etat_info = 1 And etat_bouton_connexion = 1

If OpenFile(0, "ndudata.txt")

texte1.s = GetGadgetText(#gadget_ecrire_login)

texte2.s = GetGadgetText(#gadget_ecrire_pass)

WriteStringN(texte1)
WriteStringN(texte2)

CloseFile(0)

Else

Debug "Erreur ouverture fichier"

EndIf

EndIf

EndProcedure

Et j'insere choix_info() la dedans :

ouvre_fenetre_connexion()

Repeat

Event = WaitWindowEvent()

If Event = #PB_EventGadget

Select EventGadgetID()

Case #gadget_bouton_connexion

choix_info()

EndSelect

EndIf

Until Event = #PB_EventCloseWindow

End

Apparement pas d'erreur pour l'ouverture du fichier... mais j'ai bon cliquer sur le bouton connexion avec le checkbox qui est coché rien ne s'ecrit dans mon fichier...

Pouvez vous m'aider ?

Merci d'avance pour votre réponse.

Backup · Message par **Backup** » mer. 01/févr./2006 18:34

il me semble que tu devrai prendre des cours de Basic !!

wolfjeremy · Message par **wolfjeremy** » mer. 01/févr./2006 18:35

Ouai bon je suis nouveau j'apprend hein lol j'ai jamais toucher a purebasic non plus... puis je me debrouille avec ce que j'ai apres tout je ne vois pas comment je ferai d'autre ? il faut faire des erreurs pour evoluer non ?

Chris · Message par **Chris** » mer. 01/févr./2006 18:45

Et c'est quoi, #gadget_bouton_connexion ?
Un bouton?

Si c'est ça, à première vue, ça n'a rien à faire dans ta procédure, puisque c'est l'utilisation de ce gadget qui l'appelle

Essaye ça à la place.
J'ai pas testé, mais ça me parait déjà plus correct.

Code : Tout sélectionner

Procedure choix_info() 

etat_info = GetGadgetState(#gadget_checkbox_info) 
; etat_bouton_connexion = GetGadgetState(#gadget_bouton_connexion) 

If etat_info = 1; And etat_bouton_connexion = 1 

If OpenFile(0, "ndudata.txt") 

texte1.s = GetGadgetText(#gadget_ecrire_login) 

texte2.s = GetGadgetText(#gadget_ecrire_pass) 

WriteStringN(texte1) 
WriteStringN(texte2) 

CloseFile(0) 

Else 

Debug "Erreur ouverture fichier" 

EndIf 

EndIf 

EndProcedure

wolfjeremy · Message par **wolfjeremy** » mer. 01/févr./2006 18:48

Effectivement c'est une erreur de ma part... j'ai oublier de l'enlever car j'ai mis mon "case" apres j'avai esseyer d'autre methode avant c'est pour sa

Mais sinon pour mon problème vous avez une solution ? je sais c'est surement une erreur de debutant mais bon laisser moi la chance de me lancer, aider moi a me lancer !

EDIT : merci je regarde a ton code

EDIT2 : lol merci en faite fallait juste que j'enleve dans ma procedure tout se qui se raportait au bouton...

EDIT3 : ha ben c'est se que tu a fait dans ton code en faite

ben merci alors

Chris · Message par **Chris** » mer. 01/févr./2006 18:51

Ben ouais!

T'aurais même pu trouver ça tout seul, en cherchant un peu

wolfjeremy · Message par **wolfjeremy** » mer. 01/févr./2006 18:56

Ho mais j'ai chercher tu sai... je suis gener de le dire mais j'ai chercher plus d'une heure

mais j'ai tout esseyer mais a chaque fois je passait a coté de sa... j'avai completement oublier que je le declanchai avec le "case"

Merci de ta patiente