Form Nilai Mahasiswa dengan menggunakan LISTVIEW

Listing Programnya :

Public Class Form4

    Sub buattabel()

        LV.Columns.Add("NPM", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 120, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Left)

        LV.Columns.Add("Jurusan", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Dosen", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Mata Kuliah", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Akhir", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Keterangan", 80, HorizontalAlignment.Center)

        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)

        lst.SubItems.Add(Jenjang.Text)

        lst.SubItems.Add(Jurusan.Text)

        lst.SubItems.Add(NamaDosen.Text)

        lst.SubItems.Add(MataKuliah.Text)

        lst.SubItems.Add(NilaiAkhir.Text)

        lst.SubItems.Add(NIlaiHuruf.Text)

        lst.SubItems.Add(Keterangan.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110695"

                Nama.Text = "Munawar Khalil"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110741"

                Nama.Text = "Rinaldi Jambak"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

            Case "12110574"

                Nama.Text = "Rinaldi Kurniawan"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110927"

                Nama.Text = "Buyung Alamsyah Saputra"

                Jenjang.Text = "S1"

                Jurusan.Text = "SI"

            Case "1202208"

                Nama.Text = "Melly Fersi Fera"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

        End Select

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        NPM.Items.Add("12110574")

        NPM.Items.Add("12110695")

        NPM.Items.Add("12110741")

        NPM.Items.Add("12110927")

        NPM.Items.Add("1202208")

        Dim i As Integer

        For i = 100 To 1 Step -5

            NilaiKehadiran.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiTugas.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiUTS.Items.Add(i)

        Next

        For i = 100 To 1 Step -5

            NilaiUAS.Items.Add(i)

        Next i

        KodeMataKuliah.Items.Add("123")

        KodeMataKuliah.Items.Add("456")

        KodeMataKuliah.Items.Add("789")

        KodeMataKuliah.Items.Add("012")

        KodeDosen.Items.Add("012")

        KodeDosen.Items.Add("345")

        KodeDosen.Items.Add("678")

        KodeDosen.Items.Add("901")

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

        Select Case NilaiAkhir.Text

            Case Is >= 80

                NIlaiHuruf.Text = "A"

                Keterangan.Text = "LULUS"

            Case 70 To 79

                NIlaiHuruf.Text = "B"

                Keterangan.Text = "LULUS"

            Case 60 To 69

                NIlaiHuruf.Text = "C"

                Keterangan.Text = "GAGAL"

            Case 50 To 59

                NIlaiHuruf.Text = "D"

                Keterangan.Text = "GAGAL"

            Case Is <= 49

                NIlaiHuruf.Text = "E"

                Keterangan.Text = "GAGAL"

        End Select

        NilaiAkhir.Enabled = False

        isitabel()

        NIlaiHuruf.Text = ""

        Keterangan.Text = ""

        Nama.Text = ""

        NPM.Text = ""

        Jurusan.Text = ""

        Jenjang.Text = ""

        NamaDosen.Text = ""

        NilaiAkhir.Text = ""

        MataKuliah.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        KodeDosen.Text = ""

        KodeMataKuliah.Text = ""

    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

        Select Case KodeMataKuliah.Text

            Case "123"

                MataKuliah.Text = "Visual Basic"

            Case "456"

                MataKuliah.Text = "Matriks"

            Case "789"

                MataKuliah.Text = "arsitektur dan organisasi kom"

            Case "012"

                MataKuliah.Text = "struktur data"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "012"

                NamaDosen.Text = "Mesran"

            Case "345"

                NamaDosen.Text = "Kennedi Tampubolon"

            Case "678"

                NamaDosen.Text = "Pilipus tarigan."

            Case "901"

                NamaDosen.Text = "alex riki s."

        End Select

    End Sub

    Private Sub NilaiAkhir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAkhir.KeyPress

        If Asc(e.KeyChar) = 13 Then

            NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

            NilaiAkhir.Enabled = False

        End If

    End Sub

End Class

Blog dosenku

Blog  di bawah ini blog dosen "PEMOGRAMAN VISUAL" yang wajib untuk kita buka sebagai mahasiswa STMIK BUDIDARMA supaya kita bisa mengerti dan mempelajari VISUAL BASIC secara menyeluruh.



http://mesran.net/
http://mesran.blogspot.com/

Contoh program visual basic 2 mengenal dan mengetahui cara penggunaan ListView

Tutorial kali saya akan memberi contoh Visual Basic 2008 yang kedua

langkah-langkahnya :
1. Membuka Program VB (Visual Basic) 2008
2. klik create:project
3. Ubah Project dengan nama Anda
4. Maka setelah itu akan muncul sebuah Form1 pada Project kita
5. Desain Form tersebut dengan Label, TextBox, Button, ListView
 Tampilan Form :

 

 

 

 

6. Listing Program

Public Class Form2

    Private Sub Form2_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.Center)

        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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitabel()

        NPM.Text = ""

        Nama.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        LV.Items.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

