Di sini saya menggunaka aplikasi visual studio untuk menggunakan aplikasi memasukan data barang dan mencari data barang.
2. Maka akan muncul Jendela New Project, lalu pilih Visual Basic, dan pilih Console App (.NET Framework). Lalu klik Next.
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
0 Komentar