Kembali lagi gan,,, kali ini saya akan kembali membahas tentang Visual Basic 2010, kali ini tentang pembayaran PDAM,Telepon, dll , CEKIDOT EKSEKUSI ,,,,,,,,,

Tampilan Sebelum Dijalan kan....

Dan ini tampilan setelah dijalan kan Hasil nya seperti ini ,,,,,

Berikut sintakan program nya ???

Private Sub P_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P.CheckedChanged
        If P.Checked = True Then JK.Text = "Perempuan"

    End Sub

    Private Sub L_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles L.CheckedChanged
        If L.Checked = True Then JK.Text = "Laki-Laki"
    End Sub

    Private Sub Telepon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Telepon.CheckedChanged
        If Telepon.Checked = True Then ByrTelepon.Text = "50000"
        If Telepon.Checked = False Then ByrTelepon.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub PDAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDAM.CheckedChanged
        If PDAM.Checked = True Then ByrPDAM.Text = "37500"
        If PDAM.Checked = False Then ByrPDAM.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub Listrik_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listrik.CheckedChanged
        If Listrik.Checked = True Then ByrListrik.Text = "75000"
        If Listrik.Checked = False Then ByrListrik.Text = "0"
        Total.Text = Val(ByrTelepon.Text) + Val(ByrPDAM.Text) + Val(ByrListrik.Text)
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        Nama.Text = ""
        Alamat.Text = ""
        JK.Text = ""
        ByrTelepon.Text = ""
        ByrPDAM.Text = ""
        ByrListrik.Text = ""
        Total.Text = ""
        L.Checked = False
        P.Checked = False
        Telepon.Text = ""
        PDAM.Text = ""
        Listrik.Text = ""
        ByrTelepon.Text = "0"
        ByrPDAM.Text = "0"
        ByrListrik.Text = "0"
        Total.Text = "0"
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class

Sekian Dan Terima Kasih yang sudah mengunjungi ..... :-)