Buat Console Hitung Overtime Harian Buat anak SI

Buat anak anak SI Unilak 2012 -2013 ini untuk latihan saja sesuai dengan persoalan :
Buat Program dan Flowchart ???

Hitung Overtime harian:

Input :
- Gaji Pokok
- Jenis hari (Reg/Off)
- Jam OverTime

Output :
- Unit
- Uang OverTime

Ketentuan :

1. Mencari unit:

• Jenis Hari Off maka perhitungan Jam pertama (1) adalah dikali 2, Jam ke 2 sd ke 8 maka dihitung dikali 3 dan Jam ke 9 dst dihitung dikali 4.
• Jenis hari Reg maka perhitungan Jam pertama (1) adalah dikali 1,5, Jam ke 2 sd ke 8 dihitung dikali 2 dan jam ke 9 dst dihitung dikali 3.

2. Untuk mendapatkan Uang Overtime rumusannya adalah Gaji Pokok/173 x unit.

Silahkan dicoba....
Mohon console dibawah adalah jawabannya tapi goalnya adalah mengerti penggunaannya dan pembuatannya ... apabila sudah dimengerti silahkan buat untuk perhitungan 1 bulan (31 Hari).

Jawabannya: 


Imports System.Console

Module Module1

    Sub Main()
        Dim gp, jo, a, b, c, unit, ot As Single
        Dim jh As String

        WriteLine("++++++++++++++++++++++++")
        WriteLine("APLIKASI HITUNG OVERTIME")
        WriteLine("++++++++++++++++++++++++")
        ReadLine()
        WriteLine("============================================================")
        WriteLine("============================================================")
        Write("      Masukan Gaji Pokok: Rp. ")
        gp = ReadLine()
        Write("      Masukan Jenis Hari(reg/off) : ")
        jh = ReadLine()
        Write("      Masukan Jam Overtime : ")
        jo = ReadLine()

       If jh = "off" Then
            If jo >= 1 Then a = 2
            If jo >= 2 < 8 Then b = 7 * 3 Else
            b = (jo - 1) * 3
            If jo >= 9 Then c = (jo - 8) * 4
        Else
            If jo >= 1 Then a = 1.5
            If jo >= 2 < 8 Then b = 7 * 2 Else
            b = (jo - 1) * 2
            If jo >= 9 Then c = (jo - 8) * 3
        End If
        unit = a + b + c
        ot = (gp / 173) * unit

        WriteLine("============================================================")
        WriteLine("============================================================")
        WriteLine("     Jumlah Unit adalah :" & unit)
        WriteLine("     Jumah Overtime yang diterima : Rp. " & ot)
        WriteLine("============================================================")
        WriteLine("============================================================")
        ReadLine()
        WriteLine("============================================================")
        WriteLine("     KALAU SUDAH BISA SILAHKAN BUATKAN UNTUK PERBULAN")
        WriteLine("                      SELAMAT BELAJAR")
        WriteLine("             SEMOGA SUKSES MENJADI PROGRAMER")
        WriteLine("============================================================")
        ReadLine()

    End Sub

End Module