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:
….
.
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.
