Latihan_12_36110052
A.
Object-object
dalam Latihan_12_36110052 :
1.
Object Label
Terdapat
sebelas label (yang bertuliskan no pembelian, nama barang, harga perunit, unit,
tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang).
2.
Object
Textbox
Terdapat
sembilan textbox (enama status input; tiga status read only). Status input
digunakan untuk memasukkan no pembelian, nama barang, harga perunit, no baris.
Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit
dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam
datagridview.
3.
Object Button
Terdapat
tujuh object button (Simpan, button Tampilkan ada 3, dan button Hapus ada 3.
Button simpan digunakan untuk memasukkan data yang telah diinput ke dalam
datagridview. Button tampilkan digunakan untuk menampilkan data dalam
datagridview ke dalam textbox tempat menginput data. Sedangkan button hapus
digunkan untuk menghapus data yang ada di dalam datagridview.
4.
Object DataGridView
Terdapat satu objek datagridview yang
digunakan untuk menampilkan data yang telah diinput dalam no pembelian, nama
barang, harga perunit, unit, jumlah, dan tanggal pembelian.
5.
Object DateTimePicker
Terdapat
satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.
B.
Script Unique
Untuk button Simpan, Tampilkan, dan Hapus:
Dim
baris As DataRow
C. Even
LATIHAN_12_36110052_Load
HPU_36110052_TextChanged
SIMPAN_36110052_Click
TAMPILKAN1_36110048_Click
HAPUS1_36110048_Click
VIA()
D. Property
Langkah-langkah kerja latihan_12_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_12_36110052
3. Buat
2 groupbox yang aplikasikanya dapat diambil dri toolbox
4. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara
5. Ubah
text groupbox pertama menjadi FORMULIR dan groupbox kedua menjadi DATA
6. Di
dalam groupbox pertama buat 6 label
dengan dan ubah textnya menjadi no pembelian,nama barang,harga per
unit,unit,jumlah,tanggal
7. Buat
1 date time picker dan ubah namanya contoh saya ubah menjadi DTP_36110052
8. Buat
4 textbox dan ubah setiap nama dari textbox tersebut contoh:
Np_36110052,nb_36110052,hpu_36110052,unit_36110052
9. Buat
1 textbox dan ubah status textbox
menjadi read only di atas dengan cara klik kanan àpropertiesàcari kalimat
read onlyàubah
statusnya menjadi true dan berikan nama textbox
tersebut contoh jumlah_36110052
10. Didalam
groupbox kedua buat 1 dategridview dan ubah namanya,contoh
datagridview_36110052
11. Buat
3 groupbox didalam groupbox kedua dan ubah
textnya masing-masing menjadi berdasarkan no baris,berdasarkan no
pembekian dan berdasarkan baris sekarang
12. Buat
5 label dan ubah textnya menjadi total unit,total,no.baris,no pembelian,baris
sekarang
13. Buat
4 textbox dan 2 diantaranya dengan status read only dan berikan nama setiap
textbox yang dibuat
14. Buat
6 button dan ubah teksnya menjadi tampilkan dan hapus
15. Form
yang kita buat berbentuk seperti ini
16. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public Class LATIHAN_12_36110052
Dim TABEL As
New DataTable
Sub LATIHAN_12_36110052_Load(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TABEL.Columns.Add(New DataColumn("no.
pembelian", GetType(String)))
TABEL.Columns.Add(New DataColumn("nama
barang", GetType(String)))
TABEL.Columns.Add(New DataColumn("harga
per unit", GetType(Double)))
TABEL.Columns.Add(New DataColumn("tanggal
pembelian", GetType(Date)))
TABEL.Columns.Add(New DataColumn("unit",
GetType(Integer)))
TABEL.Columns.Add(New DataColumn("jumlah",
GetType(Double)))
DataGridView_36110052.DataSource =
TABEL
Dim
kolom(1) As DataColumn
kolom(0) = TABEL.Columns("no. pembelian")
TABEL.PrimaryKey = kolom
End Sub
Private Sub
HPU_36110052_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
HPU_36110052.TextChanged, UNIT_36110052.TextChanged
JUMLAH_36110052.Text =
Val(HPU_36110052.Text) * Val(UNIT_36110052.Text)
End Sub
Private Sub
SIMPAN_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SIMPAN_36110052.Click
Dim
baris As DataRow
baris = TABEL.Rows.Find(NP.Text)
If
baris Is Nothing
Then
baris = TABEL.NewRow
baris("no. pembelian") = NP_36110052.Text
baris("nama
barang") = NB_36110052.Text
baris("harga
per unit") = Val(HPU_36110052.Text)
baris("tanggal
pembelian") = DTP_36110052.Value.Date
baris("unit")
= Val(UNIT_36110052.Text)
baris("jumlah")
= Val(JUMLAH_36110052.Text)
TABEL.Rows.Add(baris)
NP_36110052.Text = ""
NB_36110052.Text = ""
HPU_36110052.Text = ""
UNIT_36110052.Text = ""
JUMLAH_36110052.Text = ""
Else :
MsgBox("baris sudah ada")
JUMLAH.Text = ""
End If
VIA()
End Sub
Private Sub
TAMPILKAN_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TAMPILKAN_36110052.Click
Dim
baris As DataRow
If
Val(NBARIS_36110052.Text) <= TABEL.Rows.Count Then
baris =
TABEL.Rows(Val(NBARIS_36110052.Text) - 1)
NP_36110052.Text = baris("no. pembelian")
NB_36110052.Text = baris("nama barang")
HPU_36110052.Text = baris("harga per unit")
DTP_36110052.Value = baris("tanggal pembelian")
UNIT_36110052.Text = baris("unit")
JUMLAH_36110052.Text = baris("jumlah")
Else
MsgBox("baris
terlalu besar")
End If
NBARIS_36110052.Text = ""
End Sub
Private Sub
HAPUS_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
HAPUS_36110052.Click
Dim
baris As DataRow
If
Val(NBARIS_36110052.Text) <= TABEL.Rows.Count Then
baris =
TABEL.Rows(Val(NBARIS_36110052.Text) - 1)
baris.Delete()
VIA()
Else
MsgBox("no.
baris yang dimasukkan tidak ada")
End If
NBARIS_36110052.Text = ""
End Sub
Private Sub
TAMPILKAN2_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TAMPILKAN2_36110052.Click
Dim
baris As DataRow
baris =
TABEL.Rows.Find(NPEM_36110052.Text)
If Not baris Is Nothing Then
NP_36110052.Text = baris("no. pembelian")
NB_36110052.Text = baris("nama barang")
HPU_36110052.Text = baris("harga per unit")
DTP_36110052.Value = baris("tanggal pembelian")
UNIT_36110052.Text = baris("unit")
JUMLAH_36110052.Text = baris("jumlah")
Else
MsgBox("no.
pembelian tidak ada")
End If
NPEM_36110052.Text = ""
End Sub
Private Sub
HAPUS2_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
HAPUS2_36110052.Click
Dim
baris As DataRow
baris =
TABEL.Rows.Find(NPEM_36110052.Text)
If Not baris Is Nothing Then
baris.Delete()
VIA()
NPEM_36110052.Text = ""
Else
MsgBox("no.
pembelian yang dimasukkan tidak ada")
NPEM_36110052.Text = ""
End If
End Sub
Private Sub
TAMPILKAN3_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TAMPILKAN3_36110052.Click
Dim
baris As DataRow
baris =
TABEL.DefaultView(BindingContext(TABEL).Position).Row
NP_36110052.Text = baris("no. pembelian")
NB_36110052.Text = baris("nama barang")
HPU_36110052.Text = baris("harga per unit")
DTP_36110052.Value = baris("tanggal pembelian")
UNIT_36110052.Text = baris("unit")
JUMLAH_36110052.Text = baris("jumlah")
End Sub
Private Sub
HAPUS3_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
HAPUS3_36110052.Click
Dim
baris As DataRow
baris =
TABEL.DefaultView(BindingContext(TABEL).Position).Row
baris.Delete()
VIA()
End Sub
Private Sub
VIA()
Dim tu,
total As Integer
For Each x As DataRow In TABEL.Rows
total = total + x("jumlah")
Next
TU_36110052.Text = tu
TOTAL_36110052.Text = total
End Sub
End Class
17. Uji program dengan
mengklik “Start Debbuging” dan save
program dengan mengklik “Save”.
18. SELESAI
Tidak ada komentar:
Posting Komentar