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:
