begin process at 2008 05 16 09:42:05
1 173 261 membres
101 nouveaux aujourd'hui
13 970 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

Catégorie :PPC :: Réseau & Internet Source .NET ( DotNet ) Classé sous : webservice, euro, franc, pocketpc, soap Niveau : Débutant Date de création : 27/05/2003 Date de mise à jour : 27/05/2003 02:28:32 Vu / téléchargé: 18 849 / 431

Note :
Aucune note

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


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/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

  • signaler à un administrateur
    Commentaire de mathieumg le 31/05/2003 18:07:49

    Ou as-tu trouvé ton émulateur Nix ?

    Merci

    Mathieu M-G

  • signaler à un administrateur
    Commentaire de Nix le 02/06/2003 23:26:22 administrateur CS

    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

  • signaler à un administrateur
    Commentaire de mathieumg le 02/06/2003 23:37:44

    Mais y-a-t'il des émulateur gratuits qui fonctionnent bien sur le net ?

    Merci

    Mathieu M-G

  • signaler à un administrateur
    Commentaire de omilla le 09/09/2003 10:08:05

    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

Ajouter un commentaire

Discussions en rapport avec ce code source

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS