svp. please. svp. modif variable

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
david
Messages : 208
Inscription : jeu. 03/févr./2005 21:10

svp. please. svp. modif variable

Message par david »

bon, je promet!!!
j'ai vu qu'il y avait des gens super cools et je promet qu'à partir de ce jour je vais plus chercher et moins embetter le monde mais svp donnez moi du courage....

le prog ci-après modifie ma variable quand je clique sur le bouton '1' (voir le message affiché) mais je ne comprends pas pourquoi le chiffre n'est pas modifié dans la fenetre #String_0. comment faire pour qu'il soit modifié a chaque appuie sur le bouton '1'

merci d'avance

;- Window Constants
;
Enumeration
#Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
#Button_1
#Button_2
#Button_3
#Button_4
#Button_5
#Button_6
#String_0

EndEnumeration


a=0
textb=21
textb$=Str(textb)

If OpenWindow ( #Window_0 , 216, 0, 212, 111, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Pg" )
If CreateGadgetList ( WindowID ())


ButtonGadget ( #Button_1 , 10, 10, 40, 40, "1" )
ButtonGadget ( #Button_2 , 60, 10, 40, 40, "2" )
ButtonGadget ( #Button_3 , 110, 10, 40, 40, "3" )
ButtonGadget ( #Button_4 , 160, 10, 40, 40, "4" )
ButtonGadget ( #Button_5 , 60, 60, 40, 40, "<-" )
ButtonGadget ( #Button_6 , 110, 60, 90, 40, "remise Zero" )
StringGadget ( #String_0 , 10, 60, 40, 40, textb$ )
EndIf

;La boucle Repeat-Until sert à la gestion des évènements
Repeat

EventID.l= WaitWindowEvent () ; on récupère un évènement
Select EventID ; on sélectionne cet évènement
Case #PB_EventGadget ; cet évènement concerne une action sur un Gadget
Select EventGadgetID () ; dans ce cas, on récupère l'identifiant du gadget qui l'a créé
Case #Button_1 ; on compare l'identifiant à #ButtonGadget
a=1
textb=textb-a
textb$=Str(textb)


MessageRequester("Messenger Info", "Vous avez un message de : "+textb$, 0)







Case #Button_2 ; on compare l'identifiant à #ButtonGadget
a=2
textb=textb-a
textb$=Str(textb)
Case #Button_3 ; on compare l'identifiant à #ButtonGadget
a=3
textb=textb-a
textb$=Str(textb)
Case #Button_4 ; on compare l'identifiant à #ButtonGadget
a=4
textb=textb-a
textb$=Str(textb)
Case #Button_5 ; on compare l'identifiant à #ButtonGadget
textb=textb+a
textb$=Str(textb)
Case #Button_6 ; on compare l'identifiant à #ButtonGadget
textb=21
textb$=Str(textb)

EndSelect

Case #PB_Event_CloseWindow ; cet évènement concerne la fermeture de la fenêtre


Quit=1


EndSelect


Until Quit=1


EndIf
Haut
Avatar de l’utilisateur
cederavic
Messages : 1338
Inscription : lun. 09/févr./2004 23:38
Localisation : Bordeaux

Message par cederavic »

Regarde la commande SetGadgetText()
Haut
Guimauve
Messages : 1015
Inscription : mer. 11/févr./2004 0:32
Localisation : Québec, Canada

Message par Guimauve »

Tiens, voilà comment on fait :

Mais je ne comprends pas ce que tu veux faire avec ce programme.

A+
Guimauve

Code : Tout sélectionner

;- Window Constants
;
Enumeration
   #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
   #Button_1
   #Button_2
   #Button_3
   #Button_4
   #Button_5
   #Button_6
   #String_0
   
EndEnumeration


a=0
textb=21
textb$=Str(textb)

If OpenWindow ( #Window_0 , 216, 0, 212, 111, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Pg" )
   If CreateGadgetList ( WindowID ())
      
      
      ButtonGadget ( #Button_1 , 10, 10, 40, 40, "1" )
      ButtonGadget ( #Button_2 , 60, 10, 40, 40, "2" )
      ButtonGadget ( #Button_3 , 110, 10, 40, 40, "3" )
      ButtonGadget ( #Button_4 , 160, 10, 40, 40, "4" )
      ButtonGadget ( #Button_5 , 60, 60, 40, 40, "<-" )
      ButtonGadget ( #Button_6 , 110, 60, 90, 40, "remise Zero" )
      StringGadget ( #String_0 , 10, 60, 40, 40, textb$ )
      
   EndIf
   
   ;La boucle Repeat-Until sert à la gestion des évènements
   Repeat
      
      EventID.l= WaitWindowEvent () ; on récupère un évènement
      Select EventID ; on sélectionne cet évènement
         Case #PB_EventGadget ; cet évènement concerne une action sur un Gadget
            Select EventGadgetID () ; dans ce cas, on récupère l'identifiant du gadget qui l'a créé
               Case #Button_1 ; on compare l'identifiant à #ButtonGadget
                  a=1
                  textb=textb-a
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  ; MessageRequester("Messenger Info", "Vous avez un message de : "+textb$, 0)
                  
               Case #Button_2 ; on compare l'identifiant à #ButtonGadget
                  a=2
                  textb=textb-a
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  
               Case #Button_3 ; on compare l'identifiant à #ButtonGadget
                  a=3
                  textb=textb-a
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  
               Case #Button_4 ; on compare l'identifiant à #ButtonGadget
                  a=4
                  textb=textb-a
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  
               Case #Button_5 ; on compare l'identifiant à #ButtonGadget
                  textb=textb+a
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  
               Case #Button_6 ; on compare l'identifiant à #ButtonGadget
                  textb=21
                  ; textb$=Str(textb)
                  SetGadgetText(#String_0,Str(textb))
                  
            EndSelect
            
         Case #PB_Event_CloseWindow ; cet évènement concerne la fermeture de la fenêtre
            
            
            Quit=1
            
            
      EndSelect
      
      
   Until Quit=1
   
   
EndIf
Haut
brossden
Messages : 833
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Bonjour

Presque le même code mais plus court et optimisé pour ne pas répéter les même instructions !

Code : Tout sélectionner

Enumeration
  #Window_0 : #Button_1 : #Button_2 : #Button_3 
  #Button_4 : #Button_5 : #Button_6 : #String_0
  
EndEnumeration
textb=21

OpenWindow ( #Window_0 , 216, 0, 212, 111, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Pg" )
If CreateGadgetList ( WindowID ())
  ButtonGadget ( #Button_1 , 10, 10, 40, 40, "1" )
  ButtonGadget ( #Button_2 , 60, 10, 40, 40, "2" )
  ButtonGadget ( #Button_3 , 110, 10, 40, 40, "3" )
  ButtonGadget ( #Button_4 , 160, 10, 40, 40, "4" )
  ButtonGadget ( #Button_5 , 60, 60, 40, 40, "<-" )
  ButtonGadget ( #Button_6 , 110, 60, 90, 40, "remise Zero" )
  StringGadget ( #String_0 , 10, 60, 40, 40, textb$ )
EndIf
  
  ;La boucle Repeat-Until sert à la gestion des évènements
Repeat
  Event= WaitWindowEvent () ; on récupère un évènement
  EventID=EventGadgetID() 
  If EventID =>#Button_1 And EventID<= #Button_6 ; If Event = #PB_EventGadget
    Select EventID ; dans ce cas, on récupère l'identifiant du gadget qui l'a créé
      Case #Button_1 ; on compare l'identifiant à #ButtonGadget
        a=-1
      Case #Button_2 ; on compare l'identifiant à #ButtonGadget
        a=-2
      Case #Button_3 ; on compare l'identifiant à #ButtonGadget
        a=-3
      Case #Button_4 ; on compare l'identifiant à #ButtonGadget
        a=-4
      Case #Button_5 ; on compare l'identifiant à #ButtonGadget
        a=-a
      Case #Button_6 ; on compare l'identifiant à #ButtonGadget
        textb=21
        a=0
    EndSelect
    textb=textb+a
    SetGadgetText(#String_0,Str(textb)) 
  EndIf
Until Event=#PB_Event_CloseWindow
Denis

Bonne Jounée à tous
Haut
Répondre

Revenir à « Débutants »