untuk melihat hasil kasus saya,,,
silahkan lihat alamat ini
Selasa, 24 Januari 2012
kasus ( Saprina Pardosi)
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
Hal 33(Saprina Pardosi)
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
Hal 32(Saprina Pardosi)
Public Class Form1
Sub buattabel()
ListView1.Columns.Add("npm", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("jurusan", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("tahun masuk", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai angka", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai huruf", 80, 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(TahunMasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
ListView1.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 GroupBox1_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
ListView1.Clear()
End Sub
Private Sub Btnhapusyhdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusyhdipilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
ListView1.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub btnlistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlistview.Click
End Sub
End Class
Sub buattabel()
ListView1.Columns.Add("npm", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("jurusan", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("tahun masuk", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai angka", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai huruf", 80, 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(TahunMasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
ListView1.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 GroupBox1_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
ListView1.Clear()
End Sub
Private Sub Btnhapusyhdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusyhdipilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
ListView1.Items.Clear()
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub btnlistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlistview.Click
End Sub
End Class
Minggu, 22 Januari 2012
VISUAL STUDIO.NET 2008
Visual Studio.NET 2008 merupakan salah satu produk pengembangan aplikasi yang diproduksi oleh Microsoft Visual Studio.NET 2008 dapat digunakan untuk pengembangan aplikasi web ASP.NET,XML Web Service, aplikasi desktop dan juga aplikasi mobile. Dalam Visual Studio.NET 2008 terdapat beberapa tool yang dapat dipilih untuk pengembangan aplikasi. Tool-tool tersebut antara lain adalah Visual Basic, Visual C# dan Visual C++. Tool-tool pada Visual Studio.NET 2008 tersebut menggunakan IDE(Integrated Development Environment) yang sama sehingga dapat saling berbagi pakai fasilitas dalam pengembangan aplikasi.
Pada Visual Studio.NET 2008 banyak sekali fasilitas wizard yang disediakan untuk memudahkan para pengembang aplikasi. Dengan fasilitas ini, pengembangan aplikasi dapat dilakukan dengan cepat. Ini memungkinkan para pemula untuk belajar lebih cepat dalam pengembangan aplikasi. Pembuatan atau pengembangan aplikasi system inventory dengan menggunakan Visual Studio.NET 2008. Visual Studio.NET 2008 juga terdapat alat atau tool untuk membuat report atau laporan.
Pada Visual Studio.NET 2008 banyak sekali fasilitas wizard yang disediakan untuk memudahkan para pengembang aplikasi. Dengan fasilitas ini, pengembangan aplikasi dapat dilakukan dengan cepat. Ini memungkinkan para pemula untuk belajar lebih cepat dalam pengembangan aplikasi. Pembuatan atau pengembangan aplikasi system inventory dengan menggunakan Visual Studio.NET 2008. Visual Studio.NET 2008 juga terdapat alat atau tool untuk membuat report atau laporan.
LARIK(ARRAY)
Larik sering dijumpai dalam aplikasi sehari-hari terutama yang berkaitan dengan manipulasi table-tabel angka, atau dalam bentuk struktur data matematis yang disebut vector dan matriks.
Larik(Array) adalah suatu bentuk struktur data yang menampung satu atau lebih dari
Satu atau lebih dari satu data yang sejenis(bertipe data sama), yang diwakili oleh satu
nama variabel.
- Setiap elemen atau anggota larik dapat dikenali atau diakses melalui suatu indeks
- Larik berdimensi satu disebut vector
- Larik berdimensi dua disebut matriks
- Larik berdimensi lebih dari dua disebut tensor
Mendefinisikan larik
Salah satu bentuk defenisi bisa digunakan secara konsisten dalam algoritma:
a. nama_array : array [1..n] of tipe_data;
contoh: A:array [1..10] of integer;
b. tipe_data nama_ array [n];
contoh: integer A[10];
c. type larik: array [1..n] of tipe_data;
nama_array : larik;
contoh: type larik: array [1..10] of integer;
A : larik;
Operasi Larik
Baaerapa tehnik operasi untuk larik berdimensi satu(vector) antara lain
- membaca/mengisi larik
- mencetak/menampilkan larik
- menggeser isi larik
- menggabungkan beberapa larik
- menguraikan satu larik
- mengurutkan isi larik
- mencari elemen dalam larik
Membaca/Mengisi Larik
Dengan memakai intruksi perulangan, satu per satu elemen diisi dengan indeks yang berurutan mulai dari 1 hingga indeks maksimum.
Dua algoritma untuk mengisi suatu larik
Algoritma Isilarik_1
{membaca atau mengisi larik tanpa menggunakan prosedur}
Deklarasi
Const N=10;
Integer A[n];
Integer indeks;
Deskripsi
For(indeks=1 to N step 1)
Write(“masukkan elemen ke-“,indeks)
Read (A[indeks] );
Endfor.
Algoritma Isilarik_2
{membaca atau mengisi larik dengan dengan menggunakan prosedur}
Deklarasi
Const N=100;
Integer A[N];
Integer K;
Prosedur Baca_larik (input integer M,output integer A[] );
Deskripsi
Write (“Masukkan Jumlah Elemen Larik (<100):”);
Read (K);
Baca_larik (K,A);
Prosedur Baca_larik(input integer M, output integer A[] )
{prosedur membaca/mengisi larik}
Deklarasi
Integer indeks;
Deskripsi
For (indeks = 1 to M step 1)
Write(“masukkan elemen ke-“,indeks);
Read (A[indeks] );
Endfor.
Menampilkan Isi Larik
Sebuah prosedur untuk menampilkan isi suatu larik dengan M buah elemen.
Prosedur cetak_Larik (input integer M, input integer A[1])
{prosedur untuk menampilkan isi suatularik atau array}
Deklarasi
Integer indeks;
Deskripsi
For (indeks= 1 to M step 1)
Write (A[indeks] );
Endfor.
Menggeser Isi larik
Beberapa aplikasi memerlukan pergeseran isi larik misalnya menggeser ke kiri atau menggeser ke kanan sebagai berikut:
Proses Geser kanan berarti elemen berindeks i digeser ke posisi berindeks i+1, dengan catatan elemen terakhir akan dipindahkan ke posisi pertama.
Sebaliknya, proses geser kiri berarti elemen berindeks I di geser ke posisi berindeks i-1, dengan menggeser elemen pertama ke posisi terakhi .
Prosedur geser_kanan (in-out integer a[],input integer M)
{menggeser elemen suatu larik (vector) ke kanan, A[i+1]__A[i]}
Deklarasi
Integer indeks,temp;
Deskripsi
Temp__A[M];
For (indeks=M-1 to 1 step -1)
A[indeks+1]__A[indeks];
Endfor.
A[1]__temp;
Prosedur geser_kiri (in-out integer A[],input integer M)
{menggeser elemen suatu larik (vector) ke kiri, A[i-1]_A[1] }
Deklarasi
Integer indeks, temp;
Deskripsi
Temp__A[1];
For (indeks=2 to M step 1)
A[indeks-1]__A[indeks];
Endfor.
A[M]__temp;
Menggabung (merge) Larik
Prosedur Gabung_larik (input integer A[], input integer N,input integer B[],
Input integer M,output integer C[], output integer L)
{menggabungkan dua larik menjadi larik yang lebih besar }
Deklarasi
Integer indeks;
Deskripsi
L__N +M;
{salin isi A ke dalam C }
For (indeks =1 to N step 1)
C[indeks]__A[indeks];
Endfor.
{salin isi B ke dalam C}
For (indeks=N+1 to L step 1)
C[indeks]___B[indeks-N] Endfor.
Larik(Array) adalah suatu bentuk struktur data yang menampung satu atau lebih dari
Satu atau lebih dari satu data yang sejenis(bertipe data sama), yang diwakili oleh satu
nama variabel.
- Setiap elemen atau anggota larik dapat dikenali atau diakses melalui suatu indeks
- Larik berdimensi satu disebut vector
- Larik berdimensi dua disebut matriks
- Larik berdimensi lebih dari dua disebut tensor
Mendefinisikan larik
Salah satu bentuk defenisi bisa digunakan secara konsisten dalam algoritma:
a. nama_array : array [1..n] of tipe_data;
contoh: A:array [1..10] of integer;
b. tipe_data nama_ array [n];
contoh: integer A[10];
c. type larik: array [1..n] of tipe_data;
nama_array : larik;
contoh: type larik: array [1..10] of integer;
A : larik;
Operasi Larik
Baaerapa tehnik operasi untuk larik berdimensi satu(vector) antara lain
- membaca/mengisi larik
- mencetak/menampilkan larik
- menggeser isi larik
- menggabungkan beberapa larik
- menguraikan satu larik
- mengurutkan isi larik
- mencari elemen dalam larik
Membaca/Mengisi Larik
Dengan memakai intruksi perulangan, satu per satu elemen diisi dengan indeks yang berurutan mulai dari 1 hingga indeks maksimum.
Dua algoritma untuk mengisi suatu larik
Algoritma Isilarik_1
{membaca atau mengisi larik tanpa menggunakan prosedur}
Deklarasi
Const N=10;
Integer A[n];
Integer indeks;
Deskripsi
For(indeks=1 to N step 1)
Write(“masukkan elemen ke-“,indeks)
Read (A[indeks] );
Endfor.
Algoritma Isilarik_2
{membaca atau mengisi larik dengan dengan menggunakan prosedur}
Deklarasi
Const N=100;
Integer A[N];
Integer K;
Prosedur Baca_larik (input integer M,output integer A[] );
Deskripsi
Write (“Masukkan Jumlah Elemen Larik (<100):”);
Read (K);
Baca_larik (K,A);
Prosedur Baca_larik(input integer M, output integer A[] )
{prosedur membaca/mengisi larik}
Deklarasi
Integer indeks;
Deskripsi
For (indeks = 1 to M step 1)
Write(“masukkan elemen ke-“,indeks);
Read (A[indeks] );
Endfor.
Menampilkan Isi Larik
Sebuah prosedur untuk menampilkan isi suatu larik dengan M buah elemen.
Prosedur cetak_Larik (input integer M, input integer A[1])
{prosedur untuk menampilkan isi suatularik atau array}
Deklarasi
Integer indeks;
Deskripsi
For (indeks= 1 to M step 1)
Write (A[indeks] );
Endfor.
Menggeser Isi larik
Beberapa aplikasi memerlukan pergeseran isi larik misalnya menggeser ke kiri atau menggeser ke kanan sebagai berikut:
Proses Geser kanan berarti elemen berindeks i digeser ke posisi berindeks i+1, dengan catatan elemen terakhir akan dipindahkan ke posisi pertama.
Sebaliknya, proses geser kiri berarti elemen berindeks I di geser ke posisi berindeks i-1, dengan menggeser elemen pertama ke posisi terakhi .
Prosedur geser_kanan (in-out integer a[],input integer M)
{menggeser elemen suatu larik (vector) ke kanan, A[i+1]__A[i]}
Deklarasi
Integer indeks,temp;
Deskripsi
Temp__A[M];
For (indeks=M-1 to 1 step -1)
A[indeks+1]__A[indeks];
Endfor.
A[1]__temp;
Prosedur geser_kiri (in-out integer A[],input integer M)
{menggeser elemen suatu larik (vector) ke kiri, A[i-1]_A[1] }
Deklarasi
Integer indeks, temp;
Deskripsi
Temp__A[1];
For (indeks=2 to M step 1)
A[indeks-1]__A[indeks];
Endfor.
A[M]__temp;
Menggabung (merge) Larik
Prosedur Gabung_larik (input integer A[], input integer N,input integer B[],
Input integer M,output integer C[], output integer L)
{menggabungkan dua larik menjadi larik yang lebih besar }
Deklarasi
Integer indeks;
Deskripsi
L__N +M;
{salin isi A ke dalam C }
For (indeks =1 to N step 1)
C[indeks]__A[indeks];
Endfor.
{salin isi B ke dalam C}
For (indeks=N+1 to L step 1)
C[indeks]___B[indeks-N] Endfor.
INTRUKSI PERULANGAN (REPETITION)
Intruksi perulangan adalah intruksi yang dapat mengulang pelaksanaan sederetan intruksi lainnya berulana-ulang sesuai persyaratan yang ditetapkan.
Stuktur intruksi perulangan pada dasarnya terdiri atas:
- Kondisi perulangan: suatu kondisi yang harus dipenuhi agar perulangan dapat terjadi
- Badan(body) perulangan: deretan intruksi yang akan diulang-ulang pelaksanaannya
- Pencacah(counter) perulangan: suatu variable yang nilainya harus berubah dapat terjadi dan pada akhirnya membatasi jumlah perulangan yang dapat dilaksanakan
3 macam bentuk intruksi perulangan dalam program:
- while
- do,repeat
- until
- for
Stuktur intruksi perulangan pada dasarnya terdiri atas:
- Kondisi perulangan: suatu kondisi yang harus dipenuhi agar perulangan dapat terjadi
- Badan(body) perulangan: deretan intruksi yang akan diulang-ulang pelaksanaannya
- Pencacah(counter) perulangan: suatu variable yang nilainya harus berubah dapat terjadi dan pada akhirnya membatasi jumlah perulangan yang dapat dilaksanakan
3 macam bentuk intruksi perulangan dalam program:
- while
- do,repeat
- until
- for
Langganan:
Postingan (Atom)