Membuat Shift Otomatis Berdasarkan Jam Kerja di Visual Basic. Net (VB.NET) Dengan Mudah dan Cepat

Buat yang sudah berpengalaman kerja terutama kerja perusahaan-perusahaan atau pabrik-pabrik pasti pernah mengalami pembagian shif kerja tapi sekali lagi pembagian shift ini tergantung kebutuhan perusahaan atau pabrik, misalnya ada yang masuk pagi Jam 07-15, masuk siang Jam 15-23 dan masuk malam Jam 23-07 dan begitu seterusnya.

Tapi dalam artikel kali ini Admin bukan membuat jadwal shift karyawan pabrik atau perusahaan tapi membuat Shift untuk sistem kasir seperti yang ada di Minimarket di sitem transaksinya.

Dengan shift ini akan mempermudah input manual, mengelola laporan serta mengintegrasikan kedalam Database.

Contoh sitem Shift :

Shift Pagi : 07:00 - 14:59

Shift Siang : 15:00 - 22:59

Shift Pagi : 23:00 - 06:59

Berikut adalah langkah-langkah dalam pembuatan  Shift Otomatis Berdasarkan Jam Kerja di Visual Basic. Net (VB.NET) dengan Mudah dan Cepat

1. Tempatkan 1 Timer di Form dan atur Interval:1000, Enabled=True

2. Tambahkan 1 Label di Form

3. Buka Jendela kode ketikan kode dibawah ini untuk membuat Sub Shift :

Public Function GetShift(ByVal inputTime As DateTime) As Integer

    Dim jam As TimeSpan = inputTime.TimeOfDay

    If jam >= TimeSpan.FromHours(7) AndAlso jam < TimeSpan.FromHours(15) Then

        Return 1

    ElseIf jam >= TimeSpan.FromHours(15) AndAlso jam < TimeSpan.FromHours(23) Then

        Return 2

    Else

        Return 3

    End If

End Function

4. Pada bagian Sub Timer1 () ketikan kode dibawah ini :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

 Dim shiftSekarang As Integer = GetShift(DateTime.Now)

'tempatkan shif di label yang anda inginkan

Label1.Text = "Shift: " & shiftSekarang

End Sub

5. Selesai, mudahkan coba jalankan lihat Aaat anda menjalankan sekarang shif berapa?