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