Source Code Program Konversi Dollar Pada VB.Net

Selamat Pagi,hari ini saya akan mengshare source code konversi dollar di vb.net.

Public Class Form1
    'dim usd as double '---> global
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim usd, sgd, aud As Double
        'usd = CInt(TextBox1.Text) / 12955
        'sgd = CInt(TextBox1.Text) / 9499
        'aud = CInt(TextBox1.Text) / 13000
        'Label2.Text = "USD : " & usd & vbNewLine & "SGD : " & sgd & vbNewLine & "AUD : " & aud

        If RadioButton1.Checked = True Then
            Dim usd As Double
            usd = TextBox1.Text / 12955
            Label2.Text = usd & "USD"
        ElseIf RadioButton2.Checked Then
            Dim sgd As Double
            sgd = TextBox1.Text / 12955
            Label2.Text = sgd & "SGD"
        Else
            Dim aud As Double
            aud = TextBox1.Text / 12955
            Label2.Text = aud & "AUD"
        End If

        TextBox1.Text = ""
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckBox1.Checked Then
            TextBox2.Text &= CheckBox1.Text & vbNewLine
        End If
        If CheckBox2.Checked Then
            TextBox2.Text &= CheckBox2.Text & vbNewLine
        End If
        If CheckBox3.Checked Then
            TextBox2.Text &= CheckBox3.Text & vbNewLine
        End If
    End Sub
End Sub
End Class

Screenshot : 








Sekian dan terima kasih.