Tugas quis hal 32

TGL 29 01 2012
HAL : 32

* LABEL ADA 7

NPM, NAMA, JURUSAN, JENJANG, TAHUN MASUK, NILAI ANGKA, DAN NILAI HURUF

* TEXT BOX ADA 7

DI DEPAN NPM NAMA NPM
DI DEPAN NAMA NAMA NAMA
DI DEPAN JURUSAN NAMA JURUSAN
DI DEPAN JENJANG NAMA JENJANG
DI DEPAN TAHUN MASUK NAMA TAHUNMASUK
DI DEPAN NILAI ANGKA NAMA NILAIANGKA
DI DEPAN NILAI HURUF NAMA NILAIHURUF

* menu containers. satu groupbox name tombol


* Buttom ADA 5

DI DALAM TOMBOL - SIMPAN KE LIST NAMA BTNSIMPAN
- BERSIH NAMA BTNBERSIH
- HAPUS SEMUA DATA NAMA BTNHAPUSSEMUA
- HAPUS DATA YANG DI PILIH NAMA BTNHAPUSDATA
- KELUAR NAMA BTNKELUAR

* LISTVIEW ADA 1 NAMA LV


PROGRAM :

Public Class TUGASHAL32
Sub BUATTABEL()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA", 180, HorizontalAlignment.Center)
LV.Columns.Add("JURUSAN", 80, HorizontalAlignment.Center)
LV.Columns.Add("JENJANG", 80, HorizontalAlignment.Center)
LV.Columns.Add("TAHUNMASUK", 80, HorizontalAlignment.Center)
LV.Columns.Add("NILAIANGKA", 80, HorizontalAlignment.Center)
LV.Columns.Add("NILAIHURUP", 80, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = NPM.Text
LST.SubItems.Add(NAMA.Text)
LST.SubItems.Add(JURUSAN.Text)
LST.SubItems.Add(JENJANG.Text)
LST.SubItems.Add(TAHUNMASUK.Text)
LST.SubItems.Add(NILAIANGKA.Text)
LST.SubItems.Add(NILAIHURUP.Text)
LV.Items.Add(LST)
End Sub
Private Sub TUGASHAL32_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
End Sub

Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
ISITABEL()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
JENJANG.Text = ""
TAHUNMASUK.Text = ""
NILAIANGKA.Text = ""
NILAIHURUP.Text = ""
End Sub

Private Sub BTNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSSEMUA.Click
LV.Items.Clear()
End Sub

Private Sub BTNHAPUSDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDATA.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
JENJANG.Text = ""
TAHUNMASUK.Text = ""
NILAIANGKA.Text = ""
NILAIHURUP.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

herysiregar: Aku Ingin Sebuah Kenyataan

herysiregar: Aku Ingin Sebuah Kenyataan

Aku Ingin Sebuah Kenyataan

Aku Ingin Sebuah Kenyataan

butuh banyak keikhlasan untuk mencapai sesuatu
dari sekian pengorbanan..

tapi sebagian tak mengerti semua itu
bahkan tak ingin untuk di mengerti

andai saja aku bisa merasakan kematian
mungkin perasaan yang lebih dingin itu
kan jadi petunjuk ku

tapi sayank….???
aku hanya mimpi dalam cerita ini
mimpi dimana aku harus merasakan kebahagiaan
aku tak mau terus seperti ini,,

aku ingin sebuah kenyataan,,
aku ingin sebuah pengorbanan,,
aku ingin semua keikhlasan itu ada artinya
aku ingin melawan perasaan yang tulus ini
jauh dari yang sebenarnya ”menyakitkan”

LIBURAN TAHUN BARU