PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

PureBasic Visual Designer

http://forums.purebasic.com/french/viewtopic.php?t=8995

Page 2 sur 3

Publié : dim. 01/févr./2009 22:09
par Geo Trouvpatou
Enfin pour le FTP, tout dépend ce que tu veux faire.

Si c'est juste envoyer un fichier, c'est pas très dur.

C'est un chouille plus complexe si tu veux lister le contenu de ton FTP, différencier fichiers et dossiers et trier tous ça dans l'ordre.

Mais en cherchant un peu, tu peux faire tout cela sans problème.

RTFM ou faut prendre le temps de lire la doc.
Elle est en français alors faut en profiter.

Publié : dim. 01/févr./2009 22:18
par John36mx
une adresse email iras tres bien donc la je met mon adresse ou dans ce ke tu ma donner.

Publié : dim. 01/févr./2009 22:21
par Geo Trouvpatou
Tu la mets soit ds ton 1er champ de texte de ton interface, soit tu la mets en dur ds ton code mais cela veut dire que tu ne pourras plus la modifier.

Publié : dim. 01/févr./2009 22:25
par Geo Trouvpatou
Donc en dur ça donne :

Code : Tout sélectionner

ElseIf GadgetID = #Button_0 ; Action lorsque l'on clique sur le bouton GO
           
            RunProgram("mailto:monmail@truc.fr") ; En mettant l'email directement ds le code

        EndIf

Publié : dim. 01/févr./2009 22:29
par John36mx
La j'ai plusieur probleme.

- Deja mon design j'ai mis une image dans tout le programe et j'ai mis mes gadjet par dessu ! quand je fait run sa ne fait rien qaund japuie sur le bouton et ni rien quand je veut ecrire dans le string.

- Et quand on appuie sur le bouton je veut que sa apparaisse un message.

Merci beaucoup

Publié : dim. 01/févr./2009 22:37
par Geo Trouvpatou
Regarde ça ds mon code ci-dessus ElseIf GadgetID = #Button_0
C'est le code de ta boucle du fichier GeneratedMainFile.pb

Tu peux aussi regrouper tout ton code comme ceci

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
    #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
    #Image_0
    #String_0
    #String_1
    #String_2
    #Button_0
EndEnumeration

;- Image Plugins

;- Image Globals
Global Image0

;- Catch Images
Image0 = CatchImage(0, ?Image0)

;- Images
DataSection
    Image0:
    IncludeBinary "C:\Documents and Settings\proprietaire\Bureau\Fake.bmp"
EndDataSection

