(www.pemikir-generasi.xyz) Assalamualaikum kawan-kawan semua.
Kembali lagi dengan saya, kali ini saya akan share source code sederhana bahasa pemrograman Visual Basic (VB) .Net.
Contoh program kali ini adalah program usaha travel.
Jadi disini nanti akan disediakn beberapa pilihan paket bagi calon pembeli.
Dan ini program hanya sebatas console saja teman-teman. Jadi ini sebenarnya ditujukan untuk belajar dasar pemrogramman VB .Net.
Ok, mari langsung saja.
Berikut soal programnya.
Fakultas Ilmu Komputer
UNIVERSITAS LANCANG KUNING
Jln. Yos Sudarso Km. 8 Rumbai Telp. 0761 7745164
PEKANBARU – RIAU
Naskah Ujian Akhir Semester Ganjil
Tahun Akademik 2011/2012
Mata Kuliah : Algoritma Pemrograman I
Kelas/Semester : TI-3 / I (Satu)
Dosen : Elvira Asril, M.Kom.
Hari / Tanggal : Jum’at / 20 Januari 2012
Waktu : 90 Menit
Sifat Ujian : Buka Buku
Petunjuk :
1. Jawablah Soal sesuai dengan instruksi dalam soal tersebut …!
2. Tidak dibenarkan menggunakan tipe-ex dan HP di non aktifkan ...!
3. Gunakan Waktu se-Optimal Mungkin ...!
Berdasarkan data yang ada di Syifa Travel , buatlah:
1. Flowchart
2. Program (Visual Studio)
Syifa Travel Pekanbaru
No. Identitas (KTP/SIM) :
Tanggal perjalanan :
Nama Pelanggan :
Kode Perjalanan :
Pilihan Paket :
Lama Perjalanan :
Daerah Tujuan :
Biaya :
Diskon :
Asuransi :
Total Biaya :
Ketentuan :
Jika Kode Perjalanan=JKT maka Daerah Tujuan=Jakarta dan biaya = Rp. 500.000 perhari
Jika Kode Perjalanan=BTM maka Daerah Tujuan=Batam dan biaya = Rp. 300.000 perhari
Jika Kode Perjalanan=MDN maka Daerah Tujuan=Medan dan biaya = Rp. 250.000 perhari
Jika Kode Perjalanan=PLB maka Daerah Tujuan=Palembang dan biaya = Rp. 350.000 perhari
Jika Kode Perjalanan=LMP maka Daerah Tujuan=Lampung dan biaya = Rp. 370.000 perhari
Jika pilihan paket = rombongan, maka mendapat diskon 5%.
Jika tidak, maka tidak mendapat diskon.
Setiap perjalanan dikenakan biaya asuransi sebesar Rp. 50.000
Hitunglah berapa total biaya yang harus dibayar?
Module Module1
Sub Main()
Dimktp, tanggal, nama, kode_per, paket As String
Dimlama_per, biaya, diskon As Integer
Dimtotal_biaya As Double
Console.WriteLine("Ridho Travel")
Console.Write("No. KTP: ")
ktp = Console.ReadLine()
Console.Write("Tanggal Perjalanan: ")
tanggal = Console.ReadLine()
Console.Write("Nama Pelanggan: ")
nama = Console.ReadLine()
Console.Write("Kode Perjalanan: ")
kode_per = Console.ReadLine()
Console.Write("Pilihan Paket: ")
paket = Console.ReadLine()
Console.Write("Lama Perjalanan: ")
lama_per = Console.ReadLine()
Console.Write("Daerah Tujuan: ")
Ifkode_per = "jkt" Then
Console.WriteLine("Jakarta")
ElseIfkode_per = "btm" Then
Console.WriteLine("Batam")
ElseIfkode_per = "mdn" Then
Console.WriteLine("Medan")
Else
Console.WriteLine("Tujuan Anda Tidak Ditemukan")
End If
Console.Write("Biaya: ")
Ifkode_per = "jkt" Then
biaya = (1000 * lama_per) + 50000
Console.WriteLine(biaya)
ElseIfkode_per = "btm" Then
biaya = (5000 * lama_per) + 50000
Console.WriteLine(biaya)
ElseIfkode_per = "mdn" Then
biaya = (100000000 * lama_per) + 50000
Console.WriteLine(biaya)
Else
Console.WriteLine("Tujuan Anda Tidak Ditemukan")
End If
Console.Write("Diskon: ")
Ifpaket = "rombongan" Then
diskon = 5 * biaya / 100
Console.Write("5%, jadi dipotong Rp. ")
Console.WriteLine(diskon)
End If
Console.WriteLine("Asuransi: Rp. 50.000")
Console.Write("Total Biaya: Rp. ")
Ifpaket = "rombongan" Then
diskon = 5 * biaya / 100
total_biaya = biaya - diskon
Console.Write(total_biaya)
Else
Console.Write(biaya)
End If
Console.ReadKey()
End Sub
End Module
Jika ada yang ingin ditanyakan, langsung aja di kolom komentar ya teman-teman!!!!
Tidak ada komentar:
Posting Komentar