TUTORIAL VISUAL BASIC : MEMBUAT CODING INPUT,TAMPIL,HITUNG TOTAL HARGA,DAN PENCARIAN BARANG.
Pada pembahasan ini akan "Membuat Coding Input,Tampil,Hitung Total Harga,dan Pencarian Barang" berikut adalah penjelasannya ..
Biasanya pembuatan coding ini digunakan oleh mahasiswa pemula tingkat Semester I untuk membuat programnya harus terlebih dahulu menginstall Visual Basic .Pada pembahasan ini saya menggunakan Visual Studio 2017.
Di blog ini dijelaskan mengenai langkah-langkah pembuat program inputan barang,tampilan barang,total harga barang,dan pencarian barang. Ini hanyalah program dasar yang bisa di kembangkan .
LANGKAH-LANGKAH MEMBUAT APLIKASI BARANG :
1. Pertama-tama buka aplikasi Visual Studio 2017. Buat project dengan pilih menu File kemudian NEW dan buat Project.
Setelah membuat project pilih Visual Basic - Windows Dekstop kemudian pilih Console App(NET.Framework) dan tulis nama project barang
2. Setelah memasuki Aplikasi Visual Studio . Mulai membuat coding barang di area setelah Sub Main().
Awal Pertama Masukkan Coding Pendeklarasian Variabel . Fungsi Variabel disini untuk menyimpan nilai supaya nilai tersebut bisa berubah-ubah . Dan setiap Variabel mempunyai tipe data dan hanya data yang bertipe sama bisa di masukkan ke dalam variabel . Berikut adalah codingnya.
Pendeklarasian Variabel Dim (nama variabel) As (Tipe Data)
3. Setelah Pendeklarasian Variabel Proses Selanjutnya adalah Memasukkan Nama Barang sebanyak 5 kali Menggunakan Fungsi Perulangan .
Pendeklarasian Variabel Dim (nama variabel) As (Tipe Data)
Dim nama_barang(4) As String
Dim harga(4) As Integer
Dim total As Integer
Dim indeks As Integer
Dim cari As String
Dim ketemu As Boolean
3. Setelah Pendeklarasian Variabel Proses Selanjutnya adalah Memasukkan Nama Barang sebanyak 5 kali Menggunakan Fungsi Perulangan .
indeks = 0
While indeks < 5
Console.WriteLine("Masukkan Nama Barang{0}:", indeks + 1)
nama_barang(indeks) = Console.ReadLine()
indeks = indeks + 1
End While
Setelah menulis coding diatas maka kalo program dijalankan akan muncul tampilan seperti ini :
4.Setelah memasukkan nama barang, maka masukkan juga harga barang sebanyak 5 kali sesuai dengan nama barang yang diinputkan dengan menggunakan While.
indeks = 0
While indeks < 5
Console.WriteLine("Masukkan Harga Barang{0}:", indeks + 1)
harga(indeks) = Console.ReadLine()
indeks = indeks + 1
End While
Setelah menulis coding diatas program akan tampil seperti ini :
5. Setelah Memasukkan nama dan harga barang sebanyak masing-masing 5 kali berikut selanjutnya adalah menampilkan nama barang dan harga yang di inputkan tadi . Berikut adalah coding Tampilan Nama Barang dan Harga.
Menampilkan Nama Barang dan Harga Barang juga menggunakan Fungsi perulangan While.
indeks = 0
While indeks < 5
Console.Write("Nama Barang = ")
Console.WriteLine(nama_barang(indeks))
Console.Write("Harga = Rp. ")
Console.WriteLine(harga(indeks))
indeks = indeks + 1
End While
Setelah menuliskan coding diatas maka akan muncul tampilan seperti ini :
6. Berikut adalah coding melakukan penjumlahan total harga yang di masukkan .
Console.WriteLine("Total Harga ....")
total = harga(0) + harga(1) + harga(2) + harga(3) + harga(4)
Console.WriteLine(total)
Setelah melakukan coding diatas akan menampilkan seluruh total harga yang di masukkan .
7. Setelah coding memasukkan nama barang,harga barang,total harga, dan berikutnya adalah script pencarian nama barang .
While True
Console.WriteLine(" Masukkan Pencarian Nama Barang....")
cari = Console.ReadLine()
ketemu = False
indeks = 0
While indeks < 5
If nama_barang(indeks) = cari Then
Console.WriteLine("Nama Barang : {0}|Harga : {1}|",
nama_barang(indeks), harga(indeks))
ketemu = True
End If
indeks = indeks + 1
End While
If ketemu = False Then
Console.WriteLine(" -- Pencarian Tidak Di Temukan -- ")
End If
End While
Setelah menuliskan coding pencarian nama barang berikut adalah tampilan nya .
Berikut adalah Ful Coding nya dari yang Inputan,Tampilan,Total Harga dan pencarian berdasarkan nama barang
Module Module1
Sub Main()
Dim nama_barang(4) As String
Dim harga(4) As Integer
Dim total As Integer
Dim indeks As Integer
Dim cari As String
Dim ketemu As Boolean
indeks = 0
While indeks < 5
Console.WriteLine(" Masukkan Nama Barang {0} :", indeks + 1)
Console.Write(" ")
nama_barang(indeks) = Console.ReadLine()
indeks = indeks + 1
End While
indeks = 0
While indeks < 5
Console.WriteLine(" Masukkan Harga Barang {0}", indeks + 1)
Console.Write(" ")
harga(indeks) = Console.ReadLine()
indeks = indeks + 1
End While
indeks = 0
While indeks < 5
Console.Write("Nama Barang = ")
Console.WriteLine(nama_barang(indeks))
Console.Write("Harga = Rp. ")
Console.WriteLine(harga(indeks))
indeks = indeks + 1
End While
Console.WriteLine("Total Harga ....")
total = harga(0) + harga(1) + harga(2) + harga(3) + harga(4)
Console.WriteLine(total)
While True
Console.WriteLine(" Masukkan Pencarian Nama Barang....")
cari = Console.ReadLine()
ketemu = False
indeks = 0
While indeks < 5
If nama_barang(indeks) = cari Then
Console.WriteLine("Nama Barang : {0}|Harga : {1}|",
nama_barang(indeks), harga(indeks))
ketemu = True
End If
indeks = indeks + 1
End While
If ketemu = False Then
Console.WriteLine(" -- Pencarian Tidak Di Temukan -- ")
End If
End While
End Sub
End Module
Berikut Ini adalah tampilan Full dari Inputan,tampilan,Total harga, sampai ke pencarian berdasarkan nama barang.
Bagaimana, Sudah cukup jelaskan Coding Diatas ? Selanjutnya masih ada lagi Perulangan yang dapat kita pelajari lagi.
Jika Masih Ada yang belum jelas tinggal tulis di kolom Komentar yaaa
Comments
Post a Comment