KUR KDV Hesaplama Programı

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.

Eline koluna sağlik hacim, kaynak kodlara kimse yazmıyor

kaynak kodları yayınlamadıktan sonra paylaşmanın ne önemi var Bilgi paylaştıkça çoğalır :=)

Sagol hocam inceleme amacli indirim dedim de , exe calismadi.

0Xc0000135 hatasi verdi o da benden kaynakliymis.

Ekleme : .net 3,5 kurulması gerekiyor(muş)