permet aux enfants d'apprendre ou reviser leur tables
Source / Exemple :
Public Class Form1
Dim i, a, r, rd As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Clear()
For i = 1 To 9 Step 1
a = Val(TextBox2.Text)
r = a + i
Label2.Text = "VOICI LA TABLE D'ADDITION DE " & a
TextBox1.Text = TextBox1.Text & vbNewLine & a & " + " & i & " = " & CStr(r)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
For i = 1 To 9 Step 1
a = Val(TextBox2.Text)
r = a - i
If r < 0 Then r = i - a : TextBox1.Text = TextBox1.Text & vbNewLine & i & " - " & a & " = " & CStr(r) Else TextBox1.Text = TextBox1.Text & vbNewLine & a & " - " & i & " = " & CStr(r)
Label2.Text = "VOICI LA TABLE DE SOUSTRACTION DE " & a
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
For i = 1 To 9 Step 1
a = Val(TextBox2.Text)
r = a * i
Label2.Text = "VOICI LA TABLE DE MULTIPLICATION DE " & a
TextBox1.Text = TextBox1.Text & vbNewLine & a & " * " & i & " = " & CStr(r)
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Clear()
For i = 1 To 9 Step 1
a = Val(TextBox2.Text)
r = a * i
rd = r / i
Label2.Text = "VOICI LA TABLE DE DIVISION DE " & a
TextBox1.Text = TextBox1.Text & vbNewLine & r & " / " & i & " = " & CStr(rd)
Next
End Sub
Private Sub QUITTERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QUITTERToolStripMenuItem.Click
End
End Sub
End Class
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.