Utiliser un webservice depuis un pocket pc en .net (convertisseur euro :-p)

Soyez le premier à donner votre avis sur cette source.

Vue 32 516 fois - Téléchargée 905 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

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

Ajouter un commentaire

Commentaires

formita
Messages postés
3
Date d'inscription
dimanche 4 juillet 2010
Statut
Membre
Dernière intervention
8 août 2012
-
Bonjour, j'ai essayé de tester l'application. le déploiement à bien réussi mais le code s’arrête au niveau de la ligne de commande Me.LblResultat.Text Me.TxtEuro.Text & " € " & MonConvertisseur.FromEuro(Me.ComboListMonnaie.Text, Me.TxtEuro.Text) & " " & Me.ComboListMonnaie.Text
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
Drgn13
Messages postés
86
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
26 mars 2007
-
Pour ceux qui chercheraient le service à bougé :
http://www.ebob42.com/cgi-bin/Euro42.exe/wsdl/IEuro
omilla
Messages postés
1
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
9 septembre 2003
-
L'émulateur et le SDK complet avec embeded VC (Visual C++ pour pocket) est téléchargeale chez microsoft et le tou gratuitmenent :

voir : http://www.microsoft.com/windows/embedded/ce.net/downloads/default.asp
mathieumg
Messages postés
558
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
18 février 2006
-
Mais y-a-t'il des émulateur gratuits qui fonctionnent bien sur le net ?

Merci

Mathieu M-G
Nix
Messages postés
838
Date d'inscription
samedi 15 mai 1999
Statut
Modérateur
Dernière intervention
18 juillet 2009
-
Il est intégré dans Visual Studio .NET 2003
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.