Page 1 sur 1
une question de débutant, et d'un vrai!!!!
Publié : mer. 14/avr./2004 9:13
par 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.
Publié : mer. 14/avr./2004 11:05
par 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
Publié : mer. 14/avr./2004 11:13
par cederavic
vas voir ton premier poste, j'y ai repondu
Publié : mer. 14/avr./2004 11:13
par 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
Publié : jeu. 15/avr./2004 11:39
par brossden
Bonjour
tu peux mettre :
ActivateGadget(#String_0 )
juste après Open_Window_0() cela donnera automatiquement la main à la saisie !!
