une question de débutant, et d'un vrai!!!!

[thedoorp]

Merci beaucoup à tous et en particulier à Cederavic car il est vrai que les fautes d'orthographes étaient très nombreuses mais l'explication était qd à elle très claire.
Cependant j'ai une autre question à laquelle vous pourrez répondre sans difficultées: comment fait-on pour que ce que l'on écrit n'apparaissent pas sur l'ecran? C'est à dire que je voudrais par exemple, que lorsque j'inscrit "quitter" l'ordinateur efface quitter et me fasse apparaitre "aurevoir".

J'espère avoir été assez clair.

Merci d'avance.

[julien]

Voila un code fait en 10 minutes qui marche bien, mais c'est un peu le bazard
Je pense que c'est ça que tu voulais ? (le code n'affiche rien dans le string et affiche un message à chaque mot clé)

Code : Tout sélectionner

; by julien 14/04/200 @ 11H57

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #String_0
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 300, 268, 342, 115, #PB_Window_SystemMenu  | #PB_Window_TitleBar, "By Julien")
    If CreateGadgetList(WindowID())
      StringGadget(#String_0, 30, 40, 280, 20, "")
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    ; Debug "WindowID: " + Str(EventWindowID())
    
    GadgetID = EventGadgetID()
    
    If GadgetID = #String_0
      tape$ = GetGadgetText(#String_0)
      mot_full$ = mot_full$ + tape$
      
      
      If FindString(LCase(mot_full$), "quitter", 0)
        SetGadgetText(#String_0, "")
        MessageRequester("@", "Au revoir !!", 0)
        mot_full$ = ""
      EndIf
      
      If FindString(LCase(mot_full$), "purebasic", 0)
        SetGadgetText(#String_0, "")
        MessageRequester("@", "Fell the...Pure...Power", 0)
        mot_full$ = ""
      EndIf
      
      
      
      SetGadgetText(#String_0, "")
      
      WaitWindowEvent()
      
      
      
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End

[cederavic]

vas voir ton premier poste, j'y ai repondu

[julien]

Après avoir relu ton message, ce serrai plutôt cela que tu voudrais :
Variante du code (plus simple) qui remplace Quitter par au revoir. Peu importe les majuscule (qUitTer=quitter)

Code : Tout sélectionner

; by julien 14/04/200 @ 12H07

Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #String_0
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 300, 268, 342, 115, #PB_Window_SystemMenu  | #PB_Window_TitleBar, "By Julien")
    If CreateGadgetList(WindowID())
      StringGadget(#String_0, 30, 40, 280, 20, "")
     
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
 
  Event = WaitWindowEvent()
 
  If Event = #PB_EventGadget
   
    ; Debug "WindowID: " + Str(EventWindowID())
   
    GadgetID = EventGadgetID()
   
    If GadgetID = #String_0
      If LCase(GetGadgetText(#String_0))="quitter"
     SetGadgetText(#String_0, "Au revoir")
     
    EndIf
   
  EndIf
  EndIf 
 
Until Event = #PB_EventCloseWindow

End 

[brossden]

Bonjour

tu peux mettre :

ActivateGadget(#String_0 )
juste après Open_Window_0() cela donnera automatiquement la main à la saisie !!