PureBasic Visual Designer

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:09

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.

John36mx · Message par **John36mx** » dim. 01/févr./2009 22:18

une adresse email iras tres bien donc la je met mon adresse ou dans ce ke tu ma donner.

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:21

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.

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:25

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

John36mx · Message par **John36mx** » dim. 01/févr./2009 22:29

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

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:37

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
;

John36mx · Message par **John36mx** » dim. 01/févr./2009 22:40

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 ?

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:45

fake.bmp tu peux la mettre en ligne grace à http://imageshack.us/?
Sinon quel est sa taille?

Geo Trouvpatou · Message par **Geo Trouvpatou** » dim. 01/févr./2009 22:57

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.

John36mx · Message par **John36mx** » dim. 01/févr./2009 23:05

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

Patrick88 · Message par **Patrick88** » lun. 02/févr./2009 8:57

sur un forum, tu n'es pas limité en nombre de caractères, alors évites le SMS s'il te plait.

pat

John36mx · Message par **John36mx** » lun. 02/févr./2009 10:42

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.

jbernard13 · Message par **jbernard13** » lun. 02/févr./2009 15:46

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

John36mx · Message par **John36mx** » lun. 02/févr./2009 16:59

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.

jbernard13 · Message par **jbernard13** » lun. 02/févr./2009 17:20

une seule solution : faite recherche sur ce forum