Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim al As DataSet = New DataSet ‘# değerleri atayacağımız datasetimizi oluşturduk.
Dim dolar As Integer
Try ‘ İnternet bağlantısının olmaması durumunda program çalışmayacağı için kodlarımızı Try-Catch ‘Blogunda yazıyoruz
al.ReadXml(“http://www.tcmb.gov.tr/kurlar/today.xml”)’ Readxml ilebelirtilen adresteki xml’yi okuduk
Dim USD As DataRow = al.Tables(1).Rows(0) ‘dolar euro ve sterlin değişkenlerine xmldeki değerleri çektik
Dim euro As DataRow = al.Tables(1).Rows(11)
Dim sterlin As DataRow = al.Tables(1).Rows(12)
dolar = CSng(USD(4))
ListBox1.Items.Add(USD(1) & ” ALIŞ:”)
ListBox1.Items.Add(USD(1) & ” SATIŞ:”)
ListBox1.Items.Add(euro(1) & ” ALIŞ:”)
ListBox1.Items.Add(euro(1) & ” SATIŞ:”)
ListBox1.Items.Add(sterlin(1) & ” ALIŞ:”)
ListBox1.Items.Add(sterlin(1) & ” SATIŞ:”)
ListBox2.Items.Add(USD(4))
ListBox2.Items.Add(USD(5))
ListBox2.Items.Add(euro(4))
ListBox2.Items.Add(euro(5))
ListBox2.Items.Add(sterlin(4))
ListBox2.Items.Add(sterlin(5))
‘#Listboxlarımıza fiyatlarımızı çektik.
Catch ‘# eğer internet bağlantısı yoksa yada bir hata oluşursa msgboxta hata verdirdik.
MsgBox(“Sorun Oluştu ! İnternet Bağlantınızı Kontrol Edin”)
Application.Exit()
End Try
End Sub
Private Sub btn_cevir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cevir.Click
Try
If kriter.Text = “SATIŞ” Then
d1.Text = (deger.Text) * Replace((ListBox2.Items(1)), “.”, “,”)
d2.Text = (deger.Text) * Replace((ListBox2.Items(3)), “.”, “,”)
ElseIf kriter.Text = “ALIŞ” Then
d1.Text = (deger.Text) * Replace((ListBox2.Items(0)), “.”, “,”)
d2.Text = (deger.Text) * Replace((ListBox2.Items(2)), “.”, “,”)
End If
Catch
MsgBox(“Lütfen değer giriniz”)
End Try
End Sub
Projeyi İndirin
Siz mi hazırladınız acaba? +rep bu arada... 