Procedure Open_Window_0()
    If OpenWindow(#Window_0, 241, 55, 300, 350, "New Windows (0)",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
        If CreateGadgetList(WindowID(#Window_0))
            ImageGadget(#Image_0, 0, 0, 300, 80, Image0)
            StringGadget(#String_0, 50, 100, 200, 30, "")
            StringGadget(#String_1, 50, 170, 200, 30, "")
            StringGadget(#String_2, 50, 230, 200, 30, "")
            ButtonGadget(#Button_0, 70, 280, 160, 40, "GO")
            
        EndIf
    EndIf
EndProcedure 










; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

;IncludeFile "GeneratedIncludeFile.pb"

Open_Window_0()

Repeat ; Start of the event loop
    
    Event = WaitWindowEvent() ; This line waits until an event is received from Windows
    
    WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
    
    GadgetID = EventGadget() ; Is it a gadget event?
    
    EventType = EventType() ; The event type
    
    ;You can place code here, and use the result as parameters for the procedures
    
    If Event = #PB_Event_Gadget
        
        If GadgetID = #Image_0
            
        ElseIf GadgetID = #String_0
            
        ElseIf GadgetID = #String_1
            
        ElseIf GadgetID = #String_2
            
        ElseIf GadgetID = #Button_0 ; Action lorsque l'on clique sur le bouton GO
            MessageRequester("Action du bouton", "Tu mets ton code au même endroit que MessageRequester")
            ; Ds la doc regarde la Description de StringGadget() et tu verras comment récupérer du texte.
            ; Ici tu dois faire en sorte de récupérer le contenu de ton StringGadget()
            
            Texte$ = GetGadgetText(#String_0) ; On récupère le contenu de #String_0
            Debug Texte$
            RunProgram("mailto:" +Texte$) ; Et on ouvre La messagerie par défaut.
            
            ; OU BIEN 
            ;RunProgram("mailto:monmail@truc.fr") ; En mettant l'email directement ds le code
        EndIf
        
    EndIf
    
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;

Publié : dim. 01/févr./2009 22:40
par John36mx
Ok et comme je te dis j'ai mis mon image qui prend tout lespace de mon programme et du cout quand je clique sur mon bouton ou que je veut ecrire dans le string sa fait rien. c'est normal ?

Publié : dim. 01/févr./2009 22:45
par Geo Trouvpatou
fake.bmp tu peux la mettre en ligne grace à http://imageshack.us/?
Sinon quel est sa taille?

Publié : dim. 01/févr./2009 22:57
par Geo Trouvpatou
Je pensais que tu avais mis une image en header.
Tu as dû la mettre en background général et effectivement tous les gadgets ne fonctionnent plus.

Avec PureForm, tu peux mettre une image en background, mais sinon pour ma part je ne sais pas comment faire avec VisualDesigner.

Publié : dim. 01/févr./2009 23:05
par John36mx
Mais enfin c'est bon j'ao regler la solution. donc reprenons pour l'histoire que je veut ke sa m'envoye les infos sur email et je veu ke kan on clike sur le bouton sa mette un message. merci

Publié : lun. 02/févr./2009 8:57
par Patrick88
sur un forum, tu n'es pas limité en nombre de caractères, alors évites le SMS s'il te plait. :wink:

pat

Publié : lun. 02/févr./2009 10:42
par John36mx
Ok dsl.

Code : Tout sélectionner

If Event = #PB_Event_Gadget
    
    If GadgetID = #String_0
      
    ElseIf GadgetID = #String_1
      
    ElseIf GadgetID = #String_2
      
    ElseIf GadgetID = #Image_6
      
    ElseIf GadgetID = #Image_7
      
    ElseIf GadgetID = #Image_8
      
    ElseIf GadgetID = #Image_9
      
    ElseIf GadgetID = #Image_10
    
            ElseIf GadgetID = #Button_0 ; Action lorsque l'on clique sur le bouton GO
            MessageRequester("Good", "A message with informations")
            ; Ds la doc regarde la Description de StringGadget() et tu verras comment récupérer du texte.
            ; Ici tu dois faire en sorte de récupérer le contenu de ton StringGadget()
           
            Texte$ = GetGadgetText(#String_0); On récupère le contenu de #String_0
            Debug Texte$
            Texte$ = GetGadgetText(#String_1); On récupère le contenu de #String_1
            Debug Texte$
            Texte$ = GetGadgetText(#String_2); On récupère le contenu de #String_2
            Debug Texte$
            RunProgram("mailto:john36mx@hotmail.fr")
           
            ; OU BIEN
            ;RunProgram("mailto:john36mx@hotmail.fr") ; En mettant l'email directement ds le code
        EndIf
       
    EndIf
   
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
1)- Je voudrais que quand on clique sur le bouton sa m'envoye les infos qui y a dans les #String sur ma messagerie sans ouvrir la boite de messagerie. Donc aider moia modifier sa dans le code ci dessus SVP merci.

2)- J'ai 3 #String et j'aimerais qu'il y en est un sa soit pour les mot de pass, c'est a dire que quand on écrit dedans sa fasse sa : •••••••••.

Merci de m'aider.

Publié : lun. 02/févr./2009 15:46
par jbernard13
voilà un exemple que j'ai ecris
( sans utiliser visual designer ni pureform)

Code : Tout sélectionner

;*** La fenetre ***
Enumeration
  #ma_fenetre 
EndEnumeration

; *** le texte, la boite de saisie( String), le bouton 
Enumeration
  #texte_0
  #String_0
  #Bouton_Envoyer
EndEnumeration


;** on crée la fenetre avec un texte , une boite de saisie et un bouton 
If OpenWindow(#ma_fenetre,0,0,200,80,"Ecrire un email",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
  TextGadget(#texte_0,40,10,120,30,"Saisir une adresse email ",#PB_Text_Center)
  StringGadget(#String_0,10,30,180,20,"@.fr",#PB_String_Password); on rajoute les ****  
  SetActiveGadget(#String_0); on positionne le curseur au debut , on dis qu'on donne le focus 
  ButtonGadget(#Bouton_Envoyer,40,55,110,20,"ecrire un email")
  EndIf


; on crée la boucle du programme 

Repeat
  Select WaitWindowEvent(); on attend un evenement qui va se produire comme fermer une fenetre par exemple 
    Case #PB_Event_Gadget; on declare l'evenement pour les gadgets ( le bouton) 
      Select EventGadget()
           Case #Bouton_Envoyer
          Adresse$ = GetGadgetText(#String_0); on recupere le texte de la constante #string_0
          RunProgram("mailto:" +Adresse$)
      EndSelect
      Case #PB_Event_CloseWindow ; on declare que l'on veux fermer la fenetre chaque fois que l'on clique sur la petite croix en haut à droite 
      fermer_fenetre =#True ; si la valeur est vraie  on clique sur la petite croix pour fermer la fenetre et quitter le programme
  EndSelect 
Until fermer_fenetre
End

Publié : lun. 02/févr./2009 16:59
par John36mx
Desoler pour le probleme de ***** c'est bon.

Maintenant donne moi juste le code que je doit mettre en me disant entre quoi et quoi pour m'envoyer tout ce qu'il y a dans les string. Je veut que sa me les envoye par e-mail ou sinon sur un compte FTP juste en fichier TXT. Comme tu veut, car la quand je clique sur le bouton sa m'ouvre le boite e-mail et moi je veut que sa ouvre rien. Je veut que quand on clique sur le bouton sa affiche un message et quand on fait OK sa fasse rien d'autre. J'espere que tu comprend.

Publié : lun. 02/févr./2009 17:20
par jbernard13
une seule solution : faite recherche sur ce forum
Fuseau horaire sur UTC+01:00
Page 2 sur 3

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru