Accueil > > > UTILISER UN WEBSERVICE DEPUIS UN POCKET PC EN .NET (CONVERTISSEUR EURO :-P)
UTILISER UN WEBSERVICE DEPUIS UN POCKET PC EN .NET (CONVERTISSEUR EURO :-P)
Information sur la source
Description
Bon, j'ai toujours pas de Pocket PC mais depuis que j'ai mis les main dans l'émulateur du Pocket PC, je fais mumuse. Alors, je vous fait partager mes 'ptits tests' Cette fois, cet exemple vous montre comme utiliser un Webservice (gratuit) et qui a pour fonction de convertir en euro vers une autre monnaie et vis et versa. Je sents que plus d'un "va se réjouir" à l'idée de voir "encore un convertisseur euro". Vi, sauf que là, on est pas sur VBFrance et je suis le 1er à en mettre un (na !) et surtout, ce n'est pas tant le convertisseur qu'il est interessant de regarder mais le fait d'utiliser un webservice. Langage utilisé : VB.NET IDE : VS.NET 2003
Source
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' Le Webservice trouvé utilisé est à cette adresse :
- ' http://www.drbob42.co.uk/cgi-bin/Euro42/wsdl/IEuro
- '
- ' Légende
- 'France = 'FRF'
- 'Finland = 'FIM'
- 'Italy = 'ITL'
- 'Netherlands = 'NLG'
- 'Spain = 'ESP'
- 'Belgium = 'BEF'
- 'Austria = 'ATS'
- 'Luxembourg = 'LUF''
- 'Germany = 'DEM'
- 'Ireland = 'IEP'
- 'Portugal = 'PTE'
- 'Greece = 'GRO'
- Me.ComboListMonnaie.Items.Clear()
- Me.ComboListMonnaie.Items.Add("FRF")
- Me.ComboListMonnaie.Items.Add("FIM")
- Me.ComboListMonnaie.Items.Add("ITL")
- Me.ComboListMonnaie.Items.Add("NLG")
- Me.ComboListMonnaie.Items.Add("ESP")
- Me.ComboListMonnaie.Items.Add("BEF")
- Me.ComboListMonnaie.Items.Add("ATS")
- Me.ComboListMonnaie.Items.Add("LUF")
- Me.ComboListMonnaie.Items.Add("DEM")
- Me.ComboListMonnaie.Items.Add("IEP")
- Me.ComboListMonnaie.Items.Add("PTE")
- Me.ComboListMonnaie.Items.Add("GRO")
- Me.ComboListMonnaie.SelectedIndex = 0
- End Sub
- Private Sub BtnConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConvertir.Click
- Me.BtnConvertir.Enabled = False
- Me.LblChargement.Visible = True
- Application.DoEvents() ' Sinon, on a pas le temps de voir s'afficher le label passé à Visible = true
- If Not IsNumeric(Me.TxtEuro.Text) Then
- MsgBox("Vous devez saisier une valeur numérique")
- Me.TxtEuro.Focus()
- Me.LblChargement.Visible = False
- Me.BtnConvertir.Enabled = True
- Exit Sub
- End If
- Try
- Dim MonConvertisseur As New WSConvertEuro.IEuroservice
- Me.LblResultat.Text = Me.TxtEuro.Text & " ? = " & MonConvertisseur.FromEuro(Me.ComboListMonnaie.Text, Me.TxtEuro.Text) & " " & Me.ComboListMonnaie.Text
- Catch ex As Exception
- MsgBox("Erreur lors de l'accès au webservice")
- End Try
- Me.LblChargement.Visible = False
- Me.BtnConvertir.Enabled = True
- End Sub
-
- Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
- Dim Legende As String = ""
- Legende &= "France = 'FRF'" & vbCrLf
- Legende &= "Finland = 'FIM'" & vbCrLf
- Legende &= "Italy = 'ITL'" & vbCrLf
- Legende &= "Netherlands = 'NLG'" & vbCrLf
- Legende &= "Spain = 'ESP'" & vbCrLf
- Legende &= "Belgium = 'BEF'" & vbCrLf
- Legende &= "Austria = 'ATS'" & vbCrLf
- Legende &= "Luxembourg = 'LUF''" & vbCrLf
- Legende &= "Germany = 'DEM'" & vbCrLf
- Legende &= "Ireland = 'IEP'" & vbCrLf
- Legende &= "Portugal = 'PTE'" & vbCrLf
- Legende &= "Greece = 'GRO'" & vbCrLf
- MsgBox(Legende)
- End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Le Webservice trouvé utilisé est à cette adresse :
' http://www.drbob42.co.uk/cgi-bin/Euro42/wsdl/IEuro
'
' Légende
'France = 'FRF'
'Finland = 'FIM'
'Italy = 'ITL'
'Netherlands = 'NLG'
'Spain = 'ESP'
'Belgium = 'BEF'
'Austria = 'ATS'
'Luxembourg = 'LUF''
'Germany = 'DEM'
'Ireland = 'IEP'
'Portugal = 'PTE'
'Greece = 'GRO'
Me.ComboListMonnaie.Items.Clear()
Me.ComboListMonnaie.Items.Add("FRF")
Me.ComboListMonnaie.Items.Add("FIM")
Me.ComboListMonnaie.Items.Add("ITL")
Me.ComboListMonnaie.Items.Add("NLG")
Me.ComboListMonnaie.Items.Add("ESP")
Me.ComboListMonnaie.Items.Add("BEF")
Me.ComboListMonnaie.Items.Add("ATS")
Me.ComboListMonnaie.Items.Add("LUF")
Me.ComboListMonnaie.Items.Add("DEM")
Me.ComboListMonnaie.Items.Add("IEP")
Me.ComboListMonnaie.Items.Add("PTE")
Me.ComboListMonnaie.Items.Add("GRO")
Me.ComboListMonnaie.SelectedIndex = 0
End Sub
Private Sub BtnConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConvertir.Click
Me.BtnConvertir.Enabled = False
Me.LblChargement.Visible = True
Application.DoEvents() ' Sinon, on a pas le temps de voir s'afficher le label passé à Visible = true
If Not IsNumeric(Me.TxtEuro.Text) Then
MsgBox("Vous devez saisier une valeur numérique")
Me.TxtEuro.Focus()
Me.LblChargement.Visible = False
Me.BtnConvertir.Enabled = True
Exit Sub
End If
Try
Dim MonConvertisseur As New WSConvertEuro.IEuroservice
Me.LblResultat.Text = Me.TxtEuro.Text & " ? = " & MonConvertisseur.FromEuro(Me.ComboListMonnaie.Text, Me.TxtEuro.Text) & " " & Me.ComboListMonnaie.Text
Catch ex As Exception
MsgBox("Erreur lors de l'accès au webservice")
End Try
Me.LblChargement.Visible = False
Me.BtnConvertir.Enabled = True
End Sub
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Dim Legende As String = ""
Legende &= "France = 'FRF'" & vbCrLf
Legende &= "Finland = 'FIM'" & vbCrLf
Legende &= "Italy = 'ITL'" & vbCrLf
Legende &= "Netherlands = 'NLG'" & vbCrLf
Legende &= "Spain = 'ESP'" & vbCrLf
Legende &= "Belgium = 'BEF'" & vbCrLf
Legende &= "Austria = 'ATS'" & vbCrLf
Legende &= "Luxembourg = 'LUF''" & vbCrLf
Legende &= "Germany = 'DEM'" & vbCrLf
Legende &= "Ireland = 'IEP'" & vbCrLf
Legende &= "Portugal = 'PTE'" & vbCrLf
Legende &= "Greece = 'GRO'" & vbCrLf
MsgBox(Legende)
End Sub
Conclusion
En plus ça marche ! Enfin, quand j'écris ces ligne, le webservice fonctionne, je ne garantie pas qu'un jour le site qui fourni le webservice ne fermera pas Le webservice utilisé se trouve à cette adresse : http://www.drbob42.co.uk/cgi-bin/Euro42/wsdl/IEur o
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Bonjour PDAfr ! [ par webwhisky ]
Eh bien bienvenue à PDAfr dans le petit monde du développement PDA !Je suis assez heureux car cette naissance correspond, à une semaine près, à ma pro
Mémoire Ram et base de données... [ par shervy ]
Bonjour,Je souhaite me lancer dans la prog sur PDA avec PocketPC mais je ne sais pas combien de RAM aurais besoin mon PDA pour pouvoir stocker une app
IDE sur PocketPc [ par AlexMAN ]
Bonjour all, Je me demandais sil existait un IDE pour programmer direct sur son pocket pc, et ne pas passer par le pc...Voila, merci d'avance !!++Alhe
divx sur PocketPC!? [ par suugi ]
Existe-t-i un lecteur divx pour PocketPC.Il semblerait qu'une carte SD de 1Go puisse contenir 4 h de vidéo, d'où ma question.
PocketPC <==> PC & PC <==> PocketPC [ par enzyme ]
Bonjour, j'ai un pocket PC avec en natif du bluetooth et un PC avec une clef bluetooth. je voudrai envoyer à partir du pocketPC "BONJOUR" et voir que
Appli MSAccess Pour PDA [ par damszerox ]
BonjourJ'ai developpé une appli sur MS Access 2003 qui doit fonctionner sur PocketPC (au minimum sur Windows CE).N'ayant pas de PocketPC pour tester,
Information sur la mémoire [ par ddnzangdar ]
Bonjour, je suis néophite dans les technologies mobiles et je suis actuellement en train de migrer une appli sur PocketPC. J'ai à ma disposition d'anc
Compiler sur un pocketPC [ par Mindiell ]
Bonjour,Je m'embête pas mal dans le train, et je voulais savoir s'il existe un compilateur C++ qui tournerait sur PocketPC.Je ne veux pas développer s
Thread et PortSerie [ par DarkMickael ]
Bonjours, j'aimerai etre un peu éclairé par ce probleme, je m'explique j'ai une connection en port serie de PC a Pocket PC l'ors de l'envoi d'informat
Appel d'un webservice via un émulateur! [ par AmK ]
Bonsoir à vous J'essaye d'utiliser le webservice mappoint via l'émulateur WM5.0 , de visual studio 2008 , m
|
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
|