A voir également:
- Un programme vb simulant la calculette window
- Programme demarrage windows 10 - Guide
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Programme démarrage windows 10 - Guide
- Forcer la fermeture d'un programme - Guide
4 réponses
je suis un petit débutant en programmation,le problème est que je n'arrive pas a l'écrire.pour bien dire je ne comprend pas bien l'exercice.si c'est possible répondez moi maintenant puisque je dois le remettre dans quelques heures.merci pour votre disponibilité.
sfel
Messages postés
1640
Date d'inscription
lundi 18 juin 2007
Statut
Membre
Dernière intervention
15 juillet 2009
430
3 sept. 2008 à 01:27
3 sept. 2008 à 01:27
bonjour
a quel point as-tu un souci ?
a quel point as-tu un souci ?
developping
Messages postés
3
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
4 septembre 2008
4 sept. 2008 à 20:36
4 sept. 2008 à 20:36
bonjour
voila c le code
Public Class Form1
Inherits System.Windows.Forms.Form
#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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
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 Button10 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
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 Button16 As System.Windows.Forms.Button
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 Button20 As System.Windows.Forms.Button
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.Button19 = New System.Windows.Forms.Button
Me.Button20 = New System.Windows.Forms.Button
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.MenuItem12 = New System.Windows.Forms.MenuItem
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem11 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Blue
Me.Button1.Location = New System.Drawing.Point(32, 72)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(48, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.Blue
Me.Button2.Location = New System.Drawing.Point(88, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(48, 40)
Me.Button2.TabIndex = 1
Me.Button2.Text = "2"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.Blue
Me.Button3.Location = New System.Drawing.Point(144, 72)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(48, 40)
Me.Button3.TabIndex = 2
Me.Button3.Text = "3"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.Blue
Me.Button4.Location = New System.Drawing.Point(32, 120)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(48, 40)
Me.Button4.TabIndex = 3
Me.Button4.Text = "4"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.Color.Blue
Me.Button5.Location = New System.Drawing.Point(88, 120)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 40)
Me.Button5.TabIndex = 4
Me.Button5.Text = "5"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ForeColor = System.Drawing.Color.Blue
Me.Button6.Location = New System.Drawing.Point(144, 120)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(48, 40)
Me.Button6.TabIndex = 5
Me.Button6.Text = "6"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.ForeColor = System.Drawing.Color.Blue
Me.Button7.Location = New System.Drawing.Point(32, 168)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(48, 40)
Me.Button7.TabIndex = 6
Me.Button7.Text = "7"
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.ForeColor = System.Drawing.Color.Blue
Me.Button8.Location = New System.Drawing.Point(88, 168)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(48, 40)
Me.Button8.TabIndex = 7
Me.Button8.Text = "8"
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button9.ForeColor = System.Drawing.Color.Blue
Me.Button9.Location = New System.Drawing.Point(144, 168)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(48, 40)
Me.Button9.TabIndex = 8
Me.Button9.Text = "9"
'
'Button10
'
Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button10.Location = New System.Drawing.Point(88, 216)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(48, 40)
Me.Button10.TabIndex = 9
Me.Button10.Text = "0"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(24, 16)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(304, 40)
Me.TextBox1.TabIndex = 10
Me.TextBox1.Text = ""
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button11.ForeColor = System.Drawing.Color.Black
Me.Button11.Location = New System.Drawing.Point(256, 72)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(80, 40)
Me.Button11.TabIndex = 11
Me.Button11.Text = "CEE"
'
'Button12
'
Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.Red
Me.Button12.Location = New System.Drawing.Point(200, 216)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(48, 40)
Me.Button12.TabIndex = 12
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button13.ForeColor = System.Drawing.Color.Red
Me.Button13.Location = New System.Drawing.Point(144, 216)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(48, 40)
Me.Button13.TabIndex = 13
Me.Button13.Text = "="
'
'Button14
'
Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button14.ForeColor = System.Drawing.Color.Red
Me.Button14.Location = New System.Drawing.Point(200, 168)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(48, 40)
Me.Button14.TabIndex = 14
Me.Button14.Text = "-"
'
'Button15
'
Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button15.ForeColor = System.Drawing.Color.Red
Me.Button15.Location = New System.Drawing.Point(200, 120)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(48, 40)
Me.Button15.TabIndex = 15
Me.Button15.Text = "*"
'
'Button16
'
Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button16.ForeColor = System.Drawing.Color.Red
Me.Button16.Location = New System.Drawing.Point(200, 72)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(48, 40)
Me.Button16.TabIndex = 16
Me.Button16.Text = "/"
'
'Button17
'
Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button17.Location = New System.Drawing.Point(32, 216)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(48, 40)
Me.Button17.TabIndex = 17
Me.Button17.Text = "."
'
'Button18
'
Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button18.ForeColor = System.Drawing.Color.Red
Me.Button18.Location = New System.Drawing.Point(256, 120)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(80, 40)
Me.Button18.TabIndex = 18
Me.Button18.Text = "rac"
'
'Button19
'
Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button19.ForeColor = System.Drawing.Color.Red
Me.Button19.Location = New System.Drawing.Point(256, 168)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(80, 40)
Me.Button19.TabIndex = 19
Me.Button19.Text = "%"
'
'Button20
'
Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button20.ForeColor = System.Drawing.Color.Red
Me.Button20.Location = New System.Drawing.Point(256, 216)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(80, 40)
Me.Button20.TabIndex = 20
Me.Button20.Text = "1/x"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
Me.MenuItem1.Text = "&Fichier"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "&Nouveau"
'
'MenuItem9
'
Me.MenuItem9.Index = 1
Me.MenuItem9.Text = "-"
'
'MenuItem3
'
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "&Fermer"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
Me.MenuItem4.Text = "&Edition"
'
'MenuItem5
'
Me.MenuItem5.Index = 0
Me.MenuItem5.Text = "&Copier"
'
'MenuItem6
'
Me.MenuItem6.Index = 1
Me.MenuItem6.Text = "&Coller"
'
'MenuItem12
'
Me.MenuItem12.Index = 2
Me.MenuItem12.Text = "&Couper"
'
'MenuItem7
'
Me.MenuItem7.Index = 2
Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
Me.MenuItem7.Text = "?"
'
'MenuItem10
'
Me.MenuItem10.Index = 0
Me.MenuItem10.Text = "-"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "Apropos de le calculatrice "
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.Text = "-"
'
'Form1
'
Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(368, 281)
Me.Controls.Add(Me.Button20)
Me.Controls.Add(Me.Button19)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "CALCULATRICE"
Me.ResumeLayout(False)
End Sub
#End Region
Dim chaine As String
Dim resulta As Double
Dim a As Integer
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
chaine = chaine + "0"
TextBox1.Text = chaine
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
chaine = chaine + "1"
TextBox1.Text = chaine
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
chaine = chaine + "2"
TextBox1.Text = chaine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
chaine = chaine + "3"
TextBox1.Text = chaine
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
chaine = chaine + "4"
TextBox1.Text = chaine
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
chaine = chaine + "5"
TextBox1.Text = chaine
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
chaine = chaine + "6"
TextBox1.Text = chaine
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
chaine = chaine + "7"
TextBox1.Text = chaine
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
chaine = chaine + "8"
TextBox1.Text = chaine
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
chaine = chaine + "9"
TextBox1.Text = chaine
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
chaine = ""
TextBox1.Text = "0"
resulta = 0
Button17.Enabled = True
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
resulta = resulta + (Val(chaine))
a = 0
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If a = 0 Then
resulta = resulta + Val(chaine)
End If
If a = 1 Then
resulta = resulta / (Val(chaine))
End If
If a = 2 Then
resulta = resulta - (Val(chaine))
End If
If a = 3 Then
resulta = resulta * (Val(chaine))
End If
TextBox1.Text = resulta
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resulta = resulta - (Val(chaine))
a = 2
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
chaine = chaine + "."
TextBox1.Text = chaine
Button17.Enabled = False
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
resulta = resulta / (Val(chaine))
a = 1
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If resulta = 0 Then
resulta = Val(chaine)
chaine = ""
a = 3
Else
resulta = resulta * (Val(chaine))
a = 3
chaine = ""
End If
Button17.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
chaine = ""
resulta = 0
TextBox1.Text = "0"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
resulta = Math.Sqrt(Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
resulta = 1 / (Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
Button2.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
Button3.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
Button4.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
Button5.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
Button6.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
Button7.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
Button8.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
Button9.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
Button17.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
Button10.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
Button2.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
Button3.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
Button4.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
Button5.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
Button6.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
Button7.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
Button8.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
Button9.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
Button17.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
Button10.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
Button16.BackColor = BackColor.LightCoral
End Sub
Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
Button15.BackColor = BackColor.LightCoral
End Sub
Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
Button14.BackColor = BackColor.LightCoral
End Sub
Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
Button12.BackColor = BackColor.LightCoral
End Sub
Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
Button13.BackColor = BackColor.LightCoral
End Sub
Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
Button16.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
Button15.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
Button14.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
Button12.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
Button13.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
Button18.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
resulta = (Val(chaine)) / 100
End Sub
Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
Button19.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
Button20.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
Button18.BackColor = BackColor.LightCoral
End Sub
Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
Button19.BackColor = BackColor.LightCoral
End Sub
Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
Button20.BackColor = BackColor.LightCoral
End Sub
Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
Button11.BackColor = BackColor.LightGray
End Sub
Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
Button11.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim f1 As New Form2
f1.Show()
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
chaine = ""
resulta = 0
Button17.Enabled = True
TextBox1.Text = 0
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
End
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Me.TextBox1.Copy()
End Sub
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
TextBox1.Paste()
End Sub
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
TextBox1.Copy()
TextBox1.Text = ""
End Sub
End Class
voila c le code
Public Class Form1
Inherits System.Windows.Forms.Form
#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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
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 Button10 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
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 Button16 As System.Windows.Forms.Button
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 Button20 As System.Windows.Forms.Button
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.Button19 = New System.Windows.Forms.Button
Me.Button20 = New System.Windows.Forms.Button
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.MenuItem12 = New System.Windows.Forms.MenuItem
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem11 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Blue
Me.Button1.Location = New System.Drawing.Point(32, 72)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(48, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.Blue
Me.Button2.Location = New System.Drawing.Point(88, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(48, 40)
Me.Button2.TabIndex = 1
Me.Button2.Text = "2"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.Blue
Me.Button3.Location = New System.Drawing.Point(144, 72)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(48, 40)
Me.Button3.TabIndex = 2
Me.Button3.Text = "3"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.Blue
Me.Button4.Location = New System.Drawing.Point(32, 120)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(48, 40)
Me.Button4.TabIndex = 3
Me.Button4.Text = "4"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.Color.Blue
Me.Button5.Location = New System.Drawing.Point(88, 120)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 40)
Me.Button5.TabIndex = 4
Me.Button5.Text = "5"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ForeColor = System.Drawing.Color.Blue
Me.Button6.Location = New System.Drawing.Point(144, 120)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(48, 40)
Me.Button6.TabIndex = 5
Me.Button6.Text = "6"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.ForeColor = System.Drawing.Color.Blue
Me.Button7.Location = New System.Drawing.Point(32, 168)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(48, 40)
Me.Button7.TabIndex = 6
Me.Button7.Text = "7"
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.ForeColor = System.Drawing.Color.Blue
Me.Button8.Location = New System.Drawing.Point(88, 168)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(48, 40)
Me.Button8.TabIndex = 7
Me.Button8.Text = "8"
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button9.ForeColor = System.Drawing.Color.Blue
Me.Button9.Location = New System.Drawing.Point(144, 168)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(48, 40)
Me.Button9.TabIndex = 8
Me.Button9.Text = "9"
'
'Button10
'
Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button10.Location = New System.Drawing.Point(88, 216)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(48, 40)
Me.Button10.TabIndex = 9
Me.Button10.Text = "0"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(24, 16)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(304, 40)
Me.TextBox1.TabIndex = 10
Me.TextBox1.Text = ""
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button11.ForeColor = System.Drawing.Color.Black
Me.Button11.Location = New System.Drawing.Point(256, 72)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(80, 40)
Me.Button11.TabIndex = 11
Me.Button11.Text = "CEE"
'
'Button12
'
Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.Red
Me.Button12.Location = New System.Drawing.Point(200, 216)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(48, 40)
Me.Button12.TabIndex = 12
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button13.ForeColor = System.Drawing.Color.Red
Me.Button13.Location = New System.Drawing.Point(144, 216)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(48, 40)
Me.Button13.TabIndex = 13
Me.Button13.Text = "="
'
'Button14
'
Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button14.ForeColor = System.Drawing.Color.Red
Me.Button14.Location = New System.Drawing.Point(200, 168)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(48, 40)
Me.Button14.TabIndex = 14
Me.Button14.Text = "-"
'
'Button15
'
Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button15.ForeColor = System.Drawing.Color.Red
Me.Button15.Location = New System.Drawing.Point(200, 120)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(48, 40)
Me.Button15.TabIndex = 15
Me.Button15.Text = "*"
'
'Button16
'
Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button16.ForeColor = System.Drawing.Color.Red
Me.Button16.Location = New System.Drawing.Point(200, 72)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(48, 40)
Me.Button16.TabIndex = 16
Me.Button16.Text = "/"
'
'Button17
'
Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button17.Location = New System.Drawing.Point(32, 216)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(48, 40)
Me.Button17.TabIndex = 17
Me.Button17.Text = "."
'
'Button18
'
Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button18.ForeColor = System.Drawing.Color.Red
Me.Button18.Location = New System.Drawing.Point(256, 120)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(80, 40)
Me.Button18.TabIndex = 18
Me.Button18.Text = "rac"
'
'Button19
'
Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button19.ForeColor = System.Drawing.Color.Red
Me.Button19.Location = New System.Drawing.Point(256, 168)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(80, 40)
Me.Button19.TabIndex = 19
Me.Button19.Text = "%"
'
'Button20
'
Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button20.ForeColor = System.Drawing.Color.Red
Me.Button20.Location = New System.Drawing.Point(256, 216)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(80, 40)
Me.Button20.TabIndex = 20
Me.Button20.Text = "1/x"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
Me.MenuItem1.Text = "&Fichier"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "&Nouveau"
'
'MenuItem9
'
Me.MenuItem9.Index = 1
Me.MenuItem9.Text = "-"
'
'MenuItem3
'
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "&Fermer"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
Me.MenuItem4.Text = "&Edition"
'
'MenuItem5
'
Me.MenuItem5.Index = 0
Me.MenuItem5.Text = "&Copier"
'
'MenuItem6
'
Me.MenuItem6.Index = 1
Me.MenuItem6.Text = "&Coller"
'
'MenuItem12
'
Me.MenuItem12.Index = 2
Me.MenuItem12.Text = "&Couper"
'
'MenuItem7
'
Me.MenuItem7.Index = 2
Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
Me.MenuItem7.Text = "?"
'
'MenuItem10
'
Me.MenuItem10.Index = 0
Me.MenuItem10.Text = "-"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "Apropos de le calculatrice "
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.Text = "-"
'
'Form1
'
Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(368, 281)
Me.Controls.Add(Me.Button20)
Me.Controls.Add(Me.Button19)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "CALCULATRICE"
Me.ResumeLayout(False)
End Sub
#End Region
Dim chaine As String
Dim resulta As Double
Dim a As Integer
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
chaine = chaine + "0"
TextBox1.Text = chaine
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
chaine = chaine + "1"
TextBox1.Text = chaine
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
chaine = chaine + "2"
TextBox1.Text = chaine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
chaine = chaine + "3"
TextBox1.Text = chaine
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
chaine = chaine + "4"
TextBox1.Text = chaine
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
chaine = chaine + "5"
TextBox1.Text = chaine
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
chaine = chaine + "6"
TextBox1.Text = chaine
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
chaine = chaine + "7"
TextBox1.Text = chaine
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
chaine = chaine + "8"
TextBox1.Text = chaine
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
chaine = chaine + "9"
TextBox1.Text = chaine
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
chaine = ""
TextBox1.Text = "0"
resulta = 0
Button17.Enabled = True
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
resulta = resulta + (Val(chaine))
a = 0
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If a = 0 Then
resulta = resulta + Val(chaine)
End If
If a = 1 Then
resulta = resulta / (Val(chaine))
End If
If a = 2 Then
resulta = resulta - (Val(chaine))
End If
If a = 3 Then
resulta = resulta * (Val(chaine))
End If
TextBox1.Text = resulta
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resulta = resulta - (Val(chaine))
a = 2
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
chaine = chaine + "."
TextBox1.Text = chaine
Button17.Enabled = False
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
resulta = resulta / (Val(chaine))
a = 1
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If resulta = 0 Then
resulta = Val(chaine)
chaine = ""
a = 3
Else
resulta = resulta * (Val(chaine))
a = 3
chaine = ""
End If
Button17.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
chaine = ""
resulta = 0
TextBox1.Text = "0"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
resulta = Math.Sqrt(Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
resulta = 1 / (Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
Button2.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
Button3.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
Button4.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
Button5.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
Button6.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
Button7.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
Button8.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
Button9.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
Button17.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
Button10.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
Button2.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
Button3.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
Button4.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
Button5.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
Button6.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
Button7.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
Button8.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
Button9.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
Button17.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
Button10.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
Button16.BackColor = BackColor.LightCoral
End Sub
Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
Button15.BackColor = BackColor.LightCoral
End Sub
Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
Button14.BackColor = BackColor.LightCoral
End Sub
Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
Button12.BackColor = BackColor.LightCoral
End Sub
Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
Button13.BackColor = BackColor.LightCoral
End Sub
Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
Button16.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
Button15.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
Button14.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
Button12.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
Button13.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
Button18.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
resulta = (Val(chaine)) / 100
End Sub
Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
Button19.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
Button20.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
Button18.BackColor = BackColor.LightCoral
End Sub
Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
Button19.BackColor = BackColor.LightCoral
End Sub
Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
Button20.BackColor = BackColor.LightCoral
End Sub
Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
Button11.BackColor = BackColor.LightGray
End Sub
Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
Button11.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim f1 As New Form2
f1.Show()
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
chaine = ""
resulta = 0
Button17.Enabled = True
TextBox1.Text = 0
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
End
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Me.TextBox1.Copy()
End Sub
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
TextBox1.Paste()
End Sub
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
TextBox1.Copy()
TextBox1.Text = ""
End Sub
End Class
developping
Messages postés
3
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
4 septembre 2008
4 sept. 2008 à 20:37
4 sept. 2008 à 20:37
bonjour
voila c le code
Public Class Form1
Inherits System.Windows.Forms.Form
#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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
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 Button10 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
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 Button16 As System.Windows.Forms.Button
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 Button20 As System.Windows.Forms.Button
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.Button19 = New System.Windows.Forms.Button
Me.Button20 = New System.Windows.Forms.Button
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.MenuItem12 = New System.Windows.Forms.MenuItem
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem11 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Blue
Me.Button1.Location = New System.Drawing.Point(32, 72)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(48, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.Blue
Me.Button2.Location = New System.Drawing.Point(88, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(48, 40)
Me.Button2.TabIndex = 1
Me.Button2.Text = "2"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.Blue
Me.Button3.Location = New System.Drawing.Point(144, 72)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(48, 40)
Me.Button3.TabIndex = 2
Me.Button3.Text = "3"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.Blue
Me.Button4.Location = New System.Drawing.Point(32, 120)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(48, 40)
Me.Button4.TabIndex = 3
Me.Button4.Text = "4"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.Color.Blue
Me.Button5.Location = New System.Drawing.Point(88, 120)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 40)
Me.Button5.TabIndex = 4
Me.Button5.Text = "5"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ForeColor = System.Drawing.Color.Blue
Me.Button6.Location = New System.Drawing.Point(144, 120)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(48, 40)
Me.Button6.TabIndex = 5
Me.Button6.Text = "6"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.ForeColor = System.Drawing.Color.Blue
Me.Button7.Location = New System.Drawing.Point(32, 168)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(48, 40)
Me.Button7.TabIndex = 6
Me.Button7.Text = "7"
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.ForeColor = System.Drawing.Color.Blue
Me.Button8.Location = New System.Drawing.Point(88, 168)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(48, 40)
Me.Button8.TabIndex = 7
Me.Button8.Text = "8"
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button9.ForeColor = System.Drawing.Color.Blue
Me.Button9.Location = New System.Drawing.Point(144, 168)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(48, 40)
Me.Button9.TabIndex = 8
Me.Button9.Text = "9"
'
'Button10
'
Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button10.Location = New System.Drawing.Point(88, 216)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(48, 40)
Me.Button10.TabIndex = 9
Me.Button10.Text = "0"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(24, 16)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(304, 40)
Me.TextBox1.TabIndex = 10
Me.TextBox1.Text = ""
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button11.ForeColor = System.Drawing.Color.Black
Me.Button11.Location = New System.Drawing.Point(256, 72)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(80, 40)
Me.Button11.TabIndex = 11
Me.Button11.Text = "CEE"
'
'Button12
'
Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.Red
Me.Button12.Location = New System.Drawing.Point(200, 216)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(48, 40)
Me.Button12.TabIndex = 12
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button13.ForeColor = System.Drawing.Color.Red
Me.Button13.Location = New System.Drawing.Point(144, 216)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(48, 40)
Me.Button13.TabIndex = 13
Me.Button13.Text = "="
'
'Button14
'
Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button14.ForeColor = System.Drawing.Color.Red
Me.Button14.Location = New System.Drawing.Point(200, 168)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(48, 40)
Me.Button14.TabIndex = 14
Me.Button14.Text = "-"
'
'Button15
'
Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button15.ForeColor = System.Drawing.Color.Red
Me.Button15.Location = New System.Drawing.Point(200, 120)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(48, 40)
Me.Button15.TabIndex = 15
Me.Button15.Text = "*"
'
'Button16
'
Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button16.ForeColor = System.Drawing.Color.Red
Me.Button16.Location = New System.Drawing.Point(200, 72)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(48, 40)
Me.Button16.TabIndex = 16
Me.Button16.Text = "/"
'
'Button17
'
Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button17.Location = New System.Drawing.Point(32, 216)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(48, 40)
Me.Button17.TabIndex = 17
Me.Button17.Text = "."
'
'Button18
'
Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button18.ForeColor = System.Drawing.Color.Red
Me.Button18.Location = New System.Drawing.Point(256, 120)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(80, 40)
Me.Button18.TabIndex = 18
Me.Button18.Text = "rac"
'
'Button19
'
Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button19.ForeColor = System.Drawing.Color.Red
Me.Button19.Location = New System.Drawing.Point(256, 168)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(80, 40)
Me.Button19.TabIndex = 19
Me.Button19.Text = "%"
'
'Button20
'
Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button20.ForeColor = System.Drawing.Color.Red
Me.Button20.Location = New System.Drawing.Point(256, 216)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(80, 40)
Me.Button20.TabIndex = 20
Me.Button20.Text = "1/x"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
Me.MenuItem1.Text = "&Fichier"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "&Nouveau"
'
'MenuItem9
'
Me.MenuItem9.Index = 1
Me.MenuItem9.Text = "-"
'
'MenuItem3
'
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "&Fermer"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
Me.MenuItem4.Text = "&Edition"
'
'MenuItem5
'
Me.MenuItem5.Index = 0
Me.MenuItem5.Text = "&Copier"
'
'MenuItem6
'
Me.MenuItem6.Index = 1
Me.MenuItem6.Text = "&Coller"
'
'MenuItem12
'
Me.MenuItem12.Index = 2
Me.MenuItem12.Text = "&Couper"
'
'MenuItem7
'
Me.MenuItem7.Index = 2
Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
Me.MenuItem7.Text = "?"
'
'MenuItem10
'
Me.MenuItem10.Index = 0
Me.MenuItem10.Text = "-"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "Apropos de le calculatrice "
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.Text = "-"
'
'Form1
'
Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(368, 281)
Me.Controls.Add(Me.Button20)
Me.Controls.Add(Me.Button19)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "CALCULATRICE"
Me.ResumeLayout(False)
End Sub
#End Region
Dim chaine As String
Dim resulta As Double
Dim a As Integer
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
chaine = chaine + "0"
TextBox1.Text = chaine
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
chaine = chaine + "1"
TextBox1.Text = chaine
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
chaine = chaine + "2"
TextBox1.Text = chaine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
chaine = chaine + "3"
TextBox1.Text = chaine
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
chaine = chaine + "4"
TextBox1.Text = chaine
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
chaine = chaine + "5"
TextBox1.Text = chaine
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
chaine = chaine + "6"
TextBox1.Text = chaine
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
chaine = chaine + "7"
TextBox1.Text = chaine
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
chaine = chaine + "8"
TextBox1.Text = chaine
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
chaine = chaine + "9"
TextBox1.Text = chaine
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
chaine = ""
TextBox1.Text = "0"
resulta = 0
Button17.Enabled = True
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
resulta = resulta + (Val(chaine))
a = 0
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If a = 0 Then
resulta = resulta + Val(chaine)
End If
If a = 1 Then
resulta = resulta / (Val(chaine))
End If
If a = 2 Then
resulta = resulta - (Val(chaine))
End If
If a = 3 Then
resulta = resulta * (Val(chaine))
End If
TextBox1.Text = resulta
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resulta = resulta - (Val(chaine))
a = 2
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
chaine = chaine + "."
TextBox1.Text = chaine
Button17.Enabled = False
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
resulta = resulta / (Val(chaine))
a = 1
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If resulta = 0 Then
resulta = Val(chaine)
chaine = ""
a = 3
Else
resulta = resulta * (Val(chaine))
a = 3
chaine = ""
End If
Button17.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
chaine = ""
resulta = 0
TextBox1.Text = "0"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
resulta = Math.Sqrt(Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
resulta = 1 / (Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
Button2.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
Button3.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
Button4.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
Button5.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
Button6.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
Button7.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
Button8.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
Button9.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
Button17.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
Button10.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
Button2.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
Button3.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
Button4.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
Button5.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
Button6.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
Button7.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
Button8.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
Button9.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
Button17.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
Button10.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
Button16.BackColor = BackColor.LightCoral
End Sub
Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
Button15.BackColor = BackColor.LightCoral
End Sub
Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
Button14.BackColor = BackColor.LightCoral
End Sub
Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
Button12.BackColor = BackColor.LightCoral
End Sub
Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
Button13.BackColor = BackColor.LightCoral
End Sub
Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
Button16.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
Button15.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
Button14.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
Button12.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
Button13.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
Button18.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
resulta = (Val(chaine)) / 100
End Sub
Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
Button19.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
Button20.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
Button18.BackColor = BackColor.LightCoral
End Sub
Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
Button19.BackColor = BackColor.LightCoral
End Sub
Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
Button20.BackColor = BackColor.LightCoral
End Sub
Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
Button11.BackColor = BackColor.LightGray
End Sub
Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
Button11.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim f1 As New Form2
f1.Show()
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
chaine = ""
resulta = 0
Button17.Enabled = True
TextBox1.Text = 0
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
End
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Me.TextBox1.Copy()
End Sub
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
TextBox1.Paste()
End Sub
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
TextBox1.Copy()
TextBox1.Text = ""
End Sub
End Class
voila c le code
Public Class Form1
Inherits System.Windows.Forms.Form
#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 Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
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 Button10 As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
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 Button16 As System.Windows.Forms.Button
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 Button20 As System.Windows.Forms.Button
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Button17 = New System.Windows.Forms.Button
Me.Button18 = New System.Windows.Forms.Button
Me.Button19 = New System.Windows.Forms.Button
Me.Button20 = New System.Windows.Forms.Button
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem9 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem6 = New System.Windows.Forms.MenuItem
Me.MenuItem12 = New System.Windows.Forms.MenuItem
Me.MenuItem7 = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.MenuItem8 = New System.Windows.Forms.MenuItem
Me.MenuItem11 = New System.Windows.Forms.MenuItem
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Blue
Me.Button1.Location = New System.Drawing.Point(32, 72)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(48, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "1"
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.Blue
Me.Button2.Location = New System.Drawing.Point(88, 72)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(48, 40)
Me.Button2.TabIndex = 1
Me.Button2.Text = "2"
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor = System.Drawing.Color.Blue
Me.Button3.Location = New System.Drawing.Point(144, 72)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(48, 40)
Me.Button3.TabIndex = 2
Me.Button3.Text = "3"
'
'Button4
'
Me.Button4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.Blue
Me.Button4.Location = New System.Drawing.Point(32, 120)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(48, 40)
Me.Button4.TabIndex = 3
Me.Button4.Text = "4"
'
'Button5
'
Me.Button5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button5.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button5.ForeColor = System.Drawing.Color.Blue
Me.Button5.Location = New System.Drawing.Point(88, 120)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(48, 40)
Me.Button5.TabIndex = 4
Me.Button5.Text = "5"
'
'Button6
'
Me.Button6.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button6.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button6.ForeColor = System.Drawing.Color.Blue
Me.Button6.Location = New System.Drawing.Point(144, 120)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(48, 40)
Me.Button6.TabIndex = 5
Me.Button6.Text = "6"
'
'Button7
'
Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button7.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.ForeColor = System.Drawing.Color.Blue
Me.Button7.Location = New System.Drawing.Point(32, 168)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(48, 40)
Me.Button7.TabIndex = 6
Me.Button7.Text = "7"
'
'Button8
'
Me.Button8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button8.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.ForeColor = System.Drawing.Color.Blue
Me.Button8.Location = New System.Drawing.Point(88, 168)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(48, 40)
Me.Button8.TabIndex = 7
Me.Button8.Text = "8"
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button9.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button9.ForeColor = System.Drawing.Color.Blue
Me.Button9.Location = New System.Drawing.Point(144, 168)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(48, 40)
Me.Button9.TabIndex = 8
Me.Button9.Text = "9"
'
'Button10
'
Me.Button10.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button10.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button10.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button10.Location = New System.Drawing.Point(88, 216)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(48, 40)
Me.Button10.TabIndex = 9
Me.Button10.Text = "0"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(24, 16)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(304, 40)
Me.TextBox1.TabIndex = 10
Me.TextBox1.Text = ""
'
'Button11
'
Me.Button11.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button11.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button11.ForeColor = System.Drawing.Color.Black
Me.Button11.Location = New System.Drawing.Point(256, 72)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(80, 40)
Me.Button11.TabIndex = 11
Me.Button11.Text = "CEE"
'
'Button12
'
Me.Button12.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button12.ForeColor = System.Drawing.Color.Red
Me.Button12.Location = New System.Drawing.Point(200, 216)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(48, 40)
Me.Button12.TabIndex = 12
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button13.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button13.ForeColor = System.Drawing.Color.Red
Me.Button13.Location = New System.Drawing.Point(144, 216)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(48, 40)
Me.Button13.TabIndex = 13
Me.Button13.Text = "="
'
'Button14
'
Me.Button14.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button14.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button14.ForeColor = System.Drawing.Color.Red
Me.Button14.Location = New System.Drawing.Point(200, 168)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(48, 40)
Me.Button14.TabIndex = 14
Me.Button14.Text = "-"
'
'Button15
'
Me.Button15.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button15.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button15.ForeColor = System.Drawing.Color.Red
Me.Button15.Location = New System.Drawing.Point(200, 120)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(48, 40)
Me.Button15.TabIndex = 15
Me.Button15.Text = "*"
'
'Button16
'
Me.Button16.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button16.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button16.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button16.ForeColor = System.Drawing.Color.Red
Me.Button16.Location = New System.Drawing.Point(200, 72)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(48, 40)
Me.Button16.TabIndex = 16
Me.Button16.Text = "/"
'
'Button17
'
Me.Button17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button17.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button17.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button17.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button17.Location = New System.Drawing.Point(32, 216)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(48, 40)
Me.Button17.TabIndex = 17
Me.Button17.Text = "."
'
'Button18
'
Me.Button18.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button18.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button18.ForeColor = System.Drawing.Color.Red
Me.Button18.Location = New System.Drawing.Point(256, 120)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(80, 40)
Me.Button18.TabIndex = 18
Me.Button18.Text = "rac"
'
'Button19
'
Me.Button19.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button19.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button19.ForeColor = System.Drawing.Color.Red
Me.Button19.Location = New System.Drawing.Point(256, 168)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(80, 40)
Me.Button19.TabIndex = 19
Me.Button19.Text = "%"
'
'Button20
'
Me.Button20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Button20.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button20.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button20.ForeColor = System.Drawing.Color.Red
Me.Button20.Location = New System.Drawing.Point(256, 216)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(80, 40)
Me.Button20.TabIndex = 20
Me.Button20.Text = "1/x"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem7})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem9, Me.MenuItem3})
Me.MenuItem1.Text = "&Fichier"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "&Nouveau"
'
'MenuItem9
'
Me.MenuItem9.Index = 1
Me.MenuItem9.Text = "-"
'
'MenuItem3
'
Me.MenuItem3.Index = 2
Me.MenuItem3.Text = "&Fermer"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5, Me.MenuItem6, Me.MenuItem12})
Me.MenuItem4.Text = "&Edition"
'
'MenuItem5
'
Me.MenuItem5.Index = 0
Me.MenuItem5.Text = "&Copier"
'
'MenuItem6
'
Me.MenuItem6.Index = 1
Me.MenuItem6.Text = "&Coller"
'
'MenuItem12
'
Me.MenuItem12.Index = 2
Me.MenuItem12.Text = "&Couper"
'
'MenuItem7
'
Me.MenuItem7.Index = 2
Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem10, Me.MenuItem8, Me.MenuItem11})
Me.MenuItem7.Text = "?"
'
'MenuItem10
'
Me.MenuItem10.Index = 0
Me.MenuItem10.Text = "-"
'
'MenuItem8
'
Me.MenuItem8.Index = 1
Me.MenuItem8.Text = "Apropos de le calculatrice "
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.Text = "-"
'
'Form1
'
Me.AccessibleRole = System.Windows.Forms.AccessibleRole.Caret
Me.AutoScaleBaseSize = New System.Drawing.Size(12, 28)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
Me.ClientSize = New System.Drawing.Size(368, 281)
Me.Controls.Add(Me.Button20)
Me.Controls.Add(Me.Button19)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.Text = "CALCULATRICE"
Me.ResumeLayout(False)
End Sub
#End Region
Dim chaine As String
Dim resulta As Double
Dim a As Integer
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
chaine = chaine + "0"
TextBox1.Text = chaine
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
chaine = chaine + "1"
TextBox1.Text = chaine
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
chaine = chaine + "2"
TextBox1.Text = chaine
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
chaine = chaine + "3"
TextBox1.Text = chaine
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
chaine = chaine + "4"
TextBox1.Text = chaine
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
chaine = chaine + "5"
TextBox1.Text = chaine
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
chaine = chaine + "6"
TextBox1.Text = chaine
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
chaine = chaine + "7"
TextBox1.Text = chaine
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
chaine = chaine + "8"
TextBox1.Text = chaine
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
chaine = chaine + "9"
TextBox1.Text = chaine
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
chaine = ""
TextBox1.Text = "0"
resulta = 0
Button17.Enabled = True
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
resulta = resulta + (Val(chaine))
a = 0
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If a = 0 Then
resulta = resulta + Val(chaine)
End If
If a = 1 Then
resulta = resulta / (Val(chaine))
End If
If a = 2 Then
resulta = resulta - (Val(chaine))
End If
If a = 3 Then
resulta = resulta * (Val(chaine))
End If
TextBox1.Text = resulta
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resulta = resulta - (Val(chaine))
a = 2
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
chaine = chaine + "."
TextBox1.Text = chaine
Button17.Enabled = False
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
resulta = resulta / (Val(chaine))
a = 1
chaine = ""
Button17.Enabled = True
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If resulta = 0 Then
resulta = Val(chaine)
chaine = ""
a = 3
Else
resulta = resulta * (Val(chaine))
a = 3
chaine = ""
End If
Button17.Enabled = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
chaine = ""
resulta = 0
TextBox1.Text = "0"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
resulta = Math.Sqrt(Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
resulta = 1 / (Val(chaine))
TextBox1.Text = resulta
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
Button2.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
Button3.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
Button4.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
Button5.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
Button6.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button7_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button7.MouseMove
Button7.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button8.MouseMove
Button8.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button9_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button9.MouseMove
Button9.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button17_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button17.MouseMove
Button17.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button10_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseMove
Button10.BackColor = BackColor.LightSteelBlue
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
Button2.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
Button3.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
Button4.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
Button5.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button6_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.MouseLeave
Button6.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button7_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.MouseLeave
Button7.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button8_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.MouseLeave
Button8.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button9_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.MouseLeave
Button9.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button17_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button17.MouseLeave
Button17.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button10_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.MouseLeave
Button10.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button16_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button16.MouseMove
Button16.BackColor = BackColor.LightCoral
End Sub
Private Sub Button15_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button15.MouseMove
Button15.BackColor = BackColor.LightCoral
End Sub
Private Sub Button14_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button14.MouseMove
Button14.BackColor = BackColor.LightCoral
End Sub
Private Sub Button12_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button12.MouseMove
Button12.BackColor = BackColor.LightCoral
End Sub
Private Sub Button13_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button13.MouseMove
Button13.BackColor = BackColor.LightCoral
End Sub
Private Sub Button16_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button16.MouseLeave
Button16.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button15_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button15.MouseLeave
Button15.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button14_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.MouseLeave
Button14.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button12_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button12.MouseLeave
Button12.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button13_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button13.MouseLeave
Button13.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button18.MouseLeave
Button18.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
resulta = (Val(chaine)) / 100
End Sub
Private Sub Button19_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button19.MouseLeave
Button19.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button20_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button20.MouseLeave
Button20.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub Button18_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button18.MouseMove
Button18.BackColor = BackColor.LightCoral
End Sub
Private Sub Button19_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button19.MouseMove
Button19.BackColor = BackColor.LightCoral
End Sub
Private Sub Button20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button20.MouseMove
Button20.BackColor = BackColor.LightCoral
End Sub
Private Sub Button11_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button11.MouseMove
Button11.BackColor = BackColor.LightGray
End Sub
Private Sub Button11_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button11.MouseLeave
Button11.BackColor = BackColor.WhiteSmoke
End Sub
Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim f1 As New Form2
f1.Show()
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
chaine = ""
resulta = 0
Button17.Enabled = True
TextBox1.Text = 0
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
End
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Me.TextBox1.Copy()
End Sub
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
TextBox1.Paste()
End Sub
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
TextBox1.Copy()
TextBox1.Text = ""
End Sub
End Class
