Le calcul au primaire
Contenu du snippet
permet aux enfants de revise ou d'apprendre les operations courante
mon premier logiciel utilitaire
je l'espere interressant
merci de me le faire savoir
Source / Exemple :
Public Class FORM1
Inherits System.WINDOWS.FORMS.Form
Dim RESULTAT, RESULTAT1 As Integer
Dim RI1, RI2, RI3, RI4 As Integer
Dim A, B As Integer
Dim A1, A2, A3, A4, A31, A21 As Integer
Dim B1, B2, B3, B4, B21, B31 As Integer
Dim R1, R2, R3, R4 As Integer
Dim L1$, LO1$
Dim LON As Integer
Dim PRENOM$
#Region " CODE GÉNÉRÉ PAR LE CONCEPTEUR WINDOWS FORM "
Public Sub New()
MyBase.NEW()
'CET APPEL EST REQUIS PAR LE CONCEPTEUR WINDOWS FORM.
INITIALIZECOMPONENT()
'AJOUTEZ UNE INITIALISATION QUELCONQUE APRÈS L'APPEL INITIALIZECOMPONENT()
End Sub
'LA MÉTHODE SUBSTITUÉE DISPOSE DU FORMULAIRE POUR NETTOYER LA LISTE DES COMPOSANTS.
Protected Overloads Overrides Sub DISPOSE(ByVal DISPOSING As Boolean)
If DISPOSING Then
If Not (COMPONENTS Is Nothing) Then
COMPONENTS.Dispose()
End If
End If
MyBase.Dispose(DISPOSING)
End Sub
'REQUIS PAR LE CONCEPTEUR WINDOWS FORM
Private COMPONENTS As System.COMPONENTMODEL.IContainer
'REMARQUE : LA PROCÉDURE SUIVANTE EST REQUISE PAR LE CONCEPTEUR WINDOWS FORM
'ELLE PEUT ÊTRE MODIFIÉE EN UTILISANT LE CONCEPTEUR WINDOWS FORM.
'NE LA MODIFIEZ PAS EN UTILISANT L'ÉDITEUR DE CODE.
Friend WithEvents TABCONTROL1 As System.WINDOWS.FORMS.TabControl
Friend WithEvents TABPAGE1 As System.WINDOWS.FORMS.TabPage
Friend WithEvents TABPAGE2 As System.WINDOWS.FORMS.TabPage
Friend WithEvents TABPAGE3 As System.WINDOWS.FORMS.TabPage
Friend WithEvents TABPAGE5 As System.WINDOWS.FORMS.TabPage
Friend WithEvents TABPAGE6 As System.WINDOWS.FORMS.TabPage
Friend WithEvents LABEL1 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX1 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX2 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX3 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL2 As System.WINDOWS.FORMS.Label
Friend WithEvents BUTTON1 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON2 As System.WINDOWS.FORMS.Button
Friend WithEvents TEXTBOX5 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX6 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX8 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX9 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX10 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX11 As System.WINDOWS.FORMS.TextBox
Friend WithEvents BUTTON3 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON4 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL3 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX12 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX13 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX14 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX15 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX16 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX17 As System.WINDOWS.FORMS.TextBox
Friend WithEvents BUTTON5 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON6 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL4 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX19 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX20 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX21 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX22 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX23 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL5 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX24 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL6 As System.WINDOWS.FORMS.Label
Friend WithEvents BUTTON7 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON8 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON9 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL7 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX4 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL10 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL11 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL12 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX25 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL13 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX26 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX27 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX28 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX29 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL14 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL15 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL16 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL8 As System.WINDOWS.FORMS.Label
Friend WithEvents BUTTON10 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON11 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON12 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL9 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL17 As System.WINDOWS.FORMS.Label
Friend WithEvents BUTTON13 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON14 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON15 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL18 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL19 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL20 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL21 As System.WINDOWS.FORMS.Label
Friend WithEvents LABEL22 As System.WINDOWS.FORMS.Label
Friend WithEvents BUTTON17 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON18 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON19 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON16 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON20 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON21 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON22 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON23 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON24 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON25 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON26 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON27 As System.WINDOWS.FORMS.Button
Friend WithEvents BUTTON28 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL23 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX18 As System.WINDOWS.FORMS.TextBox
Friend WithEvents BUTTON29 As System.WINDOWS.FORMS.Button
Friend WithEvents LABEL24 As System.WINDOWS.FORMS.Label
Friend WithEvents NUMERICUPDOWN1 As System.WINDOWS.FORMS.NumericUpDown
Friend WithEvents LABEL26 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX7 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL27 As System.WINDOWS.FORMS.Label
Friend WithEvents TEXTBOX30 As System.WINDOWS.FORMS.TextBox
Friend WithEvents TEXTBOX31 As System.WINDOWS.FORMS.TextBox
Friend WithEvents LABEL28 As System.WINDOWS.FORMS.Label
<System.DIAGNOSTICS.DEBUGGERSTEPTHROUGH()> Private Sub INITIALIZECOMPONENT()
Me.TABCONTROL1 = New System.Windows.Forms.TabControl
Me.TABPAGE6 = New System.Windows.Forms.TabPage
Me.TEXTBOX25 = New System.Windows.Forms.TextBox
Me.LABEL13 = New System.Windows.Forms.Label
Me.LABEL1 = New System.Windows.Forms.Label
Me.TABPAGE3 = New System.Windows.Forms.TabPage
Me.TEXTBOX31 = New System.Windows.Forms.TextBox
Me.LABEL28 = New System.Windows.Forms.Label
Me.LABEL19 = New System.Windows.Forms.Label
Me.LABEL20 = New System.Windows.Forms.Label
Me.LABEL21 = New System.Windows.Forms.Label
Me.LABEL17 = New System.Windows.Forms.Label
Me.BUTTON13 = New System.Windows.Forms.Button
Me.BUTTON14 = New System.Windows.Forms.Button
Me.BUTTON15 = New System.Windows.Forms.Button
Me.LABEL18 = New System.Windows.Forms.Label
Me.TEXTBOX24 = New System.Windows.Forms.TextBox
Me.LABEL5 = New System.Windows.Forms.Label
Me.TEXTBOX23 = New System.Windows.Forms.TextBox
Me.TEXTBOX22 = New System.Windows.Forms.TextBox
Me.TEXTBOX15 = New System.Windows.Forms.TextBox
Me.TEXTBOX16 = New System.Windows.Forms.TextBox
Me.TEXTBOX17 = New System.Windows.Forms.TextBox
Me.BUTTON5 = New System.Windows.Forms.Button
Me.BUTTON6 = New System.Windows.Forms.Button
Me.LABEL4 = New System.Windows.Forms.Label
Me.TEXTBOX19 = New System.Windows.Forms.TextBox
Me.TEXTBOX20 = New System.Windows.Forms.TextBox
Me.TEXTBOX21 = New System.Windows.Forms.TextBox
Me.TABPAGE2 = New System.Windows.Forms.TabPage
Me.TEXTBOX30 = New System.Windows.Forms.TextBox
Me.LABEL27 = New System.Windows.Forms.Label
Me.LABEL14 = New System.Windows.Forms.Label
Me.LABEL15 = New System.Windows.Forms.Label
Me.LABEL16 = New System.Windows.Forms.Label
Me.TEXTBOX26 = New System.Windows.Forms.TextBox
Me.TEXTBOX27 = New System.Windows.Forms.TextBox
Me.TEXTBOX28 = New System.Windows.Forms.TextBox
Me.TEXTBOX29 = New System.Windows.Forms.TextBox
Me.LABEL8 = New System.Windows.Forms.Label
Me.BUTTON10 = New System.Windows.Forms.Button
Me.BUTTON11 = New System.Windows.Forms.Button
Me.BUTTON12 = New System.Windows.Forms.Button
Me.LABEL9 = New System.Windows.Forms.Label
Me.TEXTBOX8 = New System.Windows.Forms.TextBox
Me.TEXTBOX9 = New System.Windows.Forms.TextBox
Me.TEXTBOX10 = New System.Windows.Forms.TextBox
Me.TEXTBOX11 = New System.Windows.Forms.TextBox
Me.BUTTON3 = New System.Windows.Forms.Button
Me.BUTTON4 = New System.Windows.Forms.Button
Me.LABEL3 = New System.Windows.Forms.Label
Me.TEXTBOX12 = New System.Windows.Forms.TextBox
Me.TEXTBOX13 = New System.Windows.Forms.TextBox
Me.TEXTBOX14 = New System.Windows.Forms.TextBox
Me.TABPAGE1 = New System.Windows.Forms.TabPage
Me.LABEL26 = New System.Windows.Forms.Label
Me.NUMERICUPDOWN1 = New System.Windows.Forms.NumericUpDown
Me.LABEL12 = New System.Windows.Forms.Label
Me.LABEL11 = New System.Windows.Forms.Label
Me.LABEL10 = New System.Windows.Forms.Label
Me.LABEL7 = New System.Windows.Forms.Label
Me.BUTTON9 = New System.Windows.Forms.Button
Me.BUTTON8 = New System.Windows.Forms.Button
Me.BUTTON7 = New System.Windows.Forms.Button
Me.LABEL6 = New System.Windows.Forms.Label
Me.TEXTBOX7 = New System.Windows.Forms.TextBox
Me.TEXTBOX6 = New System.Windows.Forms.TextBox
Me.TEXTBOX5 = New System.Windows.Forms.TextBox
Me.TEXTBOX4 = New System.Windows.Forms.TextBox
Me.BUTTON2 = New System.Windows.Forms.Button
Me.BUTTON1 = New System.Windows.Forms.Button
Me.LABEL2 = New System.Windows.Forms.Label
Me.TEXTBOX3 = New System.Windows.Forms.TextBox
Me.TEXTBOX2 = New System.Windows.Forms.TextBox
Me.TEXTBOX1 = New System.Windows.Forms.TextBox
Me.TABPAGE5 = New System.Windows.Forms.TabPage
Me.LABEL24 = New System.Windows.Forms.Label
Me.BUTTON29 = New System.Windows.Forms.Button
Me.TEXTBOX18 = New System.Windows.Forms.TextBox
Me.LABEL23 = New System.Windows.Forms.Label
Me.BUTTON28 = New System.Windows.Forms.Button
Me.BUTTON27 = New System.Windows.Forms.Button
Me.BUTTON26 = New System.Windows.Forms.Button
Me.BUTTON25 = New System.Windows.Forms.Button
Me.BUTTON24 = New System.Windows.Forms.Button
Me.BUTTON23 = New System.Windows.Forms.Button
Me.BUTTON22 = New System.Windows.Forms.Button
Me.BUTTON21 = New System.Windows.Forms.Button
Me.BUTTON20 = New System.Windows.Forms.Button
Me.BUTTON16 = New System.Windows.Forms.Button
Me.BUTTON19 = New System.Windows.Forms.Button
Me.BUTTON18 = New System.Windows.Forms.Button
Me.BUTTON17 = New System.Windows.Forms.Button
Me.LABEL22 = New System.Windows.Forms.Label
Me.TABCONTROL1.SuspendLayout()
Me.TABPAGE6.SuspendLayout()
Me.TABPAGE3.SuspendLayout()
Me.TABPAGE2.SuspendLayout()
Me.TABPAGE1.SuspendLayout()
CType(Me.NUMERICUPDOWN1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TABPAGE5.SuspendLayout()
Me.SuspendLayout()
'
'TABCONTROL1
'
Me.TABCONTROL1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TABCONTROL1.Controls.Add(Me.TABPAGE6)
Me.TABCONTROL1.Controls.Add(Me.TABPAGE3)
Me.TABCONTROL1.Controls.Add(Me.TABPAGE2)
Me.TABCONTROL1.Controls.Add(Me.TABPAGE1)
Me.TABCONTROL1.Controls.Add(Me.TABPAGE5)
Me.TABCONTROL1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TABCONTROL1.Location = New System.Drawing.Point(0, 0)
Me.TABCONTROL1.Name = "TABCONTROL1"
Me.TABCONTROL1.SelectedIndex = 0
Me.TABCONTROL1.Size = New System.Drawing.Size(792, 534)
Me.TABCONTROL1.SizeMode = System.Windows.Forms.TabSizeMode.FillToRight
Me.TABCONTROL1.TabIndex = 0
Me.TABCONTROL1.TabStop = False
'
'TABPAGE6
'
Me.TABPAGE6.BackColor = System.Drawing.Color.GreenYellow
Me.TABPAGE6.Controls.Add(Me.TEXTBOX25)
Me.TABPAGE6.Controls.Add(Me.LABEL13)
Me.TABPAGE6.Controls.Add(Me.LABEL1)
Me.TABPAGE6.Location = New System.Drawing.Point(4, 27)
Me.TABPAGE6.Name = "TABPAGE6"
Me.TABPAGE6.Size = New System.Drawing.Size(784, 503)
Me.TABPAGE6.TabIndex = 5
Me.TABPAGE6.Text = "CALCUL AU PRIMAIRE"
'
'TEXTBOX25
'
Me.TEXTBOX25.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX25.Location = New System.Drawing.Point(368, 384)
Me.TEXTBOX25.Multiline = True
Me.TEXTBOX25.Name = "TEXTBOX25"
Me.TEXTBOX25.Size = New System.Drawing.Size(248, 48)
Me.TEXTBOX25.TabIndex = 1
Me.TEXTBOX25.Text = ""
'
'LABEL13
'
Me.LABEL13.Location = New System.Drawing.Point(136, 384)
Me.LABEL13.Name = "LABEL13"
Me.LABEL13.Size = New System.Drawing.Size(224, 48)
Me.LABEL13.TabIndex = 2
Me.LABEL13.Text = "QUEL EST TON PRENOM,MERCI"
Me.LABEL13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LABEL1
'
Me.LABEL1.BackColor = System.Drawing.Color.Orange
Me.LABEL1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL1.Location = New System.Drawing.Point(0, 0)
Me.LABEL1.Name = "LABEL1"
Me.LABEL1.Size = New System.Drawing.Size(784, 504)
Me.LABEL1.TabIndex = 0
Me.LABEL1.Text = "AVEC MOI TU VA POUVOIR APPRENDRE,REVISER OU CALCULER LES OPERATIONS COURANTES"
Me.LABEL1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TABPAGE3
'
Me.TABPAGE3.BackColor = System.Drawing.Color.Thistle
Me.TABPAGE3.Controls.Add(Me.TEXTBOX31)
Me.TABPAGE3.Controls.Add(Me.LABEL28)
Me.TABPAGE3.Controls.Add(Me.LABEL19)
Me.TABPAGE3.Controls.Add(Me.LABEL20)
Me.TABPAGE3.Controls.Add(Me.LABEL21)
Me.TABPAGE3.Controls.Add(Me.LABEL17)
Me.TABPAGE3.Controls.Add(Me.BUTTON13)
Me.TABPAGE3.Controls.Add(Me.BUTTON14)
Me.TABPAGE3.Controls.Add(Me.BUTTON15)
Me.TABPAGE3.Controls.Add(Me.LABEL18)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX24)
Me.TABPAGE3.Controls.Add(Me.LABEL5)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX23)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX22)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX15)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX16)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX17)
Me.TABPAGE3.Controls.Add(Me.BUTTON5)
Me.TABPAGE3.Controls.Add(Me.BUTTON6)
Me.TABPAGE3.Controls.Add(Me.LABEL4)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX19)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX20)
Me.TABPAGE3.Controls.Add(Me.TEXTBOX21)
Me.TABPAGE3.Location = New System.Drawing.Point(4, 27)
Me.TABPAGE3.Name = "TABPAGE3"
Me.TABPAGE3.Size = New System.Drawing.Size(784, 503)
Me.TABPAGE3.TabIndex = 2
Me.TABPAGE3.Text = "MULTIPLICATION"
'
'TEXTBOX31
'
Me.TEXTBOX31.Location = New System.Drawing.Point(408, 32)
Me.TEXTBOX31.Multiline = True
Me.TEXTBOX31.Name = "TEXTBOX31"
Me.TEXTBOX31.Size = New System.Drawing.Size(40, 48)
Me.TEXTBOX31.TabIndex = 41
Me.TEXTBOX31.Text = ""
'
'LABEL28
'
Me.LABEL28.BackColor = System.Drawing.Color.GreenYellow
Me.LABEL28.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL28.Location = New System.Drawing.Point(208, 8)
Me.LABEL28.Name = "LABEL28"
Me.LABEL28.Size = New System.Drawing.Size(192, 88)
Me.LABEL28.TabIndex = 40
Me.LABEL28.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LABEL19
'
Me.LABEL19.BackColor = System.Drawing.Color.GreenYellow
Me.LABEL19.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL19.Location = New System.Drawing.Point(436, 264)
Me.LABEL19.Name = "LABEL19"
Me.LABEL19.Size = New System.Drawing.Size(240, 208)
Me.LABEL19.TabIndex = 35
Me.LABEL19.Text = "RESULTAT"
Me.LABEL19.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LABEL20
'
Me.LABEL20.BackColor = System.Drawing.Color.GreenYellow
Me.LABEL20.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL20.Location = New System.Drawing.Point(432, 184)
Me.LABEL20.Name = "LABEL20"
Me.LABEL20.Size = New System.Drawing.Size(240, 32)
Me.LABEL20.TabIndex = 34
Me.LABEL20.Text = "THERMES"
'
'LABEL21
'
Me.LABEL21.BackColor = System.Drawing.Color.GreenYellow
Me.LABEL21.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL21.Location = New System.Drawing.Point(432, 112)
Me.LABEL21.Name = "LABEL21"
Me.LABEL21.Size = New System.Drawing.Size(240, 32)
Me.LABEL21.TabIndex = 33
Me.LABEL21.Text = "RETENUES"
'
'LABEL17
'
Me.LABEL17.BackColor = System.Drawing.Color.GreenYellow
Me.LABEL17.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL17.Location = New System.Drawing.Point(568, 8)
Me.LABEL17.Name = "LABEL17"
Me.LABEL17.Size = New System.Drawing.Size(200, 88)
Me.LABEL17.TabIndex = 29
Me.LABEL17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BUTTON13
'
Me.BUTTON13.BackColor = System.Drawing.Color.Cyan
Me.BUTTON13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON13.Location = New System.Drawing.Point(464, 8)
Me.BUTTON13.Name = "BUTTON13"
Me.BUTTON13.Size = New System.Drawing.Size(96, 23)
Me.BUTTON13.TabIndex = 28
Me.BUTTON13.Text = "CALCULER"
'
'BUTTON14
'
Me.BUTTON14.BackColor = System.Drawing.Color.Cyan
Me.BUTTON14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON14.Location = New System.Drawing.Point(464, 40)
Me.BUTTON14.Name = "BUTTON14"
Me.BUTTON14.Size = New System.Drawing.Size(96, 23)
Me.BUTTON14.TabIndex = 27
Me.BUTTON14.Text = "APPRENDRE"
'
'BUTTON15
'
Me.BUTTON15.BackColor = System.Drawing.Color.Cyan
Me.BUTTON15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON15.Location = New System.Drawing.Point(464, 72)
Me.BUTTON15.Name = "BUTTON15"
Me.BUTTON15.Size = New System.Drawing.Size(96, 23)
Me.BUTTON15.TabIndex = 26
Me.BUTTON15.Text = "EXERCICE"
'
'LABEL18
'
Me.LABEL18.BackColor = System.Drawing.Color.LawnGreen
Me.LABEL18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL18.Location = New System.Drawing.Point(32, 8)
Me.LABEL18.Name = "LABEL18"
Me.LABEL18.Size = New System.Drawing.Size(176, 88)
Me.LABEL18.TabIndex = 25
Me.LABEL18.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
Me.LABEL18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TEXTBOX24
'
Me.TEXTBOX24.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX24.Location = New System.Drawing.Point(120, 448)
Me.TEXTBOX24.Multiline = True
Me.TEXTBOX24.Name = "TEXTBOX24"
Me.TEXTBOX24.Size = New System.Drawing.Size(192, 56)
Me.TEXTBOX24.TabIndex = 23
Me.TEXTBOX24.Text = ""
Me.TEXTBOX24.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'LABEL5
'
Me.LABEL5.BackColor = System.Drawing.SystemColors.ControlText
Me.LABEL5.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL5.Location = New System.Drawing.Point(56, 432)
Me.LABEL5.Name = "LABEL5"
Me.LABEL5.Size = New System.Drawing.Size(280, 8)
Me.LABEL5.TabIndex = 22
Me.LABEL5.Text = "LABEL5"
'
'TEXTBOX23
'
Me.TEXTBOX23.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX23.Location = New System.Drawing.Point(120, 328)
Me.TEXTBOX23.Multiline = True
Me.TEXTBOX23.Name = "TEXTBOX23"
Me.TEXTBOX23.Size = New System.Drawing.Size(192, 40)
Me.TEXTBOX23.TabIndex = 21
Me.TEXTBOX23.Text = ""
Me.TEXTBOX23.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX22
'
Me.TEXTBOX22.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX22.Location = New System.Drawing.Point(120, 376)
Me.TEXTBOX22.Multiline = True
Me.TEXTBOX22.Name = "TEXTBOX22"
Me.TEXTBOX22.Size = New System.Drawing.Size(192, 48)
Me.TEXTBOX22.TabIndex = 20
Me.TEXTBOX22.Text = ""
Me.TEXTBOX22.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX15
'
Me.TEXTBOX15.Location = New System.Drawing.Point(200, 112)
Me.TEXTBOX15.Multiline = True
Me.TEXTBOX15.Name = "TEXTBOX15"
Me.TEXTBOX15.Size = New System.Drawing.Size(24, 32)
Me.TEXTBOX15.TabIndex = 19
Me.TEXTBOX15.Text = ""
'
'TEXTBOX16
'
Me.TEXTBOX16.Location = New System.Drawing.Point(232, 112)
Me.TEXTBOX16.Multiline = True
Me.TEXTBOX16.Name = "TEXTBOX16"
Me.TEXTBOX16.Size = New System.Drawing.Size(24, 32)
Me.TEXTBOX16.TabIndex = 18
Me.TEXTBOX16.Text = ""
'
'TEXTBOX17
'
Me.TEXTBOX17.Location = New System.Drawing.Point(264, 112)
Me.TEXTBOX17.Multiline = True
Me.TEXTBOX17.Name = "TEXTBOX17"
Me.TEXTBOX17.Size = New System.Drawing.Size(24, 32)
Me.TEXTBOX17.TabIndex = 17
Me.TEXTBOX17.Text = ""
'
'BUTTON5
'
Me.BUTTON5.BackColor = System.Drawing.Color.Aqua
Me.BUTTON5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON5.Location = New System.Drawing.Point(8, 456)
Me.BUTTON5.Name = "BUTTON5"
Me.BUTTON5.Size = New System.Drawing.Size(72, 32)
Me.BUTTON5.TabIndex = 15
Me.BUTTON5.Text = "="
'
'BUTTON6
'
Me.BUTTON6.BackColor = System.Drawing.Color.Cyan
Me.BUTTON6.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON6.Location = New System.Drawing.Point(8, 216)
Me.BUTTON6.Name = "BUTTON6"
Me.BUTTON6.Size = New System.Drawing.Size(72, 32)
Me.BUTTON6.TabIndex = 14
Me.BUTTON6.Text = "*"
'
'LABEL4
'
Me.LABEL4.BackColor = System.Drawing.SystemColors.ControlText
Me.LABEL4.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL4.Location = New System.Drawing.Point(64, 256)
Me.LABEL4.Name = "LABEL4"
Me.LABEL4.Size = New System.Drawing.Size(280, 8)
Me.LABEL4.TabIndex = 13
Me.LABEL4.Text = "LABEL4"
'
'TEXTBOX19
'
Me.TEXTBOX19.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX19.Location = New System.Drawing.Point(120, 272)
Me.TEXTBOX19.Multiline = True
Me.TEXTBOX19.Name = "TEXTBOX19"
Me.TEXTBOX19.Size = New System.Drawing.Size(192, 48)
Me.TEXTBOX19.TabIndex = 12
Me.TEXTBOX19.Text = ""
Me.TEXTBOX19.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX20
'
Me.TEXTBOX20.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX20.Location = New System.Drawing.Point(120, 200)
Me.TEXTBOX20.Multiline = True
Me.TEXTBOX20.Name = "TEXTBOX20"
Me.TEXTBOX20.Size = New System.Drawing.Size(192, 48)
Me.TEXTBOX20.TabIndex = 11
Me.TEXTBOX20.Text = ""
Me.TEXTBOX20.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX21
'
Me.TEXTBOX21.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX21.Location = New System.Drawing.Point(120, 144)
Me.TEXTBOX21.Multiline = True
Me.TEXTBOX21.Name = "TEXTBOX21"
Me.TEXTBOX21.Size = New System.Drawing.Size(192, 48)
Me.TEXTBOX21.TabIndex = 10
Me.TEXTBOX21.Text = ""
Me.TEXTBOX21.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TABPAGE2
'
Me.TABPAGE2.BackColor = System.Drawing.Color.Aqua
Me.TABPAGE2.Controls.Add(Me.TEXTBOX30)
Me.TABPAGE2.Controls.Add(Me.LABEL27)
Me.TABPAGE2.Controls.Add(Me.LABEL14)
Me.TABPAGE2.Controls.Add(Me.LABEL15)
Me.TABPAGE2.Controls.Add(Me.LABEL16)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX26)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX27)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX28)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX29)
Me.TABPAGE2.Controls.Add(Me.LABEL8)
Me.TABPAGE2.Controls.Add(Me.BUTTON10)
Me.TABPAGE2.Controls.Add(Me.BUTTON11)
Me.TABPAGE2.Controls.Add(Me.BUTTON12)
Me.TABPAGE2.Controls.Add(Me.LABEL9)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX8)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX9)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX10)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX11)
Me.TABPAGE2.Controls.Add(Me.BUTTON3)
Me.TABPAGE2.Controls.Add(Me.BUTTON4)
Me.TABPAGE2.Controls.Add(Me.LABEL3)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX12)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX13)
Me.TABPAGE2.Controls.Add(Me.TEXTBOX14)
Me.TABPAGE2.Location = New System.Drawing.Point(4, 27)
Me.TABPAGE2.Name = "TABPAGE2"
Me.TABPAGE2.Size = New System.Drawing.Size(784, 503)
Me.TABPAGE2.TabIndex = 1
Me.TABPAGE2.Text = "SOUSTRACTION"
'
'TEXTBOX30
'
Me.TEXTBOX30.Location = New System.Drawing.Point(384, 32)
Me.TEXTBOX30.Multiline = True
Me.TEXTBOX30.Name = "TEXTBOX30"
Me.TEXTBOX30.Size = New System.Drawing.Size(40, 48)
Me.TEXTBOX30.TabIndex = 33
Me.TEXTBOX30.Text = ""
'
'LABEL27
'
Me.LABEL27.BackColor = System.Drawing.Color.Yellow
Me.LABEL27.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL27.Location = New System.Drawing.Point(200, 16)
Me.LABEL27.Name = "LABEL27"
Me.LABEL27.Size = New System.Drawing.Size(176, 80)
Me.LABEL27.TabIndex = 32
Me.LABEL27.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LABEL14
'
Me.LABEL14.BackColor = System.Drawing.Color.Yellow
Me.LABEL14.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL14.Location = New System.Drawing.Point(440, 424)
Me.LABEL14.Name = "LABEL14"
Me.LABEL14.Size = New System.Drawing.Size(240, 32)
Me.LABEL14.TabIndex = 31
Me.LABEL14.Text = "RESULTAT"
'
'LABEL15
'
Me.LABEL15.BackColor = System.Drawing.Color.Yellow
Me.LABEL15.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL15.Location = New System.Drawing.Point(440, 256)
Me.LABEL15.Name = "LABEL15"
Me.LABEL15.Size = New System.Drawing.Size(240, 32)
Me.LABEL15.TabIndex = 30
Me.LABEL15.Text = "THERMES"
'
'LABEL16
'
Me.LABEL16.BackColor = System.Drawing.Color.Yellow
Me.LABEL16.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL16.Location = New System.Drawing.Point(440, 152)
Me.LABEL16.Name = "LABEL16"
Me.LABEL16.Size = New System.Drawing.Size(240, 32)
Me.LABEL16.TabIndex = 29
Me.LABEL16.Text = "RETENUES"
'
'TEXTBOX26
'
Me.TEXTBOX26.Location = New System.Drawing.Point(200, 360)
Me.TEXTBOX26.Multiline = True
Me.TEXTBOX26.Name = "TEXTBOX26"
Me.TEXTBOX26.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX26.TabIndex = 28
Me.TEXTBOX26.Text = ""
'
'TEXTBOX27
'
Me.TEXTBOX27.Location = New System.Drawing.Point(240, 360)
Me.TEXTBOX27.Multiline = True
Me.TEXTBOX27.Name = "TEXTBOX27"
Me.TEXTBOX27.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX27.TabIndex = 27
Me.TEXTBOX27.Text = ""
'
'TEXTBOX28
'
Me.TEXTBOX28.Location = New System.Drawing.Point(280, 360)
Me.TEXTBOX28.Multiline = True
Me.TEXTBOX28.Name = "TEXTBOX28"
Me.TEXTBOX28.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX28.TabIndex = 26
Me.TEXTBOX28.Text = ""
'
'TEXTBOX29
'
Me.TEXTBOX29.Location = New System.Drawing.Point(320, 360)
Me.TEXTBOX29.Multiline = True
Me.TEXTBOX29.Name = "TEXTBOX29"
Me.TEXTBOX29.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX29.TabIndex = 25
Me.TEXTBOX29.Text = ""
'
'LABEL8
'
Me.LABEL8.BackColor = System.Drawing.Color.Yellow
Me.LABEL8.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL8.Location = New System.Drawing.Point(544, 8)
Me.LABEL8.Name = "LABEL8"
Me.LABEL8.Size = New System.Drawing.Size(192, 88)
Me.LABEL8.TabIndex = 24
Me.LABEL8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BUTTON10
'
Me.BUTTON10.BackColor = System.Drawing.Color.Yellow
Me.BUTTON10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON10.Location = New System.Drawing.Point(432, 8)
Me.BUTTON10.Name = "BUTTON10"
Me.BUTTON10.Size = New System.Drawing.Size(96, 23)
Me.BUTTON10.TabIndex = 23
Me.BUTTON10.Text = "CALCULER"
'
'BUTTON11
'
Me.BUTTON11.BackColor = System.Drawing.Color.Yellow
Me.BUTTON11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON11.Location = New System.Drawing.Point(432, 40)
Me.BUTTON11.Name = "BUTTON11"
Me.BUTTON11.Size = New System.Drawing.Size(96, 23)
Me.BUTTON11.TabIndex = 22
Me.BUTTON11.Text = "APPRENDRE"
'
'BUTTON12
'
Me.BUTTON12.BackColor = System.Drawing.Color.Yellow
Me.BUTTON12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON12.Location = New System.Drawing.Point(432, 72)
Me.BUTTON12.Name = "BUTTON12"
Me.BUTTON12.Size = New System.Drawing.Size(96, 23)
Me.BUTTON12.TabIndex = 21
Me.BUTTON12.Text = "EXERCICE"
'
'LABEL9
'
Me.LABEL9.BackColor = System.Drawing.Color.Yellow
Me.LABEL9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL9.Location = New System.Drawing.Point(8, 16)
Me.LABEL9.Name = "LABEL9"
Me.LABEL9.Size = New System.Drawing.Size(184, 80)
Me.LABEL9.TabIndex = 20
Me.LABEL9.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
Me.LABEL9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TEXTBOX8
'
Me.TEXTBOX8.Location = New System.Drawing.Point(232, 152)
Me.TEXTBOX8.Multiline = True
Me.TEXTBOX8.Name = "TEXTBOX8"
Me.TEXTBOX8.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX8.TabIndex = 19
Me.TEXTBOX8.Text = ""
Me.TEXTBOX8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX9
'
Me.TEXTBOX9.Location = New System.Drawing.Point(272, 152)
Me.TEXTBOX9.Multiline = True
Me.TEXTBOX9.Name = "TEXTBOX9"
Me.TEXTBOX9.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX9.TabIndex = 18
Me.TEXTBOX9.Text = ""
Me.TEXTBOX9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX10
'
Me.TEXTBOX10.Location = New System.Drawing.Point(312, 152)
Me.TEXTBOX10.Multiline = True
Me.TEXTBOX10.Name = "TEXTBOX10"
Me.TEXTBOX10.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX10.TabIndex = 17
Me.TEXTBOX10.Text = ""
Me.TEXTBOX10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX11
'
Me.TEXTBOX11.Location = New System.Drawing.Point(352, 152)
Me.TEXTBOX11.Multiline = True
Me.TEXTBOX11.Name = "TEXTBOX11"
Me.TEXTBOX11.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX11.TabIndex = 16
Me.TEXTBOX11.Text = ""
Me.TEXTBOX11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'BUTTON3
'
Me.BUTTON3.BackColor = System.Drawing.Color.Yellow
Me.BUTTON3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON3.Location = New System.Drawing.Point(32, 440)
Me.BUTTON3.Name = "BUTTON3"
Me.BUTTON3.Size = New System.Drawing.Size(75, 32)
Me.BUTTON3.TabIndex = 15
Me.BUTTON3.Text = "="
'
'BUTTON4
'
Me.BUTTON4.BackColor = System.Drawing.Color.Yellow
Me.BUTTON4.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON4.Location = New System.Drawing.Point(32, 296)
Me.BUTTON4.Name = "BUTTON4"
Me.BUTTON4.Size = New System.Drawing.Size(75, 32)
Me.BUTTON4.TabIndex = 14
Me.BUTTON4.Text = "-"
'
'LABEL3
'
Me.LABEL3.BackColor = System.Drawing.Color.Black
Me.LABEL3.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL3.Location = New System.Drawing.Point(88, 400)
Me.LABEL3.Name = "LABEL3"
Me.LABEL3.Size = New System.Drawing.Size(344, 8)
Me.LABEL3.TabIndex = 13
Me.LABEL3.Text = "LABEL3"
'
'TEXTBOX12
'
Me.TEXTBOX12.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX12.Location = New System.Drawing.Point(136, 424)
Me.TEXTBOX12.Multiline = True
Me.TEXTBOX12.Name = "TEXTBOX12"
Me.TEXTBOX12.Size = New System.Drawing.Size(256, 64)
Me.TEXTBOX12.TabIndex = 12
Me.TEXTBOX12.Text = ""
Me.TEXTBOX12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX13
'
Me.TEXTBOX13.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX13.Location = New System.Drawing.Point(136, 280)
Me.TEXTBOX13.Multiline = True
Me.TEXTBOX13.Name = "TEXTBOX13"
Me.TEXTBOX13.Size = New System.Drawing.Size(256, 72)
Me.TEXTBOX13.TabIndex = 11
Me.TEXTBOX13.Text = ""
Me.TEXTBOX13.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX14
'
Me.TEXTBOX14.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX14.Location = New System.Drawing.Point(136, 192)
Me.TEXTBOX14.Multiline = True
Me.TEXTBOX14.Name = "TEXTBOX14"
Me.TEXTBOX14.Size = New System.Drawing.Size(256, 72)
Me.TEXTBOX14.TabIndex = 10
Me.TEXTBOX14.Text = ""
Me.TEXTBOX14.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TABPAGE1
'
Me.TABPAGE1.BackColor = System.Drawing.Color.LemonChiffon
Me.TABPAGE1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.TABPAGE1.Controls.Add(Me.LABEL26)
Me.TABPAGE1.Controls.Add(Me.NUMERICUPDOWN1)
Me.TABPAGE1.Controls.Add(Me.LABEL12)
Me.TABPAGE1.Controls.Add(Me.LABEL11)
Me.TABPAGE1.Controls.Add(Me.LABEL10)
Me.TABPAGE1.Controls.Add(Me.LABEL7)
Me.TABPAGE1.Controls.Add(Me.BUTTON9)
Me.TABPAGE1.Controls.Add(Me.BUTTON8)
Me.TABPAGE1.Controls.Add(Me.BUTTON7)
Me.TABPAGE1.Controls.Add(Me.LABEL6)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX7)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX6)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX5)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX4)
Me.TABPAGE1.Controls.Add(Me.BUTTON2)
Me.TABPAGE1.Controls.Add(Me.BUTTON1)
Me.TABPAGE1.Controls.Add(Me.LABEL2)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX3)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX2)
Me.TABPAGE1.Controls.Add(Me.TEXTBOX1)
Me.TABPAGE1.Location = New System.Drawing.Point(4, 27)
Me.TABPAGE1.Name = "TABPAGE1"
Me.TABPAGE1.Size = New System.Drawing.Size(784, 503)
Me.TABPAGE1.TabIndex = 0
Me.TABPAGE1.Text = "ADDITION"
'
'LABEL26
'
Me.LABEL26.Location = New System.Drawing.Point(560, 24)
Me.LABEL26.Name = "LABEL26"
Me.LABEL26.Size = New System.Drawing.Size(176, 88)
Me.LABEL26.TabIndex = 19
'
'NUMERICUPDOWN1
'
Me.NUMERICUPDOWN1.Location = New System.Drawing.Point(392, 56)
Me.NUMERICUPDOWN1.Maximum = New Decimal(New Integer() {4, 0, 0, 0})
Me.NUMERICUPDOWN1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NUMERICUPDOWN1.Name = "NUMERICUPDOWN1"
Me.NUMERICUPDOWN1.Size = New System.Drawing.Size(40, 24)
Me.NUMERICUPDOWN1.TabIndex = 18
Me.NUMERICUPDOWN1.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'LABEL12
'
Me.LABEL12.BackColor = System.Drawing.Color.Aqua
Me.LABEL12.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL12.Location = New System.Drawing.Point(408, 392)
Me.LABEL12.Name = "LABEL12"
Me.LABEL12.Size = New System.Drawing.Size(328, 32)
Me.LABEL12.TabIndex = 17
Me.LABEL12.Text = "RESULTAT"
'
'LABEL11
'
Me.LABEL11.BackColor = System.Drawing.Color.Aqua
Me.LABEL11.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL11.Location = New System.Drawing.Point(408, 240)
Me.LABEL11.Name = "LABEL11"
Me.LABEL11.Size = New System.Drawing.Size(328, 32)
Me.LABEL11.TabIndex = 16
Me.LABEL11.Text = "THERMES"
'
'LABEL10
'
Me.LABEL10.BackColor = System.Drawing.Color.Aqua
Me.LABEL10.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL10.Location = New System.Drawing.Point(408, 152)
Me.LABEL10.Name = "LABEL10"
Me.LABEL10.Size = New System.Drawing.Size(320, 32)
Me.LABEL10.TabIndex = 15
Me.LABEL10.Text = "RETENUES"
'
'LABEL7
'
Me.LABEL7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL7.Location = New System.Drawing.Point(208, 24)
Me.LABEL7.Name = "LABEL7"
Me.LABEL7.Size = New System.Drawing.Size(176, 88)
Me.LABEL7.TabIndex = 14
Me.LABEL7.Text = "COMBIEN DE CHIFFRE VEUT TU À TES NOMBRES"
Me.LABEL7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BUTTON9
'
Me.BUTTON9.BackColor = System.Drawing.Color.GreenYellow
Me.BUTTON9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON9.Location = New System.Drawing.Point(440, 24)
Me.BUTTON9.Name = "BUTTON9"
Me.BUTTON9.Size = New System.Drawing.Size(96, 23)
Me.BUTTON9.TabIndex = 13
Me.BUTTON9.Text = "CALCULER"
'
'BUTTON8
'
Me.BUTTON8.BackColor = System.Drawing.Color.GreenYellow
Me.BUTTON8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON8.Location = New System.Drawing.Point(440, 56)
Me.BUTTON8.Name = "BUTTON8"
Me.BUTTON8.Size = New System.Drawing.Size(96, 23)
Me.BUTTON8.TabIndex = 12
Me.BUTTON8.Text = "APPRENDRE"
'
'BUTTON7
'
Me.BUTTON7.BackColor = System.Drawing.Color.GreenYellow
Me.BUTTON7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON7.Location = New System.Drawing.Point(440, 88)
Me.BUTTON7.Name = "BUTTON7"
Me.BUTTON7.Size = New System.Drawing.Size(96, 23)
Me.BUTTON7.TabIndex = 11
Me.BUTTON7.Text = "EXERCICE"
'
'LABEL6
'
Me.LABEL6.BackColor = System.Drawing.Color.Cyan
Me.LABEL6.Location = New System.Drawing.Point(8, 24)
Me.LABEL6.Name = "LABEL6"
Me.LABEL6.Size = New System.Drawing.Size(184, 80)
Me.LABEL6.TabIndex = 10
Me.LABEL6.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
Me.LABEL6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TEXTBOX7
'
Me.TEXTBOX7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX7.Location = New System.Drawing.Point(208, 152)
Me.TEXTBOX7.Multiline = True
Me.TEXTBOX7.Name = "TEXTBOX7"
Me.TEXTBOX7.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX7.TabIndex = 9
Me.TEXTBOX7.Text = ""
Me.TEXTBOX7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX6
'
Me.TEXTBOX6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX6.Location = New System.Drawing.Point(248, 152)
Me.TEXTBOX6.Multiline = True
Me.TEXTBOX6.Name = "TEXTBOX6"
Me.TEXTBOX6.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX6.TabIndex = 8
Me.TEXTBOX6.Text = ""
Me.TEXTBOX6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX5
'
Me.TEXTBOX5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX5.Location = New System.Drawing.Point(288, 152)
Me.TEXTBOX5.Multiline = True
Me.TEXTBOX5.Name = "TEXTBOX5"
Me.TEXTBOX5.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX5.TabIndex = 7
Me.TEXTBOX5.Text = ""
Me.TEXTBOX5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TEXTBOX4
'
Me.TEXTBOX4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX4.Location = New System.Drawing.Point(328, 152)
Me.TEXTBOX4.Multiline = True
Me.TEXTBOX4.Name = "TEXTBOX4"
Me.TEXTBOX4.Size = New System.Drawing.Size(32, 32)
Me.TEXTBOX4.TabIndex = 6
Me.TEXTBOX4.Text = ""
Me.TEXTBOX4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'BUTTON2
'
Me.BUTTON2.BackColor = System.Drawing.Color.GreenYellow
Me.BUTTON2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON2.Location = New System.Drawing.Point(40, 392)
Me.BUTTON2.Name = "BUTTON2"
Me.BUTTON2.Size = New System.Drawing.Size(75, 32)
Me.BUTTON2.TabIndex = 5
Me.BUTTON2.Text = "="
'
'BUTTON1
'
Me.BUTTON1.BackColor = System.Drawing.Color.GreenYellow
Me.BUTTON1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BUTTON1.Location = New System.Drawing.Point(40, 304)
Me.BUTTON1.Name = "BUTTON1"
Me.BUTTON1.Size = New System.Drawing.Size(75, 32)
Me.BUTTON1.TabIndex = 4
Me.BUTTON1.Text = "+"
'
'LABEL2
'
Me.LABEL2.BackColor = System.Drawing.SystemColors.ControlText
Me.LABEL2.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LABEL2.Location = New System.Drawing.Point(88, 352)
Me.LABEL2.Name = "LABEL2"
Me.LABEL2.Size = New System.Drawing.Size(344, 8)
Me.LABEL2.TabIndex = 3
Me.LABEL2.Text = "LABEL2"
'
'TEXTBOX3
'
Me.TEXTBOX3.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX3.Location = New System.Drawing.Point(168, 376)
Me.TEXTBOX3.Multiline = True
Me.TEXTBOX3.Name = "TEXTBOX3"
Me.TEXTBOX3.Size = New System.Drawing.Size(232, 72)
Me.TEXTBOX3.TabIndex = 2
Me.TEXTBOX3.Text = ""
Me.TEXTBOX3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX2
'
Me.TEXTBOX2.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX2.Location = New System.Drawing.Point(168, 272)
Me.TEXTBOX2.Multiline = True
Me.TEXTBOX2.Name = "TEXTBOX2"
Me.TEXTBOX2.Size = New System.Drawing.Size(232, 72)
Me.TEXTBOX2.TabIndex = 1
Me.TEXTBOX2.Text = ""
Me.TEXTBOX2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TEXTBOX1
'
Me.TEXTBOX1.AccessibleRole = System.Windows.Forms.AccessibleRole.Text
Me.TEXTBOX1.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX1.Location = New System.Drawing.Point(168, 192)
Me.TEXTBOX1.Multiline = True
Me.TEXTBOX1.Name = "TEXTBOX1"
Me.TEXTBOX1.Size = New System.Drawing.Size(232, 72)
Me.TEXTBOX1.TabIndex = 0
Me.TEXTBOX1.Text = ""
Me.TEXTBOX1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'TABPAGE5
'
Me.TABPAGE5.BackColor = System.Drawing.Color.Pink
Me.TABPAGE5.Controls.Add(Me.LABEL24)
Me.TABPAGE5.Controls.Add(Me.BUTTON29)
Me.TABPAGE5.Controls.Add(Me.TEXTBOX18)
Me.TABPAGE5.Controls.Add(Me.LABEL23)
Me.TABPAGE5.Controls.Add(Me.BUTTON28)
Me.TABPAGE5.Controls.Add(Me.BUTTON27)
Me.TABPAGE5.Controls.Add(Me.BUTTON26)
Me.TABPAGE5.Controls.Add(Me.BUTTON25)
Me.TABPAGE5.Controls.Add(Me.BUTTON24)
Me.TABPAGE5.Controls.Add(Me.BUTTON23)
Me.TABPAGE5.Controls.Add(Me.BUTTON22)
Me.TABPAGE5.Controls.Add(Me.BUTTON21)
Me.TABPAGE5.Controls.Add(Me.BUTTON20)
Me.TABPAGE5.Controls.Add(Me.BUTTON16)
Me.TABPAGE5.Controls.Add(Me.BUTTON19)
Me.TABPAGE5.Controls.Add(Me.BUTTON18)
Me.TABPAGE5.Controls.Add(Me.BUTTON17)
Me.TABPAGE5.Controls.Add(Me.LABEL22)
Me.TABPAGE5.Location = New System.Drawing.Point(4, 27)
Me.TABPAGE5.Name = "TABPAGE5"
Me.TABPAGE5.Size = New System.Drawing.Size(784, 503)
Me.TABPAGE5.TabIndex = 4
Me.TABPAGE5.Text = "LES TABLES"
'
'LABEL24
'
Me.LABEL24.BackColor = System.Drawing.Color.Cyan
Me.LABEL24.Location = New System.Drawing.Point(400, 8)
Me.LABEL24.Name = "LABEL24"
Me.LABEL24.Size = New System.Drawing.Size(280, 72)
Me.LABEL24.TabIndex = 19
Me.LABEL24.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BUTTON29
'
Me.BUTTON29.BackColor = System.Drawing.Color.Gold
Me.BUTTON29.Location = New System.Drawing.Point(240, 248)
Me.BUTTON29.Name = "BUTTON29"
Me.BUTTON29.Size = New System.Drawing.Size(88, 23)
Me.BUTTON29.TabIndex = 18
Me.BUTTON29.Text = "10"
'
'TEXTBOX18
'
Me.TEXTBOX18.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TEXTBOX18.BackColor = System.Drawing.SystemColors.ControlLight
Me.TEXTBOX18.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TEXTBOX18.Location = New System.Drawing.Point(448, 96)
Me.TEXTBOX18.Multiline = True
Me.TEXTBOX18.Name = "TEXTBOX18"
Me.TEXTBOX18.Size = New System.Drawing.Size(224, 398)
Me.TEXTBOX18.TabIndex = 17
Me.TEXTBOX18.Text = ""
'
'LABEL23
'
Me.LABEL23.BackColor = System.Drawing.Color.Aqua
Me.LABEL23.Location = New System.Drawing.Point(24, 296)
Me.LABEL23.Name = "LABEL23"
Me.LABEL23.Size = New System.Drawing.Size(328, 64)
Me.LABEL23.TabIndex = 16
Me.LABEL23.Text = "CHOISIS CI DESSUS CELLE QUE TU VEUX ETUDIER ,PUIS CI DESSOUS LA TABLE QUE TU VEUX" & _
" ETUDIER"
Me.LABEL23.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BUTTON28
'
Me.BUTTON28.BackColor = System.Drawing.Color.Gold
Me.BUTTON28.Location = New System.Drawing.Point(240, 192)
Me.BUTTON28.Name = "BUTTON28"
Me.BUTTON28.Size = New System.Drawing.Size(88, 23)
Me.BUTTON28.TabIndex = 14
Me.BUTTON28.Text = "9"
'
'BUTTON27
'
Me.BUTTON27.BackColor = System.Drawing.Color.Gold
Me.BUTTON27.Location = New System.Drawing.Point(136, 192)
Me.BUTTON27.Name = "BUTTON27"
Me.BUTTON27.Size = New System.Drawing.Size(88, 23)
Me.BUTTON27.TabIndex = 13
Me.BUTTON27.Text = "8"
'
'BUTTON26
'
Me.BUTTON26.BackColor = System.Drawing.Color.Gold
Me.BUTTON26.Location = New System.Drawing.Point(32, 192)
Me.BUTTON26.Name = "BUTTON26"
Me.BUTTON26.Size = New System.Drawing.Size(88, 23)
Me.BUTTON26.TabIndex = 12
Me.BUTTON26.Text = "7"
'
'BUTTON25
'
Me.BUTTON25.BackColor = System.Drawing.Color.Gold
Me.BUTTON25.Location = New System.Drawing.Point(240, 136)
Me.BUTTON25.Name = "BUTTON25"
Me.BUTTON25.Size = New System.Drawing.Size(88, 23)
Me.BUTTON25.TabIndex = 11
Me.BUTTON25.Text = "6"
'
'BUTTON24
'
Me.BUTTON24.BackColor = System.Drawing.Color.Gold
Me.BUTTON24.Location = New System.Drawing.Point(136, 136)
Me.BUTTON24.Name = "BUTTON24"
Me.BUTTON24.Size = New System.Drawing.Size(88, 23)
Me.BUTTON24.TabIndex = 10
Me.BUTTON24.Text = "5"
'
'BUTTON23
'
Me.BUTTON23.BackColor = System.Drawing.Color.Gold
Me.BUTTON23.Location = New System.Drawing.Point(32, 136)
Me.BUTTON23.Name = "BUTTON23"
Me.BUTTON23.Size = New System.Drawing.Size(88, 23)
Me.BUTTON23.TabIndex = 9
Me.BUTTON23.Text = "4"
'
'BUTTON22
'
Me.BUTTON22.BackColor = System.Drawing.Color.Gold
Me.BUTTON22.Location = New System.Drawing.Point(240, 88)
Me.BUTTON22.Name = "BUTTON22"
Me.BUTTON22.Size = New System.Drawing.Size(88, 23)
Me.BUTTON22.TabIndex = 8
Me.BUTTON22.Text = "3"
'
'BUTTON21
'
Me.BUTTON21.BackColor = System.Drawing.Color.Gold
Me.BUTTON21.Location = New System.Drawing.Point(136, 88)
Me.BUTTON21.Name = "BUTTON21"
Me.BUTTON21.Size = New System.Drawing.Size(88, 23)
Me.BUTTON21.TabIndex = 7
Me.BUTTON21.Text = "2"
'
'BUTTON20
'
Me.BUTTON20.BackColor = System.Drawing.Color.Gold
Me.BUTTON20.Location = New System.Drawing.Point(32, 88)
Me.BUTTON20.Name = "BUTTON20"
Me.BUTTON20.Size = New System.Drawing.Size(88, 23)
Me.BUTTON20.TabIndex = 6
Me.BUTTON20.Tag = ""
Me.BUTTON20.Text = "1"
'
'BUTTON16
'
Me.BUTTON16.BackColor = System.Drawing.Color.Gold
Me.BUTTON16.Location = New System.Drawing.Point(32, 248)
Me.BUTTON16.Name = "BUTTON16"
Me.BUTTON16.Size = New System.Drawing.Size(88, 23)
Me.BUTTON16.TabIndex = 5
Me.BUTTON16.Text = "0"
'
'BUTTON19
'
Me.BUTTON19.BackColor = System.Drawing.Color.Gold
Me.BUTTON19.Location = New System.Drawing.Point(16, 384)
Me.BUTTON19.Name = "BUTTON19"
Me.BUTTON19.Size = New System.Drawing.Size(104, 48)
Me.BUTTON19.TabIndex = 4
Me.BUTTON19.Text = "ADDITION"
'
'BUTTON18
'
Me.BUTTON18.BackColor = System.Drawing.Color.Gold
Me.BUTTON18.Location = New System.Drawing.Point(136, 384)
Me.BUTTON18.Name = "BUTTON18"
Me.BUTTON18.Size = New System.Drawing.Size(104, 48)
Me.BUTTON18.TabIndex = 3
Me.BUTTON18.Text = "SOUSTRACTION"
'
'BUTTON17
'
Me.BUTTON17.BackColor = System.Drawing.Color.Gold
Me.BUTTON17.Location = New System.Drawing.Point(256, 384)
Me.BUTTON17.Name = "BUTTON17"
Me.BUTTON17.Size = New System.Drawing.Size(104, 48)
Me.BUTTON17.TabIndex = 2
Me.BUTTON17.Text = "MULTIPLICATION"
'
'LABEL22
'
Me.LABEL22.BackColor = System.Drawing.Color.Aqua
Me.LABEL22.Location = New System.Drawing.Point(48, 16)
Me.LABEL22.Name = "LABEL22"
Me.LABEL22.Size = New System.Drawing.Size(264, 40)
Me.LABEL22.TabIndex = 0
Me.LABEL22.Text = "JE VAIS TE FAIRE REVISER LES TABLES "
Me.LABEL22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'FORM1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(792, 534)
Me.Controls.Add(Me.TABCONTROL1)
Me.Name = "FORM1"
Me.Text = "CALCUL AU PRIMAIRE"
Me.TABCONTROL1.ResumeLayout(False)
Me.TABPAGE6.ResumeLayout(False)
Me.TABPAGE3.ResumeLayout(False)
Me.TABPAGE2.ResumeLayout(False)
Me.TABPAGE1.ResumeLayout(False)
CType(Me.NUMERICUPDOWN1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TABPAGE5.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub BUTTON9_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON9.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL26.Text = "DONNE MOI LES THERMES,MERCI PUIS CLIC SUR PLUS" & " " & PRENOM$
BUTTON2.Enabled = False
BUTTON1.Enabled = True
End Sub
Private Sub BUTTON8_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON8.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL26.Text = "JE VAIS TE MONTRER UN EXEMPLE REGARDE BIEN" & " " & PRENOM$
BUTTON1.Enabled = False
BUTTON2.Enabled = False
C = NUMERICUPDOWN1.Text
Select Case C
Case 1
TEXTBOX4.Visible = True
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
D = 9
LINE: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A = 10 Or B = 10 Then GoTo LINE
If A < B Then A = B : B = A
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
TEXTBOX3.Text = RESULTAT
A1 = A : B1 = B
If A1 + B1 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
TEXTBOX4.Text = R1
Case 2
TEXTBOX4.Visible = True
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
D = 99
LINE1: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A <= 9 Or B <= 9 Then GoTo LINE
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
'DECOUPAGE A
A2 = Int(StrReverse(A) / 10)
'DECOUPAGE DE B
B2 = Int(StrReverse(B) / 10)
'CALCUL RETENUE
If A2 + B2 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
TEXTBOX4.Text = R1
Case 3
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
D = 999
LINE2: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A < 99 Or B < 99 Then GoTo LINE2
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
A3 = Int((StrReverse(A)) / 100)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
If A3 + B3 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
If A2 + B2 >= 10 Then TEXTBOX5.Clear() : R2 = 1 Else TEXTBOX5.Visible = False
TEXTBOX4.Text = R1
TEXTBOX5.Text = R2
Case 4
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = True
TEXTBOX7.Visible = False
D = 9999
LINE3: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A < 999 Or B < 999 Then GoTo LINE3
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
'DECOUPAGE DE A
A21 = Int(A / 100) : A2 = Int((StrReverse(A21)) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B21 = Int(B / 100) : B2 = Int((StrReverse(B21)) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'CALCUL RETENUE
If A2 + B2 >= 10 Then TEXTBOX6.Visible = True : R2 = 1 : TEXTBOX6.Text = R2 Else TEXTBOX6.Visible = False
If A3 + B3 >= 10 Then TEXTBOX5.Visible = True : R1 = 1 : TEXTBOX5.Text = R1 Else TEXTBOX5.Visible = False
If A4 + B4 >= 10 Then TEXTBOX4.Visible = True : R3 = 1 : TEXTBOX4.Text = R3 Else TEXTBOX4.Visible = False
End Select
End Sub
Private Sub BUTTON7_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON7.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL26.Text = "DONNE MOI LE RESULTAT AINSIS QUE LES RETENUES,MERCI PUIS CLIC SUR EGAL" & " " & PRENOM$
BUTTON1.Enabled = False
BUTTON2.Enabled = True
C = NUMERICUPDOWN1.Text
Select Case C
Case 1
TEXTBOX4.Visible = True
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
TEXTBOX3.Clear()
TEXTBOX4.Clear()
TEXTBOX5.Clear()
TEXTBOX6.Clear()
TEXTBOX7.Clear()
A = Int(Rnd() * 9)
B = Int(Rnd() * 9)
If A + B < 10 Then TEXTBOX4.Visible = False
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
Case 2
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
TEXTBOX3.Clear()
TEXTBOX4.Clear()
TEXTBOX5.Clear()
TEXTBOX6.Clear()
TEXTBOX7.Clear()
A = Int(Rnd() * 99)
B = Int(Rnd() * 99)
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
Case 3
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = True
TEXTBOX7.Visible = False
TEXTBOX3.Clear()
TEXTBOX4.Clear()
TEXTBOX5.Clear()
TEXTBOX6.Clear()
TEXTBOX7.Clear()
A = Int(Rnd() * 999)
B = Int(Rnd() * 999)
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
Case 4
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = True
TEXTBOX7.Visible = True
TEXTBOX3.Clear()
TEXTBOX4.Clear()
TEXTBOX5.Clear()
TEXTBOX6.Clear()
TEXTBOX7.Clear()
A = Int(Rnd() * 9999)
B = Int(Rnd() * 9999)
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
End Select
End Sub
Private Sub BUTTON10_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON10.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL8.Text = "DONNE MOI LES THERMES,MERCI PUIS CLIC SUR MOINS" & PRENOM$
LABEL27.Text = "COMBIEN DE CHIFFRES ON T'EST NOMBRES : "
BUTTON4.Enabled = True
BUTTON3.Enabled = False
End Sub
Private Sub BUTTON11_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON11.Click
PRENOM$ = UCase(TEXTBOX25.Text)
NUMERICUPDOWN1.Visible = False
LABEL27.Visible = False
LABEL8.Text = "JE VAIS TE MONTRER UN EXEMPLE REGARDE BIEN" & PRENOM$
BUTTON3.Enabled = False
BUTTON4.Enabled = False
LINE5: C = Int(Rnd(1) * 5)
LABEL8.Text = "CECI EST UNE SOUSTRACTION A : " & C & " CHIFFRE(S)"
If C = 0 Then GoTo LINE5
Select Case C
Case 1
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE1: A = Int(Rnd() * 9)
B = Int(Rnd() * 9)
If A < B Then GoTo LINE1
A1 = A : B1 = B
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 2
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE2: A = Int(Rnd() * 99)
B = Int(Rnd() * 99)
If A < B Then GoTo LINE2
A1 = Int((StrReverse(A) / 10))
B1 = Int((StrReverse(B) / 10))
If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
TEXTBOX29.Text = R1
TEXTBOX11.Text = R1
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 3
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE3: A = Int(Rnd() * 999)
B = Int(Rnd() * 999)
If A < B Then GoTo LINE3
'DECOUPAGE DE A
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
A3 = Int((StrReverse(A)) / 100)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX14.Text = A
TEXTBOX13.Text = B
TEXTBOX28.Text = R2
TEXTBOX29.Text = R1
TEXTBOX10.Text = R2
TEXTBOX11.Text = R1
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 4
TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE4: A = Int(Rnd() * 9999)
B = Int(Rnd() * 9999)
If A < B Then GoTo LINE4
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 1000)
B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'DE
'CALCUL RETENUES
If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX8.Text = R1
TEXTBOX9.Text = R2
TEXTBOX10.Text = R3
TEXTBOX11.Text = R4
TEXTBOX26.Text = R1
TEXTBOX27.Text = R2
TEXTBOX28.Text = R3
TEXTBOX29.Text = R4
End Select
End Sub
Private Sub BUTTON12_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON12.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL27.Text = "DONNE MOI LE RESULTAT AINSIS QUE LES RETENUES,MERCI PUIS CLIC SUR EGAL" & " " & PRENOM$
BUTTON3.Enabled = True
BUTTON4.Enabled = False
LABEL27.Text = "CELA VA ETRE UNE OPERATION A : "
LINE5: C = Int(Rnd() * 5)
If C = 0 Then GoTo LINE5
TEXTBOX30.Text = C
Select Case C
Case 1
TEXTBOX14.Clear()
TEXTBOX13.Clear()
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE1: A = Int(Rnd() * 9)
B = Int(Rnd() * 9)
If A < B Then GoTo LINE1
A1 = A : B1 = B
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
Case 2
TEXTBOX14.Clear()
TEXTBOX13.Clear()
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE2: A = Int(Rnd() * 99)
B = Int(Rnd() * 99)
If A < B Then GoTo LINE2
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
A1 = Int((StrReverse(A) / 10))
B1 = Int((StrReverse(B) / 10))
If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
Case 3
TEXTBOX14.Clear()
TEXTBOX13.Clear()
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE3: A = Int(Rnd() * 999)
B = Int(Rnd() * 999)
If A < B Then GoTo LINE3
RESULTAT = A - B
TEXTBOX14.Text = A
TEXTBOX13.Text = B
'DECOUPAGE DE A
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
A3 = Int((StrReverse(A)) / 100)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
Case 4
TEXTBOX14.Clear()
TEXTBOX13.Clear()
TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
LINE4: A = Int(Rnd() * 9999)
B = Int(Rnd() * 9999)
If A < B Then GoTo LINE4
TEXTBOX14.Text = A
TEXTBOX13.Text = B
RESULTAT = A - B
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 1000)
B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'DE
'CALCUL RETENUES
If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
End Select
End Sub
Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON1.Click
PRENOM$ = UCase(TEXTBOX25.Text)
Select Case C
Case 1
TEXTBOX4.Visible = True
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
LINE: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A = 10 Or B = 10 Then GoTo LINE
If A < B Then A = B : B = A
TEXTBOX1.Text = A
TEXTBOX2.Text = B
RESULTAT = A + B
TEXTBOX3.Text = RESULTAT
A1 = A : B1 = B
If A1 + B1 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
TEXTBOX4.Text = R1
Case 2
TEXTBOX4.Visible = True
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
LINE1: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A <= 9 Or B <= 9 Then GoTo LINE
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
'DECOUPAGE A
A2 = Int(StrReverse(A) / 10)
'DECOUPAGE DE B
B2 = Int(StrReverse(B) / 10)
'CALCUL RETENUE
If A2 + B2 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
TEXTBOX4.Text = R1
Case 3
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
LINE2: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A < 99 Or B < 99 Then GoTo LINE2
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
A3 = Int((StrReverse(A)) / 100)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
If A3 + B3 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
If A2 + B2 >= 10 Then TEXTBOX5.Clear() : R2 = 1 Else TEXTBOX5.Visible = False
TEXTBOX4.Text = R1
TEXTBOX5.Text = R2
Case 4
TEXTBOX4.Visible = True
TEXTBOX5.Visible = True
TEXTBOX6.Visible = True
TEXTBOX7.Visible = False
LINE3: A = TEXTBOX1.Text
B = TEXTBOX2.Text
If A < 999 Or B < 999 Then GoTo LINE3
RESULTAT = A + B
TEXTBOX1.Text = A
TEXTBOX2.Text = B
TEXTBOX3.Text = RESULTAT
'DECOUPAGE DE A
A21 = Int(A / 100) : A2 = Int((StrReverse(A21)) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B21 = Int(B / 100) : B2 = Int((StrReverse(B21)) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'CALCUL RETENUE
If A2 + B2 >= 10 Then TEXTBOX6.Visible = True : R2 = 1 : TEXTBOX6.Text = R2 Else TEXTBOX6.Visible = False
If A3 + B3 >= 10 Then TEXTBOX5.Visible = True : R1 = 1 : TEXTBOX5.Text = R1 Else TEXTBOX5.Visible = False
If A4 + B4 >= 10 Then TEXTBOX4.Visible = True : R3 = 1 : TEXTBOX4.Text = R3 Else TEXTBOX4.Visible = False
End Select
End Sub
Private Sub BUTTON2_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON2.Click
'CORRECTION ADDITION
PRENOM$ = UCase(TEXTBOX25.Text)
C = NUMERICUPDOWN1.Text
Select Case C
Case 1
A1 = A : B1 = B
RESULTAT1 = TEXTBOX3.Text
R = Int((A1 + B1) / 10)
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
RI1 = TEXTBOX4.Text
If RI1 <> R Then LABEL10.Text = "ERREUR DE RETENUES" : TEXTBOX4.BackColor = Color.Red Else LABEL10.Text = "C'EST TRES BIEN" : TEXTBOX4.BackColor = Color.White
Case 2
A1 = Int(A / 10)
A2 = Int((StrReverse(A) / 10))
B1 = Int(B / 10)
B2 = Int((StrReverse(B) / 10))
If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
RESULTAT1 = TEXTBOX3.Text
RI1 = TEXTBOX4.Text
RI2 = TEXTBOX5.Text
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "RECALCULE,GROS BETA" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL11.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX4.BackColor = Color.White
If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL11.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX5.BackColor = Color.White
Case 3
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int((StrReverse(A21)) / 10)
A3 = Int((StrReverse(A)) / 100)
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int((StrReverse(B21)) / 10)
B3 = Int((StrReverse(B)) / 100)
If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
If A3 + B3 >= 10 Then R3 = 1 Else R3 = 0
RESULTAT1 = TEXTBOX3.Text
RI1 = TEXTBOX4.Text
RI2 = TEXTBOX5.Text
RI3 = TEXTBOX6.Text
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX4.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX5.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI3 <> R3 Then TEXTBOX6.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX6.BackColor = Color.White : LABEL11.Text = PRENOM$
Case 4
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 1000)
B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'CALCUL RETENUES
If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
If A3 + B3 >= 10 Then R3 = 1 Else R3 = 0
If A4 + B4 >= 10 Then R4 = 1 Else R4 = 0
RESULTAT1 = TEXTBOX3.Text
RI1 = TEXTBOX4.Text
RI2 = TEXTBOX5.Text
RI3 = TEXTBOX6.Text
RI4 = TEXTBOX7.Text
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX4.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX5.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI3 <> R3 Then TEXTBOX6.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX6.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI4 <> R4 Then TEXTBOX7.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX7.BackColor = Color.White : LABEL11.Text = PRENOM$
End Select
End Sub
Private Sub FORM1_LOAD(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles MyBase.Load
Randomize()
TEXTBOX4.Visible = False
TEXTBOX5.Visible = False
TEXTBOX6.Visible = False
TEXTBOX7.Visible = False
PRENOM$ = UCase(TEXTBOX25.Text)
End Sub
Private Sub BUTTON4_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON4.Click
C = Len(Str(A))
Select Case C
Case 1
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
A1 = A : B1 = B
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 2
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
A1 = Int((StrReverse(A) / 10))
B1 = Int((StrReverse(B) / 10))
If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
TEXTBOX29.Text = R1
TEXTBOX11.Text = R1
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 3
TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
RESULTAT = A - B
'DECOUPAGE DE A
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
A3 = Int((StrReverse(A)) / 100)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
TEXTBOX14.Text = A
TEXTBOX13.Text = B
TEXTBOX28.Text = R2
TEXTBOX29.Text = R1
TEXTBOX10.Text = R2
TEXTBOX11.Text = R1
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
Case 4
TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
TEXTBOX12.Clear() : TEXTBOX26.Clear()
TEXTBOX8.Clear() : TEXTBOX27.Clear()
TEXTBOX9.Clear() : TEXTBOX28.Clear()
TEXTBOX10.Clear() : TEXTBOX29.Clear()
TEXTBOX11.Clear()
RESULTAT = A - B
RESULTAT = A - B
TEXTBOX12.Text = RESULTAT
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 1000)
B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'DE
'CALCUL RETENUES
If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
TEXTBOX8.Text = R1
TEXTBOX9.Text = R2
TEXTBOX10.Text = R3
TEXTBOX11.Text = R4
TEXTBOX26.Text = R1
TEXTBOX27.Text = R2
TEXTBOX28.Text = R3
TEXTBOX29.Text = R4
End Select
End Sub
Private Sub BUTTON3_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON3.Click
PRENOM$ = UCase(TEXTBOX25.Text)
C = TEXTBOX30.Text
Select Case C
Case 1
A1 = A : B1 = B
RESULTAT1 = TEXTBOX12.Text
If RESULTAT1 <> RESULTAT Then LABEL14.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL15.Text = PRENOM$ Else LABEL14.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL15.Text = PRENOM$
Case 2
A1 = Int(A / 10)
A2 = Int((StrReverse(A) / 10))
B1 = Int(B / 10)
B2 = Int((StrReverse(B) / 10))
If A1 < B1 Then R1 = 1 Else R1 = 0
RESULTAT1 = TEXTBOX12.Text
RI1 = TEXTBOX11.Text
RI1 = TEXTBOX29.Text
If RESULTAT1 <> RESULTAT Then LABEL14.Text = "RECALCULE,GROS BETA" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL14.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL15.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX19.BackColor = Color.Red : TEXTBOX11.BackColor = Color.Red : LABEL15.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX29.BackColor = Color.White : TEXTBOX11.BackColor = Color.White
Case 3
A1 = Int(A / 100)
A21 = Int(A / 10) : A2 = Int((StrReverse(A21)) / 10)
A3 = Int((StrReverse(A)) / 100)
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int((StrReverse(B21)) / 10)
B3 = Int((StrReverse(B)) / 100)
If A1 < B1 Then R1 = 1 Else R1 = 0
If A2 < B2 Then R2 = 1 Else R2 = 0
If A3 < B3 Then R3 = 1 Else R3 = 0
RESULTAT1 = TEXTBOX12.Text
RI1 = TEXTBOX11.Text
RI2 = TEXTBOX10.Text
RI3 = TEXTBOX9.Text
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX11.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX11.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI2 <> R2 Then TEXTBOX10.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX10.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI3 <> R3 Then TEXTBOX9.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX9.BackColor = Color.White : LABEL11.Text = PRENOM$
Case 4
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 1000)
B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
B4 = Int((StrReverse(B)) / 1000)
'CALCUL RETENUES
If A1 < B1 Then R1 = 1 Else R1 = 0
If A2 < B2 Then R2 = 1 Else R2 = 0
If A3 < B3 Then R3 = 1 Else R3 = 0
If A4 < B4 Then R4 = 1 Else R4 = 0
RESULTAT1 = TEXTBOX12.Text
RI1 = TEXTBOX11.Text
RI2 = TEXTBOX10.Text
RI3 = TEXTBOX9.Text
RI4 = TEXTBOX8.Text
If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI1 <> R1 Then TEXTBOX11.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX11.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI2 <> R2 Then TEXTBOX10.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX10.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI3 <> R3 Then TEXTBOX9.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX9.BackColor = Color.White : LABEL11.Text = PRENOM$
If RI4 <> R4 Then TEXTBOX8.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX8.BackColor = Color.White : LABEL11.Text = PRENOM$
End Select
End Sub
Private Sub BUTTON13_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON13.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL17.Text = "DONNE MOI LES THERMES QUE TU VEUX CALCULER PUIS CLIQUE SUR = " & " " & PRENOM$
BUTTON5.Enabled = True
BUTTON6.Enabled = False
TEXTBOX21.Clear()
TEXTBOX20.Clear()
End Sub
Private Sub BUTTON14_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON14.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL17.Text = "JE VAIS TE FAIRE UN EXEMPLE REGARDE BIEN" & " " & PRENOM$
BUTTON5.Enabled = False
BUTTON6.Enabled = False
A = Int(Rnd() * 9999)
B = Int(Rnd() * 999)
If A < B Then A = B
L$ = CStr(B)
TEXTBOX21.Text = A
TEXTBOX20.Text = B
LABEL28.Text = "CETTE MULTIPLICATION A " & Len(CStr(B)) & "CHIFFRE AU MULTIPLICATEUR"
Select Case Len(L$)
'DECOUPAGE DE A
Case 3
RESULTAT = A * B
LABEL5.Visible = True
TEXTBOX19.Visible = True
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
TEXTBOX19.Location = New Point(120, 272)
LABEL5.Location = New Point(56, 432)
TEXTBOX24.Location = New Point(120, 440)
BUTTON5.Location = New Point(8, 456)
TEXTBOX23.Location = New Point(120, 336)
TEXTBOX22.Location = New Point(120, 384)
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
A1 = Int(A / 1000)
: A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
: A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
: A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
: B1 = Int(B / 100)
: B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
: B3 = Int((StrReverse(B)) / 100)
'CALCUL RESULTATS INTER
: RI1 = A * B1
: RI2 = A * B2
: RI3 = A * B3
: TEXTBOX19.Text = RI3
: TEXTBOX23.Text = RI2 & "0"
: TEXTBOX22.Text = RI1 & "00"
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B1 <= 10 Then R2 = 0 Else R2 = Int((A2 * B1) / 10)
If A3 * B1 <= 10 Then R3 = 0 Else R3 = Int((A3 * B1) / 10)
'
TEXTBOX15.Clear()
TEXTBOX16.Clear()
TEXTBOX17.Clear()
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
TEXTBOX17.Text = R3
Case 2
TEXTBOX19.Visible = False
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
LABEL5.Location = New Point(80, 376)
TEXTBOX24.Location = New Point(120, 392)
BUTTON5.Location = New Point(8, 392)
TEXTBOX23.Location = New Point(120, 280)
TEXTBOX22.Location = New Point(120, 336)
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 10)
B2 = Int(StrReverse(B) / 10)
'CALCUL RESULTATS INTER
RI1 = A * B1
RI2 = A * B2
TEXTBOX23.Text = RI2
TEXTBOX22.Text = RI1 & "0"
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
Case 1
TEXTBOX19.Visible = False
TEXTBOX23.Visible = False
TEXTBOX22.Visible = False
LABEL5.Visible = False
TEXTBOX24.Location = New Point(120, 272)
BUTTON5.Location = New Point(8, 280)
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
End Select
End Sub
Private Sub BUTTON5_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON5.Click
A = TEXTBOX21.Text
B = TEXTBOX20.Text
If A < B Then A = B
LABEL28.Text = "CETTE MULTIPLICATION A " & Len(CStr(B)) & "CHIFFRE AU MULTIPLICATEUR"
L$ = CStr(B)
Select Case Len(L$)
'DECOUPAGE DE A
Case 3
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
A1 = Int(A / 1000)
: A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
: A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
: A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
: B1 = Int(B / 100)
: B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
: B3 = Int((StrReverse(B)) / 100)
'CALCUL RESULTATS INTER
: RI1 = A * B1
: RI2 = A * B2
: RI3 = A * B3
: TEXTBOX19.Text = RI3
: TEXTBOX23.Text = RI2 & "0"
: TEXTBOX22.Text = RI1 & "00"
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
If A3 * B3 <= 10 Then R3 = 0 Else R3 = Int((A3 * B3) / 10)
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
TEXTBOX17.Text = R3
Case 2
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 10)
B2 = Int(StrReverse(B) / 10)
'CALCUL RESULTATS INTER
RI1 = A * B1
RI2 = A * B2
TEXTBOX23.Text = RI2
TEXTBOX22.Text = RI1 & "0"
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
Case 1
TEXTBOX24.Location = New Point(120, 272)
BUTTON5.Location = New Point(8, 280)
RESULTAT = A * B
TEXTBOX24.Text = RESULTAT
End Select
End Sub
Private Sub BUTTON6_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON6.Click
L$ = CStr(B)
Select Case Len(L$)
Case 3
RESULTAT = A * B
LABEL5.Visible = True
TEXTBOX19.Visible = True
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
TEXTBOX19.Location = New Point(120, 272)
LABEL5.Location = New Point(56, 432)
TEXTBOX24.Location = New Point(120, 440)
BUTTON5.Location = New Point(8, 456)
TEXTBOX23.Location = New Point(120, 336)
TEXTBOX22.Location = New Point(120, 384)
RESULTAT1 = TEXTBOX24.Text
'DECOUPAGE DE A
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 100)
B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
B3 = Int((StrReverse(B)) / 100)
'CALCUL RESULTATS INTER
RI1 = A * B1
RI2 = A * B2
RI3 = A * B3
RI11 = TEXTBOX19.Text
RI21 = TEXTBOX23.Text
RI31 = TEXTBOX22.Text
'CORRECTION RESULTAT
If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" & PRENOM$ Else LABEL19.Text = "C'EST BIEN" & PRENOM$
If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
If RI11 <> RI1 Then TEXTBOX19.BackColor = Color.Red Else TEXTBOX19.BackColor = Color.White
If RI21 <> (RI2 * 10) Then TEXTBOX23.BackColor = Color.Red Else TEXTBOX23.BackColor = Color.White
If RI31 <> (RI3 * 100) Then TEXTBOX22.BackColor = Color.Red Else TEXTBOX22.BackColor = Color.White
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
If A3 * B3 <= 10 Then R3 = 0 Else R3 = Int((A3 * B3) / 10)
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
TEXTBOX17.Text = R3
Case 2
TEXTBOX19.Visible = False
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
LABEL5.Location = New Point(80, 376)
TEXTBOX24.Location = New Point(120, 392)
BUTTON5.Location = New Point(8, 392)
TEXTBOX23.Location = New Point(120, 280)
TEXTBOX22.Location = New Point(120, 336)
RESULTAT = A * B
RESULTAT1 = TEXTBOX24.Text
A1 = Int(A / 1000)
A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
A4 = Int((StrReverse(A)) / 1000)
'DECOUPAGE DE B
B1 = Int(B / 10)
B2 = Int(StrReverse(B) / 10)
'CALCUL RESULTATS INTER
RI1 = A * B1
RI2 = A * B2
RI21 = TEXTBOX23.Text
RI11 = TEXTBOX22.Text
'CALCUL RETENUES
If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
TEXTBOX15.Text = R1
TEXTBOX16.Text = R2
'CORRECTION
If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" Else LABEL19.Text = "C'EST BIEN"
If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
If RI11 <> (RI1 * 10) Then TEXTBOX22.BackColor = Color.Red Else TEXTBOX22.BackColor = Color.White
If RI21 <> RI2 Then TEXTBOX23.BackColor = Color.Red Else TEXTBOX23.BackColor = Color.White
Case 1
TEXTBOX19.Visible = False
TEXTBOX23.Visible = False
TEXTBOX22.Visible = False
LABEL5.Visible = False
TEXTBOX24.Location = New Point(120, 272)
BUTTON5.Location = New Point(8, 280)
RESULTAT = A * B
RESULTAT1 = TEXTBOX24.Text
If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" Else LABEL19.Text = "C'EST BIEN"
If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
End Select
End Sub
Private Sub BUTTON15_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON15.Click
PRENOM$ = UCase(TEXTBOX25.Text)
LABEL17.Text = "DONNE MOI LES RESULTATS PUIS CLIQUE SUR * " & " " & PRENOM$
BUTTON5.Enabled = False
BUTTON6.Enabled = True
A = Int(Rnd() * 9999)
B = Int(Rnd() * 999)
TEXTBOX21.Text = A
TEXTBOX20.Text = B
TEXTBOX19.Clear() : TEXTBOX19.BackColor = Color.White
TEXTBOX23.Clear() : TEXTBOX23.BackColor = Color.White
TEXTBOX22.Clear() : TEXTBOX22.BackColor = Color.White
TEXTBOX24.Clear() : TEXTBOX24.BackColor = Color.White
If A < B Then A = B
L$ = CStr(B)
Select Case Len(L$)
Case 3
LABEL5.Visible = True
TEXTBOX19.Visible = True
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
TEXTBOX19.Location = New Point(120, 272)
LABEL5.Location = New Point(56, 432)
TEXTBOX24.Location = New Point(120, 440)
BUTTON5.Location = New Point(8, 456)
TEXTBOX23.Location = New Point(120, 336)
TEXTBOX22.Location = New Point(120, 384)
Case 2
TEXTBOX19.Visible = False
TEXTBOX23.Visible = True
TEXTBOX22.Visible = True
LABEL5.Location = New Point(80, 376)
TEXTBOX24.Location = New Point(120, 392)
BUTTON5.Location = New Point(8, 392)
TEXTBOX23.Location = New Point(120, 280)
TEXTBOX22.Location = New Point(120, 336)
Case 1
TEXTBOX19.Visible = False
TEXTBOX23.Visible = False
TEXTBOX22.Visible = False
LABEL5.Visible = False
TEXTBOX24.Location = New Point(120, 272)
BUTTON5.Location = New Point(8, 280)
End Select
End Sub
Private Sub BUTTON19_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON19.Click
PRENOM$ = UCase(TEXTBOX25.Text)
For C = 0 To 10
RESULTAT = C + A
PRENOM$ = UCase(TEXTBOX25.Text)
TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " + " & C & " = " & CStr(RESULTAT)
LABEL24.Text = "VOICI LA TABLE D'ADDITION DE " & A & " " & PRENOM$
Next
End Sub
Private Sub BUTTON22_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON22.Click
TEXTBOX18.Clear()
A = 3
End Sub
Private Sub BUTTON26_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON26.Click
TEXTBOX18.Clear()
A = 7
End Sub
Private Sub BUTTON25_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON25.Click
TEXTBOX18.Clear()
A = 6
End Sub
Private Sub BUTTON24_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON24.Click
TEXTBOX18.Clear()
A = 5
End Sub
Private Sub BUTTON20_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON20.Click
TEXTBOX18.Clear()
A = 1
End Sub
Private Sub BUTTON21_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON21.Click
TEXTBOX18.Clear()
A = 2
End Sub
Private Sub BUTTON23_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON23.Click
TEXTBOX18.Clear()
A = 4
End Sub
Private Sub BUTTON16_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON16.Click
TEXTBOX18.Clear()
A = 0
End Sub
Private Sub BUTTON28_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON28.Click
TEXTBOX18.Clear()
A = 9
End Sub
Private Sub BUTTON27_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON27.Click
TEXTBOX18.Clear()
A = 8
End Sub
Private Sub TABPAGE5_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TABPAGE5.Click
End Sub
Private Sub TEXTBOX18_TEXTCHANGED_1(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX18.TextChanged
End Sub
Private Sub BUTTON18_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON18.Click
For C = 0 To 10 Step 1
RESULTAT = A - C
PRENOM$ = UCase(TEXTBOX25.Text)
TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " - " & C & " = " & CStr(RESULTAT)
LABEL24.Text = "VOICI LA TABLE DE SOUSTRACTION DE " & A & " " & PRENOM$
Next
End Sub
Private Sub BUTTON17_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON17.Click
For C = 0 To 10 Step 1
RESULTAT = C * A
PRENOM$ = UCase(TEXTBOX25.Text).ToLower
TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " * " & C & " = " & CStr(RESULTAT)
LABEL24.Text = "VOICI LA TABLE DE MULTIPLICATION DE " & A & " " & PRENOM$
Next
End Sub
Private Sub BUTTON29_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON29.Click
TEXTBOX18.Clear()
A = 10
End Sub
End Class
Conclusion :
mon premier logiciel utilitaire
je l'espere interressant
merci de me le faire savoir
A voir également
- Le calcul au primaire
- Calcul volume beton ✓ - Forum VB.NET
- Cle primaire - Forum Java
- Clé primaire ✓ - Forum SQL
- Calcul iban ✓ - Forum VB.NET
- Calcul vitesse course a pied - Forum Visual Basic 6
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.