' ================= Additions en groupant les doigts ====================================
(Tables d'addition)
Uniquement des représentations des nombres 1 à 9 (et de leur somme) par groupements de doigts par 5 ou 10 ; pas d'autres représentations (cubes et barres) pour que l'utilisateur se centre sur les compléments à 5 ou à 10 , qu'il procède par vue globale de la quantité... et qu'il ne prenne pas l'habitude de décompter les doigts de un en un ...Est-ce efficace?...
- merci à la petite fille de 7a m'ayant appris: "Je prends le cinq qui est dans le 7 et le cinq qui est dans le 8 ..."
(limitations:) Pas de distributivité: pas de "8 + 7" puis "7 + 8" (par-ex)... mais seulement "8 + 7" - Le plus gd terme tjrs présenté en premier- / Je n'ai pas traité n + 0 /
- divers choix (les diverses tables; sommes inférieures à 11; tables de 1 à 5; toutes les tables mélangées)
- sauvegarde de l'entraînement sur fichier-texte espion (se référer à l'heure et la date pour repérer qui a fait l'entraînement).
(utilisable sur écran à partir de 800 x 600 pixels -avec modification de la disposition pour cette petite taille d'écran-)
Pour obtenir le fichier.exe (pour tester), modifier le suffixe ".exo" en ".exe" (à condition d'avoir chargé les .dll et .ocx,etc... nécessaires au fonctionnement de vb6)
- Pour la voix de synthèse, avoir récupéré sur internet et installé d'abord:MSReaderSetupFRA.exe en Second:
ReaderTTSInstallFRA.EXE en dernier: spchapi.EXE , puis acquérir si nécessaire la voix scansoft -Virginie ( gratuite)
(laisser les images de doigts ds le même dossier que le programme)
Source / Exemple :
-voir zip-
Attention, tjrs du code bricolé.
Voici un élément:
( bricolage pour adapter la taille des images en utilisant la propriété "stretch" du contrôle image:)
- Y a-t-il plus simple que ce bricolage??? (Merci pour une aide éventuelle).
Private Sub dimimage(Index) ' **** pour redimensionner les picture selon besoins*** Y a-t-il plus simple que ce bricolage???
' créer Imagvar (Image) en mettant "stretch" à "true" et "visible" à "false"
' avoir déclaré " dim fich as stdpicture" pour créer une picture (virtuelle?)
' à retravailler....??? (dimensions ds des unités différentes entre img virtuelle et pictures affichées??? à peu près */1,7639
ficimag = CurDir & "\dg" & nbs & ".jpg"
Set fich = LoadPicture(ficimag)
reduc = 0.45 'à bricoler selon écran
Imagvar.Width = Int(fich.Width * reduc): Imagvar.Height = Int(fich.Height * reduc): Imagvar.Picture = LoadPicture(ficimag)
lai = Imagvar.Width: hti = Imagvar.Height
Picture1(Index).Width = lai: Picture1(Index).Height = hti
If Index / 2 = Int(Index / 2) Then Picture1(Index).Left = lab - lai Else Picture1(Index).Left = Picture1(Index - 1).Left +
Picture1(Index - 1).Width
Picture1(Index).Top = htb - hti
Picture1(Index).Visible = True: xp1 = 0: yp1 = 0
Picture1(Index).PaintPicture Imagvar.Picture, xp1, yp1, Imagvar.Width, Imagvar.Height
': flagi = 1
End Sub
Conclusion :
Espérons que cela soit utile à quelqu'un.
Merci d'avance pour les critiques bienvenues pour améliorer
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.