Table de multiplication

Soyez le premier à donner votre avis sur cette source.

Vue 17 964 fois - Téléchargée 653 fois

Description

permet au enfant d'apprendre les tables de multiplication

Source / Exemple :


Dim a As Integer
Dim i As Integer
Private Sub Command1_Click()
Cls
a = 1
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command2_Click()
Cls
a = 2
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub
Private Sub Command3_Click()
Cls
a = 3
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command4_Click()
Cls
a = 4
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command5_Click()
Cls
a = 5
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command6_Click()
Cls
a = 6
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command7_Click()
Cls
a = 7
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command8_Click()
Cls
a = 8
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Private Sub Command9_Click()
Cls
a = 9
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub

Conclusion :


mon premier petit programme que j'espere etre interressant et utile

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Bien d'accord avec Econs, les groupes de controles s'imposent dans ton cas !
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
arf zut .. G oublié de te dire que l'Index du bouton Command1 doit être mis à 0 pour démarrer !
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Je peux même, pour info, te filer ton code, en raccourci. Tu peux gagner beaucoup de lignes de code en ne créant qu'un seul bouton, et en le multipliant :
1 form nommé Form1 + 1 bouton placé n'importe où, nommé Command1

----TON CODE MODIFIE----

Private Sub Command1_Click(index As Integer)
Dim a As Integer
Dim i As Integer

Cls
a = index
For i = 0 To 10
Print
Print Tab; a; "FOIS"; i; "EGAL"; a * i
Print
Next
End Sub


Private Sub Form_Load()
Dim i As Integer
With Form1
.Height = 10260
.Width = 8835
.Top = 0
.Left = 0
End With
With Command1(0)
.Height = 615
.Left = 5520
.Top = 360
.Width = 2055
.Caption = "0"
End With

For i = 1 To 9
Load Command1(i)
Command1(i).Caption = i
Command1(i).Top = 650 * i + Command1(0).Top
Command1(i).Visible = True
Next i
End Sub

----------------------------------

Je te laisse le soin, sur ces bases, d'inclure la division, la soustraction et l'addition.



Manu.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Pour un premier programme, il a au moins le mérite de fonctionner correctement, et çà, c'est bien.
Maintenant, tu vas pouvoir soigner le graphisme parce que les enfants ne seront pas attirés par çà.
Il faudra aussi rajouter les tables d'addition , de soustraction et de division, et pendant que tu y es, plutôt que de créer 36 boutons, sélectionner dans une liste le type de table et le chiffre que tu veux faire entrer dans le calcul et hop, avec un seul bouton, il te sort tout.

Bonne continuation

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.