Cara Membuat Aplikasi Penjumlahan Menggunakan Bahasa Visual Basic

Pertama tama ber doa dulu ya menurut keyakinan masing masing sebelum memulai tutorial nya J

Di sini saya menggunaka aplikasi visual studio untuk menggunakan aplikasi memasukan data barang dan mencari data barang.

1. Buka aplikasi Visual Basic Kemudian pilih  New Project.

2. Maka akan muncul Jendela New Project, lalu pilih Visual Basic, dan pilih Console App (.NET Framework). Lalu klik Next.

3. Maka akan muncul ConsoleApp1 yang masih kosong dan klik create. disinilah kita akan mulai membuat aplikasi.

4. Didalam ConsoleApp1 yang masih kosong, masukan Kodingan.

Untuk memasuka barang yang ingin di tampilkan :

Sub Main()

        Dim Barang(4), Harga(4) As String

        Dim indeks As Integer

        indeks = 0

        While indeks < 5

            Console.WriteLine("Masukan Nama Barang :")

            Barang(indeks) = Console.ReadLine()

            Console.WriteLine("Masukan Harga Barang :")

            Harga(indeks) = Console.ReadLine()

            indeks = indeks + 1

        End While

Untuk menampilkan barang dan harga barang :

Dim jumlah As Integer

        jumlah = Val(Harga(0)) + Val(Harga(1)) + Val(Harga(2)) + Val(Harga(3)) + Val(Harga(4))

        indeks = 0

        While indeks < 5

            Console.Out.Write("Barang : ")

            Console.WriteLine(Barang(indeks))

            Console.Out.Write("Harga : ")

            Console.WriteLine(Harga(indeks))

            indeks = indeks + 1

        End While

        Console.Out.Write("Jumlah Harga Barang : ")

        Console.WriteLine(jumlah)

Untuk pencarian barang dan harga barang yang telah di inputkan :

Dim cari As String

        Dim M As Integer

        While M < 1

            indeks = 0

            Console.WriteLine("Masukan Nama Yang Di Cari : ")

            cari = Console.ReadLine()

            While indeks < 5

                If cari = Barang(indeks) Then

                    Console.Out.Write("Harga : ")

                    Console.WriteLine(Harga(indeks))

                End If

                    indeks = indeks + 1

            End While

            Console.WriteLine("")

        End While

5. Sampai disini dulu tutorial kali ini, sekian dan terimakasih J