Tugas Algoritma & Pemrograman SI 1 UNILAK (Console TRAVEL)

Buat anak anak SI Semester I UNILAK 2012 - 2013 yang tidak bermalam mingguan
Ini ada sedikit sharing untuk mengerjakan tugas program Console Travel dari Algoritma dan Perograman semoga dapat sedikit membantu:


Imports System.Console

Module Module1

    Sub Main()

        Dim TGL, NI, NP, KP, PKT, DT As String
        Dim LPJ, B, DIS, TB, A As Double

        WriteLine("--------------------------------------")
        WriteLine("Aplikasi Console : Travel dengan IF")
        WriteLine("          ROY KURNIAWAN")
        WriteLine("--------------------------------------")
        ReadLine()

        'Membuat Input
        Write("No Identitas : ")
        NI = ReadLine()
        Write("Tanggal Perjalanan : ")
        TGL = ReadLine()
        Write("Nama Pelanggan : ")
        NP = ReadLine()
        Write("Kode Perjalanan  : ")
        KP = ReadLine()
        Write("Paket Perjalanan : ")
        PKT = ReadLine()
        Write("Lama Perjalanan (Hari): ")
        LPJ = ReadLine()
        WriteLine()

        'Mengunakan IF untuk menerangkan Kode Perjalanan (KP)
        If KP = "JKT" Then
            DT = "Jakarta"
            B = 500000
        ElseIf KP = "BTM" Then
            DT = "Batam"
            B = 300000
        ElseIf KP = "MDN" Then
            DT = "Medan"
            B = 250000
        ElseIf KP = "PLB" Then
            DT = "Palembang"
            B = 350000
        ElseIf KP = "LMP" Then
            DT = "Lampung"
            B = 370000
        End If

        'Menggunakan IF untuk Paket
        If PKT = "Rombongan" Then
            DIS = 0.05 * (LPJ * B)
        Else : DIS = 0
        End If
        'Proses atau rumus matematikanya
        TB = ((B * LPJ) + 50000) - DIS
        A = 50000

        'Output dengan Penjelasannya
        WriteLine("--------------------------------------")
        WriteLine("Daerah Tujuan : " & DT)
        WriteLine("Biaya         : Rp. " & B)
        WriteLine("Diskon        : Rp. " & DIS)
        WriteLine("Asuransi      : Rp. " & A)
        WriteLine("--------------------------------------")
        WriteLine("**************************************")
        WriteLine("--------------------------------------")
        WriteLine("Total Biaya   : Rp. " & TB)
        WriteLine("--------------------------------------")
        WriteLine("--------------------------------------")
        ReadLine()
        'SELESAI
    End Sub

End Module

OKE SELAMAT BELAJAR.....