Conectar PocketPC a un WebService

0
3523

Como punto de partida vamos a utilizar un WebService gratuito que nos brinda el Banco Central de Costa Rica para consultar los tipos de cambio del día y también el historial por fechas.

En un artículo anterior explicamos este mismo webservice, ver ejemplo aquí, ya que es el mismo código, solo que a esta versión le agregaremos una funcionalidad más, que es la del historial. Con esto demostramos que es casi igual programar en PocketPC que en una aplicación para PC.

Descargar solución PocketPC_WebService.zip

Primero vamos a agregar los controles que necesitaremos para nuestra aplicación, y que esta se vea algo como esta:

El siguiente paso será agregar el siguiente código:

Imports PocketPC_WebService.bccr_tipo_cambio
….
.
Windows Form Designer generated code (esta parte la agrega .NET)
.
….

Dim iTipoCambio As New bccr_tipo_cambio.TipoCambio

Private Sub btnTraer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraer.Click
Try
Me.lblCompra.Text = iTipoCambio.getTipoCambioCompra(«Roy Rojas»)
Me.lblVenta.Text = iTipoCambio.getTipoCambioVenta(«Roy Rojas»)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub btnHistorial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHistorial.Click
Try
Dim ds As New DataSet
Dim fecH As Date = Today.Date
Dim fecD As Date = Today.Date.AddMonths(-1)
If Me.rbCompra.Checked Then
ds = iTipoCambio.getTipoCambioHistorico(2, 1, _
«C», fecD.Year & «-» & fecD.Month & «-» & _
fecD.Day, fecH.Year & «-» & fecH.Month & «-» & _
fecH.Day, «Roy Rojas»)
Else
ds = iTipoCambio.getTipoCambioHistorico(2, 1, _
«V», fecD.Year & «-» & fecD.Month & «-» & _
fecD.Day, fecH.Year & «-» & fecH.Month & «-» & _
fecH.Day, «Roy Rojas»)
End If
Me.dgTipoCambio.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.lblDeHasta.Text = «De: » & _
Today.AddMonths(-1).Date.ToShortDateString & _
» Hasta: » & Today.Date.ToShortDateString
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

El siguiente paso será ejecutar nuestra aplicacion en el emulador que nos brinda .NET, para tener un resultado como el siguiente.

Descargar solución PocketPC_WebService.zip

Dejar respuesta

Please enter your comment!
Please enter your name here