sistem rental VCD menggunakan vb

Sistem rental VCD

Imports System.Console

Module Module1

    Sub Main()

        'inisialisai

        Dim harsat As Integer

        Dim jml As Integer

        Dim totharga As Integer

        Dim tglpinjam As Integer

        Dim durasi_sewa As Integer

        MsgBox("SELAMAT DATANG DI TOKO KAMI", MsgBoxStyle.YesNo)

        'input data

        Write("input harga satuan:")

        harsat = ReadLine()

        Write("input jumlah barang:")

        jml = ReadLine()

        Write("tglpinjam:")

        tglpinjam = ReadLine()

        'dicision

        If jml >= 1 < 5 Then

            durasi_sewa = jml

        End If

        If jml > 5 Then

            durasi_sewa = 4

        End If

        'proses

        totharga = harsat * jml

        'output

        Write("total harga adalah:")

        Write(totharga)

        Write("durasi_sewa:")

        Write(durasi_sewa)

        Write("hari:")

        ReadLine()

        MsgBox("SELAMAT MENONTON ,SEMOGA ANDA TERHIBUR", MsgBoxStyle.Exclamation)

    End Sub

    Private Function hari() As Object

        Throw New NotImplementedException

    End Function

End Module

 sory, ini masih belum up ... ^^