Halaman Utama Aplikasi

FORM HALAMAN UTAMA

Diskripsi : 

- Datetimepicker

- Panel

- Buttons

- Timer

Coding Program 

Public Class Menu_Utama

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Lbl12jam.Text = Format(Now, "h:mm:ss tt")
    End Sub

    Private Sub Lbl12jam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbl12jam.Click

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Form3.Show()
    End Sub

    Private Sub Menu_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DTTanggal.Format = DateTimePickerFormat.Custom
        DTTanggal.CustomFormat = "dddd, dd/MM/yyyy"
        DTTanggal.Value = Format(Now)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form4.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form5.Show()
    End Sub
End Class

From Login

 Form Login Sewa Lapangan Futsal

Deskripsi :
- Label   = Login
- Txtbox1  = nama pengguna
- textbox2 = Usesystempassword  : True
- buttons = login dan log out
- checkbox = periksa katasandi
- ProgressBar1
- Timer1

Coding program
Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox2.Text = "admin" And TextBox1.Text = "admin" Then

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Your Logged", MsgBoxStyle.Information)

                Menu_Utama.Show()

            End If

        Else

            Timer1.Start()

            ProgressBar1.Increment(10)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                ProgressBar1.Value = 0

                MsgBox("Login Not Succes", MsgBoxStyle.Critical)

            End If

        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If TextBox2.Text = "admin" And TextBox1.Text = "admin" Then
        Else
            MsgBox("KataSandi_ Salah")
        End If

    End Sub
End Class