Module Module1
Sub Main()
Dim hasil As Integer
Dim jb As Integer
Console.Write("Masukan Jumlah Barang : ")
jb = Console.ReadLine()
Console.WriteLine("")
If jb > 100 Then
hasil = 0.8 * 20000 * jb
Console.WriteLine("Diskon 20%")
ElseIf jb > 10 Then
hasil = 0.9 * 20000 * jb
Console.WriteLine("Diskon 10 %")
Else
hasil = 20000 * jb
Console.WriteLine("Anda Tidak Mendapat Diskon")
End If
Console.WriteLine("======================================")
Console.WriteLine("Harga satuan = Rp 20000")
Console.WriteLine("Jumlah Yang harus Dibayar: Rp {0}", hasil)
Console.WriteLine("======================================")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" Terima Kasih")
Console.WriteLine(" ============")
Console.ReadLine()
End Sub
End Module
Tidak ada komentar:
Posting Komentar