Contoh Program Visual Basic 2010 : Latihan 4

Visual Basic 2010

              Buat yang gemar membuat program tentunya tidak asing lagi mendengar kata visual basic, adalah sebuah bahasa pemrograman yang bekerja dalam ruang lingkup  Ms Windows.

              Berikut saya akan berikan kumpulan contoh-contoh program dengan menggunakan Visual Basic 2010 (Latihan 4 - 17). Dan dalam program ini keseluruhannya kita buat dengan menggunakan jenis Windows Form.

'Latihan 4 (Mencari Diskon dan Total Bayar)

                            'Tampilan Form

'Coding

Public Class Latihan4

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub txtTP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTP.TextChanged

        Dim TP, Diskon, TB As Long

        TP = Val(Me.txtTP.Text)

        If TP < 100000 Then

            Diskon = 0

        ElseIf TP >= 100000 And TP <= 500000 Then

            Diskon = TP * 0.1

        ElseIf TP > 500000 And TP <= 1000000 Then

            Diskon = TP * 0.15

        ElseIf TP > 1000000 Then

            Diskon = TP * 0.2

        End If

        TB = TP - Diskon

        Me.txtDiskon.Text = Diskon.ToString

        Me.txtTB.Text = TB.ToString

    End Sub

    Private Sub Latihan4_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

    Private Sub Latihan4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utama.Enabled = True

        Utama.Show()

        Me.Hide()

    End Sub

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

        Me.txtTP.Text = "0"

    End Sub

End Class