Une calculatrice francs/euros

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 646 fois - Téléchargée 35 fois

Contenu du snippet

Votre premier programme
Une calculette de conversion Francs/Euros

Comme je vous l'ai déjà enseigné, si vous cliquez sur un bouton de commande, il ne se produit rien car il faut saisir le code qui correspond à l' événement que vous souhaitez provoquer.

Que souhaitons nous faire ?
Quand l' utilisateur cliquera sur le bouton, le programme lira le contenu des zones de texte, multipliera ces deux valeurs entre- elles, puis affichera le résultat.
Comment le formuler avec Visual Basic ?
Le langage Visual Basic se compose de mots clés et de caractères qui permettent de créer des instructions obéissant à une certaine logique.
Le code doit être relié à l' un des boutons de commande, puisqu' une action doit survenir lorsque
l' utilisateur clique sur ce bouton?
Ouvrons la fenêtre de code!
Pour ce faire, effectuez un double click sur l'objet que vous voulez travailler, ou vous pouvez avoir recours à un raccourci clavier par l' intermédiaire de la touche F7 de votre clavier.

Nous trouvons dans la fenêtre de code deux champs de saisie, le premier à gauche représente le nom du contrôle à traiter, et le second à droite, le nom des événement qu'il est possible d' engendrer. Pour l' instant nous garderons l' instruction "Click" qui aura pour effet de lire le code contenu dans la feuille lorsque l' utilisateur effectuera un simple click sur le bouton "BoutonFFenEuro"avec la souris. Si nous avions voulu que l' utilisateur effectue un double click, nous aurions inséré le code dans la fenêtre "DblClick"(Listez les événements, pour étudier le contenu)

Ecriture du code du bouton BoutonFFenEuro
Private Sub BoutonFFenEuro_Click()
'Option Explicit
Dim MontantEuro As Double 'Déclarations des variables(Dim)
Dim MontantFF As Double
Dim Cours As Double
'
MontantFF = SaisieFF.Text
Cours = SaisieCours.Text
MontantEuro = MontantFF / Cours 'Valeur de "MontantFF" divisé(/) par valeur de "Cours"
SaisieEuro.Text = MontantEuro
End Sub

Ecriture du code du bouton BoutonEuroenFF
Private Sub BoutonEuroenFF_Click()
'Option Explicit
Dim MontantEuro As Double 'Déclarations des variables(Dim)
Dim MontantFF As Double
Dim Cours As Double
'
MontantEuro = SaisieEuro.Text
Cours = SaisieCours.Text
MontantFF = MontantEuro * Cours 'Valeur de "MontantEuro" multiplié(*) par valeur de "Cours"
SaisieFF.Text = MontantFF
End Sub
'
Ecriture du code du bouton Reset
Private Sub Command1_Click()
'Effacement des champs de saisie
SaisieFF.Text = "" 'par opposition à "donnée quelconque" "" signifie rien, nul
SaisieEuro.Text = ""
End Sub

Ecriture du code du bouton Quitter
Private Sub Command2_Click()
'Sortie du programme
End 'End ferme toutes les fenêtres en cour et clôture le programme
End Sub

Amélioration du bouton "Quitter" avec adjonction d' une fenêtre d' intérogation
Nous savons que la procédure de messagerie est MsgBox
Que nous propose VB ?
Nous saisissons dans la feuille le mot "MsgBox", nous le sélectionnons(mettre en surbrillance), et appuyons sur la touche F1 du clavier.
Vb ouvre une fenêtre dans laquelle sont expliqués toutes les fonctions et possibilités de codage de la fonction MsgBox.
Nous appuyons sur Exemple et faisons un copier coller de celui-ci!
Voici l' exemple copié sur l' aide de Visual Basic
'= = = = = = = = = = = = = = = = = = = = = = =
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous continuer?" 'Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "Démonstration de MsgBox " 'Définit le titre.
Help = "DEMO.HLP" 'Définit le fichier d'aide.
Ctxt = 1000 'Définit le contexte de la rubrique.
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then 'L'utilisateur a choisi Oui.
MyString = "Oui" 'Effectue une action.
Else ' L'utilisateur a choisi Non.
MyString = "Non" 'Effectue une action.
End If
'= = = = = = = = = = = = = = = = = = = = = = =
'Nous saisissons d' après cet exemple :
Private Sub Command2_Click()
Dim Msg, Style, Title, Reponse, MyString
Msg = "Souhaitez-vous vraiment quitter le programme?"
Style = 4 + 32 + vbDefaultButton1 'VbDefaultButton donne le Focus au bouton indiqué(1 dans ce cas)
Title = "Quitter le programme "
J'ai remplacé les mots clés de VB(vbYesNo) par les chiffres clés correspondants (voir leçons précédentes)
' Affiche le message.
Reponse = MsgBox(Msg, Style, Title)
If Reponse = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
'Quitter le programme
End
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
'Nous continuons le programme
Exit Sub 'Sans exit Sub nous serions quand même sorti du Traitement Conditionnel
End Sub

