un petit jeux educatif

gadjet35 · Message par **gadjet35** » mer. 09/nov./2005 20:08

voila je viens de créer un petit jeu educatif:

;constante_window
Enumeration
#window_0
EndEnumeration

;constante_gadget
Enumeration
#String_0
#String_1
#text_0
#text_1
#text_2
#text_3
#button_0
#combo_0
EndEnumeration

;declaration des variables
score = 0

;ouverture de la fenetre
OpenWindow(#window_0,0,0,500,500,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"pro des maths")
 CreateGadgetList(WindowID(#window_0))
  StringGadget(#String_0,350,250,50,20,"")
  TextGadget(#text_3,200,250,50,20,"5")
  TextGadget(#text_0,300,250,25,20,"5") 
  TextGadget(#text_1,300,150,50,25,"0")
  TextGadget(#text_2,250,250,50,20,"+")
  ButtonGadget(#button_0,250,350,80,25,"j'ai trouvé")
  ComboBoxGadget(#combo_0,25,100,250,150)
   AddGadgetItem(#combo_0,0,"les petits (additions nombres < 10)")
   AddGadgetItem(#combo_0,1,"les enfants (soustractions nombres < 100)")
   AddGadgetItem(#combo_0,2,"les collègients (multiplications nombres < 400)")
   AddGadgetItem(#combo_0,3,"les lycéens (divisions nombres < 1000)") 
  
 Repeat
   Select WaitWindowEvent()
    Case #PB_EventGadget
      Select GetGadgetState(#combo_0)
       Case 0
        SetGadgetText(#text_2,"+")
        Select EventGadgetID()
         Case #button_0
          If Val(GetGadgetText(#String_0)) = Val(GetGadgetText(#text_3)) + Val(GetGadgetText(#text_0))
           MessageRequester("pro des maths","réponse juste",#MB_ICONINFORMATION)
           score = score + 1
          Else
           MessageRequester("pro des maths","réponse fausse",#MB_ICONERROR)
           score = score - 1
          EndIf
          If score = 5
           MessageRequester("fini","vous avez gagnez")
           Break
          EndIf
          SetGadgetText(#text_1,Str(score))
          SetGadgetText(#text_0,Str(Random(10)))
          SetGadgetText(#text_3,Str(Random(10)))
          SetGadgetText(#String_0,"")
        EndSelect
       Case 1  
        SetGadgetText(#text_2,"__")
        Select EventGadgetID()
         Case #button_0
          If Val(GetGadgetText(#String_0)) = Val(GetGadgetText(#text_3)) - Val(GetGadgetText(#text_0))
           MessageRequester("pro des maths","réponse juste",#MB_ICONINFORMATION)
           score = score + 1
          Else
           MessageRequester("pro des maths","réponse fausse",#MB_ICONERROR)
           score = score - 1
          EndIf
          If score = 10
           MessageRequester("fini","vous avez gagnez")
           Break
          EndIf
          SetGadgetText(#text_1,Str(score))
          SetGadgetText(#text_0,Str(Random(100)))
          SetGadgetText(#text_3,Str(Random(100)))
          SetGadgetText(#String_0,"")
        EndSelect  
       Case 2
        SetGadgetText(#text_2,"*")
        Select EventGadgetID()
         Case #button_0
          If Val(GetGadgetText(#String_0)) = Val(GetGadgetText(#text_3)) * Val(GetGadgetText(#text_0))
           MessageRequester("pro des maths","réponse juste",#MB_ICONINFORMATION)
           score = score + 1
          Else
           MessageRequester("pro des maths","réponse fausse",#MB_ICONERROR)
           score = score - 1
          EndIf
          If score = 15
           MessageRequester("fini","vous avez gagnez")
           Break
          EndIf
          SetGadgetText(#text_1,Str(score))
          SetGadgetText(#text_0,Str(Random(400)))
          SetGadgetText(#text_3,Str(Random(400)))
          SetGadgetText(#String_0,"")
        EndSelect  
       Case 3
        SetGadgetText(#text_2,"/")
        Select EventGadgetID()
         Case #button_0
          If Val(GetGadgetText(#String_0)) = Val(GetGadgetText(#text_3)) / Val(GetGadgetText(#text_0))
           MessageRequester("pro des maths","réponse juste",#MB_ICONINFORMATION)
           score = score + 1
          Else
           MessageRequester("pro des maths","réponse fausse",#MB_ICONERROR)
           score = score - 1
          EndIf
          If score = 20
           MessageRequester("fini","vous avez gagnez")
           Break
          EndIf
          SetGadgetText(#text_1,Str(score))
          SetGadgetText(#text_0,Str(Random(1000)))
          SetGadgetText(#text_3,Str(Random(1000)))
          SetGadgetText(#String_0,"")
        EndSelect
      EndSelect 
    Case #PB_Event_CloseWindow
     quit = 1
  EndSelect
 Until quit = 1

Anonyme · Message par **Anonyme** » mer. 09/nov./2005 20:28

Tu n'utilise toujours pas le visual designer?

En tout cas le mec qui me fait de tete 18 / 682, je m'les coupes dans la foulée

edit : p'tit bug, lorsque que j'appuis plusieurs fois sur "J'ai trouver" , il dit : Reponse juste.

@+

gadjet35 · Message par **gadjet35** » mer. 09/nov./2005 20:35

pour le mec qui calcule de tete:
je ne sais pas si tu as vu mais je parle d'un niveau lycéens...

pour le visual designer:
je l'utilise parfois mais pas toujours (surtout qu'en j'ai des problemes pour le placement des gadets)

pour le petit bug:
efectivement c'est un probleme...
mais j'ai trouver le bug:
il faut ajouter SetGadgetText(#String_0,"")
apres chaque
SetGadgetText(#text_1,Str(score))

Anonyme · Message par **Anonyme** » mer. 09/nov./2005 20:42

Je dois être très limiter alors, jamais de tête j'ai réussi à faire 18 DIVISER PAR 682 , même un mec en FAC je doute qu'il y arrive.

gadjet35 · Message par **gadjet35** » mer. 09/nov./2005 20:46

ok c'est un peu dure...
mais il y a une astuce: quand le nombre a diviser est plus petit que le
diviseur tu peut mettre 0 dans le string et il l'accepte

Anonyme · Message par **Anonyme** » mer. 09/nov./2005 20:52

un peu? Beaucoup oui

Pourquoi n'utilise tu pas le visual designer pour tes fenetres?

gadjet35 · Message par **gadjet35** » mer. 09/nov./2005 20:55

ok a l'avenir je l'utilisera plus souvent ...

Chris · Message par **Chris** » mer. 09/nov./2005 20:57

gadjet35 a écrit :ok c'est un peu dure...
mais il y a une astuce: quand le nombre a diviser est plus petit que le
diviseur tu peut mettre 0 dans le string et il l'accepte

Ah ouais, c'est vachement éducatif comme truc!
Autrement dit, si c'est pas bon, c'est bon quand même!

Tu sais que si t'existais pas, faudrait t'inventer, toi!

gadjet35 · Message par **gadjet35** » mer. 09/nov./2005 20:58

sa va j'y travaille à ce bug...