Merhaba arkadaşlar. Blogum için yapmıştım fakat burada da paylaşmak istiyorum.

Public Class Form1
    Dim doviz, kur, kdv As Integer
    Dim fiyat As Single
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Dolar" Then
            TextBox5.Text = "$"
        End If
        If ComboBox1.Text = "Euro" Then
            TextBox5.Text = "€"
        End If
        doviz = CInt(TextBox1.Text)
        kur = CInt(TextBox4.Text)
        kdv = CInt(TextBox3.Text)
        fiyat = (doviz * (kdv / 100) + doviz) * kur
        TextBox2.Text = fiyat
    End Sub
    Private Sub TextBox2_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
        Dim a As Decimal = CDec(TextBox5.Text)
        TextBox5.Text = a.ToString("N")
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Shell("C:\Program Files\Internet Explorer\iexplore.exe www.teknoyazar.com")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("C:\Program Files\Internet Explorer\iexplore.exe www.doviz.com/")
    End Sub
End Class

Daha büyük fiyat yazacaklar değişken tipini değiştirsin.
Not: Ben programı küçük değerler için hazırladım. Eğer ciddi bir iş yapıyorsanız programın verdiği sonuçlar tam değeri vermeyebilir.(küsüratlı rakamlarda)

Programı BURADAN indirebilirsiniz.