Belajar Console Application : Visual Basic,,,


Huh, dh lama nd ngeblog, cz lg sibuk,,haha,,
Kali ini, sy akan menulis sedikit tentang Console Application : Visual Basic,,
Sekedar info aj, Console Application ini hampir sama dengan program pemograman seperti pascal dll,,
Berikut salah satu contoh programnya,,
 -------------------------------------------------
Module Module1

    Sub Main()
        Dim nama, NPM, namaproduk As String
        Dim jmlproduk, hrgproduk, total, potongan, total2 As Integer

        Console.Write("Nama : ")
        nama = Console.ReadLine()
        Console.Write("NPM  : ")
        NPM = Console.ReadLine()

        Console.WriteLine("_______________________________________________________")
        Console.WriteLine("Berikut ini adalah perhitungan penjualan diskon khusus")
        Console.WriteLine("_______________________________________________________")

        Console.Write("Nama Produk   : ")
        namaproduk = Console.ReadLine()
        Console.Write("Jumlah Produk : ")
        jmlproduk = Console.ReadLine()

        Console.WriteLine()
        Console.WriteLine("============================================")
        Console.Write("Nama : ")
        Console.WriteLine(nama)
        Console.Write("NPM  : ")
        Console.WriteLine(NPM)
        Console.WriteLine()

        Console.Write("Nama Produk   : ")
        Console.WriteLine(namaproduk)
        Console.Write("Jumlah Produk : ")
        Console.Write(jmlproduk)
        Console.WriteLine(" Buah")

        If jmlproduk >= 10 Then
            hrgproduk = 15039
        ElseIf jmlproduk >= 5 And jmlproduk <= 9 Then
            hrgproduk = 17039
        Else
            hrgproduk = 20039
        End If

        Console.Write("Harga Produk  : ")
        Console.WriteLine(hrgproduk)

        Console.WriteLine()
        total = hrgproduk * jmlproduk
        Console.Write("Total yang harus di bayar   : Rp.")
        Console.WriteLine(total)

        If total > 1000000 Then
            potongan = total * (39 / 100)
        End If

        total2 = total - potongan
        Console.Write("Pembayaran setelah potongan : Rp.")
        Console.WriteLine(total2)
        Console.ReadKey()

    End Sub

End Module
-----------------------------------------------------------------------
Semoga bermanfaat,,

Posted on 20 April 2011, in Tugas Mata Kuliah, Visual Basic. Bookmark the permalink. 2 Komentar.

  1. kalau bisa tolong hasil tampilannya…! soalnya saya belum ngerti soal console application

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: