Kasus : Lihat disini.

Listing Form Login :

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Soraya" And TextBox2.Text = "123" Then
Form1.Show()
Me.Hide()
Else
MsgBox("Harus Mengisi Username dan Password", 32, "Pesan")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class



Berikut Tampilannya :

Listing Form Penggajian Karyawan :

Public Class Form1
Sub BuatTable()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.GridLines = True
LV.View = View.Details
LV.FullRowSelect = True
End Sub

Sub isiTabel()
Dim lst As New ListViewItem
lst.Text = txtnama.Text
lst.SubItems.Add(CmbJabatan.Text)
lst.SubItems.Add(TxtGjPkk.Text)
lst.SubItems.Add(TxtTnjngnStts.Text)
lst.SubItems.Add(TxtTnjngnAnak.Text)
lst.SubItems.Add(TxtTtlLmbr.Text)
lst.SubItems.Add(TxtPjk.Text)
lst.SubItems.Add(LblTtlGaji.Text)
LV.Items.Add(lst)
End Sub
Private Sub CmbJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbJabatan.SelectedIndexChanged
If CmbJabatan.Text = "Mandor" Then
TxtGjPkk.Text = "1750000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
ElseIf CmbJabatan.Text = "Kepala Bagian" Then
TxtGjPkk.Text = "2500000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
Else
TxtGjPkk.Text = "1250000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
End If
End Sub
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
LblTtlGaji.Text = (Val(TxtGjPkk.Text) + Val(TxtTnjngnStts.Text) + Val(TxtTnjngnAnak.Text) + Val(TxtTtlLmbr.Text) - Val(TxtPjk.Text))
Call isiTabel()
End Sub
Private Sub btnUlang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUlang.Click
TxtNama.Text = ""
CmbJabatan.Text = "Pilihan"
RdMenkah.Checked = False
RdBelum.Checked = False
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
TxtGjPkk.Text = ""
TxtTnjngnStts.Text = ""
TxtTnjngnAnak.Text = ""
TxtJmLmbr.Text = ""
TxtTtlLmbr.Text = ""
TxtPjk.Text = ""
LblTtlGaji.Text = ""
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTable()
TxtNama.Text = ""
CmbJabatan.Text = "Pilihan"
RdMenkah.Checked = False
RdBelum.Checked = False
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
TxtGjPkk.Text = ""
TxtTnjngnStts.Text = ""
TxtTnjngnAnak.Text = ""
TxtJmLmbr.Text = ""
TxtTtlLmbr.Text = ""
TxtPjk.Text = ""
LblTtlGaji.Text = ""
CmbJabatan.Text = "Pilihan"
CmbJabatan.Items.Add("Mandor")
CmbJabatan.Items.Add("Kepala Bagian")
CmbJabatan.Items.Add("Staff")
End Sub

Private Sub RdMenkah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdMenkah.CheckedChanged
If RdMenkah.Checked Then
TxtTnjngnStts.Text = (Val(TxtGjPkk.Text) * (0.09))
End If
Rd1org.Enabled = True
Rd2Org.Enabled = True
RdLbh.Enabled = True
End Sub

Private Sub RdBelum_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdBelum.CheckedChanged
If RdBelum.Checked Then
TxtTnjngnAnak.Text = ""
TxtTnjngnStts.Text = ""
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
Rd1org.Enabled = False
Rd2Org.Enabled = False
RdLbh.Enabled = False
End If
End Sub

Private Sub Rd1org_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd1org.CheckedChanged
If Rd1org.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.03))
End If
End Sub

Private Sub Rd2Org_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd2Org.CheckedChanged
If Rd2Org.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.07))
End If
End Sub

Private Sub RdLbh_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdLbh.CheckedChanged
If RdLbh.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.07))
End If
End Sub

Private Sub TxtJmLmbr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJmLmbr.TextChanged
If CmbJabatan.Text = "Mandor" Then
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (7500))
ElseIf CmbJabatan.Text = "Kepala Bagian" Then
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (10000))
Else
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (5000))
End If
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class



Berikut Tampilan Form Penggajian :

Selengkapnya...

Kasus : Lihat di sini.


Listing Programnya :

Public Class Form1
Sub buatTable()
LV.Columns.Add("NPM", 60, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Center)
LV.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Angka", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isiTable()
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(ThnMsk.Text)
lst.SubItems.Add(NA.Text)
lst.SubItems.Add(NH.Text)
LV.Items.Add(lst)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKluar.Click
End
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrsh.Click
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
ThnMsk.Text = ""
NA.Text = ""
NH.Text = ""
NPM.Focus()
End Sub

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buatTable()
Jurusan.Items.Add("Teknik Informatika")
Jurusan.Items.Add("Sistem Informatika")
Jurusan.Items.Add("Manajemen Informatika")
Jurusan.Items.Add("Teknisi Komputer")
End Sub

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

