Selasa, 24 Januari 2012
soal nomor 3
Code Programm:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jbtn.Items.Add("Mandor")
jbtn.Items.Add("Kepala Bagian")
jbtn.Items.Add("Staff")
status.Items.Add("Menikah")
status.Items.Add("Lajang")
Call addjumlah()
Call buattabel()
End Sub
Sub addjumlah()
Dim x As Integer
For x = 1 To 3
jml_anak.Items.Add(x)
Next
End Sub
Sub buattabel()
lv.Columns.Add("No Bet", 80, HorizontalAlignment.Center)
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("Status", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jam Kerja", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji_pokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jml_anak.Text)
lst.SubItems.Add(tunjangan_istri.Text)
lst.SubItems.Add(tunjangan_anak.Text)
lst.SubItems.Add(jam_lembur.Text)
lst.SubItems.Add(upah_lembur.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total_gaji.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
nama.Text = ""
jbtn.Text = ""
gaji_pokok.Text = ""
status.Text = ""
jml_anak.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""
jam_lembur.Text = ""
upah_lembur.Text = ""
gaji_lembur.Text = ""
pajak.Text = ""
total_gaji.Text = ""
End Sub
Private Sub btnhapussemua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub jbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
If jbtn.Text = "Mandor" Then
gaji_pokok.Text = 1750000
upah_lembur.Text = 7500
ElseIf jbtn.Text = "Kepala Bagian" Then
gaji_pokok.Text = 2500000
upah_lembur.Text = 10000
ElseIf jbtn.Text = "Staff" Then
gaji_pokok.Text = 1250000
upah_lembur.Text = 5000
End If
pajak.Text = 0.015 * gaji_pokok.Text
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunjangan_istri.Text = 0.09 * gaji_pokok.Text
Else
tunjangan_istri.Text = 0
End If
End Sub
Private Sub jml_anak_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jml_anak.SelectedIndexChanged
If jml_anak.Text = 1 Then
tunjangan_anak.Text = 0.03 * gaji_pokok.Text
ElseIf jml_anak.Text = 2 Then
tunjangan_anak.Text = 0.07 * gaji_pokok.Text
Else
tunjangan_anak.Text = 0.07 * gaji_pokok.Text
End If
End Sub
Private Sub btnproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnproses.Click
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)
End Sub
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jbtn.Items.Add("Mandor")
jbtn.Items.Add("Kepala Bagian")
jbtn.Items.Add("Staff")
status.Items.Add("Menikah")
status.Items.Add("Lajang")
Call addjumlah()
Call buattabel()
End Sub
Sub addjumlah()
Dim x As Integer
For x = 1 To 3
jml_anak.Items.Add(x)
Next
End Sub
Sub buattabel()
lv.Columns.Add("No Bet", 80, HorizontalAlignment.Center)
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("Status", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jam Kerja", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji_pokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jml_anak.Text)
lst.SubItems.Add(tunjangan_istri.Text)
lst.SubItems.Add(tunjangan_anak.Text)
lst.SubItems.Add(jam_lembur.Text)
lst.SubItems.Add(upah_lembur.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total_gaji.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
nama.Text = ""
jbtn.Text = ""
gaji_pokok.Text = ""
status.Text = ""
jml_anak.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""
jam_lembur.Text = ""
upah_lembur.Text = ""
gaji_lembur.Text = ""
pajak.Text = ""
total_gaji.Text = ""
End Sub
Private Sub btnhapussemua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub jbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
If jbtn.Text = "Mandor" Then
gaji_pokok.Text = 1750000
upah_lembur.Text = 7500
ElseIf jbtn.Text = "Kepala Bagian" Then
gaji_pokok.Text = 2500000
upah_lembur.Text = 10000
ElseIf jbtn.Text = "Staff" Then
gaji_pokok.Text = 1250000
upah_lembur.Text = 5000
End If
pajak.Text = 0.015 * gaji_pokok.Text
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunjangan_istri.Text = 0.09 * gaji_pokok.Text
Else
tunjangan_istri.Text = 0
End If
End Sub
Private Sub jml_anak_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jml_anak.SelectedIndexChanged
If jml_anak.Text = 1 Then
tunjangan_anak.Text = 0.03 * gaji_pokok.Text
ElseIf jml_anak.Text = 2 Then
tunjangan_anak.Text = 0.07 * gaji_pokok.Text
Else
tunjangan_anak.Text = 0.07 * gaji_pokok.Text
End If
End Sub
Private Sub btnproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnproses.Click
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)
End Sub
hal 33
Code Programm:
Public Class Form2
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kb.Items.Add("TS001")
kb.Items.Add("TS002")
kb.Items.Add("VG001")
kb.Items.Add("VG002")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kb.Text)
lst.SubItems.Add(nb.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jml.Text)
lst.SubItems.Add(tharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
Select Case kb.Text
Case "TS001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
End Select
If kb.Text = "TS001" Then
harga.Text = 105000
ElseIf kb.Text = "TS002" Then
harga.Text = 750000
ElseIf kb.Text = "VG001" Then
harga.Text = 90000
ElseIf kb.Text = "VG002" Then
harga.Text = 65000
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kb.Text = ""
nb.Text = ""
merk.Text = ""
harga.Text = ""
jml.Text = ""
tharga.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub jml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml.KeyPress
If e.KeyChar = Chr(13) Then
End If
tharga.Text = Val(harga.Text) * Val(jml.Text)
End Sub
End Class
Public Class Form2
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kb.Items.Add("TS001")
kb.Items.Add("TS002")
kb.Items.Add("VG001")
kb.Items.Add("VG002")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kb.Text)
lst.SubItems.Add(nb.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jml.Text)
lst.SubItems.Add(tharga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
Select Case kb.Text
Case "TS001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"
End Select
If kb.Text = "TS001" Then
harga.Text = 105000
ElseIf kb.Text = "TS002" Then
harga.Text = 750000
ElseIf kb.Text = "VG001" Then
harga.Text = 90000
ElseIf kb.Text = "VG002" Then
harga.Text = 65000
End If
End Sub
Private Sub Btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kb.Text = ""
nb.Text = ""
merk.Text = ""
harga.Text = ""
jml.Text = ""
tharga.Text = ""
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub jml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml.KeyPress
If e.KeyChar = Chr(13) Then
End If
tharga.Text = Val(harga.Text) * Val(jml.Text)
End Sub
End Class
hal 32
Code Programm:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click
End Sub
Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then
End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49 nh.Text = "E" End Select End Sub Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress Dim x As String tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1) If x = "1" Then jjg.Text = "Diploma 1" ElseIf x = "3" Then jjg.Text = "Diploma 3" ElseIf x = "4" Then jjg.Text = "Strata 1" End If x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2) If x = "01" Then jrsn.Text = "Manajemen Informatika" ElseIf x = "02" Then jrsn.Text = "Sistem Informasi" ElseIf x = "03" Then jrsn.Text = "Teknik Komputer" ElseIf x = "04" Then jrsn.Text = "Akuntansi" End If End Sub End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattabel()
End Sub
Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click
End Sub
Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then
End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49 nh.Text = "E" End Select End Sub Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress Dim x As String tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1) If x = "1" Then jjg.Text = "Diploma 1" ElseIf x = "3" Then jjg.Text = "Diploma 3" ElseIf x = "4" Then jjg.Text = "Strata 1" End If x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2) If x = "01" Then jrsn.Text = "Manajemen Informatika" ElseIf x = "02" Then jrsn.Text = "Sistem Informasi" ElseIf x = "03" Then jrsn.Text = "Teknik Komputer" ElseIf x = "04" Then jrsn.Text = "Akuntansi" End If End Sub End Class
Senin, 23 Januari 2012
hal 32
Public Class Form1
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)
LV.Columns.Add("TahunMasuk", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiAngka", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiHuruf", 180, HorizontalAlignment.Left)
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(tahunmasuk.Text)
lst.SubItems.Add(jurusan.Text)
lst.SubItems.Add(jenjang.Text)
lst.SubItems.Add(tahunmasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Private Sub Tombol_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
tahunmasuk.Text = ""
nilaiangka.Text = ""
nilaihuruf.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 BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.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
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)
LV.Columns.Add("TahunMasuk", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiAngka", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiHuruf", 180, HorizontalAlignment.Left)
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(tahunmasuk.Text)
lst.SubItems.Add(jurusan.Text)
lst.SubItems.Add(jenjang.Text)
lst.SubItems.Add(tahunmasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Private Sub Tombol_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
tahunmasuk.Text = ""
nilaiangka.Text = ""
nilaihuruf.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 BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.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
LV.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class
Langganan:
Postingan (Atom)