kasusjawaban soal 2 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
End Sub
Sub BuatTabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama", 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(Nama.Text)
LV.Items.Add(Lst)
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
NPM.Text = ""
Nama.Text = ""
End Sub
Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
LV.Items.Clear()
End Sub
Private Sub BtnHpsDataYgdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsDataYgdipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
hasil program
kasus
Sri Dinda Awaliyah lubis
Minggu, 29 Januari 2012
penggajian karyawan
kasus
jawaban no 3 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
If username.Text = "dinda" And pass.Text = "111" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("maaf password salah")
username.Text = ""
pass.Text = ""
End If
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
hasil program
listing program
Public Class FormMenu
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
karyawan.Show()
End Sub
End Class
hasil program
listing program
Public Class karyawan
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
jabatan.Items.Add("mandor")
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
NIK.Items.Add("004")
NIK.Items.Add("005")
status.Items.Add("menikah")
status.Items.Add("belum menikah")
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "belum menikah" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
ElseIf status.Text = "menikah" Then
tunjanganistri.Text = 0.09 * gajipokok.Text
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Lv.Items.Clear()
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If status.Text = "belum menikah" Then
jumlahanak.Text = 0
tunjangananak.Text = 0
tunjanganistri.Text = 0
End If
If jumlahanak.Text <= 2 Then
tunjangananak.Text = jumlahanak.Text * gajipokok.Text
ElseIf jumlahanak.Text = 1 Then
tunjangananak.Text = 1 * 0.03 * gajipokok.Text
ElseIf jumlahanak.Text > 2 Then
tunjangananak.Text = 2 * 0.07 * gajipokok.Text
End If
pajak.Text = 0.15 * gajipokok.Text
If jabatan.Text = "kepala bagian" Then
gajilembur.Text = jmlhjamlembur.Text * 10000
ElseIf jabatan.Text = "staf" Then
gajilembur.Text = jmlhjamlembur.Text * 5000
ElseIf jabatan.Text = "mandor" Then
gajilembur.Text = jmlhjamlembur.Text * 7500
End If
totalgaji.Text = Val(gajipokok.Text) + Val(gajilembur.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) - Val(pajak.Text)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "kepala bagian" Then
gajipokok.Text = 2500000
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = 1250000
ElseIf jabatan.Text = "mandor" Then
gajipokok.Text = 1750000
Else : gajipokok.Text = 0
End If
End Sub
Sub BuatTabel()
Lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jabatn", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jmlh jam lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("status", 100, HorizontalAlignment.Left)
Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan istri", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("total gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = NIK.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gajipokok.Text)
Lst.SubItems.Add(jmlhjamlembur.Text)
Lst.SubItems.Add(gajilembur.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(jumlahanak.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(totalgaji.Text)
Lst.SubItems.Add(pajak.Text)
Lv.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 NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
If NIK.Text = "001" Then
nama.Text = "rani"
ElseIf NIK.Text = "002" Then
nama.Text = "dodi"
ElseIf NIK.Text = "003" Then
nama.Text = "robi"
ElseIf NIK.Text = "004" Then
nama.Text = "dinda"
ElseIf NIK.Text = "005" Then
nama.Text = "diki"
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
NIK.Text = ""
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
jmlhjamlembur.Text = ""
gajilembur.Text = ""
status.Text = ""
tunjangananak.Text = ""
tunjanganistri.Text = ""
jumlahanak.Text = ""
totalgaji.Text = ""
pajak.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
End Class
hasil program
jawaban no 3 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
If username.Text = "dinda" And pass.Text = "111" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("maaf password salah")
username.Text = ""
pass.Text = ""
End If
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
hasil program
listing program
Public Class FormMenu
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
karyawan.Show()
End Sub
End Class
hasil program
listing program
Public Class karyawan
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
jabatan.Items.Add("mandor")
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
NIK.Items.Add("004")
NIK.Items.Add("005")
status.Items.Add("menikah")
status.Items.Add("belum menikah")
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "belum menikah" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
ElseIf status.Text = "menikah" Then
tunjanganistri.Text = 0.09 * gajipokok.Text
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Lv.Items.Clear()
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If status.Text = "belum menikah" Then
jumlahanak.Text = 0
tunjangananak.Text = 0
tunjanganistri.Text = 0
End If
If jumlahanak.Text <= 2 Then
tunjangananak.Text = jumlahanak.Text * gajipokok.Text
ElseIf jumlahanak.Text = 1 Then
tunjangananak.Text = 1 * 0.03 * gajipokok.Text
ElseIf jumlahanak.Text > 2 Then
tunjangananak.Text = 2 * 0.07 * gajipokok.Text
End If
pajak.Text = 0.15 * gajipokok.Text
If jabatan.Text = "kepala bagian" Then
gajilembur.Text = jmlhjamlembur.Text * 10000
ElseIf jabatan.Text = "staf" Then
gajilembur.Text = jmlhjamlembur.Text * 5000
ElseIf jabatan.Text = "mandor" Then
gajilembur.Text = jmlhjamlembur.Text * 7500
End If
totalgaji.Text = Val(gajipokok.Text) + Val(gajilembur.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) - Val(pajak.Text)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "kepala bagian" Then
gajipokok.Text = 2500000
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = 1250000
ElseIf jabatan.Text = "mandor" Then
gajipokok.Text = 1750000
Else : gajipokok.Text = 0
End If
End Sub
Sub BuatTabel()
Lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jabatn", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jmlh jam lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("status", 100, HorizontalAlignment.Left)
Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan istri", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("total gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = NIK.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gajipokok.Text)
Lst.SubItems.Add(jmlhjamlembur.Text)
Lst.SubItems.Add(gajilembur.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(jumlahanak.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(totalgaji.Text)
Lst.SubItems.Add(pajak.Text)
Lv.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 NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
If NIK.Text = "001" Then
nama.Text = "rani"
ElseIf NIK.Text = "002" Then
nama.Text = "dodi"
ElseIf NIK.Text = "003" Then
nama.Text = "robi"
ElseIf NIK.Text = "004" Then
nama.Text = "dinda"
ElseIf NIK.Text = "005" Then
nama.Text = "diki"
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
NIK.Text = ""
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
jmlhjamlembur.Text = ""
gajilembur.Text = ""
status.Text = ""
tunjangananak.Text = ""
tunjanganistri.Text = ""
jumlahanak.Text = ""
totalgaji.Text = ""
pajak.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
End Class
hasil program
Rabu, 07 Desember 2011
Visual Basic Net
Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.
Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.
Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.
Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah:
Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni:
Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:
Visual Basic .NET 2002 (VB 7.0)
Versi pertama dari Visual Basic .NET adalah Visual Basic .NET 2002 yang dirilis pertama kali pada bulan Februari 2002. Visual Basic .NET 2002 merupakan sebuah bahasa pemrograman visual yang berbasis bahasa BASIC (sama seperti halnya Visual Basic 6.0, tetapi lebih disempurnakan dan lebih berorientasi objek), dan didesain untuk berjalan di atas Microsoft .NET Framework versi 1.0.Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.
Visual Basic .NET 2003 (VB 7.1)
Selanjutnya, pada bulan Maret 2003, Microsoft pun merilis lagi versi yang lebih baru dari Visual Basic .NET, Visual Basic .NET 2003. Versi ini berisi beberapa perbaikan dibandingkan dengan versi sebelumnya, dan aplikasi yang dibuatnya dapat berjalan di atas .NET Framework versi 1.1. Fitur yang ditambahkan adalah dukungan terhadap .NET Compact Framework dan mesin wizard upgrade VB6 ke VB.NET yang telah ditingkatkan. Peningkatan yang lainnya adalah peningkatan pada performa dan keandalan dari Integrated Development Environment (IDE) Visual Basic itu sendiri, dan juga runtime engine.Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.
Visual Basic 2005 (VB 8.0)
Setelah itu, Microsoft pun berkonsentrasi dalam mengembangkan Microsoft .NET Framework 2.0, dan tentunya alat bantu untuk membangun program di atasnya. Hingga pada tahun 2005, mereka pun merilis versi terbaru dari Visual Basic .NET, yang kali ini disebut dengan Visual Basic 2005 (dengan membuang kata ".NET"), bersama-sama dengan beberapa aplikasi pengembangan lainnya.Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah:
- Edit and Continue
Fitur ini sebelumnya terdapat di dalam Visual Basic, akan tetapi dihapus di dalam Visual Basic .NET. Dengan keberadaan fitur ini, para programmer dapat memodifikasi kode pada saat program dieksekusi dan melanjutkan proses eksekusi dengan kode yang telah dimodifikasi tersebut. - Evaluasi ekspresi pada saat waktu desain
- Munculnya Pseudo-Namespace "
My
", yang menyediakan:- Akses yang mudah terhadap beberapa area tertentu dari dalam .NET Framework yang tanpanya membutuhkan kode yang sangat signifikan.
- Kelas-kelas yang dibuat secara dinamis (khususnya
My.Forms
).
- Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual Basic ke Visual Basic .NET.
- Penggunaan kata kunci (keyword)
Using
, yang menyederhanakan penggunaan objek-objek yang membutuhkan pola Dispose untuk membebaskan sumber daya yang sudah tidak terpakai. - Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat bantu Integrated Development Environment (IDE) Visual Studio .NET.
- Pengikatan sumber data (Data Source binding), yang mampu mempermudah pengembangan aplikasi basis data berbasis klien/server.
Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni:
- Bawaan .NET Framework 2.0:
- Generics
- Partial class, sebuah metode yang dapat digunakan untuk mendefinisikan beberapa bagian dari sebuah kelas di dalam sebuah berkas, lalu menambahkan definisinya di lain waktu; sangat berguna khususnya ketika mengintegrasikan kode pengguna dengan kode yang dibuat secara otomatis.
- Nullable Type
- Komentar XML yang dapat diproses dengan menggunakan beberapa alat bantu seperti NDoc untuk membuat dokumentasi secara otomatis.
- Operator overloading
- Dukungan terhadap tipe data bilangan bulat tak bertanda (
unsigned integer
) yang umumnya digunakan di dalam bahasa lainnya.
Visual Basic 9.0 (Visual Basic 2008)
Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:
- Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis
If (boolean, nilai, nilai)
. Ini dimaksudkan untuk mengganti fungsiIIF
. - Dukungan anonymous types
- Dukungan terhadap Language Integrated Query (LINQ)
- Dukungan terhadap ekspresi Lambda
- Dukungan terhadap literal XML
- Dukungan terhadap inferensi tipe data.
- dukungan terhadap 'LINQ'
Langganan:
Postingan (Atom)