|
|
Bonsoir !
Cette Leçon est pour crée une petite calculatrice a l'aide du language de programmation visual basic version 6:
1- On Ouvre le programme
2- On Clique Sur ' Nouveau Projet '
3- Puis On entre le code suource suivant ( Copier - Coller )
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
Merci Pour Avoir Lu Mon Sujet, A une prochaine rencontre !
|
1
