Ini Visual Basic

Assalamualaikum.Wr.Wb
Disini gw bakal ngasih tau hasil dari kerjaan gw tentang visual basic

Ini hasil fotonya

Dan codingan dari gambar diatas ada dibawah sini

>Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Paket 1" Then
            TextBox1.Text = "Nasi+Ayam Jibu"
            TextBox2.Text = "10000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        ElseIf ComboBox1.Text = "Paket 2" Then
            TextBox1.Text = "Nasi+DagingBawang"
            TextBox2.Text = "20000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        ElseIf ComboBox1.Text = "Paket 3" Then
            TextBox1.Text = "Nasi+Bebek"
            TextBox2.Text = "15000"
            TextBox3.Focus()
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
      
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        TextBox6.Text = Val(TextBox5.Text) - Val(TextBox4.Text)
    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        If TextBox4.Text > 500000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(10 / 100)
            TextBox8.Text = "Jalan jalan ke rumah nanas"

        ElseIf TextBox4.Text > 200000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(5 / 100)
            TextBox8.Text = "Jalan jalan ke rumah apel"

        ElseIf TextBox4.Text > 50000 Then
            TextBox7.Text = Val(TextBox4.Text) - Val(TextBox4.Text) * Val(5 / 100)
            TextBox8.Text = "Jalan jalan ke rumah yusnun"
        End If
    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(1)
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(0).Value = ComboBox1.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(1).Value = ComboBox2.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(2).Value = TextBox1.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(3).Value = TextBox2.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(4).Value = TextBox3.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(5).Value = TextBox4.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(6).Value = TextBox7.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(7).Value = TextBox5.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(8).Value = TextBox6.Text
        DataGridView1.Rows(DataGridView1.RowCount - 2).Cells(9).Value = TextBox8.Text
        DataGridView1.Update()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox7.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
    End Sub
End Class