APLIKASI UNTUK MENCATAT NAMA & HARGA BARANG

TUTORIAL UNTUK MEMBUAT APLIKASI SISTEM PENJUALAN 

1.cari aplikasi VB di google chrome 

2.lalu download aplikasi VB 

3.setelah download sudah selesai lalu buka aplikasi VB tersebut.

4.dan create a new project VB tersebut

5.kalau anda sudah selesai create akan muncul seperti pada gambar di bawah ini, lalu silahkan anda beri nama pada program tersebut.

6.jika program anda sudah selesai di beri nama dan di create akan muncul seperti ini

7. dan silahkan anda membuat progran anda tentang APLIKASI UNTUK SISTEM PENJUALAN

8.jika semua sudah selesai, kita akan menjalankan aplikasi ini dan akan muncul seperti pada gambar di bawah ini.

DI BAWAH INI ADALAH APLIKASI SISTEM PENJUALAN UNTUK MENCATAT NAMA DAN HARGA BARANG.

Imports Systema
Module Program
        Sub Main()
            Dim Namabarang(4) As String
            Dim Hargabarang(4) As Integer
            Dim total As Integer
            Dim indeks As Integer
            Dim Cari As String
            Dim Ketemu As Boolean

            Console.WriteLine("Selamat Datang Programer")
            Console.WriteLine("Pemrograman Metode Looping Berbasis While")
            Console.WriteLine(" ")

            indeks = 0

            While indeks < 5
            Console.WriteLine("Masukkan Nama Barang {0} :", indeks + 1)
            Namabarang(indeks) = Console.ReadLine()
                indeks = indeks + 1
            End While

            indeks = 0

            While indeks < 5
            Console.WriteLine("Masukkan harga barang {0} :", indeks + 1)
            Hargabarang(indeks) = Console.ReadLine()
                indeks = indeks + 1
            End While

            indeks = 0

            While indeks < 5
                Console.WriteLine("Nama Barang {0} Sebesar Total Rp. {1}", Namabarang(indeks), Hargabarang(indeks))
                total = total + Hargabarang(indeks)
                indeks = indeks + 1
            End While

            Console.WriteLine("TOTAL Harga Semua Barang Yang Tersedia Dalam Daftar Rp. {0}", total)

        Console.WriteLine(" ")

            indeks = 0
        Console.Write("Masukkan kategori barang yang diinginkan:")
        Cari = Console.ReadLine()
            indeks = 0
            Ketemu = False

            While indeks < 5
                If Cari = Namabarang(indeks) Then
                    Console.WriteLine("Telah di Temukan Barang yang Sesuai {0} Sebesar Harga Rp. {1}", Cari, Hargabarang(indeks))
                    Ketemu = True
                End If
                indeks = indeks + 1
            End While


    End Sub
End Module

SELAMAT MENCOBA TUTORIAL APLIKASI SISTEM PENJUALAN INI, SALAM SUKSES UNTUK KITA SEMUA.