Orang yang banyak ketawa itu kurang wibawanya. Orang yang suka menghina orang lain, dia juga akan dihina. Orang yang mencintai akhirat, dunia pasti menyertainya.
Barangsiapa menjaga kehormatan orang lain, pasti kehormatan dirinya akan terjaga.
Barangsiapa takut kepada Allah SWT nescaya tidak akan dapat dilihat kemarahannya. Dan barangsiapa takut pada Allah, tidak sia-sia apa yang dia kehendaki.
Aku mengamati semua sahabat, dan tidak menemukan sahabat yang lebih baik daripada menjaga lidah.Saya memikirkan tentang semua pakaian, tetapi tidak menemukan pakaian yang lebih baik daripada takwa. Aku merenungkan tentang segala jenis amal baik, namun tidak mendapatkan yang lebih baik daripada memberi nasihat baik. Aku mencari segala bentuk rezki, tapi tidak menemukan rezki yang lebih baik daripada sabar.
BLOG INA
Selasa, 24 Januari 2012
Program ListView
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Nama.Focus()
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
Call buattabel()
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case "Mandor"
Gaji.Text = 1750000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Staf"
Gaji.Text = 1250000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Kepala Bagian"
Gaji.Text = 2500000
Pajak.Text = 0.015 * Val(Gaji.Text)
End Select
Status.Focus()
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
Dim y As String
y = Status.Text = "Menikah"
If Jabatan.Text = "Mandor" Then
Tunjangan.Text = 0.09 * 1750000
ElseIf Jabatan.Text = "Staf" Then
Tunjangan.Text = 0.09 * 1250000
ElseIf Jabatan.Text = "Kepala Bagian" Then
Tunjangan.Text = 0.09 * 2500000
End If
If Status.Text = "Belum Menikah" Then
Tunjangan.Text = 0
End If
Jumlah.Focus()
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
If Jumlah.Text = "1" Then
Tunjangan_anak.Text = 0.03 * Val(Gaji.Text)
ElseIf Jumlah.Text = "2" Then
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
Else
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
End If
End Sub
Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jam.TextChanged
If Jabatan.Text = "Mandor" Then
Upah.Text = 7500 * Val(Jam.Text)
ElseIf Jabatan.Text = "Staf" Then
Upah.Text = 5000 * Val(Jam.Text)
ElseIf Jabatan.Text = "Kepala Bagian" Then
Upah.Text = 10000 * Val(Jam.Text)
End If
End Sub
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) + Val(Tunjangan_anak.Text) + Val(Upah.Text) - Val(Pajak.Text)
End Sub
Sub buattabel()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Right)
LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(Jabatan.Text)
lst.SubItems.Add(Status.Text)
lst.SubItems.Add(Gaji.Text)
lst.SubItems.Add(Tunjangan.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Tunjangan_anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(Upah.Text)
lst.SubItems.Add(Total.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""
Nama.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Call isitabel()
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""
Nama.Focus()
End Sub
Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
LV.Items.Clear()
End Sub
Private Sub btnhapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_data.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Dim x As String
x = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If x = vbYes Then
Close()
End If
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Nama.Focus()
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
Call buattabel()
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case "Mandor"
Gaji.Text = 1750000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Staf"
Gaji.Text = 1250000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Kepala Bagian"
Gaji.Text = 2500000
Pajak.Text = 0.015 * Val(Gaji.Text)
End Select
Status.Focus()
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
Dim y As String
y = Status.Text = "Menikah"
If Jabatan.Text = "Mandor" Then
Tunjangan.Text = 0.09 * 1750000
ElseIf Jabatan.Text = "Staf" Then
Tunjangan.Text = 0.09 * 1250000
ElseIf Jabatan.Text = "Kepala Bagian" Then
Tunjangan.Text = 0.09 * 2500000
End If
If Status.Text = "Belum Menikah" Then
Tunjangan.Text = 0
End If
Jumlah.Focus()
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
If Jumlah.Text = "1" Then
Tunjangan_anak.Text = 0.03 * Val(Gaji.Text)
ElseIf Jumlah.Text = "2" Then
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
Else
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
End If
End Sub
Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jam.TextChanged
If Jabatan.Text = "Mandor" Then
Upah.Text = 7500 * Val(Jam.Text)
ElseIf Jabatan.Text = "Staf" Then
Upah.Text = 5000 * Val(Jam.Text)
ElseIf Jabatan.Text = "Kepala Bagian" Then
Upah.Text = 10000 * Val(Jam.Text)
End If
End Sub
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) + Val(Tunjangan_anak.Text) + Val(Upah.Text) - Val(Pajak.Text)
End Sub
Sub buattabel()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Right)
LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(Jabatan.Text)
lst.SubItems.Add(Status.Text)
lst.SubItems.Add(Gaji.Text)
lst.SubItems.Add(Tunjangan.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Tunjangan_anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(Upah.Text)
lst.SubItems.Add(Total.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""
Nama.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Call isitabel()
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""
Nama.Focus()
End Sub
Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
LV.Items.Clear()
End Sub
Private Sub btnhapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_data.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Dim x As String
x = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If x = vbYes Then
Close()
End If
End Sub
End Class
program hal 33_Ina yusnita
Public Class Form1
Dim LST As ListViewItem
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "TS001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-gen"
End Select
If kode.Text = "TS001" Then
harga.Text = "105000"
ElseIf kode.Text = "TS002" Then
harga.Text = "75000"
ElseIf kode.Text = "VG001" Then
harga.Text = "90000"
ElseIf kode.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
buat_table()
kosong()
End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("No Pembelian", 100)
.Columns.Add("Kode Barang", 100)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.no.Text)
LST.SubItems.Add(Me.kode.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.merk.Text)
LST.SubItems.Add(Me.harga.Text)
LST.SubItems.Add(Me.jumlah.Text)
LST.SubItems.Add(Me.tharga.Text)
End Sub
Sub kosong()
nama.Text = ""
no.Text = ""
kode.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
no.Focus()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then
lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
no.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
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 jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
tharga.Text = Val(jumlah.Text) * Val(harga.Text)
End Sub
End Class
Dim LST As ListViewItem
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "TS001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-gen"
End Select
If kode.Text = "TS001" Then
harga.Text = "105000"
ElseIf kode.Text = "TS002" Then
harga.Text = "75000"
ElseIf kode.Text = "VG001" Then
harga.Text = "90000"
ElseIf kode.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
buat_table()
kosong()
End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("No Pembelian", 100)
.Columns.Add("Kode Barang", 100)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)
End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.no.Text)
LST.SubItems.Add(Me.kode.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.merk.Text)
LST.SubItems.Add(Me.harga.Text)
LST.SubItems.Add(Me.jumlah.Text)
LST.SubItems.Add(Me.tharga.Text)
End Sub
Sub kosong()
nama.Text = ""
no.Text = ""
kode.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
no.Focus()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then
lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
no.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
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 jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
tharga.Text = Val(jumlah.Text) * Val(harga.Text)
End Sub
End Class
program Hal 32_Ina Yusnita
Public Class Form1
Dim LST As ListViewItem
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String
tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jenjang.Text = "Diploma I"
ElseIf x = "2" Then
jenjang.Text = "Diploma III"
ElseIf x = "3" Then
jenjang.Text = "Strata I"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "01" Then
jurusan.Text = "Manajemen Informatika"
ElseIf x = "02" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "03" Then
jurusan.Text = "Teknik Komputer"
ElseIf x = "04" Then
jurusan.Text = "Akuntansi"
End If
End Sub
Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged
If nangka.Text >= 90 Then
nhuruf.Text = "A"
ElseIf nangka.Text >= 80 Then
nhuruf.Text = "B"
ElseIf nangka.Text >= 70 Then
nhuruf.Text = "C"
ElseIf nangka.Text >= "60" Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buat_table()
kosong()
End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("npm", 100)
.Columns.Add("Nama", 100)
.Columns.Add("jurusan", 100, HorizontalAlignment.Center)
.Columns.Add("jenjang", 100, HorizontalAlignment.Left)
.Columns.Add(" Tahun Masuk ", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Angka", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Huruf", 100, HorizontalAlignment.Left)
End With
End Sub
Sub simpan()
LST = Me.LV.Items.Add(Me.NPM.Text)
LST.SubItems.Add(Me.NAMA.Text)
LST.SubItems.Add(Me.JURUSAN.Text)
LST.SubItems.Add(Me.jenjang.Text)
LST.SubItems.Add(Me.tahun.Text)
LST.SubItems.Add(Me.nangka.Text)
LST.SubItems.Add(Me.nhuruf.Text)
End Sub
Sub kosong()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
jenjang.Text = ""
tahun.Text = ""
nangka.Text = ""
nhuruf.Text = ""
NPM.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
npm.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
End Sub
End Class
Dim LST As ListViewItem
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String
tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jenjang.Text = "Diploma I"
ElseIf x = "2" Then
jenjang.Text = "Diploma III"
ElseIf x = "3" Then
jenjang.Text = "Strata I"
End If
x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "01" Then
jurusan.Text = "Manajemen Informatika"
ElseIf x = "02" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "03" Then
jurusan.Text = "Teknik Komputer"
ElseIf x = "04" Then
jurusan.Text = "Akuntansi"
End If
End Sub
Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged
If nangka.Text >= 90 Then
nhuruf.Text = "A"
ElseIf nangka.Text >= 80 Then
nhuruf.Text = "B"
ElseIf nangka.Text >= 70 Then
nhuruf.Text = "C"
ElseIf nangka.Text >= "60" Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buat_table()
kosong()
End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("npm", 100)
.Columns.Add("Nama", 100)
.Columns.Add("jurusan", 100, HorizontalAlignment.Center)
.Columns.Add("jenjang", 100, HorizontalAlignment.Left)
.Columns.Add(" Tahun Masuk ", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Angka", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Huruf", 100, HorizontalAlignment.Left)
End With
End Sub
Sub simpan()
LST = Me.LV.Items.Add(Me.NPM.Text)
LST.SubItems.Add(Me.NAMA.Text)
LST.SubItems.Add(Me.JURUSAN.Text)
LST.SubItems.Add(Me.jenjang.Text)
LST.SubItems.Add(Me.tahun.Text)
LST.SubItems.Add(Me.nangka.Text)
LST.SubItems.Add(Me.nhuruf.Text)
End Sub
Sub kosong()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
jenjang.Text = ""
tahun.Text = ""
nangka.Text = ""
nhuruf.Text = ""
NPM.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
npm.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
End Sub
End Class
Minggu, 03 Juli 2011
Ucapan Untuk Ayah.....
Jasamu begitu besar untuk keluarga
Engkau tak pernah lelah untuk menafkahi kami
Engkau rela menaiki gunung
Engkau rela menyebrangi lautan
Engkau rela menuruni lembah
Hanya untuk mencari nafkah untuk kami
Ayah….
Engkau adalah pahlawan keluarga
Engkau dengan gagah berani melawan setiap rintangan
Engkau dengan gigih melawan badai kehidupan
Hanya demi menghidupi kami
Ayah….
Dengan apa aku harus membalas semua jasa-jasamu
Ayah….
Jasamu takkan pernah terbayar oleh apapun jua
Ayah….
Aku hanya bisa mengucapkan 1 kata padamu….
“TERIMA KASIH”….
“TERIMA KASIH AYAH”…
Read more: http://www.gudangpuisi.com/2011/04/ucapan-untuk-ayah.html#ixzz1R3XdVVGq
Engkau tak pernah lelah untuk menafkahi kami
Engkau rela menaiki gunung
Engkau rela menyebrangi lautan
Engkau rela menuruni lembah
Hanya untuk mencari nafkah untuk kami
Ayah….
Engkau adalah pahlawan keluarga
Engkau dengan gagah berani melawan setiap rintangan
Engkau dengan gigih melawan badai kehidupan
Hanya demi menghidupi kami
Ayah….
Dengan apa aku harus membalas semua jasa-jasamu
Ayah….
Jasamu takkan pernah terbayar oleh apapun jua
Ayah….
Aku hanya bisa mengucapkan 1 kata padamu….
“TERIMA KASIH”….
“TERIMA KASIH AYAH”…
Read more: http://www.gudangpuisi.com/2011/04/ucapan-untuk-ayah.html#ixzz1R3XdVVGq
Tak Mampu
hati memang sudah tak sanggup lagi
untuk menahan rasa sakit ini
namun apa daya hati ini
tak mampu menjauhimu
tak mampu untuk melepasmu
tak sanggup untuk menghapusmu
aku kan terus menelusuri jalan ini
walaupun gelap tak menentu
meski nanti ku kan terjatuh
aku kan terus menelusuri jalan ini
hingg kau mau memberi sedikit cahaya
yang dapat mengatarkan ku ke hatimu
ku bertahan dalam rasa sakit ini
yang tiada sedkit pun
memberikan penerangan bagiku
untuk sampai kepada mu
ku kan terus berdiri untuk dirimu
walau hatimu terus membisu
ku kan terus tersenyum untuk mu
walau hati tak berkata seperti itu
Read more: http://www.gudangpuisi.com/2011/06/tak-mampu-2.html#ixzz1R3XFcsNM
untuk menahan rasa sakit ini
namun apa daya hati ini
tak mampu menjauhimu
tak mampu untuk melepasmu
tak sanggup untuk menghapusmu
aku kan terus menelusuri jalan ini
walaupun gelap tak menentu
meski nanti ku kan terjatuh
aku kan terus menelusuri jalan ini
hingg kau mau memberi sedikit cahaya
yang dapat mengatarkan ku ke hatimu
ku bertahan dalam rasa sakit ini
yang tiada sedkit pun
memberikan penerangan bagiku
untuk sampai kepada mu
ku kan terus berdiri untuk dirimu
walau hatimu terus membisu
ku kan terus tersenyum untuk mu
walau hati tak berkata seperti itu
Read more: http://www.gudangpuisi.com/2011/06/tak-mampu-2.html#ixzz1R3XFcsNM
Langganan:
Postingan (Atom)