total pembayaran TV dalam visual basic

By: Novelina M.S

 SOAL QUIS: 2) Buatlah Program Untuk Mencari Total Pembayaran TV




Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NamaBarang.Items.Add("Tv Sony 14")
        NamaBarang.Items.Add("Tv Sony 21")
        NamaBarang.Items.Add("Tv Sony 32")
        NamaBarang.Items.Add("Tv Sony 64")
    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaBarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(NamaBarang.Text, 2)
        Select Case x
            Case "14" : harga.Text = "1000000"
            Case "21" : harga.Text = "1200000"
            Case "32" : harga.Text = "1400000"
            Case "64" : harga.Text = "1600000"

        End Select


    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        If total.Text > 2500000 Then
            disc.Text = 0.1 * total.Text
        End If
        pembayaran.Text = total.Text - disc.Text


    End Sub


    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        NamaBarang.Text = ""
        harga.Text = ""
        jmlh.Text = ""
        total.Text = ""
        disc.Text = ""
        pembayaran.Text = ""


    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

   
End Class

Dan hasil Program nya sebagai berikut: