jawaban SOAL 2 (ADI KOKO)

KASUS : KLIK DISINI

Public Class Form1

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

        Call buatTable()

    End Sub

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

        Call addjurusan()

        Call addjenjang()

        Call addtahun()

     End Sub

    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged

        Call addnhuruf()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call isiTable()

        Call bersih()

    End Sub

jawaban SOAL 3 (ADI KOKO)

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 = "koko" And pwd.Text = "adi" Then

            Form_Menu.Show()

            Me.Hide()

        Else

            MsgBox("MaaF! PAsword Salah!")

            user.Text = ""

            pwd.Text = ""

        End If

    End Sub

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

        Form_Menu.Show()

    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub

End Class