Convertisseur de monnaie

Télécharger le projet
Commenter

Description

Oui je sais encore un, mais voila c'est mon premier code et je pense que tout le monde à le droit de débuter.
Il a une particularité, c'est qu'il utilise un serviceweb (non tenu à jour, car créé par mes soins) qui lui permet de charger des valeurs.

Source / Exemple : 


Public Class Form1

    'Permet de rendre lisible ces variables de partout
    Dim Eurtozloty As Decimal = 4
    Dim Eurtodol As Decimal = 1.51
    Dim Doltozloty As Decimal = 3.25
    Dim Eurtogbr As Decimal = 0.87
    Dim Eurtoyen As Decimal = 120
    Dim Zlotytogbr As Decimal = 4.25
    Dim Yentodol As Decimal = 100
    Dim Doltogbr As Decimal = 2.8
    Dim ZlotytoYen As Decimal = 60
    Dim Gbrtoyen As Decimal = 180

    Public Sub New()

        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        ' Ajout des valeurs dans les combobox 1 et 2
        Me.ComboBox1.Items.Add("Eur")
        Me.ComboBox2.Items.Add("Eur")
        Me.ComboBox1.Items.Add("zloty")
        Me.ComboBox2.Items.Add("zloty")
        Me.ComboBox1.Items.Add("Dollar")
        Me.ComboBox2.Items.Add("Dollar")
        Me.ComboBox1.Items.Add("Yen")
        Me.ComboBox2.Items.Add("Yen")
        Me.ComboBox1.Items.Add("Gbr")
        Me.ComboBox2.Items.Add("Gbr")

        'Affiche la valeur de la case O par défaut, ici Eur dans les 2 cas
        Me.ComboBox1.SelectedIndex = 0
        Me.ComboBox2.SelectedIndex = 0

        'Permet de récuperer les valeurs choisi dans les comboBox1 et 2
        Dim Index1 As Integer = ComboBox1.SelectedIndex()
        Dim Index2 As Integer = ComboBox2.SelectedIndex()

    End Sub

    '************************************************************************************************************
    '                               Action à effectuer lors d'un click sur le Bp convertir
    '************************************************************************************************************

    Public Sub Convertion(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bconv.Click

        Me.Bconv.Enabled = False
        Me.Label5.Visible = True            'Rend invisible le texte "convertion en cour" !!
        Application.DoEvents()

        '************************************************************************************************************
        '                                       Parti conversion & protection
        '************************************************************************************************************

        'Code permettant de vérifier que l'utilisateur à rentrer une valeur numérique
        If Not IsNumeric(Me.TextBox1.Text) Then
            MsgBox("veuillez rentrer une valeur à convertir")  'Message d'erreur au cas ou l'utilisateur n'a pas rentré de valeur
            Me.TextBox1.Focus()
            Me.Bconv.Enabled = True         'Désactive le bouton de conversion !!
            Me.Label5.Visible = False       'Rend visible le texte "conversion en cour" !!
            Exit Sub
        End If

        'Code de permenttant de vérifie si les choix sont identique
        If ComboBox1.SelectedIndex = ComboBox2.SelectedIndex Then
            MsgBox("valeurs de conversion identiques")
            Me.TextBox1.Focus()
            Me.Bconv.Enabled = True
            Me.Label5.Visible = False
            Exit Sub
        End If

        'Code de permenttant de convertir les euros en zloty
        If ComboBox1.SelectedIndex = 0 Then
            If ComboBox2.SelectedIndex = 1 Then
                Me.Label6.Text = Me.TextBox1.Text * Eurtozloty
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les zloty en euros
        If ComboBox1.SelectedIndex = 1 Then
            If ComboBox2.SelectedIndex = 0 Then
                Me.Label6.Text = Me.TextBox1.Text / Eurtodol
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les euros en dollar
        If ComboBox1.SelectedIndex = 0 Then
            If ComboBox2.SelectedIndex = 2 Then
                Me.Label6.Text = Me.TextBox1.Text * Eurtodol
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Dollars en Euros
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 0 Then
                Me.Label6.Text = Me.TextBox1.Text / Eurtodol
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les dollars en zloty
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 1 Then
                Me.Label6.Text = Me.TextBox1.Text * Doltozloty
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les zloty en dollars
        If ComboBox1.SelectedIndex = 1 Then
            If ComboBox2.SelectedIndex = 2 Then
                Me.Label6.Text = Me.TextBox1.Text / Doltozloty
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Euros en Yen
        If ComboBox1.SelectedIndex = 0 Then
            If ComboBox2.SelectedIndex = 3 Then
                Me.Label6.Text = Me.TextBox1.Text * Eurtoyen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Euros en Gbr
        If ComboBox1.SelectedIndex = 0 Then
            If ComboBox2.SelectedIndex = 4 Then
                Me.Label6.Text = Me.TextBox1.Text * Eurtogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Dollar en Yen
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 3 Then
                Me.Label6.Text = Me.TextBox1.Text * Yentodol
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les dollar en Gbr
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 4 Then
                Me.Label6.Text = Me.TextBox1.Text * Doltogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Zloty en Yen
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 3 Then
                Me.Label6.Text = Me.TextBox1.Text * ZlotytoYen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Zloty en gbr
        If ComboBox1.SelectedIndex = 2 Then
            If ComboBox2.SelectedIndex = 3 Then
                Me.Label6.Text = Me.TextBox1.Text * Zlotytogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Yen en Euros
        If ComboBox1.SelectedIndex = 3 Then
            If ComboBox2.SelectedIndex = 0 Then
                Me.Label6.Text = Me.TextBox1.Text / Eurtoyen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Yen en Dollar
        If ComboBox1.SelectedIndex = 3 Then
            If ComboBox2.SelectedIndex = 2 Then
                Me.Label6.Text = Me.TextBox1.Text / Yentodol
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Yen en Zloty
        If ComboBox1.SelectedIndex = 3 Then
            If ComboBox2.SelectedIndex = 1 Then
                Me.Label6.Text = Me.TextBox1.Text / ZlotytoYen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Yen en Gbr
        If ComboBox1.SelectedIndex = 3 Then
            If ComboBox2.SelectedIndex = 4 Then
                Me.Label6.Text = Me.TextBox1.Text / Gbrtoyen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Gbr en Dollar
        If ComboBox1.SelectedIndex = 4 Then
            If ComboBox2.SelectedIndex = 2 Then
                Me.Label6.Text = Me.TextBox1.Text / Doltogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Gbr en Euros
        If ComboBox1.SelectedIndex = 4 Then
            If ComboBox2.SelectedIndex = 0 Then
                Me.Label6.Text = Me.TextBox1.Text / Eurtogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les Gbr en Zloty
        If ComboBox1.SelectedIndex = 4 Then
            If ComboBox2.SelectedIndex = 1 Then
                Me.Label6.Text = Me.TextBox1.Text / Zlotytogbr
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        'Code de permenttant de convertir les gbr en Yen
        If ComboBox1.SelectedIndex = 4 Then
            If ComboBox2.SelectedIndex = 3 Then
                Me.Label6.Text = Me.TextBox1.Text * Gbrtoyen
                Me.TextBox1.Focus()
                Me.Bconv.Enabled = True
                Me.Label5.Visible = False
                Exit Sub
            End If
        End If

        Me.Bconv.Enabled = True
        Me.Label5.Visible = False
    End Sub

    '************************************************************************************************************
    '                                       Gestion des drapeaux de la comboBox 1
    '************************************************************************************************************

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then
            Me.PictureBox1.Visible = True
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
            Me.PictureBox7.Visible = False
            Me.PictureBox8.Visible = False
        End If
        If ComboBox1.SelectedIndex = 1 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = True
            Me.PictureBox7.Visible = False
            Me.PictureBox8.Visible = False
        End If
        If ComboBox1.SelectedIndex = 2 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = True
            Me.PictureBox3.Visible = False
            Me.PictureBox7.Visible = False
            Me.PictureBox8.Visible = False
        End If
        If ComboBox1.SelectedIndex = 3 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
            Me.PictureBox7.Visible = True
            Me.PictureBox8.Visible = False
        End If
        If ComboBox1.SelectedIndex = 4 Then
            Me.PictureBox1.Visible = False
            Me.PictureBox2.Visible = False
            Me.PictureBox3.Visible = False
            Me.PictureBox7.Visible = False
            Me.PictureBox8.Visible = True
        End If

    End Sub

    '************************************************************************************************************
    '                                       Gestion des drapeaux de la comboBox 2
    '************************************************************************************************************

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.SelectedIndex = 0 Then
            Me.PictureBox4.Visible = True
            Me.PictureBox5.Visible = False
            Me.PictureBox6.Visible = False
            Me.PictureBox9.Visible = False
            Me.PictureBox10.Visible = False
        End If
        If ComboBox2.SelectedIndex = 1 Then
            Me.PictureBox4.Visible = False
            Me.PictureBox5.Visible = True
            Me.PictureBox6.Visible = False
            Me.PictureBox9.Visible = False
            Me.PictureBox10.Visible = False
        End If
        If ComboBox2.SelectedIndex = 2 Then
            Me.PictureBox4.Visible = False
            Me.PictureBox5.Visible = False
            Me.PictureBox6.Visible = True
            Me.PictureBox9.Visible = False
            Me.PictureBox10.Visible = False
        End If
        If ComboBox2.SelectedIndex = 3 Then
            Me.PictureBox4.Visible = False
            Me.PictureBox5.Visible = False
            Me.PictureBox6.Visible = False
            Me.PictureBox9.Visible = True
            Me.PictureBox10.Visible = False
        End If
        If ComboBox2.SelectedIndex = 4 Then
            Me.PictureBox4.Visible = False
            Me.PictureBox5.Visible = False
            Me.PictureBox6.Visible = False
            Me.PictureBox9.Visible = False
            Me.PictureBox10.Visible = True
        End If

    End Sub

    '************************************************************************************************************
    '                                       Gestion du menu de bas de page
    '************************************************************************************************************

    'Ouverture d'une fenetre pour afficher la légende   Info==>Legende
    Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim Legende As String = ""
        Legende &= "Euro = Eur" & vbCrLf '& vbCrLf==> retour a la ligne
        Legende &= "Dollar = Dol" & vbCrLf
        Legende &= "Zloty = Zlot" & vbCrLf
        Legende &= "Livre Sterling = GBR" & vbCrLf
        Legende &= "Yen = Yen" & vbCrLf
        MsgBox(Legende)
    End Sub

    'Ouverture d'une fenetre pour afficher les valeurs de conversion  Info==>Taux
    Public Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim Taux As String = ""
        Taux &= "Euro vers Zloty " & Eurtozloty & vbCrLf
        Taux &= "Euro vers dollar " & Eurtodol & vbCrLf
        Taux &= "Euro vers gbr " & Eurtogbr & vbCrLf
        Taux &= "Euro vers yen " & Eurtoyen & vbCrLf
        Taux &= "Dollar vers Yen " & Yentodol & vbCrLf
        Taux &= "Dollar vers Gbr " & Doltogbr & vbCrLf
        Taux &= "Dollar vers Zloty " & Doltozloty & vbCrLf
        Taux &= "Zloty vers Gbr " & Zlotytogbr & vbCrLf
        Taux &= "Zloty vers Yen " & ZlotytoYen & vbCrLf
        Taux &= "Gbr vers Yen " & Gbrtoyen & vbCrLf
        MsgBox(Taux)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim tata As New convertisseur.PremierWebService
            Dim lesTaux(10) As convertisseur.Taux

            lesTaux = tata.toto()

            Eurtozloty = (lesTaux(0).Valeur)
            Eurtodol = (lesTaux(1).Valeur)
            Doltozloty = (lesTaux(2).Valeur)
            Eurtogbr = (lesTaux(3).Valeur)
            Eurtoyen = (lesTaux(4).Valeur)
            Zlotytogbr = (lesTaux(5).Valeur)
            Yentodol = (lesTaux(6).Valeur)
            Doltogbr = (lesTaux(7).Valeur)
            ZlotytoYen = (lesTaux(8).Valeur)
            Gbrtoyen = (lesTaux(9).Valeur)
            MsgBox("Mise a jour effectuée")
        Catch ex As Exception
            MsgBox("Erreur lors de l'accès au webservice")
        End Try

    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim Info As String = ""
        Info = "Lociel créé par Guillaume Verrey en juin 2009"
        MsgBox(Info)
    End Sub

End Class

Conclusion :


Ce code est principalement pour les personnes qui chercher à apprendre à développer en sur pda avec un serviceweb et mélangeant VB.net et C#
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.