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