Deskripsi & Prosedur Form Latihan_12_36110046
Deskripsi Form Latihan_12_36110046
Gambar (1)
Form Latihan 12 terdapat tiga object, yaitu label,
textbox, button, datagridview, datetimepicker, dan
groupbox.
Object Label
Terdapat 11 objek label (seperti terlihat gambar di atas)
Object Textbox
Terdapat 9 objek textbox (seperti terlihat gambar di atas)
Object Button
Terdapat 7 objek button (seperti terlihat
gambar di atas)
Object DataGridView
Terdapat 1 objek datagridview (seperti
terlihat gambar di atas)
Object DateTimePicker
Terdapat 1 objek datetimepicker (seperti
terlihat gambar di atas)
Object GroupBox
Terdapat 5 objek groupbox (seperti terlihat
gambar di atas)
Script Unique
Membuat Tabel
Dim TABLE As New DataTable
Event
Text Changed
Button Click
Property
Readonly
Prosedur Form Latihan_01_36110046
Gambar (2)
Langkah-langkah mengerjakan Latihan 12, sbb:
1. Buka
Ms. Visual Studio
2. Klik
Create Project
3. Ketik
nama file yang ingin disimpan
4. Akan
terbuka jendela pekerjaan Ms. Visual Studio
5. Design
form dengan menggunakan tools pada toolbox
6. Buat
text pada form dengan menggunakan label,
seperti pada gambar
7. Buat
objek lainnya sesuai dengan design pada latihan 12 dengan toolbox, ikuti gambar
dibawah ini:
8. Setelah
design sudah bagus, saatnya untuk membuat script
9. Buat
script prosedur sendiri seperti
dibawah ini:
Public Class
Latihan_12_36110046
Dim TABLE As New DataTable
Private Sub Latihan_12_36110046_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
TABLE.Columns.Add(New DataColumn("No.
Pembelian", GetType(String)))
TABLE.Columns.Add(New DataColumn("Nama
Barang", GetType(String)))
TABLE.Columns.Add(New DataColumn("Harga
Perunit", GetType(Double)))
TABLE.Columns.Add(New DataColumn("Tanggal
Pembelian", GetType(Date)))
TABLE.Columns.Add(New DataColumn("Unit",
GetType(Integer)))
TABLE.Columns.Add(New DataColumn("Jumlah",
GetType(Double)))
DGV_36110046.DataSource = TABLE
Dim
kolom(1) As DataColumn
kolom(0) = TABLE.Columns("No. Pembelian")
TABLE.PrimaryKey = kolom
End Sub
Private Sub UNIT_36110046_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
UNIT_36110046.TextChanged
JUMLAH_36110046.Text =
Val(UNIT_36110046.Text) * Val(HP_36110046.Text)
End Sub
Private Sub SIMPAN_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles SIMPAN_36110046.Click
Dim
baris As DataRow
baris =
TABLE.Rows.Find(NP_36110046.Text)
If
baris Is Nothing
Then
baris = TABLE.NewRow
baris("No.
Pembelian") = NP_36110046.Text
baris("Nama
Barang") = NB_36110046.Text
baris("Harga
Perunit") = Val(HP_36110046.Text)
baris("Tanggal
Pembelian") = TGL_36110046.Value.Date
baris("Unit")
= Val(UNIT_36110046.Text)
baris("Jumlah")
= Val(JUMLAH_36110046.Text)
TABLE.Rows.Add(baris)
NP_36110046.Text = ""
NB_36110046.Text = ""
HP_36110046.Text = ""
UNIT_36110046.Text = ""
JUMLAH_36110046.Text = ""
Else :
MsgBox("baris sudah ada")
JUMLAH_36110046.Text = ""
End If
qipe()
End Sub
Private Sub T1_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles T1_36110046.Click
Dim
baris As DataRow
If
Val(NOBARIS_36110046.Text) <= TABLE.Rows.Count Then
baris =
TABLE.Rows(Val(NOBARIS_36110046.Text) - 1)
NP_36110046.Text = baris("No. Pembelian")
NB_36110046.Text = baris("Nama Barang")
HP_36110046.Text = baris("Harga Perunit")
TGL_36110046.Value = baris("Tanggal Pembelian")
UNIT_36110046.Text = baris("Unit")
JUMLAH_36110046.Text = baris("Jumlah")
Else
MsgBox("baris
terlalu besar")
End If
NOBARIS_36110046.Text = ""
End Sub
Private Sub H1_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles H1_36110046.Click
Dim
baris As DataRow
If
Val(NOBARIS_36110046.Text) <= TABLE.Rows.Count Then
baris = TABLE.Rows(Val(NOBARIS_36110046.Text)
- 1)
baris.Delete()
Else
MsgBox("no.
baris yang dimasukkan tidak ada")
End If
NOBARIS_36110046.Text = ""
qipe()
End Sub
Private Sub T2_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles T2_36110046.Click
Dim
baris As DataRow
baris =
TABLE.Rows.Find(NOPEMB_36110046.Text)
If Not baris Is Nothing Then
NP_36110046.Text = baris("No. Pembelian")
NB_36110046.Text = baris("Nama Barang")
HP_36110046.Text = baris("Harga Perunit")
TGL_36110046.Value = baris("Tanggal Pembelian")
UNIT_36110046.Text = baris("Unit")
JUMLAH_36110046.Text = baris("Jumlah")
Else
MsgBox("no.
pembelian tidak ada")
End If
NOPEMB_36110046.Text = ""
End Sub
Private Sub H2_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles H2_36110046.Click
Dim baris As DataRow
baris =
TABLE.Rows.Find(NOPEMB_36110046.Text)
If Not baris Is Nothing Then
baris.Delete()
NOPEMB_36110046.Text = ""
Else
MsgBox("no.
pembelian yang dimasukkan tidak ada")
NOPEMB_36110046.Text = ""
End If
qipe()
End Sub
Private Sub T3_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles T3_36110046.Click
Dim
baris As DataRow
baris =
TABLE.DefaultView(BindingContext(TABLE).Position).Row
NP_36110046.Text = baris("No. Pembelian")
NB_36110046.Text = baris("Nama Barang")
HP_36110046.Text = baris("Harga Perunit")
TGL_36110046.Value = baris("Tanggal Pembelian")
UNIT_36110046.Text = baris("Unit")
JUMLAH_36110046.Text = baris("Jumlah")
End Sub
Private Sub H3_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles H3_36110046.Click
Dim
baris As DataRow
baris =
TABLE.DefaultView(BindingContext(TABLE).Position).Row
baris.Delete()
qipe()
End Sub
Private Sub qipe()
Dim tu,
total As Integer
For Each x As DataRow In TABLE.Rows
tu = tu + x("Unit")
total = total + x("Jumlah")
Next
TOTUNIT_36110046.Text = tu
TOT_36110046.Text = total
End Sub
End Class
10. Silahkan
jalankan program anda. Wassalam.
Tidak ada komentar:
Posting Komentar