Vous avez vu que j' ai mis une apostrophe devant "Option Explicit"
En effet ce mot indique au programme que vous devez déclarer toutes les variables, si vous avez oublié de déclarer une variable en cours d' écriture du code, VB générera une erreur.
Le fait de mettre cette apostrophe vous évite les arrêts intempestifs du programme.
Vous êtes toujours à temps de déboguer votre programme et de rétablir l' instruction précitée.
Vous pouvez télécharger le programme CalcEuro sur le site, les sources et le produit compacté!
A suivre...

Source / Exemple :


Ecriture du code du bouton BoutonFFenEuro
Private Sub BoutonFFenEuro_Click()
'Option Explicit
Dim MontantEuro As Double                 'Déclarations des variables(Dim)
Dim MontantFF As Double
Dim Cours As Double
'
MontantFF = SaisieFF.Text
Cours = SaisieCours.Text
MontantEuro = MontantFF / Cours        'Valeur de "MontantFF" divisé(/) par valeur de "Cours"
SaisieEuro.Text = MontantEuro
End Sub

Ecriture du code du bouton BoutonEuroenFF
Private Sub BoutonEuroenFF_Click()
'Option Explicit
Dim MontantEuro As Double                     'Déclarations des variables(Dim)
Dim MontantFF As Double
Dim Cours As Double
'
MontantEuro = SaisieEuro.Text
Cours = SaisieCours.Text
MontantFF = MontantEuro * Cours           'Valeur de "MontantEuro" multiplié(*) par valeur de "Cours"
SaisieFF.Text = MontantFF
End Sub
'
Ecriture du code du bouton Reset
Private Sub Command1_Click()
'Effacement des champs de saisie
SaisieFF.Text = ""                                     'par opposition à "donnée quelconque" "" signifie rien, nul
SaisieEuro.Text = ""
End Sub

Ecriture du code du bouton Quitter
Private Sub Command2_Click()
'Sortie du programme
End                                                           'End ferme toutes les fenêtres en cour et clôture le programme
End Sub

Amélioration du bouton "Quitter" avec adjonction d' une fenêtre d' intérogation
Nous savons que la procédure de messagerie est MsgBox
Que nous propose VB ?
Nous saisissons dans la feuille le mot "MsgBox", nous le sélectionnons(mettre en surbrillance), et appuyons sur la touche F1 du clavier.
Vb ouvre une fenêtre dans laquelle sont expliqués toutes les fonctions et possibilités de codage de la fonction MsgBox.
Nous appuyons sur Exemple et faisons un copier coller de celui-ci!
Voici l' exemple copié sur l' aide de Visual Basic
'= = = = = = = = = = = = = = = = = = = = = = =
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous continuer?"   'Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Définit les boutons.
Title = "Démonstration de MsgBox "   'Définit le titre.
Help = "DEMO.HLP"   'Définit le fichier d'aide.
Ctxt = 1000   'Définit le contexte de la rubrique.
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then   'L'utilisateur a choisi Oui.
   MyString = "Oui"   'Effectue une action.
Else   ' L'utilisateur a choisi Non.
   MyString = "Non"   'Effectue une action.
End If
'= = = = = = = = = = = = = = = = = = = = = = =
'Nous saisissons d' après cet exemple :
Private Sub Command2_Click()
Dim Msg, Style, Title, Reponse, MyString
Msg = "Souhaitez-vous vraiment quitter le programme?"
Style = 4 + 32 + vbDefaultButton1 'VbDefaultButton donne le Focus au bouton indiqué(1 dans ce cas)
Title = "Quitter le programme "
J'ai remplacé les mots clés de VB(vbYesNo) par les chiffres clés correspondants (voir leçons précédentes)
' Affiche le message.
Reponse = MsgBox(Msg, Style, Title)
If Reponse = vbYes Then ' L'utilisateur a choisi Oui.
     MyString = "Oui"         ' Effectue une action.
     'Quitter le programme
     End
Else ' L'utilisateur a choisi Non.
     MyString = "Non"       ' Effectue une action.
     'Nous continuons le programme
     Exit Sub                           'Sans exit Sub nous serions quand même sorti du Traitement Conditionnel
End Sub

Conclusion :


Ce code a été développeé par Gilmir le programme complet se trouve sur www.visualbasic6.org

A voir également

Ajouter un commentaire

Commentaires

Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
Y'EN A MARRE DES CALCULATRICE

S'IL VOUS PLAIT ARRETEZ CE CODAGE... FAITES DES CHOSES PLUS INTERRESSANTES...

EN PLUS PERSONNE NE SE SERT DE CALCULATRICE SUR SON PC... TOUS LE MONDE PREFFERE PRENDE LA CALCULATRICE DE BUREAU...
YA AU MOIS 3000 sources du même style ici... (si c'est pas plus) ... tout débutant en vb sait faire des calculatrice... alors STOP STOPO STOP
cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008

Salut,

Pour que ce soit plus clair pour les gens, je pense que tu devrais ajouter un fichier ZIP

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.