Để biết được những Web Services được cung cấp miễn phí trên mạng, các bạn cĩ thể dùng google để thực hiện tìm kiếm. Ở đây, chúng tơi giới thiệu đến các bạn trang: http://www.webservicex.net
cung cấp khá nhiều các Web Services hữu ích.
Trong phần này, chúng tơi sẽ hướng dẫn bạn sử dụng các Web Services để lấy thơng tin tỷ giá ngoại tệ, thơng tin thời tiết, các thành phố chính của một quốc gia và các đơn vị tiền tệ của các quốc gia trên thế giới.
Các bước thực hiện:
Bước 1. Chọn Add Web Reference… từ thực đơn ngữ cảnh của ứng dụng
Thêm WebService vào ứng dụng
Bước 2. Nhập thơng tin đường dẫn của WebService, nhấn để thực hiện việc xác thực Web Service.
Bước 3. Nếu Web Service được xác thực thành cơng, thơng tin mơ tả về Web Service sẽ được hiển thị ngay phía bên dưới. Trong ví dụ này, chúng ta lần lượt xác thực 3 Web Service sau:
http://www.webservicex.net/country.asmx?WSDL Ỵ Các quốc gia http://www.webservicex.net/globalweather.asmx?WSDL Ỵ Thời tiết http://www.webservicex.net/CurrencyConvertor.asmx?WSDL Ỵ Tỷ giá
Tham chiếu Web Service
Bước 4. Đặt tên tham chiếu cho WebService: Web reference name. Bước 5. Nhấn Add Reference để hồn tất tham chiếu WebService. Bảng trên mơ tả các phương thức và tài liệu hướng dẫn của WebService
Bước 6. Thiết kế màn hình
Màn hình thiết kế
Viết lệnh xử lý:
'Lấy tỉ giá ngoại tệ
Dim tgNgoai_te As New Ws_Ty_gia.CurrencyConvertor lblUSD.Text = tgNgoai_te.ConversionRate( _ Ws_Ty_gia.Currency.USD, Ws_Ty_gia.Currency.VND) lblEUR.Text = tgNgoai_te.ConversionRate( _ Ws_Ty_gia.Currency.EUR, Ws_Ty_gia.Currency.VND) lblGBP.Text = tgNgoai_te.ConversionRate( _ Ws_Ty_gia.Currency.GBP, Ws_Ty_gia.Currency.VND)
'Lấy thơng tin thời tiết các thành phố chính
Dim lWeather As New Ws_Thoi_tiet.GlobalWeather
lblHN.Text = lWeather.GetWeather("Ha Noi", "Viet Nam")
lblHCM.Text = lWeather.GetWeather("Ho Chi Minh", "Viet Nam") lblThanh_pho.Text = lWeather.GetCitiesByCountry("Viet Nam")
'Lấy tên các quốc gia và đơn vị tiền tệ trên thế giới
Dim lCountry As New Ws_Quoc_gia.country lblDon_vi.Text = lCountry.GetCurrencyCode() lblQuoc_gia.Text = lCountry.GetCountries()
Tỷ giá ngoại tệ và thơng tin thời tiết được lấy từ WebService vào lúc: 9:30:00 AM ngày 13/06/2005 (giờ Việt nam). Lúc các bạn thi hành, các giá trị này cĩ thể thay đổi.