Aplikasi Rumah Sakit Barcode Pada VB.NET 2005 Console Application

Aplikasi Rumah Sakit Barcode Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1

    Sub Main()
        Dim nam, kpas, jkam, nokam, kkam, kbdok As String
        Dim bydok, bph, tbinp, tbdok, dsc, totbi, laminp As Double
        WriteLine("--------------------->RUMAH SAKIT HARAPAN KITA<--------------------- data-blogger-escaped-2="" data-blogger-escaped-3="" data-blogger-escaped-4="" data-blogger-escaped-:="" data-blogger-escaped-bph="" data-blogger-escaped-bydok="" data-blogger-escaped-data="" data-blogger-escaped-else="" data-blogger-escaped-elseif="" data-blogger-escaped-end="" data-blogger-escaped-if="" data-blogger-escaped-inap="" data-blogger-escaped-jkam="TIDAK ADA" data-blogger-escaped-kbdok="03" data-blogger-escaped-kkam="MR" data-blogger-escaped-kode="" data-blogger-escaped-kpas="UCase(ReadLine())" data-blogger-escaped-lama="" data-blogger-escaped-laminp="" data-blogger-escaped-masukan="" data-blogger-escaped-nam="ReadLine()" data-blogger-escaped-nama="" data-blogger-escaped-nokam="Microsoft.VisualBasic.Right(kpas," data-blogger-escaped-pasien="" data-blogger-escaped-tbdok="laminp" data-blogger-escaped-tbinp="laminp" data-blogger-escaped-then="" data-blogger-escaped-write="" data-blogger-escaped-writeline="">= 10 Then
            dsc = (tbinp + tbdok) * 0.1
        ElseIf laminp >= 5 Then
            dsc = (tbinp + tbdok) * 0.05
        Else
            dsc = 0
        End If
        totbi = (tbinp + tbdok) - dsc
        WriteLine()
        Write("Tekan Enter Untuk Melihat Semua Rincian Biaya ====> enter")
        ReadLine()
        WriteLine()
        Clear()
        WriteLine("--------------------->RUMAH SAKIT HARAPAN KITA<--------------------- data-blogger-escaped-:="" data-blogger-escaped-hari="" data-blogger-escaped-inap="" data-blogger-escaped-jenis="" data-blogger-escaped-jkam="" data-blogger-escaped-kamar="" data-blogger-escaped-kode="" data-blogger-escaped-kpas="" data-blogger-escaped-lama="" data-blogger-escaped-laminp="" data-blogger-escaped-nam="" data-blogger-escaped-nama="" data-blogger-escaped-no="" data-blogger-escaped-nokam="" data-blogger-escaped-pasien="" data-blogger-escaped-writeline="">Total Biaya Yang Harus Dibayar Pasien<--------- data-blogger-escaped---------------------------------="" data-blogger-escaped-writeline="">      Biaya Dokter       : " & "Rp " & bydok)
        WriteLine("--------------------------------------------------")
        WriteLine("=====>      Biaya Perhari      : " & "Rp " & bph)
        WriteLine("--------------------------------------------------")
        WriteLine("=====>      Total Biaya Inap   : " & "Rp " & tbinp)
        WriteLine("--------------------------------------------------")
        WriteLine("=====>      Total Biaya Dokter : " & "Rp " & tbdok)
        WriteLine("--------------------------------------------------")
        WriteLine("=====>      Discount           : " & "Rp " & dsc)
        WriteLine("--------------------------------------------------")
        WriteLine("=====>      Total Bayar        : " & "Rp " & totbi)
        WriteLine("--------------------------------------------------")
        WriteLine()
        WriteLine("--->TERIMA KASIH TELAH MEMPERCAYAKAN KESEHATAN ANDA PADA KAMI<--- data-blogger-escaped-writeline="">KAMI AKAN TERUS MENINGKATKAN PELAYANAN YANG TERBAIK<------ data-blogger-escaped-end="" data-blogger-escaped-module="" data-blogger-escaped-pre="" data-blogger-escaped-readline="" data-blogger-escaped-sub="">