7. Tampilan Form setelah dijalankan

NB :

• Ketikan NPM Anda pada TextBox NPM
• Ketikan Nama Anda pada TextBox Nama
• Klik => buttton (Simpan Ke ListView)
• Jika Anda ingin menghapusnya : Klik saja button (Hapus data yang Dipilih) atau jika ingin menghapus semua Datanya Klik saja button (Hapus Semua Data)

 

form pembayaran PDAM ~visual studio

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("RUM-MED-103")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)
        If x = "100" Then
            np.Text = "munawar khalil"
        ElseIf x = "101" Then
            np.Text = "buyung alamsyah"
        ElseIf x = "102" Then
            np.Text = "rinaldi jambak"
        ElseIf x = "103" Then
            np.Text = "syawal"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        If x = "PAB" Then
            tip.Text = "pabrik"
            bb.Text = 25000
            hm.Text = 500
        ElseIf x = "TOK" Then
            tip.Text = "toko"
            bb.Text = 25000
            hm.Text = 300
        ElseIf x = "SWA" Then
            tip.Text = "swalayan"
            bb.Text = 15000
            hm.Text = 200
        ElseIf x = "RUM" Then
            tip.Text = "rumah"
            bb.Text = 10000
            hm.Text = 100
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            dae.Text = "medan"
        ElseIf x = "BEL" Then
            dae.Text = "belawan"
        End If


    End Sub

    Private Sub jp_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) + hm.Text * jp.Text
            paj.Text = 0.01 * tt.Text
            pem.Text = Val(paj.Text) + Val(jp.Text)
        End If



    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kp.Text = ""
        np.Text = ""
        tip.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        pem.Text = ""
        dae.Text = ""
        hm.Text = ""
        paj.Text = ""

    End Sub
End Class

Enkripsi dan Deskripsi

Public Class Form1

    Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            a = Mid(plain.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        chiper.Text = xkalimat
    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            a = Mid(chiper.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        plain.Text = xkalimat
    End Sub
End Class

Bahasa Pemrograman VB (Visual Basic)

Belajar Bahasa Pemrograman

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHapus.Click

        Nama.Text = ""

        NPM.Text = ""

        MataKuliah.Text = ""

        NamaDosen.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        NilaiAkhir.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KodeDosen.Text = ""

        KodeMataKuliah.Text = ""

        NIlaiHuruf.Text = ""

        Keterangan.Text = ""

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110695"

                Nama.Text = "Siti annisa"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110741"

                Nama.Text = "Budi"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

            Case "12110574"

                Nama.Text = "Ayu"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110927"

                Nama.Text = "Putri"

                Jenjang.Text = "S1"

                Jurusan.Text = "SI"

            Case "1202208"

                Nama.Text = "Lisa Ati"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

        End Select

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        Dim i As Integer

        For i = 100 To 1 Step -1

            NilaiKehadiran.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiTugas.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUTS.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUAS.Items.Add(i)

        Next i

        NPM.Items.Add("12110574")

        NPM.Items.Add("12110741")

        NPM.Items.Add("12110695")

        NPM.Items.Add("12110927")

        NPM.Items.Add("1202208")

        KodeMataKuliah.Items.Add("123")

        KodeMataKuliah.Items.Add("456")

        KodeMataKuliah.Items.Add("789")

        KodeMataKuliah.Items.Add("012")

        KodeDosen.Items.Add("012")

        KodeDosen.Items.Add("345")

        KodeDosen.Items.Add("678")

        KodeDosen.Items.Add("901")

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnProses.Click

        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text

        Select Case NilaiAkhir.Text

            Case Is >= 80

                NIlaiHuruf.Text = "A"

                Keterangan.Text = "LULUS"

            Case 70 To 79

                NIlaiHuruf.Text = "B"

                Keterangan.Text = "LULUS"

            Case 60 To 69

                NIlaiHuruf.Text = "C"

                Keterangan.Text = "GAGAL"

            Case 50 To 59

                NIlaiHuruf.Text = "D"

                Keterangan.Text = "GAGAL"

            Case Is <= 49

                NIlaiHuruf.Text = "E"

                Keterangan.Text = "GAGAL"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

        Select Case KodeMataKuliah.Text

            Case "123"

                MataKuliah.Text = "VB"

            Case "456"

                MataKuliah.Text = "Matriks"

            Case "789"

                MataKuliah.Text = "arsitektur dan organisasi kom"

            Case "012"

                MataKuliah.Text = "struktur data"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "012"

                NamaDosen.Text = "Mesran"

            Case "345"

                NamaDosen.Text = "Kennedi Tampubolon"

            Case "678"

                NamaDosen.Text = "Pilipus tarigan."

            Case "901"

                NamaDosen.Text = "alex riki s."

        End Select

    End Sub

    Private Sub NilaiKehadiran_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles NilaiKehadiran.SelectedIndexChanged

       

    End Sub

    Private Sub NilaiAkhir_TextChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NilaiAkhir.TextChanged

       

    End Sub

End Class