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) = Con