Tugas Pemrograman [Quiz I]

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Focus()
        ComboBox1.Items.Add("TV Sony 2013")
        ComboBox1.Items.Add("TV Sony 32 Inc")
        ComboBox1.Items.Add("TV Sony led 40")
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
       
    End Sub

    
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "TV Sony 2013" Then
            TextBox1.Text = 2500000
            TextBox2.Text = "2"
            TextBox3.Text = 2500000 * 2
            TextBox5.Text = 450000
        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox4.Text = 500000 * 0.1
    End Sub