PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

[Résolu] Mettre du désordre dans les combos

http://forums.purebasic.com/french/viewtopic.php?t=14768

Page 1 sur 1

[Résolu] Mettre du désordre dans les combos

Publié : jeu. 04/sept./2014 12:16
par Micoute
Bonjour à tous,

toujours dans ma collection de programmes d'éducation pour mes petits-enfants, j'aurais encore besoins de vos lumières, car je souhaiterais que les réponses dans les combos soient dans le désordre, car les enfants comprennent vite qu'il y a une logique et ils finissent toujours par la trouver.

Code : Tout sélectionner

;Les phrases
EnableExplicit

Enumeration Fenetre
  #Fenetre_principale
EndEnumeration

Enumeration Gadgets
  #Text_1
  #Text_2
  #Text_3
  #Text_4
  #Text_5
  #Text_6
  #Cmb_1
  #Cmb_2
  #Cmb_3
  #Cmb_4
  #Cmb_5
  #Cmb_6
  #Txt_Enonce
  #Txt_Signature
  #Btn_Verifier
EndEnumeration
;}
Global Evenements, X
Global Dim Question.s(5)
Global Dim Reponse.s(5)
;}

Procedure Lire_les_donnees()
  For X = 0 To 5
    Read.s Question(X)
    Read.s Reponse(X)
  Next  
EndProcedure

