Jawaban SOAL 2 (Indah amelia Barus)

Kasus : Klik Disini

Public Class Form1

    Sub buattabel()

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

        LV.Columns.Add("Nama", 180, 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)

        LV.Items.Add(Lst)

    End Sub

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

        buattabel()

        nama.Focus()

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        isitabel()

        npm.Text = ""

        nama.Text = ""

        nama.Focus()

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

        End

    End Sub

    Private Sub hapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussatu.Click

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

    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click

        Me.Close()

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

    End Sub

End Class

Read More

Jawaban SOAL 3 (Indah amelia Barus)

Kasus : Klik Disini

Public Class form_Login

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

        Close()

    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        If user.Text = "Indah" And pwd.Text = "amelia" Then

            Form_Menu.Show()

            Me.Hide()

        Else

            MsgBox("MaaF! PAsword Salah!")

            user.Text = ""

            pwd.Text = ""

        End If

    End Sub

Read More