LOGIN

Saya akan membuat suatu Pengaturan Menu Atau dengan menggunakan VB

langsung saja kita bahas y..........

Saya disini akan memberikan tutorial gambar.......

setelah anda memasugan username akan keluar seperti ini...

Dipilihan akan muncul pilihan , saya hanya meletakan dua pilihan saja ........

Penjelasan Programnya:

Langkah 1

Langkah ini adalah langkah untuk  membuat From Login

Public Class Form1

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

        Password.PasswordChar = "*"

    End Sub

    Private Sub Btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_OK.Click

        If Username.Text = "Donny" And Password.Text = "9100" Then

            MsgBox("Selamat Datang")

            Form2.Show()

        Else

            MsgBox("Maaf! Password Anda SALAH!")

            Username.Text = ""

            Password.Text = ""

            Username.Focus()

        End If

    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

        End

    End Sub

End Class

 

Selanjutnya :

Langkah 2

Langkah from Menu

Public Class Form2

    Private Sub FormToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormToolStripMenuItem.Click

    End Sub

    Private Sub Form3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form3ToolStripMenuItem.Click

        Form3.Show()

        Me.Hide()

    End Sub

    Private Sub EnkripsiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnkripsiToolStripMenuItem.Click

        Form4.Show()

        Me.Hide()

    End Sub

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

    End Sub

End Class

Selanjutnya:

Langkah 3

Langkah penggajian

Public Class Form3

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Devisi")

        Jabatan.Items.Add("Staff")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Jumlah.Items.Add("0")

        Jumlah.Items.Add("1")

        Jumlah.Items.Add("2")

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Personalia"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

        If NIK.Text = "PM010" Then

            Nama.Text = "Cahyo"

        ElseIf NIK.Text = "PS111" Then

            Nama.Text = "Steven"

        ElseIf NIK.Text = "KU101" Then

            Nama.Text = "Doni"

        ElseIf NIK.Text = "GD100" Then

            Nama.Text = "Dasner"

        ElseIf NIK.Text = "PM011" Then

            Nama.Text = "Risky"

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Case Jabatan.Text

            Case "Kepala Devisi"

                Gaji.Text = "5000000"

            Case "Staff"

                Gaji.Text = "2000000"

            Case "Wakil Kepala"

                Gaji.Text = "3500000"

        End Select

        Pajak.Text = Gaji.Text * 0.1

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        TK.Text = Gaji.Text * 0.15

        If Status.Text = "Menikah" Then

            TK.Text = 0.15 * Gaji.Text

        ElseIf Status.Text = "Tidak Menikah" Then

            TK.Text = 0

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Select Case Jumlah.Text

                Case "0"

                    TA.Text = 0

                Case "1"

                    TA.Text = Gaji.Text * 0.05

                Case "2"

                    TA.Text = Gaji.Text * 0.1

                Case Else

                    TA.Text = Gaji.Text * 0.5

            End Select

        End If

        Total.Text = (Gaji.Text) + Val(TA.Text) + Val(TK.Text) - Pajak.Text

        Total.Enabled = False

    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click

        NIK.Text = ""

        Nama.Text = ""

        Bagian.Text = ""

        Jabatan.Text = ""

        Gaji.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        Jumlah.Text = ""

        TK.Text = ""

        TA.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

        End

    End Sub

End Class

Selanjutnya:

Langkah 4

Langkah Enkripsi ,Dekripsi

Public Class Form4

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

    End Sub

    Private Sub Btnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnen.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(TextBox1.Text)

            x = Mid(TextBox1.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        TextBox2.Text = xkalimat

    End Sub

    Private Sub Btnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnde.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(TextBox1.Text)

            x = Mid(TextBox1.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        TextBox2.Text = xkalimat

    End Sub

End Class

jika anda ingin mempelajarinya lebih dalan Klik DI sini