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

JUDUL SOAL: 

Informasi Penjualan Produk
--------------------------------------------------
No Kode    Produk            Harga Jumlah Total
--------------------------------------------------
1  1    TV                           2000000 1 4000000
2  2    DVD                         650000 2 1300000
3  2    DVD                         650000 1  650000
4  1    TV                           2000000 3 6000000
5  3    CD ROOM                450000 2  900000
--------------------------------------------------

Ketentuan agar hasil output seperti di atas yaitu

Jika Kode=1 maka Produknya TV seharga 2000000
Jika Kode=2 maka Produknya DVD seharga 650000

Jika Kode=3 maka Produknya CD ROOM seharga 450000

Nah dari kasus di atas, silahkan anda buat program agar bisa menghasilkan output seperti tersebut.

Hasil program yang diharapkan seperti gambar di bawah ini :

Tampilan Output

Berikut Jawaban Program :




Public Class Form1

    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("1")
        Kode.Items.Add("2")
        Kode.Items.Add("3")

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "1" Then
            Produk.Text = "TV"
            Harga.Text = "2000000"
        ElseIf Kode.Text = "2" Then
            Produk.Text = "DVD"
            Harga.Text = "65000000"
        ElseIf Kode.Text = "3" Then
            Produk.Text = "CD ROOM"
            Harga.Text = "4500000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        JumlahTotal.Text = Jumlah.Text * Harga.Text
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Kode.Text = ""
        Produk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        JumlahTotal.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

Tampilan Hasil:

Demikilahlah postingan saya:

Nama : Fiktor Mei Halawa

NPM : 14110251

Selamat Belajar Pemrograman VB NET