Private Sub btnSmpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSmpn.Click
Call isiTable()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
ThnMsk.Text = ""
NA.Text = ""
NH.Text = ""
End Sub

Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged
If Jurusan.Text = "Teknik Informatika" Then
Jenjang.Text = "S1"
ElseIf Jurusan.Text = "Sistem Informatika" Then
Jenjang.Text = "S1"
ElseIf Jurusan.Text = "Manajemen Informatika" Then
Jenjang.Text = "D3"
Else
Jenjang.Text = "D1"
End If
End Sub

Private Sub NA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NA.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Label7_Click(sender, e)
End If
End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
If NA.Text >= 100 Then
NH.Text = "A"
ElseIf NA.Text >= 80 Then
NH.Text = "B"
ElseIf NA.Text >= 60 Then
NH.Text = "C"
ElseIf NA.Text >= 50 Then
NH.Text = "D"
Else
NH.Text = "E"
End If
End Sub
End Class



Berikut Tampilannya :

Selengkapnya...

InspirasiKu adalah sang IBU. Karena ibu selalu sayang sama aku walaupun aku bandel dan sering melawan. Ibu selalu memberi yang terbaik.

Seperti Lirik lagu kesukaanku BUNDA by: Potret

Kubuka album biru
Penuh debu dan kusam
Kupandangi semua gambar diri
Kecil bersih belum ternoda

Pikirku pun melayang
Dahulu penuh kasih
Teringat semua cerita orang
Tentang riwayatku

Kata mereka diriku s'lalu dimanja
Kata mereka diriku s'lalu ditimang

Nada-nada yang indah
S'lalu terurai darinya
Tangisan nakal dari bibirku
Tak 'kan jadi deritanya

Tangan halus dan suci
T'lah mengangkat tubuh ini
Jiwa raga dan seluruh hidup
Rela dia berikan

Kata mereka diriku s'lalu dimanja
Kata mereka diriku s'lalu ditimang

Oh Bunda ada dan tiada
Dirimu 'kan selalu ada di dalam hatiku

Pikirku pun melayang
Dahulu penuh kasih
Teringat semua cerita orang
Tentang riwayatku

Kata mereka diriku s'lalu dimanja
Kata mereka diriku s'lalu ditimang

Oh Bunda ada dan tiada
Dirimu 'kan selalu ada di dalam hatiku..

I miss U mom.. Selengkapnya...

Pengen ketemu Afgan...^_^

sama lee min hoo

Nothing Is Impossible. Hehehe... Selengkapnya...

"Cita-citaku....ingin jadi Profesor. Bikin pesawat terbang....ku buat sendiri". Hehehe...Tapi tu lagunya joshua waktu kecil.

Setiap orang pasti punya cita-cita, apapun itu.

Nah, cita-citaku adalah ingin jadi Dokter. Kan mantab tu kalo di Panggil dr.Siti Soraya. Hehe...Kenapa?

Karena, jadi dokter gak gampang, harus butuh keberanian menghadapi pasien yang mempunyai berbagai macam penyakit dan keluhan, belum lagi menghadapi korban kecelakaan yang keadaannya yang belum tentu sempurna. Hmmm...salut deh buat Buk and Pak Dokter. Selengkapnya...

Pasti ada hal yang kita gak suka. Semua tergantung dari diri sendiri masing-masing. Inilah hal itu :


1. Temen Musiman

Ya gak suka aja kalo ada temen yang ada waktu kita lagi seneng aja, ato lagi butuh sama kita, ya gak temen-temen ^_^.

2.Bohong

Mungkin untuk yang satu ini ada gak orang yang suka dibohongin. Jujurlah walu itu menyakitkan.

3.Plin-Plan

Gak suka dengan kebimbangan, yang tidak tegas. Suka berubah-ubah pendirian.


4.Manja berlebihan

Manja yang standart aja. Gak sah dilebih2kan. Selengkapnya...

Sei Piring merupakan salah satu desa yang ada di kecamatan Pulau Rakyat, Kabupaten Asahan, provinsi Sumatera Utara, Indonesia.

Disanalah aku dilahirkan dan dibesarkan.

Kota kecil, tapi penuh dengan kenangan manis. Selengkapnya...