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
 PB LORS DE L'INSTALLATION SHAREPOINT 2010.PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet
Lors de l'installation de SharePoint 2010, j'ai rencontré un problème de plantage à l'étape 5 du configuration Wizard. Ca se termine sur cet écran : Et en analysant le fichier de journalisation, on remarque vers la fin des 15000 et quelques lign...
Cliquez pour lire la suite de l'article par Patrick Guimonet [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson
Après mon précédent article qui attaque les contraintes par la fasse Nord de l'Everest. passons à la seconde possibilité offerte par WF4 pour valider une activité : la metadata . Je vous en ai déjà toucher un ou deux mots. La metadata dans WF4 est un élém...
Cliquez pour lire la suite de l'article par JeremyJeanson [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (1/2) par JeremyJeanson
De WF3 à WF4 pas mal de choses on été changées pour faciliter la vie des développeurs, mais certain points peuvent sembler obscures. comme les contraintes. Pour vous guider, je me lance dans une série de deux articles. Ils présenterons deux approches poss...
Cliquez pour lire la suite de l'article par JeremyJeanson [ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT()[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT() par tja
Beaucoup de développeurs pensent que lorsqu'on créé et enregistre un IHttpModule, il n'en existe qu'une seule instance et la méthode Init() sera appelée qu'une fois.
C'est faux
Cela peut vraiment créer des bugs subtils dont en ne se rend pas compte ...
Cliquez pour lire la suite de l'article par tja [MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER par phil
Un post rapide pour vous informer de la disponibilité de la vidéo de ma présentation sur SharePoint 2010 & Team Foundation Server. http://www.microsoft.com/france/vision/mstechdays10/Webcast.aspx?EID=20215d48-02e3-4d43-8c36-e53505c3b316 Dans la ...
Cliquez pour lire la suite de l'article par phil
Logiciels
 Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|