Aplikasi Perumahan Pada VB.NET 2005 Console Application

Aplikasi Perumahan Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim no, nama, type As String
        Dim jumlah, daya, stb, stdawal, stdakhir, bkwh As Double
        WriteLine("DAFTAR REKENING LISTRIK PERUMAHAN ALAM SEMESTA BULAN MEI 2003 ")
        WriteLine("------------------------------------------------------------- ")
        Write(" MASUKAN NAMA        : ")
        nama = ReadLine()
        Write(" MASUKAN NO          : ")
        no = ReadLine()
        Write(" MASUKAN TYPE RUMAH  : ")
        type = ReadLine()
        Write(" MASUKAN STAND AWAL  : ")
        stdawal = ReadLine()
        Write(" MASUKAN STAND AKHIR : ")
        stdakhir = ReadLine()
        If type = "45" Then
            daya = 450
            stb = 25000
            bkwh = 90
        ElseIf type = "56" Then
            daya = 900
            stb = 35000
            bkwh = 120
        ElseIf type = "70" Then
            daya = 1300
            stb = 45000
            bkwh = 135
        Else
            type = "salah masukan type rumah"
        End If
        jumlah = bkwh * (stdakhir - stdawal) + stb
        Clear()
        WriteLine(" BIAYA LISTRIK YANG HARUS DI BAYAR ")
        WriteLine("============================================")
        WriteLine(" NAMA ANDA                       : " & nama)
        WriteLine("--------------------------------------------------------")
        WriteLine(" NO ANDA                         : " & no)
        WriteLine("--------------------------------------------------------")
        WriteLine(" TYPE RUMAH ANDA                 : " & type)
        WriteLine("--------------------------------------------------------")
        WriteLine(" DAYA ANDA                       : " & daya & " KWH")
        WriteLine("--------------------------------------------------------")
        WriteLine(" STAND BEBAN ANDA                : " & "Rp " & stb)
        WriteLine("--------------------------------------------------------")
        WriteLine(" STAND AWAL ANDA                 : " & stdawal & " KWH")
        WriteLine("--------------------------------------------------------")
        WriteLine(" STAND AKHIR ANDA                : " & stdakhir & " KWH")
        WriteLine("--------------------------------------------------------")
        WriteLine(" BIAYA PER KWH ANDA              : " & "Rp " & bkwh & " /KWH")
        WriteLine("--------------------------------------------------------")
        WriteLine(" JUMLAH BIAYA YANG HARUS DI BAYAR : " & "Rp " & jumlah)
        WriteLine("--------------------------------------------------------")
        ReadLine()

    End Sub

End Module