UTILISER UN WEBSERVICE DEPUIS UN POCKET PC EN .NET (CONVERTISSEUR EURO :-P)

---

Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

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    

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    

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    

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• RÉCUPÉRER UNE PAGE HTML AVEC UNE SOCKET
• TRACER UN RECTANGLE OU UN CERCLE SUR POCKETPC 2002 AVEC .NET

• IPSWITCHERCE : CHANGER L'IP DE SON POCKET PC RAPIDEMENT
• TÉLÉCOMMANDE POUR DREAMBOX
• POCKETSNTP
• RÉCUPÉRER UNE PAGE HTML AVEC UNE SOCKET

• POCKETAPPCONFIG : CONSERVER SES PRÉFÉRENCES
• ILISTBOX : UNE LISTE BOX PILOTABLE AU DOIGT
• MD5 POCKET PC C#
• TETRIS POUR POCKET PC OU PDA
• JEU DE MORPION POUR POCKET