Bu dosya, bir form üzerinden il ve ilçe seçilerek o ilçenin son hava durumu bilgilerini sorgulamayı sağlar. Veriler, VBA kodunun internet üzerinden çağırdığı meteoroloji servisinden alınır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Çalışması için internet bağlantısı gerekir; dosya dış bağlantı üzerinden veri çeker.
Dosyanın içeriği
- Giris: Boş başlangıç sayfasıdır.
- tmp: Servisten gelen yanıtın geçici olarak satırlara ayrıldığı çalışma sayfasıdır. Her sorguda içeriği silinip yeniden yazılır.
- iller: İl listesinin tutulduğu sayfadır. Sütunlar: il, merkezId, sondurumIstNo.
- ilceler: Seçilen ile ait ilçelerin listelendiği sayfadır. Aynı sütun yapısını kullanır; İstanbul için merkezId ve istasyon numaraları örnek olarak yer alır.
Makrolar
- Il_Merkezlerini_Al: Form açılırken çalışır ve il listesini servisten alır.
- Ilce_Merkezlerini_Al: Seçilen ilin ilçe merkezlerini servisten alıp ilceler sayfasına yazar.
- HTTP_Request: MSXML2.XMLHTTP ile verilen adrese GET isteği gönderir ve yanıt metnini döndürür.
- SonDurum_Bilgisini_Al: İlçenin merkezId değerini ilceler sayfasından VLookup ile bulur, son durum verisini ister, yanıtı tmp sayfasında ayrıştırır. Sıcaklık, basınç, nem, rüzgar hızı ve hadise kodunu alır; sayıları yuvarlar.
- Hadise: Hadise kodlarını (A, PB, CB, Y, K, SIS gibi) Açık, Parçalı Bulutlu, Yağmurlu, Kar Yağışlı, Sisli gibi metin karşılıklarına çevirir.
- Button1_Click: Formu açmak için kullanılan düğme olayıdır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Giriş sayfasındaki düğmeye tıklayarak formu açın.
- Form açıldığında il listesi otomatik yüklenir; cbIller kutusundan ili seçin.
- İlçe listesi dolduktan sonra cbIlceler kutusundan ilçeyi seçin.
- Durum, sıcaklık, nem (%), basınç ve rüzgar hızı değerleri formdaki alanlarda görüntülenir. Serviste verisi bulunmayan (-9999) değerler boş bırakılır.