FadLye - Dalam mengikuti perkuliahan di STMIK BUDIDARMA MEDAN, di postingan ini saya akan menjawab pertanyaan quiz online untuk mata kuliah Pemrograman Visual. Awalnya sih sedikit bingung untuk penulisan atau tata cara quiznya, karena dibaca berulang-ulang dan terus bingung @-) , akhirnya megerti juga :D *bocah labil . Kalau mengerjakan programannya sih cukup mudah dan juga membutuhkan waktu lama *dicampur tidur-tiduran. Dipostingan ini juga saya mengajak teman-teman untuk bersama-sama belajar dan jika ada kekurangannya tolong dikasih saran dengan berkomentar di bawah postingan ini :) . Semoga hasil yang saya kerjakan memuaskan dan inilah hasilnya o:
Selesaikanlah Kasus Berikut :
Kasus Pemrograman : Informasi Penjualan Produk
Berikut Jawaban Program :
Coding :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'pembuatan kode produk
For KD = 1 To 3
Kode_cb.Items.Add("" & KD)
Next
Call tabel_LVp()
End Sub
Sub tabel_LVp()
LVp.Columns.Add("No", 30, HorizontalAlignment.Center)
LVp.Columns.Add("Kode", 80, HorizontalAlignment.Center)
LVp.Columns.Add("Nama Produk", 160, HorizontalAlignment.Left)
LVp.Columns.Add("Harga/@", 115, HorizontalAlignment.Center)
LVp.Columns.Add("Jumlah", 60, HorizontalAlignment.Center)
LVp.Columns.Add("Sub Total", 120, HorizontalAlignment.Center)
LVp.GridLines = True
LVp.FullRowSelect = True
LVp.View = View.Details
End Sub
Sub isi_tabel()
Dim isi As New ListViewItem
isi.Text = LVp.Items.Count + 1
isi.SubItems.Add(Kode_cb.Text)
isi.SubItems.Add(Produk_tb.Text)
isi.SubItems.Add(Harga_tb.Text)
isi.SubItems.Add(Jumlah_tb.Text)
isi.SubItems.Add(SubTotal_tb.Text)
LVp.Items.Add(isi)
End Sub
Private Sub Tutup_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_btn.Click
Me.Close()
End Sub
Private Sub Kode_cb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_cb.SelectedIndexChanged
If Kode_cb.Text = "1" Then
Produk_tb.Text = "TV"
Harga_tb.Text = 2000000
ElseIf Kode_cb.Text = "2" Then
Produk_tb.Text = "DVD"
Harga_tb.Text = 650000
ElseIf Kode_cb.Text = "3" Then
Produk_tb.Text = "CD ROOM"
Harga_tb.Text = 450000
End If
End Sub
Private Sub Proses_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses_btn.Click
If Jumlah_tb.Text = "" Then
MsgBox("MASUKKAN JUMLAH BARANG!", vbCritical, "Salah")
Jumlah_tb.Focus()
End If
SubTotal_tb.Text = Harga_tb.Text * Jumlah_tb.Text
isi_tabel()
Dim TotalH As Integer
For i As Integer = 0 To LVp.Items.Count - 1
TotalH = TotalH + LVp.Items(i).SubItems(5).Text
Next
'Tampilkan hasil dari Total Bayar
TotalHarga_tb.Text = TotalH
End Sub
Private Sub Batal_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal_btn.Click
Kode_cb.Text = ""
Produk_tb.Text = ""
Harga_tb.Text = ""
Jumlah_tb.Text = ""
SubTotal_tb.Text = ""
End Sub
Private Sub HapusP_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusP_btn.Click
'menghapus isian listview yang dipilih
LVp.Items.Remove(LVp.SelectedItems(0))
End Sub
Private Sub HapusL_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusL_btn.Click
'menghapus semua isi yang ada di listview
LVp.Items.Clear()
End Sub
Private Sub Jumlah_tb_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_tb.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Proses_btn_Click(sender, e)
End If
End Sub
End Class
Demikilahlah postingan saya untuk mengikuti quiz online mata kuliah Pemrograman Visual
Nama : MUHAMMAD FADLY
NPM : 14110966
Selamat Belajar Pemrograman VB NET
0 Response to "Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net "
Post a Comment