Procedure OpenWindow_Fenetre_principale()
  If OpenWindow(#Fenetre_principale, 455, 2, 435, 352, "Apprendre le français en s'amusant", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_TitleBar)
    TextGadget(#Txt_Enonce, 10, 10, 415, 28, "Choisissez la bonne proposition pour composer une phrase qui a du sens, choix multiple")
    TextGadget(#Text_1, 10, 60, 190, 16, Question(0))
    TextGadget(#Text_2, 10, 90, 190, 16, Question(1))
    TextGadget(#Text_3, 10, 120, 190, 16, Question(2))
    TextGadget(#Text_4, 10, 150, 190, 16, Question(3))
    TextGadget(#Text_5, 10, 180, 190, 16, Question(4))
    TextGadget(#Text_6, 10, 210, 190, 16, Question(5))
    ComboBoxGadget(#Cmb_1, 210, 55, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_1, -1, Reponse(x))
    Next  
    ComboBoxGadget(#Cmb_2, 210, 85, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_2, -1, Reponse(x))
    Next
    ComboBoxGadget(#Cmb_3, 210, 115, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_3, -1, Reponse(x))
    Next
    ComboBoxGadget(#Cmb_4, 210, 145, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_4, -1, Reponse(x))
    Next
    ComboBoxGadget(#Cmb_5, 210, 175, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_5, -1, Reponse(x))
    Next
    ComboBoxGadget(#Cmb_6, 210, 205, 210, 20)
    For x = 0 To 5
      AddGadgetItem(#Cmb_6, -1, Reponse(x))
    Next
    ButtonGadget(#Btn_Verifier, 120, 265, 195, 40, "Vérifier")
    TextGadget(#Txt_Signature, 160, 325, 115, 16, "© Micoute 04/09/2014")
  EndIf
EndProcedure

Lire_les_donnees()
OpenWindow_Fenetre_principale()

;{- Boucle des événements
Repeat
  Evenements = WaitWindowEvent()
  Select Evenements
      
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Btn_Verifier
      EndSelect
      
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Fenetre_principale
          CloseWindow(#Fenetre_principale)
          Break
      EndSelect
  EndSelect
ForEver
;}
;{
DataSection
  Q1:
  Data.s "Grand-mère enfourne","le gâteau","La clé entre","dans la serrure","L'avion atterrit","sur la piste"
  Data.s "L'oiseau quitte","son nid","La poule picore","dans la basse-cour","Le chat attrape","la souris"
  Q2:
  Data.s "Papa repeint","la maison","Les enfants chantent","une chanson","Les roses fleurissent","dans le jardin"
  Data.s "Maman remplit","la baignoire","Ce gâteau est","encore trop chaud","La fermière ramasse","les oeufs"
  ;}
Je vous remercie énormément pour votre aide très apréciée.

Re: Mettre du désordre dans les combos

Publié : jeu. 04/sept./2014 13:12
par TazNormand
Bonjour Micoute,

il te faut utiliser RandomizeArray(), j'ai repris ton code, ajouté un tableau qui va contenir les données "Réponses" mais en aléatoire. C'est ce tableau qu'il faut utiliser pour tes gadgets, et l'autre (Reponse) pour tester la validité des réponses.

Code : Tout sélectionner

;Les phrases
EnableExplicit

Enumeration Fenetre
	#Fenetre_principale
EndEnumeration

Enumeration Gadgets
	#Text_1
	#Text_2
	#Text_3
	#Text_4
	#Text_5
	#Text_6
	#Cmb_1
	#Cmb_2
	#Cmb_3
	#Cmb_4
	#Cmb_5
	#Cmb_6
	#Txt_Enonce
	#Txt_Signature
	#Btn_Verifier
EndEnumeration
;}
Global Evenements, X
Global Dim Question.s(5)
Global Dim Reponse.s(5)
Global Dim RndReponse.s(5)
;}

Procedure Lire_les_donnees()
	For X = 0 To 5
		Read.s Question(X)
		Read.s Reponse(X)
		RndReponse(x)=Reponse(x)		
	Next
	
	RandomizeArray(RndReponse())
EndProcedure

Procedure OpenWindow_Fenetre_principale()
	If OpenWindow(#Fenetre_principale, 455, 2, 435, 352, "Apprendre le français en s'amusant", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_TitleBar)
		TextGadget(#Txt_Enonce, 10, 10, 415, 28, "Choisissez la bonne proposition pour composer une phrase qui a du sens, choix multiple")
		TextGadget(#Text_1, 10, 60, 190, 16, Question(0))
		TextGadget(#Text_2, 10, 90, 190, 16, Question(1))
		TextGadget(#Text_3, 10, 120, 190, 16, Question(2))
		TextGadget(#Text_4, 10, 150, 190, 16, Question(3))
		TextGadget(#Text_5, 10, 180, 190, 16, Question(4))
		TextGadget(#Text_6, 10, 210, 190, 16, Question(5))
		ComboBoxGadget(#Cmb_1, 210, 55, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_1, -1, RndReponse(X))
		Next  
		ComboBoxGadget(#Cmb_2, 210, 85, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_2, -1, RndReponse(X))
		Next
		ComboBoxGadget(#Cmb_3, 210, 115, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_3, -1, RndReponse(X))
		Next
		ComboBoxGadget(#Cmb_4, 210, 145, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_4, -1, RndReponse(X))
		Next
		ComboBoxGadget(#Cmb_5, 210, 175, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_5, -1, RndReponse(X))
		Next
		ComboBoxGadget(#Cmb_6, 210, 205, 210, 20)
		For x = 0 To 5
			AddGadgetItem(#Cmb_6, -1, RndReponse(X))
		Next
		ButtonGadget(#Btn_Verifier, 120, 265, 195, 40, "Vérifier")
		TextGadget(#Txt_Signature, 160, 325, 115, 16, "© Micoute 04/09/2014")
	EndIf
EndProcedure

Lire_les_donnees()
OpenWindow_Fenetre_principale()

;{- Boucle des événements
Repeat
	Evenements = WaitWindowEvent()
	Select Evenements
			
		Case #PB_Event_Gadget
			Select EventGadget()
				Case #Btn_Verifier
			EndSelect
			
		Case #PB_Event_CloseWindow
			Select EventWindow()
				Case #Fenetre_principale
					CloseWindow(#Fenetre_principale)
					Break
			EndSelect
	EndSelect
ForEver
;}
;{
DataSection
	Q1:
	Data.s "Grand-mère enfourne","le gâteau","La clé entre","dans la serrure","L'avion atterrit","sur la piste"
	Data.s "L'oiseau quitte","son nid","La poule picore","dans la basse-cour","Le chat attrape","la souris"
	Q2:
	Data.s "Papa repeint","la maison","Les enfants chantent","une chanson","Les roses fleurissent","dans le jardin"
	Data.s "Maman remplit","la baignoire","Ce gâteau est","encore trop chaud","La fermière ramasse","les oeufs"
	;}

Re: Mettre du désordre dans les combos

Publié : jeu. 04/sept./2014 13:35
par Micoute
Bonjour TazNormand,

c'est tellement plus facile quand on a la réponse, je me demande toujours pourquoi je ne pense jamais à trouver ces choses aussi simples qui sont dans le fichier d'aide et que je ne pense pas à consulter, en fait je n'avais pas vu la relation !

Merci infiniment pour cette épine du pied que tu viens de m’ôter !

Re: [Résolu] Mettre du désordre dans les combos

Publié : jeu. 04/sept./2014 16:41
par MLD
@ Micoute

Tes petits-enfants ne doivent pas avoir de lunettes, car la fenêtre est petite et les écritures aussi. (Sur mon écran) 1920X1080. :oops: :wink: :lol:

Re: [Résolu] Mettre du désordre dans les combos

Publié : jeu. 04/sept./2014 17:59
par Micoute
Bonjour mon cher voisin MLD,

tu as tout à fait raison, car ma résolution est de 1366x768, mais dans la phase de débogage, j'utilise toujours des petites fenêtres pour avoir l'essentiel de l'affichage pour éviter la fatigue visuelle, mais effectivement, les enfants adore quand c'est écrit en gros avec de jolis dessins pour faire plus beau.

Ne t'inquiètes donc pas, je vais utiliser tout l'écran, si nécessaire !

Re: [Résolu] Mettre du désordre dans les combos

Publié : ven. 05/sept./2014 11:44
par Micoute
Pour t'en convaincre, voici le programme final :

Code : Tout sélectionner

;Les phrases 
EnableExplicit 

Enumeration Fenetre 
  #Fenetre_principale 
EndEnumeration 

Enumeration Gadgets 
  #Txt_1 
  #Txt_2 
  #Txt_3 
  #Txt_4 
  #Txt_5 
  #Txt_6
  #Txt_Serie
  #Cmb_1 
  #Cmb_2 
  #Cmb_3 
  #Cmb_4 
  #Cmb_5 
  #Cmb_6 
  #Txt_Enonce 
  #Txt_Signature 
  #Btn_Verifier
  #Btn_Suivant
EndEnumeration

Enumeration Polices
  #Font_Txt_Enonce
  #Font_Txt_Serie
  #Font_Txt_1
  #Font_Txt_2
  #Font_Txt_3
  #Font_Txt_4
  #Font_Txt_5
  #Font_Txt_6
  #Font_Cmb_1
  #Font_Cmb_2
  #Font_Cmb_3
  #Font_Cmb_4
  #Font_Cmb_5
  #Font_Cmb_6
  #Font_Btn_Verifier
  #Font_Btn_Suivant
  #Font_Txt_Signature
EndEnumeration

;} 
Global Evenements, X, Points = 0, Q = 1
Global Dim Question.s(5) 
Global Dim Reponse.s(5) 
Global Dim RndReponse.s(5) 
;}

Procedure Lire_les_donnees() 
  For X = 0 To 5 
    Read.s Question(X) 
    Read.s Reponse(X) 
    RndReponse(X)=Reponse(X)       
  Next 
  
  RandomizeArray(RndReponse()) 
EndProcedure

Procedure.s Clic_Btn_Verifier()
  If GetGadgetText(#Cmb_1) = Reponse(0)
    SetGadgetColor(#Txt_1, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If GetGadgetText(#Cmb_2) = Reponse(1)
    SetGadgetColor(#Txt_2, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If GetGadgetText(#Cmb_3) = Reponse(2)
    SetGadgetColor(#Txt_3, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If GetGadgetText(#Cmb_4) = Reponse(3)
    SetGadgetColor(#Txt_4, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If GetGadgetText(#Cmb_5) = Reponse(4)
    SetGadgetColor(#Txt_5, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If GetGadgetText(#Cmb_6) = Reponse(5)
    SetGadgetColor(#Txt_6, #PB_Gadget_FrontColor, $FF)
    Points + 10
  EndIf
  If Points < 10    
    MessageRequester("Info","Hélas, tu n'as que " + Str(Points) + " point")
  Else  
    MessageRequester("Info","Bravo, tu as " + Str(Points) + " points")
  EndIf  
  Points = 0
  
EndProcedure  

Procedure Clic_Btn_Modifier()
  Q + 1
  If Q = 2
    Restore Q2
  ElseIf Q = 3
    Restore Q3
  ElseIf Q = 4
    Restore Q4
  ElseIf Q = 5
    Restore Q5
  ElseIf Q = 6
    Restore Q6
  ElseIf Q = 7
    Restore Q7
  ElseIf Q = 8
    Restore Q8
  ElseIf Q = 9
    Restore Q9
  ElseIf Q = 10
    Restore Q10
  Else
    Q = 1
    Restore Q1
  EndIf  
  
  SetGadgetText(#Txt_Serie,"Série "+ Str(Q))
  
  SetGadgetColor(#Txt_1, #PB_Gadget_FrontColor, 0)
  SetGadgetColor(#Txt_2, #PB_Gadget_FrontColor, 0)
  SetGadgetColor(#Txt_3, #PB_Gadget_FrontColor, 0)
  SetGadgetColor(#Txt_4, #PB_Gadget_FrontColor, 0)
  SetGadgetColor(#Txt_5, #PB_Gadget_FrontColor, 0)
  SetGadgetColor(#Txt_6, #PB_Gadget_FrontColor, 0)
  
  Lire_les_donnees()
  
  SetGadgetText(#Txt_1,Question(0))
  SetGadgetText(#Txt_2,Question(1))
  SetGadgetText(#Txt_3,Question(2))
  SetGadgetText(#Txt_4,Question(3))
  SetGadgetText(#Txt_5,Question(4))
  SetGadgetText(#Txt_6,Question(5))
  ComboBoxGadget(#Cmb_1, 460, 85, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_1, -1, RndReponse(X)) 
  Next
  ComboBoxGadget(#Cmb_2, 460, 125, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_2, -1, RndReponse(X)) 
  Next
  ComboBoxGadget(#Cmb_3, 460, 165, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_3, -1, RndReponse(X)) 
  Next
  ComboBoxGadget(#Cmb_4, 460, 205, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_4, -1, RndReponse(X)) 
  Next
  ComboBoxGadget(#Cmb_5, 460, 245, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_5, -1, RndReponse(X)) 
  Next
  ComboBoxGadget(#Cmb_6, 460, 285, 450, 33)
  For x = 0 To 5 
    AddGadgetItem(#Cmb_6, -1, RndReponse(X)) 
  Next
  
  SetGadgetFont(#Cmb_1, LoadFont(#Font_Cmb_1, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  SetGadgetFont(#Cmb_2, LoadFont(#Font_Cmb_2, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  SetGadgetFont(#Cmb_3, LoadFont(#Font_Cmb_3, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  SetGadgetFont(#Cmb_4, LoadFont(#Font_Cmb_4, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  SetGadgetFont(#Cmb_5, LoadFont(#Font_Cmb_5, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  SetGadgetFont(#Cmb_6, LoadFont(#Font_Cmb_6, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
  
EndProcedure

Procedure Fermer_Fenetre_principale()  
  CloseWindow(#Fenetre_principale) 
  End
EndProcedure

Procedure OpenWindow_Fenetre_principale()
  If OpenWindow(#Fenetre_principale, 420, 195, 920, 420, "Apprendre le français en s'amusant", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_TitleBar)
    BindEvent(#PB_Event_CloseWindow, @Fermer_Fenetre_principale(), #Fenetre_principale)
    TextGadget(#Txt_Enonce, 10, 10, 900, 70, "Choisissez la bonne proposition pour composer une phrase qui a du sens", #PB_Text_Center)
    TextGadget(#Txt_Serie, 395, 340, 130, 33, "Série 1")
    TextGadget(#Txt_1, 10, 85, 450, 33, Question(0))
    TextGadget(#Txt_2, 10, 125, 450, 33, Question(1))
    TextGadget(#Txt_3, 10, 165, 450, 33, Question(2))
    TextGadget(#Txt_4, 10, 205, 450, 33, Question(3))
    TextGadget(#Txt_5, 10, 245, 450, 33, Question(4))
    TextGadget(#Txt_6, 10, 285, 450, 33, Question(5))
    ComboBoxGadget(#Cmb_1, 460, 85, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_1, -1, RndReponse(X)) 
    Next
    ComboBoxGadget(#Cmb_2, 460, 125, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_2, -1, RndReponse(X)) 
    Next
    ComboBoxGadget(#Cmb_3, 460, 165, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_3, -1, RndReponse(X)) 
    Next
    ComboBoxGadget(#Cmb_4, 460, 205, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_4, -1, RndReponse(X)) 
    Next
    ComboBoxGadget(#Cmb_5, 460, 245, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_5, -1, RndReponse(X)) 
    Next
    ComboBoxGadget(#Cmb_6, 460, 285, 450, 33)
    For x = 0 To 5 
      AddGadgetItem(#Cmb_6, -1, RndReponse(X)) 
    Next
    ButtonGadget(#Btn_Verifier, 50, 335, 195, 40, "Vérifier")
    ButtonGadget(#Btn_Suivant, 670, 335, 195, 40, "Suivant")
    TextGadget(#Txt_Signature, 327, 385, 265, 33, "© Micoute 04/09/2014")
    ; Gadget Fonts
    SetGadgetFont(#Txt_Enonce, LoadFont(#Font_Txt_Enonce, "DejaVu Sans Mono", 20, #PB_Font_HighQuality))
    SetGadgetFont(#Txt_Serie, LoadFont(#Font_Txt_Serie, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_1, LoadFont(#Font_Txt_1, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_2, LoadFont(#Font_Txt_2, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_3, LoadFont(#Font_Txt_3, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_4, LoadFont(#Font_Txt_4, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_5, LoadFont(#Font_Txt_5, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_6, LoadFont(#Font_Txt_6, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_1, LoadFont(#Font_Cmb_1, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_2, LoadFont(#Font_Cmb_2, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_3, LoadFont(#Font_Cmb_3, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_4, LoadFont(#Font_Cmb_4, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_5, LoadFont(#Font_Cmb_5, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Cmb_6, LoadFont(#Font_Cmb_6, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Btn_Verifier, LoadFont(#Font_Btn_Verifier, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Btn_Suivant, LoadFont(#Font_Btn_Suivant, "DejaVu Sans Mono", 20, #PB_Font_Bold|#PB_Font_HighQuality))
    SetGadgetFont(#Txt_Signature, LoadFont(#Font_Txt_Signature, "Microsoft Sans Serif", 20, #PB_Font_HighQuality))
  EndIf
  
  BindGadgetEvent(#Btn_Verifier, @Clic_Btn_Verifier())
  
  BindGadgetEvent(#Btn_Suivant, @Clic_Btn_Modifier())
EndProcedure


Lire_les_donnees() 
OpenWindow_Fenetre_principale() 

;{- Boucle des événements 
Repeat
  WaitWindowEvent()
ForEver
;} 
;{ 
DataSection 
  Q1: 
  Data.s "Grand-mère enfourne","le gâteau.","La clé entre","dans la serrure."
  Data.s "L'avion atterrit","sur la piste.","L'oiseau quitte","son nid."
  Data.s "La poule picore","dans la basse-cour.","Le chat attrape","la souris." 
  Q2: 
  Data.s "Papa repeint","la maison.","Les enfants chantent","une chanson."
  Data.s "Les roses fleurissent","dans le jardin.","Maman remplit","la baignoire."
  Data.s "Ce gâteau est","encore trop chaud.","La fermière ramasse","les oeufs." 
  Q3:
  Data.s "Mathilde se brosse","les dents.","Je me couche","dans mon grand lit."
  Data.s "Ce bonbon est","très collant.","Mon chien court","plus vite que moi."
  Data.s "Le magasin ouvre","à 14h00.","Les oranges poussent","dans les pays chauds."
  Q4:
  Data.s "Le ventilateur rafraîchit","la pièce.","Ma sœur parle","l'espagnol."
  Data.s "Ce restaurant sert","des moules frites.","Pierre promène","son chien."
  Data.s "Cette histoire fait","très peur.","Ce pamplemousse est","très amer."
  Q5:
  Data.s "Le train roule","vers Paris.","La jeune fille rêve","au prince charmant."
  Data.s "Le professeur corrige","mes fautes.","Maëlys coiffe","sa poupée Barbie."
  Data.s "Le livreur apporte","la pizza.","La dentiste soigne","mes dents."
  Q6:
  Data.s "L'eau coule","du robinet.","Le vent souffle","très fort."
  Data.s "Paris est","une très belle ville.","Luna écrit","une lettre à son ami."
  Data.s "La souris fuit","devant le gros chat.","Les nouilles sont","trop salées."
  Q7:
  Data.s "Ce poème comporte","quatre strophes.","Les cyclistes se doublent","dans la côte."
  Data.s "J'ai fini","de faire la vaisselle.","Le bébé boit","son biberon."
  Data.s "Le facteur apporte","le courrier.","Tu veux des frites","avec ton steak ?"
  Q8:
  Data.s "Les Italiens aiment","beaucoup les pâtes.","Le chien de berger rassemble","les moutons."
  Data.s "Grand-père écoute","la radio.","Le canard barbotte","dans la mare."
  Data.s "Le lapin grignote","une carotte.","L'orage gronde","depuis une heure."
  Q9:
  Data.s "La patinoire ferme","chaque été.","L'eau de source est","très pure."
  Data.s "Le cavalier monte","sur son cheval.","Ce vilain garçon tire","la langue aux passants."
  Data.s "L'araignée tisse","sa toile dans le buisson.","Maman cueille","des fleurs dans le jardin."
  Q10:
  Data.s "Les enfants nagent","dans la piscine.","La peste est","une maladie grave."
  Data.s "Papi fait","la sieste chaque après-midi.","Le jardinier pousse","sa brouette."
  Data.s "Le boucher découpe","la viande.","Le ver de terre sort","de son trou."
  ;}
Qu'en penses-tu ?

Re: [Résolu] Mettre du désordre dans les combos

Publié : ven. 05/sept./2014 11:55
par raven
bonjour Micoute,
perso je trouve la police trop grande,testé sur mon ecran 1920x1080.

Re: [Résolu] Mettre du désordre dans les combos

Publié : ven. 05/sept./2014 13:47
par MLD
@ Micoute
Bonjour.
Super. J'espère que les gamins trouverons que papy est génial :lol: :lol:

Re: [Résolu] Mettre du désordre dans les combos

Publié : ven. 05/sept./2014 13:50
par Micoute
Bonjour à toi aussi, raven,

Oui, mais c'est pour montrer à MLD que je peux utiliser des grandes polices, si j'ai envie et comme c'est un petit programme pour les petits enfants (4 à 11 ans), alors c'est très visible !

Re édit:

Et en plus, ça lui plaît.

Bonjour MLD,

je suis ravi que ça te plaise !
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru