Hava Durumu Programı Yapmak

Bu dersimizde basit bir hava durumu tahmin programı yapalım.

Merhaba Arkadaşlar,

Bugün sizlerle basit bir hava durumu programı yapalım.

Öncelikle programımıza şunları ekleyelim:

[*] ListBox
[*] PictureBox
[*] Label

Hava durumunu:


http://www.mgm.gov.tr/site/link-vermek-icin.aspx



Siteden:

http://www.meteor.gov.tr/sunum/imgdurumgor-a3-g.aspx?merkez=ISTANBUL&renkC=7b92bd&renkT=30415c



Komut u ile çekeceğiz. Burada bilmemiz gereken kırmızı ile il isimleri büyük harflerle ve Türkçe karakter kullanılmadan yazılmalıdır. Ayrıca Afyonkarahisar için AFYON değil AFYONKARAHISAR kullanılmalıdır. Kahramamaraş içinse K.MARAS kullanılmaktadır.

1. Listbox'a şehirlerimizi ekleyelim. Bunun için listboxdan edit item ile sıra sıra şehirlerimizi ekleyebiliriz.





2. Komut satırına il değiken isimli bir string atayalım (Dim il As String)



3. Listbox'ın Dubleclick olayına şu adımları izleyelim:

- Öncelikle il değişkenine listboxdan seçtiğimiz ili atayalım

il = ListBox1.SelectedItem.ToString



- Seçilen ilde Türkçe karakterler olabilir, bunu gidermek için şu döngüyü kullanalım:


For i = 1 To il.Length

            If Mid(il, i, 1) = "Ð" Or Mid(il, i, 1) = "ğ" Then

                Mid(il, i, 1) = "g"

            End If

        Next

        For i = 1 To il.Length

            If Mid(il, i, 1) = "İ" Or Mid(il, i, 1) = "i" Then

                Mid(il, i, 1) = "ı"

            End If

        Next

        For i = 1 To il.Length

            If Mid(il, i, 1) = "ö" Or Mid(il, i, 1) = "Ö" Then

                Mid(il, i, 1) = "o"

            End If

        Next

        For i = 1 To il.Length

            If Mid(il, i, 1) = "ş" Or Mid(il, i, 1) = "Ş" Then

                Mid(il, i, 1) = "s"

            End If

        Next

        For i = 1 To il.Length

            If Mid(il, i, 1) = "ü" Or Mid(il, i, 1) = "Ü" Then

                Mid(il, i, 1) = "u"

            End If

        Next

        For i = 1 To il.Length

            If Mid(il, i, 1) = "Ç" Or Mid(il, i, 1) = "ç" Then

                Mid(il, i, 1) = "c"

            End If

        Next



3c-Eğer il afyon veya kahraman maraş ise bu olayı düzeltelim

  If il.ToString = "Kahramanmaraş" Then

            il = "K.MARAS"



        End If

        If il.ToString = "Afyon" Then

            il = "AFYONKARAHISAR"

        End If



- Seçilen ilin bütün harflerini büyük yaparak il değişkenline eşitleyelim.

il = UCase(il.ToString)



- İl değişkenini label1.text e eşitleyelim

Label1.Text = il



- Son olarak Picturebox'a linkimizi ayarlayalım başta belirttiğim gibi link:


PictureBox1.Load("http://www.meteor.gov.tr/sunum/imgdurumgor-a3-g.aspx?merkez=" & il.ToString & "&renkC=7b92bd&renkT=30415c")



İşlem bu kadar sonuç olarak listbox'dan seçtiğimiz ile çift tıklama yaparak ilimizin basit bir şekilde hava durumunu aldık.


  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git