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 )
Merci Pour Avoir Lu Mon Sujet, A une prochaine rencontre !
Edit par Tintin10 : rajout des balises de code
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 )
Code :(Double-cliquez pour supprimer les numéros de ligne)
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 !
Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 12/02/2016 à 20:43:52