Accueil > > > CONVERTISSEUR DE MONNAIE
 CONVERTISSEUR DE MONNAIE
 Information sur la source
 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
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#
 Sources de la même categorie
 Commentaires et avis
 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
|
Derniers Blogs
 ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril
Logiciels
 uTorrent (2.0.4)UTORRENT (2.0.4)C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m... Cliquez pour télécharger uTorrent Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en... Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation 4Videosoft Transfert iPod Mac (3.2.08)4VIDEOSOFT TRANSFERT IPOD MAC (3.2.08)4Videosoft Transfert iPod-Mac caractérise principalement à transférer les fichiers iPod vers Mac.... Cliquez pour télécharger 4Videosoft Transfert iPod Mac 4Videosoft HD Convertisseur (3.3.08)4VIDEOSOFT HD CONVERTISSEUR (3.3.08)Etant le meilleur HD Vidéo Convertisseur, 4Videosoft HD Convertisseur, vous pouvez regarder la vi... Cliquez pour télécharger 4Videosoft HD Convertisseur 4Videosoft Transfert iPad Mac (3.2.08)4VIDEOSOFT TRANSFERT IPAD MAC (3.2.08)4Videosoft Transfert iPad-Mac est un logiciel managérial iPad professionnel qui a des fonctions i... Cliquez pour télécharger 4Videosoft Transfert iPad Mac
|