Quis online

prosesnya

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Nma_brng.Items.Add("TV32")

        Nma_brng.Items.Add("TV15")

        Nma_brng.Items.Add("TV12")

    End Sub

    Private Sub Nma_brng_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nma_brng.SelectedIndexChanged

        Select Case Nma_brng.Text

            Case "TV32"

                Harga.Text = "3800000"""

            Case "TV15"

                Harga.Text = "3500000"

            Case Else

                Harga.Text = "2500000"

        End Select

    End Sub

    Private Sub Jum_jul_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jum_jul.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Total_harga.Text = Val(Harga.Text * Jum_jul.Text)

            If Jum_jul.Text > 25000000 Then

                Discont.Text = Val(Total_harga.Text * 0.1)

            Else

                Discont.Text = 0

            End If

            Totl_Pmbyr.Text = Val(Total_harga.Text - Discont.Text)

        End If

    End Sub

  Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        Total_harga.Text = Val(Harga.Text * Jum_jul.Text)

        If Jum_jul.Text > 25000000 Then

            Discont.Text = Val(Total_harga.Text * 0.1)

        Else

            Discont.Text = 0

        End If

        Totl_Pmbyr.Text = Val(Total_harga.Text - Discont.Text)

    End Sub

End