Générateur de table mathématique

Soyez le premier à donner votre avis sur cette source.

Vue 3 162 fois - Téléchargée 195 fois

Description

Ce petit programme (qui, je pense ne sert pas à grand chose), vous permet de vous retrouver dans la "petite enfance". Vous vous souvenez de toutes vos tables ?

Si jamais, revoyez-les avec ce programme.

Source / Exemple :


Private Sub Command1_Click()
List1.Clear 'Efface la liste, ça permet de recharger une autre table par la suite
'On nomme les objets pour faire un code plus court
n = Text1 'Zone de texte qui contient le nombre pour lequel on va créer la table
t = Text2 'Zone de texte qui contient le nombre qui définira jusqu'où ira la table
    For i = 0 To t
        List1.List(i) = n & "x" & i & " = " & (n * i)
'(i) détermine le numéro de la ligne de la liste
'i fixe la limite
'n * i permet de faire la table en multipliant le nombre donné avec le nombre max
    Next i 'Permet la boucle, ce qui va remplir la liste
End Sub

Conclusion :


Ce programme n'est pas du tout compliqué. Ca fait réviser la manipulation des lists.

Je pense avoir tout expliqué.

Vous pouvez donner un commentaire ou pas(si c'est trop nul, vous pouvez vous en dispenser), c'est vous qui voyez...

J'ai mis à jour, j'ai ajouté le calcul dans la liste ;)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Sharkiller
Messages postés
71
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
9 janvier 2009

16 mai 2004 à 12:32
ouais, mais c'est aussi simple de laisser comme ça et de modifier juste les + :

List1.List(i) n & "x" & i & " " & (n * i)

là, ça marche :)

merci rene ;)

je vais mettre à jour du coup...
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
16 mai 2004 à 02:02
Pour éviter les incompatibilités, évitons les mélanges:
Private Sub Command1_Click()
List1.Clear
Dim n As Integer, t As Integer, i As Integer, Resultat As String
n = CInt(Text1.Text) n est un nombre entier
t = CInt(Text2.Text) t est un nombre entier
For i = 0 To t
'On définit Resultat comme un texte (une chaîne) composé de :
'le texte (CStr) représentant le nombre n ; le signe "x" ;
'le texte (CStr) représentant le nombre i ; le signe "=" ;
'le texte (CStr) représentant le résultat de la multiplication de n par i
'Le tout mis bout à bout (concaténé) et utilisant l'opérateur
'de concaténation "&" plutôt que le signe "+" trop ambigu :
Resultat CStr(n) & " x " & CStr(i) & " " & CStr(n * i)
'Il reste à afficher tout ça :
List1.List(i) = Resultat
Next i
End Sub
Sharkiller
Messages postés
71
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
9 janvier 2009

16 mai 2004 à 00:13
non, ça me met le même message d'erreur...
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
16 mai 2004 à 00:06
ui je me suis trompé pardon
list1.additem n + "x" + i + " = " + (n * i)
Sharkiller
Messages postés
71
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
9 janvier 2009

16 mai 2004 à 00:03
ça me met "Argument facultatif"

si je met "list1.list(i)=....." ça me met "type incompatible"

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.