Participation à l'apprentissage des suites croissante ou décroissante des nombres entiers positifs (cp/début ce1 ou soutie

Télécharger le projet
Commenter

Description

"suitesnbcom": (vb6)
Voici un petit logiciel-exercice de participation à l'apprentissage des suites croissante ou décroissante des nombres entiers positifs (CP/début CE1 ou soutien ): (ou entiers négatifs en modifiant une ligne ds [sub charge])
(légère amélioration du logiciel du même nom envoyé fin nov 2010: array(merci TCHALF)/saisie des caractères/possibilité de suite décroissante - possibilité d'entiers négatifs ***à condition de modifier une ligne ds [sub charge]***

possibilité de choisir avec ou sans représentation graphique (carré u., barre de dix)
possibilité de choisir l'itération (de 1 en 1 à de 5 en 5)
possibilité de choisir le nombre de départ(ou hasard) -limité pour que le comptage illustré ne dépasse pas 99- :

limitation du comptage illustré à 99 (avec passage des dizaines: groupement de 10 u puis affichage d'une nouvelle barre de dix)
- Le comptage sans illustration peut aller au-delà de 100 (à modifier pour démarrer avec un entier sup. à 99)
possibilité de choisir suite décroissante ou croissante

(Comme indiqué précédemment, possibilité d'utilisation avec des entiers négatifs avec quelques modifications et suppression des images.jpg)

et, comme indiqué ds le précédent logiciel,...
.... un peu d'"amusement" et d'essais: écritures en lettres et prononciations possibles en français, anglais et espagnol (pour l'espagnol: à revoir: accentuations, tilde, grammaire...) mais nécessité d'acquérir (pour pronciation) par internet:

MSReaderSetupFRA.exe; readerTTSInstallFRA.exe; spchapi.EXE ; [posséder, outre Sam(GB), LH Pierre(Fr), LH Veronique(Fr), les voix Virginie, AmericasSpanish-Paulina_TTS] (On peut virer le TTS: il suffit d'annuler l'appel à la sub TTSpeech et de placer les réinitialisations adjointes ailleurs.) ...J'aimerais trouver une voix occitane ... et quelqu'un qui connaisse la grammaire occitane!!!

Les images.jpg sont nécessaires et doivent être placées ds "[lecteur courant]:\vbtxt\math\num1\"
(rajout des .jpg pour retrancher ...Pas tjrs très visible: suraffichage de [-1],[-2]; etc...)

(pour avoir l'exe, modifiez le suffixe .exo du zip en [.exe])

Source / Exemple : 


- voir le .zip

A tire indicatif, 
voici qques modif apportées à "suitesnbcom" de nov.:

Private Sub Text1_Change(index As Integer)
repe = Text1(index).Text: 'If car = Chr(8) Then Text1(index).SelStart = Len(Text1(index).Text): 'aa = MsgBox("eff G " + Str(Text1(index).SelStart))
If Trim(repe) = Trim(Str(nb1)) Then verif (index): 'en cas de réponse exacte, on n'attend pas (pas besoin de touche de validation / Par contre en cas d'erreur de frappe, on peut corriger:cf modifcar)
End Sub

Private Sub Text1_KeyPress(index As Integer, KeyAscii As Integer)
'le test de l'appui de touche se produit avant text_change
'associé à text_change ceci permet de quitter avec n'importe quelle touche -sauf chr(8) (et celles non traitées par keypress:suppr/inser..etc)- dès qu'on a atteint la longueur
If ctr(index) = 1 Then
KeyAscii = 0: Text1(index).Text = nbd + sn * index
If m = "" Then Text1(n).SetFocus Else Picture1(n).SetFocus
'If m <> "" Then KeyAscii = 0:  Exit Sub: 'Text1(index).Text = nbd + sn * index:
Exit Sub
End If
nbb = index
car = Chr$(KeyAscii):
If car = Chr(8) Then modifcar (index)
If Len(repe) >= Len(Trim(Str(nb1))) Then KeyAscii = 0: verif (index): Exit Sub:  ' (prochain appui de touche qd la longueur de la réponse est atteinte/ on pourrait imaginer un ss-progr de test plus cplexe pour analyser la réponse à ce moment-là ou m^en crs de saisie)
If InStr("-0123456789", car) = 0 Then KeyAscii = 0:  'test des tches qui peuvent être saisies et affichées
End Sub
Private Sub modifcar(index)
rep = Text1(index).Text
aza = Text1(index).SelStart: If aza = 0 Then Exit Sub
Text1(index).Text = Left(rep, aza - 1) + Right(rep, Len(rep) - aza): Text1(index).SelStart = aza - 1
End Sub


      • Voir aussi dans [sub choiserie] [Sub Option1_Click],[ sub charge][sub verif(index)] [sub exo] les modif nécessaires pour prendre en compte ssn=-1 (choix du sens de suite nombre=suite décroissante):

Voir modif principale à faire si on veut que la suite décroissante prenne en compte les entiers négatifs: (dans [sub charge])
' *************************
  If ssn = -1 Then If nbd - sn * a1 < 0 Then nbd = sn * a1 '***s. décroissante:modifier nb départ pour éliminer les entiers inférieurs à zéro (...supprimer cette ligne si on veut s'exercer avec les négatifs...en Grande Section peut-être!!!)
  '(Au cas où, pour le secondaire, j'ai ajouté le signe [-] dans les appuis de touches acceptés) - Mais, dans ce cas, bloquer les représentations avec symboles en forçant chms à 1- voir ci-dessous:
  ' If ssn = -1 Then If nbd - sn * a1 < 0 Then chms=1:a1=30 :if sn = 1 Then maxlg = 10'*** (non testé)
    ' *************************

Conclusion :


Merci à toutes celles et ceux qui ont essayé "suitesnbcom"
... et tjrs pardon pour le code...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (oulipan)