Participation à l'apprentissage des entiers de 70 à 99 (dernière période cp/début ce1 - soutien):

Soyez le premier à donner votre avis sur cette source.

Vue 4 059 fois - Téléchargée 949 fois

Description

Diverses écritures [décompositions additives, en chiffres, en lettres, symbolisation(carré u.,barre de 10) ] - pour 2 à 6 entiers- sont proposées dans la "boîte" de gauche;
l'utilisateur devra les trier par appui de bouton gauche de souris,glisser,déposer(relâcher bton G)

dans 2 à 6 "boîtes" de droite.
L'aide proposée consiste uniquement -en cours d'exercice- à colorier sur fond cyan(bleu clair) les étiquettes exactes et à encadrer les représentations symboliques.jpg.

' ********* PENSEZ D'ABORD A CREER LES FICHIERS DE DONNEES****************:
'-"lficlaslecnb.txt" qui contient:nb exos,"Nom qui sera affiché ds la liste des choix de l'utilisateur","nom du fichier.txt" [sans".txt"]
-ex: 6,"78 et 68",num78
"80-20-40",num80
- [nom de votre fichier de données1].txt: quantité d'entiers sur lesquels porte l'aptsge,1er entier en chiffres,quantité d'étiquettes proposées (sans compter la représentation symbolique),nom de la représentation symbolique [sans ".jpg"],etq1,etq2,etq3,etc...
ex : 2,78,4,nbp78,"soixante-dix-huit","60 + 18"," 78 ","7 dizaines et 8 unités"
68,4,nbp68,"soixante-huit","60 + 8"," 68 ","six dizaines et huit unités"


Il est nécessaire,ds le même sous-dossier [(lecteur courant)":\vbtxt\math\num70-99\"], de placer les représentations symboliques .jpg (ex: "nbp70.jpg"- A ce propos, seule une partie des entiers de 0 à 69 a été créée (entiers de 70 à 99 réalisés), mais il est facile de les réaliser par découpe/copier/coller d'un entier existant. - les images sont un peu petites ...place ???-
Pas de prononciation - On peut adjoindre la sub "voixauto" d'un autre logiciel que je viens d'envoyer: "syblnb" (symbolisation automatique des entiers de 1 à 999) [zip num0]) / Penser à charger au préalable (sur internet): MSReaderSetupFRA.exe; readerTTSInstallFRA.exe; spchapi.EXE ; [posséder, outre LH Pierre(Fr), LH Veronique(Fr), la voix Virginie. -/ Sinon, modifier le programme pour changer de voix./ -Placer les références nécessaires ds le projet.-
... Mais je crains que la prononciation ne fausse l'apprentissage ... Ou alors, ne prononcer qu'au moment de l'aide ou de la validation du tri? (Je vais y penser ...si pas la flegme...)

Excusez pour le manque de clarté/lisibilité du code . Si c'est utile, je complèterai au moins par la signification des variables.

Source / Exemple :


Voir le zip

Conclusion :


Excusez pour le manque de clarté/lisibilité du code . Si c'est utile, je complèterai au moins par la signification des variables.

Codes Sources

A voir également

Ajouter un commentaire Commentaire
NISANDSYSTEMS
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014

24 nov. 2010 à 12:16
Bonjour,

L'idée en règle générale est bonne.
Là ou ça coince pas mal c'est le fouillis dans le code.
Aucune indentation au niveau du code.

1ere erreur au lancement du prog =>dans Form_Load= fic = Left(CurDir, 1) + ":\vbtxt\math\num70-99"

C'est pas à nous de placer le fichier à la racine ( mauvais choix)
C'est à toi de créer le placement de ce fichier:
Solution

'//dans un module======================================
Public Function FileExist(sFileN As String) As Boolean
Dim tmpRv As Long
On Error Resume Next
tmpRv = GetAttr(sFileN)
If Err Then
FileExist = False
Else
FileExist = True
End If
End Function

'//dans la feuille principale======================================
Private Sub Form_Load()
On Error Resume Next '//traitement d'erreur sans arret du prog

Dim mvSourceFile$ '//l'origine du fichier
Dim mvDestFile$ '//destination du fichier donc le chemin que tu souhaites dans un nouveau dossier
mvSourceFile = App.Path & "\lficlaslecnb.txt"
mvDestFile = App.Path & "\Datas" & "lficlaslecnb.txt"

If FileExist(mvDestFile) = False Then '//test l'existence du fichier, si existe pas alors on le créé:
'//creation d'un nouveau dossier nommé Datas dans le app.path
MkDir App.Path & "\Datas"

'//copie le chemin d'origine vers le nouveau dossier Datas.
FileCopy mvSourceFile, mvDestFile

End If

fic = mvDestFile

...
...
...
Open fic For Input As #1
Input #1, nser
Do Until n = nser
Input #1, chxs(n), seri(n)
n = n + 1
Loop
Close #1
n = 0
fait = ""
end sub

après verifie les fic dans le prog pour leur reinfecter le bon chemin.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.