KRIPTOGRAFI

Membuat Form Login dengan Menggunakan Visual Basic

Listing Program

hasil tampilan listing program

Public Class Form1

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

    End Sub

    Private Sub CAESARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CAESARToolStripMenuItem.Click

        Form6.MdiParent = Me

        Form6.Show()

    End Sub

    Private Sub KRIPTROGRAFIVERNAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTROGRAFIVERNAMToolStripMenuItem.Click

        Form7.Show()

    End Sub

    Private Sub KRIPTROToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTROToolStripMenuItem.Click

        Form8.Show()

    End Sub

    Private Sub KRIPTOGRAFINIGERWAREToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFINIGERWAREToolStripMenuItem.Click

        Form9.Show()

    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles username.TextChanged

    End Sub

    Private Sub BTNLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNLOGIN.Click

        If username.Text = "nama" And pass.Text = "123456" Then

            MessageBox.Show("SELAMAT DATANG")

            pass.Text = ""

            username.Text = ""

            Form6.ActiveForm.Hide()

            Dim form As New Form6

            Form6.Show()

        Else

            username.Text = ""

            pass.Text = ""

            MessageBox.Show(" Password yang Anda Masukkan SALAH ", " PERHATIAN !!!")

            username.Focus()

        End If

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

    End Sub

End Class

Selamat Mencoba, bila ada kesalahan, mohon berikan komen ditempat yang telah disediakan, agar bisa di perbaiki, terima kasih
http://mesran.blogspot.com/search?q=tugas+TI-M1213&x=0&y=0