«

»

Lis 03

Wydrukuj to Wpis

Vsiaul Basic: Dzienny kurs walutowy (ASP.NET)

Dzienny-kurs-walutowy

Aplikacja Web prezentująca średnie kursy kupna i sprzedaży walut. Pobiera z http://www.nbp.pl/kursy/xml bazę kursów NBP i wyświetla w GridView za pomocą DataSet.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim DS As New DataSet
 
    Sub WebForm1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Button1.Text = "LastA"
        Button2.Text = "LastB"
        Button3.Text = "LastC"
    End Sub
 
    Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
        DS.Clear()
        Dim Last As String = CType(sender, Button).Text 'Klikamy na tabele
        'Pobiera bazę kursów NBP:
        DS.ReadXml("http://www.nbp.pl/kursy/xml/" & Last & ".xml") 'XML adres waluty
        GridView1.DataSource = DS.Tables(1) 'Tables(1) bo tam są 2 tabele : 0 i 1
        GridView1.DataBind()
    End Sub
End Class

Załączniki do pobrania

Permalink do tego artykułu: http://tmall.com.pl/vsiaul-basic-dzienny-kurs-walutowy-asp-net/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>