İl İl Namaz Vakitlerini Öğrenme  

Bu makalemizde http://www.webservisler.com sitesinin xml dosyasından illerin namaz vakitlerini gün gün çekeceğiz. Aşağıdaki şekli inceleyin. Formunuza 7 adet TextBox, 1 adet Combobox ve Button ekleyin.

Şekil 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "İl İl Günlük Namaz Vakitleri"
            .MaximizeBox = False
            .Size = New System.Drawing.Size(249, 289)
            .Location = New Point(300, 200)
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAl.Click
        If ComboBox1.Text = "" Then
            MsgBox("İl Seçiniz", MsgBoxStyle.OkOnly, "Namaz Vakitleri")
        End If
        Dim ds As DataSet = New DataSet
        ‘ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=istanbul ")
‘ veya aşağıdaki gibi        ds.ReadXml("http://www.webservisler.com/xml/NamazVakitleri.php?sehir=" & ComboBox1.Text)
        Dim namaz_vakitleri As DataRow = ds.Tables(0).Rows(0)
        With Me
            .txtTarih.Text = namaz_vakitleri(1)
            .txtImsak.Text = namaz_vakitleri(2)
            .txtGunes.Text = namaz_vakitleri(3)
            .txtOgle.Text = namaz_vakitleri(4)
            .txtIkindi.Text = namaz_vakitleri(5)
            .txtAksam.Text = namaz_vakitleri(6)
            .txtYatsi.Text = namaz_vakitleri(7)
        End With

    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır