begin process at 2010 09 04 14:44:45
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

PALM :: Divers

 > CONVERTISSEUR DE MONNAIE

CONVERTISSEUR DE MONNAIE


 Description

Cliquez pour voir la capture en taille normale
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

  • 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
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#

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

 Sources en rapport avec celle ci

Source .NET (Dotnet) JOUER UN FICHIER WAV SUR MULTI-PLATEFORMES DE PDA par BarresLTD
Source avec Zip Source .NET (Dotnet) GESTION DES CONTACTS, RDV, SUR PDA MOBILE 5 EN VB.NET par Rlooping
Source .NET (Dotnet) SQLCE EXTRAIRE LES DONNÉES D'UNE BASE AU FORMAT TEXTE par Stephane33
Source avec Zip TETRIS POUR POCKET PC OU PDA par dragonjoker59
Source avec Zip Source avec une capture Source .NET (Dotnet) JEU DE MORPION POUR POCKET par ppiat

Commentaires et avis

Commentaire de imtiazpirbay le 22/08/2009 14:03:12

pouvait vous me dire ou faut il mettre le code sur le mobile motorola em325?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Bonne chance à PDA France ! :) [ par processus ] Bonjour à tous !Bon, ce n'est pas une remarque pour le tout nouveau membre de la famille Codes-Sources mais plutôt un petit message pour souhaiter lon Comment lancer 1 appli quand le PDA se connecte au PC ? [ par nikko ] NemoBonjour,Je suis appelé à développer une appli sous Pocket PC et j'effectue des tests.Pour automatiser un maximum, je dois pouvoir lancer une appli portabilité de jeux en java sur pda ? [ par Nathal ] BonjourEst-il possible de porter sur un palm un jeu utilisant un applet java et un fichier *.jar ?D'avance merci de votre aideNathaliehttp://clea2.amb Demarrage du PDA et d'un programme [ par benbax ] Bojour a tous.Voila, je voudrai savoir si quelqu'un sait comment lancer un programme au power on du PDA.Merci a ceux qui me repondrons Ben.Petit Jeune [Csharp-SDE]-le composant button [ par lemagnifique ] Bonjour à tous,je souhaite développer une application pour pockectPC en C#.Je me pose quelques questions et j'espère que vous pourrez m'aider à trouve Transfert de données de pda vers pc en c# [ par bistoul ] Bonjour,je voudrais transférer des données d'une base sql server CE sur mon pda vers une base sql server 2000 sur un pc.(si possible j'aimerais passer Programmation Delphi [ par Glorkonline ] Voilà, je suis débutant en PDA et je voudrais savoir si l'on peut programmer pour pda en Delphi, si oui, y a-t-il des compilateurs à télécharger ? et PPC oui mais bon! [ par superwaba ] J'ai lu récemment sur ce même forum qu'il n'y avait pas assez de sources qui arrivaient...Est ce étonnant?La plupart des sources fournis et des messag Programme PalmOs??? [ par Kaper ] Salut à tous,J'aurais besoin de faire un petit programme en PalmOs, mais je suis un absolu débutant.Voila la situation.J'ai un appareil-photo numériqu java et les pda??? [ par bibe ] Bonjour à tous, c'est ma première visite sur "pdafr" je suis plutot sur "javafr".Ceci dit, ma question est : peut on utiliser le langage java sur un p


Nos sponsors


Sondage...

CalendriCode

Septembre 2010
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
27282930   

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,437 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales