Tu pourrais commencer avec des
InputRequester pour faire un genre de Quizz, ce serait un bon commencement, sans compter que tu peux aussi gérer le mot de passe avec...
Voilà un exemple que je viens de faire pour te montrer un peu le fonctionnement.
Cet exercice traite une série d'addition à 2 nombres.
Tu peux modifier vite fait :
- le nombre de questions
- la valeur maximale du chiffre qui sera utilisé dans l'addition
Les chiffres sont donc posés de façon aléatoire de 0 à 99
;{- Demo d'exercice d'additions aléatoires avec des valeurs de 0 à 99
;- par Ar-S en PB 4.20 - Oct 2008
Enumeration
#WIN : #Q1 : #Valide
EndEnumeration
Global NumAdd,Score, ChiffreMax,NbrQuestion ; On fait en sorte que les 2 valeurs seront connues dans tout le programme
NumAdd=1 ; La première question sera la numéro 1, ce qui est logique : )
Score=0 ; on commence par un score de 0
ChiffreMax=99 ; Le chiffre max déterminera la valeur maximale (ici 99) des chiffres contenus dans l'additions, de 0 à ChiffreMax. Exemple : 15+89
NbrQuestion=10 ; Le nombre de question
;------LA PROCEDURE QUI GERE L'EXERCICE 1-----------
Procedure Addition()
For i=1 To NbrQuestion ; 10 questions
N1= random (ChiffreMax) : N2= random (ChiffreMax) ; N1 et N2 sont les 2 nombres qui iront de 0 à Chiffre max, donc de 0 à 99
ResEleve$= inputrequester ( "Addition numéro : " + str (NumAdd)+ "/10 - Score : " + str (Score)+ "/10" , str (N1)+ "+" + str (N2), "" )
Resultat=N1+N2 ; Le vrai résultat est ici
If val (ResEleve$)=Resultat ; Si le résultat de l'élève est bon
Score=Score+1 ; On ajoute 1 au score
messagerequester ( "Bravo" , "le résultat est bien " + str (Resultat)+ chr (10)+ "Score : " + str (Score)+ "/10" , #MB_ICONEXCLAMATION ) ; On félicite le patient.. euhhh l'élève
Else
messagerequester ( "Faux" , "Erreur, prends ton temps pour la prochaine opération" + chr (10)+ "Score : " + str (Score)+ "/10" , #MB_ICONWARNING ) ; Message en cas d'Erreur
EndIf
NumAdd=NumAdd+1 ; On ajoute 1 au numéro de la question
Next i
If Score<5
messagerequester ( "Bof bof bof" , "Hum, tout ça n'est pas brillant, tu dois te concentrer un peu plus, et réessayer encore" + chr (10)+ "un Score de " + str (Score)+ " est insuffisant !" , #MB_ICONWARNING )
ElseIf Score=5
messagerequester ( "la moyenne" , "Tu as la moyenne avec " + str (Score)+ ". tu dois tout de même essayer d'avoir plus, tu peux le faire ! recommences : )" , #MB_ICONHAND )
ElseIf Score>5 And Score<10
messagerequester ( "Bien !" , "C'est très bien, " + str (Score)+ " c'est une bonne note ! Arriveras tu à avoir un 10 ??" , #MB_ICONHAND )
ElseIf Score=10
encore= messagerequester ( "Félicitation !!!" , " Tu as 10, c'est excellent ! Arriverais-tu à y arriver une nouvelle fois ?" , #PB_MessageRequester_YesNo )
If encore = 6 ; Réponse OUI
messagerequester ( "Super" , "Tu es courageux(se) c'est bien, tu peux recommencer le jeu." )
ElseIf encore =7 ; Réponse NON
messagerequester ( "Au revoir" , "Tu décide d'arréter.. ce n'est pas grave, reviens jouer quand tu veux !" )
End ; on termine le programe
EndIf
EndIf
EndProcedure
;------FIN DE LA LA PROCEDURE EXERCICE 1-----------
; on ouvre la fenêtre
If openwindow ( #WIN , 450, 200, 280, 50, "MATH MOI !" , #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar )
If creategadgetlist ( windowid ( #WIN ))
buttongadget ( #Valide , 0, 25, 280, 20, "Commencer les Additions" , #BS_FLAT )
textgadget ( #Q1 , 5, 5, 280, 20, "Exercices 1 : Les ADDITIONS" )
EndIf
;{ notre boucle principale
Repeat
Event = waitwindowevent ()
Select Event
; ///////////////////
Case #PB_Event_Gadget
eventgadget = eventgadget ()
eventtype = eventtype ()
If eventgadget = #Q1
ElseIf eventgadget = #Valide
Addition() ; Si on appuye sur le bouton, la procédure Addition commence
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
eventwindow = eventwindow ()
If eventwindow = #WIN
closewindow ( #WIN )
Break
EndIf
EndSelect
ForEver
EndIf
J'ai donc passé pas mal de minutes à faire ce code en essayant d'être clair, j'espère que tu vas te pencher dessus, et bien lire les commentaires.
Je ne vois pas comment t'aider plus que ça...
.
Plus sérieusement, quand tu écris dans le forum, tu as un correcteur orthographique qui souligne les mots mal orthographiés ... C'est facile, rapide, et plus joli pour les lecteurs. Tu cliques droit et ça te fait quelques propositions.
(c'est meme plus simple)