Utiliser un webservice depuis un pocket pc en .net (convertisseur euro :-p)
Soyez le premier à donner votre avis sur cette source.
Vue 32 666 fois - Téléchargée 978 fois
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
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/IEuro
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 / Exemple :
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/IEuro
Codes Sources
A voir également
- Convertisseur euro
- Convertiseur euro - Meilleures réponses
- Convertissuer euro - Meilleures réponses
- Utilisation du port com entre un pc et un pocket pc - Codes sources - C / C++ / C++.NET (Application)
- Que dois-je utiliser comme soft pour développer une application sur un Pocket PC ✓ - Forum - Visual Basic
- PDA : Casse brique (très simple) c# pocket pc - CodeS SourceS - Guide
- Server multi-utilisateur ( la seule limite est l'ordinateur ) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Incrediproxy : permet d'utiliser incredimail a partir d'un pc en reseau local - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
Commentaires
une exeption "Impossible d'établir une connexion au réseau" s'est générée.
Je suis encore débutante dans le développement de Webservices. C'est quoi cette erreur? comment puis-je la résoudre?
Merci
http://www.ebob42.com/cgi-bin/Euro42.exe/wsdl/IEuro
voir : http://www.microsoft.com/windows/embedded/ce.net/downloads/default.asp
Merci
Mathieu M-G
Mais je me suis acheté un Pocket PC finalement, j'ai craqué pour fêter les 26 ans :p
Mais l'émulateur marchre très bien
A++
Nix
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.