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


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Nix)