LIHAT KASUS KLIKdisini
LISTING PROGRAM
LOGIN
Public Class Form1
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "AYU" And password.Text = "1234" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("data username/password salah !!!")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub username_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles username.TextChanged
End Sub
End Class
Public Class menuutama
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
pegawai.show()
End Sub
Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class pegawai
Sub BuatTabel()
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("jabatan", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji pokok", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("status", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("pajak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan istri", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jumlah anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jam lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("total gaji", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(tunjanganistri.Text)
lst.SubItems.Add(tunjangananak.Text)
lst.SubItems.Add(jumlahanak.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(gajilembur.Text)
lst.SubItems.Add(totalgaji.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Select Case status.Text
Case "Tidak Menikah"
tunjanganistri.Text = 0
tunjangananak.Text = 0
Case "Menikah"
tunjanganistri.Text = (9 / 100 * gajipokok.Text)
If jumlahanak.Text = 1 Then
tunjangananak.Text = jumlahanak.Text * (3 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text = 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text >= 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
End If
End Select
totalgaji.Text = Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(gajipokok.Text + Val(gajilembur.Text) - Val(pajak.Text))
pajak.Text = (1.5 / 100 * gajipokok.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("mandor")
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
status.Items.Add("Tidak Menikah")
status.Items.Add("Menikah")
Dim halaman As Byte
For halaman = 1 To 3
jamlembur.Items.Add(halaman)
Next
Call BuatTabel()
End Sub
Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
End Sub
Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
Select Case jabatan.Text
Case "mandor"
gajilembur.Text = (7500 * jamlembur.Text)
Case "kepala bagian"
gajilembur.Text = (10000 * jamlembur.Text)
Case "staf"
gajilembur.Text = (5000 * jamlembur.Text)
End Select
End Sub
Private Sub gajipokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gajipokok.TextChanged
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "mandor" Then
gajipokok.Text = "1750000"
ElseIf jabatan.Text = "kepala bagian" Then
gajipokok.Text = "2500000"
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = "1250000"
End If
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
End Class
HASIL PROGRAM
Minggu, 29 Januari 2012
jawaban soal no.2(sri rahayu utami)
lihat kasus klik disini
listing program
Public Class form1
Sub BuatTabel()
ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.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(Tahun.Text)
lst.SubItems.Add(Angka.Text)
lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTabel()
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
ListView1.Items.Clear()
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
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 = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
HASIL PROGRAM
listing program
Public Class form1
Sub BuatTabel()
ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.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(Tahun.Text)
lst.SubItems.Add(Angka.Text)
lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTabel()
End Sub
Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
ListView1.Items.Clear()
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
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 = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
HASIL PROGRAM
Selasa, 11 Oktober 2011
Kakanda Qhu
jalan-jalan ke kota paris
banyak rumah berbaris-baris
biar mati diujung keris
asal dapat kakanda yang tampan…
banyak rumah berbaris-baris
biar mati diujung keris
asal dapat kakanda yang tampan…
ke cimanggis membeli kopiah
kopiah indah kan kau dapati
begitu banyak pria yang singgah
hanya kakanda yang memikat hati
kopiah indah kan kau dapati
begitu banyak pria yang singgah
hanya kakanda yang memikat hati
jika aku seorang pemburu
anak rusa kan kudapati
jika kakanda merasa cemburu
tanda cinta masih sejati...
anak rusa kan kudapati
jika kakanda merasa cemburu
tanda cinta masih sejati...
darimana datangnya sawah
dari sawah turun ke kali
darimana datangnya cinta
dari sawah turun ke kali
darimana datangnya cinta
dari mata turun ke hati
PRILAKU
Tingkap papan kayu bersegi...
Sampan sakat di Pulau Angsa...
Indah tampan kerana budi..
Tinggi bangsa kerana bahasa...
Sampan sakat di Pulau Angsa...
Indah tampan kerana budi..
Tinggi bangsa kerana bahasa...
CINTA TAK HARUS MEMILIKI
Cinta tidaklah selalu sama dengan memiliki. Adalah biasa jika setiap orang yang merasa mencintai ingin memiliki akan menjadi luar biasa jika setiap orang yang merasa mencintai memberikan kebebasan kepada apa2 yang dia sukai untuk menentukan bagaimana ia meraih kebahagiaan.
Saat anda merasa sudah memilih yang terbaik untuk orang lain sekali lagi bertanyalah apakah yang anda pilih itu benar2 untuknya atau sekedar memuaskan nafsu anda untuk menguasai orang lain.
Saat anda merasa sudah memilih yang terbaik untuk orang lain sekali lagi bertanyalah apakah yang anda pilih itu benar2 untuknya atau sekedar memuaskan nafsu anda untuk menguasai orang lain.
MENCAPAI KESUKSESAN
Sukses itu tidak hanya apa yang anda capai tetapi juga apa yang anda akibatkan terhadap orang yang percaya kepada anda ketika proses pencapaian anda...
PENDIDIKAN
Pengetahuan adalah warisan yang mulia, budi pekerti ibarat pakaian yang baru dan pikiran ibarat cermin yang bening (jernih)...
Langganan:
Postingan (Atom)