Imports System 

Public Module Module1 

Public Sub Main() 

console.writeline("PROGRAM APLIKASI DISKON") 

console.writeline("PROGRAM INI DIGUNAKAN UNTUK MELAKUKAN TRANSAKSI PEMBAYARAN")

        console.writeline("Programmed by : UCUP") 

console.writeline("PROGAM APLIKASI DISKON") 

        console.writeline()

dim namabarang as char 

dim harga, jumbarang, total, bayar, diskon as integer 

console.write("Nama Barang : ") 

namabarang = console.readline() 

console.write("Harga Satuan Barang : ") 

harga = console.readline() 

console.write("Jumlah Barang yang dibeli : ") 

jumbarang = console.readline() 

total = harga * jumbarang 

if (total >= 100000) then 

diskon = 0.1 * total 

bayar = total - diskon 

console.writeline("Total Belanja : {0}", total) 

console.writeline("Diskon : {0}", diskon) 

console.writeline("Biaya yang harus dibayarkan : {0}", bayar) 

Else if (total >= 50000) then 

diskon = 0.05 * total 

bayar = total - diskon 

console.writeline("Total Belanja : {0}", total) 

console.writeline("Diskon : {0}", diskon) 

console.writeline("Biaya yang harus dibayarkan : {0}", bayar) 

else  

console.writeline("Biaya yang harus dibayarkan : {0}", total) 

end if 

End Sub

End Module

​