Kod basit bir şekilde TCMB' den dolari euro vs. gibi kurları çekiyor. 12 saatlik cache e alıyor ve her 12 saatte bir tekrar bağlanıp güncelliyor. ASP.NET için yazılmıştır, Windows uygulamaları cache opsiyonunu değiştirmelidir.
ENUMlar gibi bazı kısımları Döviz Kurları XML Web Servisi makalesinden çaldım. Gayet kullanışlı bir class oldu. Şu şekilde kullanılabilir.
Class' ın içerisinde ToDouble yapmamış string bırakmışım artık onu düzeltirsiniz.
Dim Currency As New Currency(Currency.CurCode.USD)
CurrencyVal = Convert.ToDouble(Currency.GetCurrency().Trim)
[FILE]currency.txt[/FILE]
Yazıcı Versiyonu