Minggu, 29 Januari 2012

menghapus data pada listview

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

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




















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.


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.
Fungsi-fungsi yang tersebut di atas (khususnya My) ditujukan untuk memfokuskan Visual Basic .NET sebagai sebuah platform pengembangan aplikasi secara cepat dan "menjauhkannya" dari bahasa C#.
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:

i like winnie the pooh