PROGRAM VB NET MENCARI TOTAL PEMBAYARAN TV

Berikut Listing Program VB Net Pembayaran TV

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nbrg.Items.Add("LG")
        nbrg.Items.Add("SAMSUNG")
        nbrg.Items.Add("SONY")
    End Sub
    Private Sub nb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbrg.SelectedIndexChanged
        If nbrg.Text = "LG" Then
            hrg.Text = "1500000"
        ElseIf nbrg.Text = "SAMSUNG" Then
            hrg.Text = "2000000"
        ElseIf nbrg.Text = "SONY" Then
            hrg.Text = "1000000"
        End If
    End Sub

    Private Sub jlhjual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhjual.KeyPress
        If e.KeyChar = Chr(13) Then
            tohar.Text = Val(hrg.Text * jlhjual.Text)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tohar.Text = hrg.Text * jlhjual.Text
        If tohar.Text > 2500000 Then
            disk.Text = 0.1 * tohar.Text
        Else
            disk.Text = 0


        End If
        topem.Text = tohar.Text - disk.Text

    End Sub
End Class