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
 CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
 MIDLET ET XMLMIDLET ET XML par hadassah
Cliquez pour lire la suite par hadassah
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|