Pasang Lagu diblog

Ng usah banyak basa-basi..........

Klik disini

Jawaban Quiz No.3 denganVB.Net

Jawaban Soal No.3

Nama  :LAHUDDIN

NPM    :0911062

-          Listing Program Form Login

Public Class Form1

    Private Sub Process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Process.Click

        If UserName.Text = "Lahuddin Lubis" And Pasword.Text = "Lubis" Then

            Form_karyawan.Show()

            Me.Hide()

        Else

            MsgBox("Pasord Anda Salah...Tray Agai")

            UserName.Text = ""

            Pasword.Text = ""

        End If

    End Sub

End Class

- Hasil Program Untuk Form Login

 

-          Listing Program Form Karyawan

 Public Class Form_karyawan

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged

        If Nip.Text = "000011" Then

            Nama.Text = "Lahuddin Lubis"

        ElseIf Nip.Text = "000012" Then

            Nama.Text = "Ikbal Lubis"

        Else

            Nama.Text = "Andri Agasi Lubis"

        End If

    End Sub

Jawaban Quiz No.2 dengan VB.Net

Jawaban Soal No.2

Nama  :LAHUDDIN

NPM   :0911062

#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", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Nama", 110, 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 Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        isitabel()

        NPM.Text = ""

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

        Dim x As String

        x = MsgBox("Are You Sure Want to Exit??????", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Exit")

        If x = vbYes Then

            Me.Close()

        Else

            MsgBox("Thank'ssssssssss!!!!!")

        End If

    End Sub

End Class

#Tampilan Hasil Program#

 

Rujukan Soal Klik Disini