Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 16 04:52:51

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

LE CALCUL AU PRIMAIRE

Information sur la source

Note :

2,40 / 10

Catégorie :VB.NET

Niveau :Débutant Date de création :24/05/2004 Vu :8 027

Auteur : manureva10

Ecrire un message privé

Site perso

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

permet aux enfants de revise ou d'apprendre les operations courante

Source

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

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

Sources du même auteur

CALCULER LE NOMBRE DE ROULEAUX DE PAPIER PEINT

LES TABLES ADDITION,SOUSTRACTION,MULTIPLICATION ET DIVISION

CALCUL DU CODE COULEUR D'UNE RESISTANCE

DECOUPAGE

CALCUL EN ELECTRICITE CONTINU

Toutes les sources de manureva10

Sources de la même categorie

MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30

ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe

AMUSONS NOUS AVEC UN LABEL ^^ par Adn56

UN NAVIGATEUR INTERNET EN VB.NET par azrti

CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7

Toutes les sources de la catégorie VB.NET

Commentaires et avis

Commentaire de ludovicanceaux le 25/05/2004 02:57:59

Tu sais ca a l'air interressant mais là en fait on ne pô tro regardé tout est compressé et tout dc voilà koi Pk tu ne met pas de fichier zip

Commentaire de ludovicanceaux le 25/05/2004 03:00:38

c encor moi.
et puis moi personnellement je teste le logiciel avant de m'interressé au code comme ca je regarde les options interressante que tu as mi dedans.
Dison c'est ce ke je fai je ne sais pô si les autres font pareils mais bon...(Ce n'est pô une critique hein!!!!)

Ajouter un commentaire

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par LeFoureur

RE : BLOCAGE DE MON PROGRAMME par ucfoutu

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par NHenry

RE : OUVRIR PLUSIEURS FICHIERS EXCEL EN MêME AVEC VB par ossama261988

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System