Console Aplikasi Jurnal Keuangan

Module Module1

    Sub Main()
        'input
        Dim JumData As Integer
        Console.WriteLine(" Aplikasi Jurnal Keuangan")
        Console.WriteLine(" ===========================")
        Console.Write(" Masukkan Jumlah Data : ")
        JumData = Console.ReadLine()

        'proses
        Dim i As Integer = 0
        Dim y As Integer = 0
        Dim tanggal(JumData) As String
        Dim ket(JumData) As String
        Dim debet(JumData) As Integer
        Dim kredit(JumData) As Integer
        Dim JumDeb As Integer = 0
        Dim JumKredit As Integer = 0
        Do
            Console.Clear()
            i = i + 1
            Console.WriteLine(" Aplikasi Jurnal Keuangan")
            Console.WriteLine(" ===========================")
            Console.WriteLine(" Input Data Ke " & i)
            Console.Write(" Masukkan Tanggal        : ")
            tanggal(i) = Console.ReadLine()
            Console.Write(" Masukkan Keterangan     : ")
            ket(i) = Console.ReadLine()
            Console.Write(" Masukkan Nilai Debet    : Rp.")
            debet(i) = Console.ReadLine()
            Console.Write(" Masukkan Nilai Kredit   : Rp.")
            kredit(i) = Console.ReadLine()
            JumDeb = JumDeb + debet(i)
            JumKredit = JumKredit + kredit(i)

        Loop Until i = JumData

        'output
        Console.Clear()
        Console.WriteLine("======================================================= ")
        Console.WriteLine("DAFTAR JURNAL KEUANGAN ")
        Console.WriteLine("==================================================== ")
        Console.WriteLine()
        Console.WriteLine("--------------------------------------------------------------------------")
        Console.WriteLine(" Tanggal | Keterangan | Debet | Kredit")
        Console.WriteLine("--------------------------------------------------------------------------")

        Do
            y = y + 1
            Console.WriteLine(tanggal(y) & " | " & ket(y) & " | " &
                              debet(y) & " | " & kredit(y))

        Loop Until y = JumData
        Console.WriteLine("-------------------------------------------------------------------------- ")
        Console.WriteLine("Jumlah   | " & JumDeb & " | " & JumKredit)
        Console.ReadKey()
    End Sub

End Module