Leçon Pour Créer Une Calculatrice Sur Visual Basic 6 !

Dim chaine As String 'Variable qui permet de prendre le nombre saisi sous forme de chaine de caractére 
Dim nb1 As Double 'Variable qui sert à faire les opérations 
Dim a As Integer 'Variable pour connaitre l'operateur 
'a=0 pour l'addition 
'a=1 pour la division 
'a=2 pour la multiplication 
'a=4 pour la soustraction 
 
Private Sub cmd0_Click() 
 chaine = chaine + "0" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd1_Click() 
 chaine = chaine + "1" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd2_Click() 
 chaine = chaine + "2" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd3_Click() 
 chaine = chaine + "3" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd4_Click() 
 chaine = chaine + "4" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd5_Click() 
 chaine = chaine + "5" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd6_Click() 
 chaine = chaine + "6" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd7_Click() 
 chaine = chaine + "7" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd8_Click() 
 chaine = chaine + "8" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmd9_Click() 
 chaine = chaine + "9" 
 Text1.Text = chaine 
End Sub 
 
Private Sub cmdadd_Click() 
 nb1 = nb1 + Val(chaine) 
 Text1.Text = nb1 
 a = 0 
 chaine = "" 
 cmdvirgule.Enabled = True 
End Sub 
 
Private Sub cmdcee_Click() 
 chaine = "" 
 cmdvirgule.Enabled = True 
 Text1.Text = "0" 
End Sub 
 
Private Sub cmddiv_Click() 
 If nb1 = 0 Then 
 nb1 = Val(chaine) 'val convertit une chaine de caractéres en nombre 
 Else 
 nb1 = nb1 / Val(chaine) 
 End If 
 Text1.Text = nb1 
 a = 1 
 chaine = "" 
 cmdvirgule.Enabled = True 
End Sub 
 
Private Sub cmdegale_Click() 
 If a = 0 Then 
 nb1 = nb1 + Val(chaine) 
 End If 
 If a = 1 Then 
 nb1 = nb1 / Val(chaine) 
 End If 
 If a = 2 Then 
 nb1 = nb1 * Val(chaine) 
 End If 
 If a = 3 Then 
 nb1 = nb1 - Val(chaine) 
 End If 
 Text1.Text = nb1 
 nb1 = 0 
 chaine = "" 
 cmdvirgule.Enabled = True 
End Sub 
 
Private Sub cmdfois_Click() 
 If nb1 = 0 Then 
 nb1 = Val(chaine) 
 Else 
 nb1 = nb1 * Val(chaine) 
 End If 
 Text1.Text = nb1 
 a = 2 
 chaine = "" 
 cmdvirgule.Enabled = True 
End Sub 
 
Private Sub cmdoff_Click() 
 End 
End Sub 
 
Private Sub cmdsoust_Click() 
 a = 3 
 If nb1 = 0 Then 
 nb1 = Val(chaine) 
 Else 
 nb1 = nb1 - Val(chaine) 
 End If 
 Text1.Text = nb1 
 chaine = "" 
 cmdvirgule.Enabled = True 
End Sub 
 
Private Sub cmdsqr_Click() 
 nb1 = Sqr(Val(chaine)) 
 Text1.Text = nb1 
End Sub 
 
Private Sub cmdvirgule_Click() 
 chaine = chaine + "." 
 Text1.Text = chaine 
 cmdvirgule.Enabled = False 
End Sub 
 
Private Sub Form_Load() 
 chaine = "" 
 nb1 = 0 
 nb2 = 0 
 Text1.Text = "0" 
End Sub