Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tugas Praktikum PENJUALAN KREDIT MOBIL



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("01")
        kode.Items.Add("02")
        kode.Items.Add("03")
        kode.Items.Add("04")


        kondisi.Items.Add("Baru")
        kondisi.Items.Add("Second")




    End Sub


    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        If kode.Text = "01" Then
            merek.Text = "Xenia"
        ElseIf kode.Text = "02" Then
            merek.Text = "Avanza"
        ElseIf kode.Text = "03" Then
            merek.Text = "Ayla"
        ElseIf kode.Text = "04" Then
            merek.Text = "Karimun"

        End If

        If kode.Text = "01" And kondisi.Text = "Baru" Then
            kode.Text = 123000000
        ElseIf kode.Text = "01" And kondisi.Text = "Second" Then
            kode.Text = 150000000
            If kode.Text = "02" And kondisi.Text = "Baru" Then
                kode.Text = 120000000
            ElseIf kode.Text = "02" And kondisi.Text = "Second" Then
                kode.Text = 152000000
                If kode.Text = "03" And kondisi.Text = "Baru" Then
                    kode.Text = 112000000
                ElseIf kode.Text = "03" And kondisi.Text = "Second" Then
                    kode.Text = 124000000
                    If kode.Text = "04" And kondisi.Text = "Baru" Then
                        kode.Text = 70000000
                    ElseIf kode.Text = "04" And kondisi.Text = "Second" Then
                        kode.Text = 85000000

                    End If



                End If
            End If
        End If
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        lv.Items.Clear()

    End Sub

    Private Sub Btnhpskode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhpskode.Click
        lv.Items.Remove(lv.SelectedItems(0)

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Me.Close()

    End Sub
End Class