Menggunakan Metode ARRAY, LOOP dan lainya Pada Aplikasi VB.NET

pada tanggal
Menggunakan Metode ARRAY, LOOP dan lainya Pada Aplikasi VB.NET








Oke kali ini akan membagikan langkah-langkah membuat array, loop dan lainya di aplikasi visual basi.net ,tanpa panjang lebar berikut langkah-langkahnyaaaaa ......



  1. Buat tipe variable dengan sebagai berikut :


    Jadi, nbarang(4) dan hbarang(4) adalah array yang fungsinya untuk mengelompokkan nya lebih mudah.

    Fungsi ketemuu as Boolean merupakan system pengulangan yang ditujukan untuk mencari nama barang serta harga.

   2. Lalu masukkan scrip pengulangan dengan memasukkan nama barang untuk cooding sebagai berikut beserta penjelasan :
       
        indeks = 0 (kondisi pada awal saat dilakukannya pada perulangan atau disebut juga looping)

        While indeks < 5 (jika kondisi indeks <5 adalah benar maka berlanjut ke tahap berikutnya)
            Console.Write("Masukan Barang {0}.  ", indeks + 1) ({0} untuk menggantikan isi variable pada saat nanti yang ditentukan, indeks + 1 sebagai pengulangan menambahkan jumlahnya hingga <5)   
            nbarang(indeks) = Console.ReadLine()
            indeks = indeks + 1(agar dapat pengulangan hingga kondisi indeks <5)
        End While

       

   3. Untuk memasukkan harga sebagai berikut  penjelasan sama seperti diatas :


        indeks = 0
        While indeks < 5
            Console.Write("Masukan Harga  {0}.  ", indeks + 1)
            hbarang(indeks) = Console.ReadLine()
            indeks = indeks + 1
        End While

  4. Selanjutnya adalah tahap untuk mempersatukan nama dan harga barang menjadi keseluruhan , serta totalnya harga.

indeks = 0
        While indeks < 5
            Console.WriteLine("Barang {0} Harganya adalah {1}", nbarang(indeks), hbarang(indeks)) ({0} dan {1} menggantikan yang nantinya di isi pada nbarang(indeks) dan hbarang(indeks))
            total = total + hbarang(indeks) (total + hbarang(indeks) akan menjumlahkan semua harga barang yang ingin di input)
            indeks = indeks + 1
        End While

  5. Di bagian ini melanjutkan untuk totalnya, jadi total disini untuk sebagai outputnya, Serta barang yang ingin dicari.


        Console.WriteLine("Total nya adalah {0}", total) (merupakan keluaran penjumlahan dari hbarang)
        Console.Write("Masukan Nama Barang yang dicarii : ")
        cari = Console.ReadLine() (menuliskan perintah cari dari barang yang ingin di cari)


  6. Selanjutnya mendeklarasikan barang yang dicari dan ditemukan pada harga :

indeks = 0
        While indeks < 5
            If nbarang(indeks) = cari Then
                Console.WriteLine("Barangnya {0} ditemukan di hargaa {1}", nbarang(indeks), hbarang(indeks))
                ketemuu = True (ketemuu = True mendefinisasikan bahwa barang dan harga adalah benar, jika benar maka akan berlanjut ke tahap berikutnya)
            End If
            indeks = indeks + 1



77. Langhkah selanjutnya sebagai pelengkap saja, yakni untuk pengecekan bahwa barangnya tak ditemukan :


        If ketemuu = False Then
            Console.WriteLine()
            Console.WriteLine("Barangnya tak ditemukan...")
        End If


Berikut ini code script nya :


Module Module1

    Sub Main()
        Dim nbarang(4), cari As String
        Dim hbarang(4), indeks, total As Integer
        Dim ketemuu As Boolean

        Console.WriteLine()
        Console.WriteLine("          List Barangnya        ")

        indeks = 0
        While indeks < 5
            Console.Write("Masukan Barang {0}.  ", indeks + 1)
            nbarang(indeks) = Console.ReadLine()
            indeks = indeks + 1
        End While

        Console.WriteLine()
        Console.WriteLine("          List Harganya         ")

        indeks = 0
        While indeks < 5
            Console.Write("Masukan Harga  {0}.  ", indeks + 1)
            hbarang(indeks) = Console.ReadLine()
            indeks = indeks + 1
        End While

        Console.WriteLine()

        indeks = 0
        While indeks < 5
            Console.WriteLine("Barang {0} Harganya adalah {1}", nbarang(indeks), hbarang(indeks))
            total = total + hbarang(indeks)
            indeks = indeks + 1
        End While

        Console.WriteLine("Total nya adalah {0}", total)
        Console.Write("Masukan Nama Barang yang dicarii : ")
        cari = Console.ReadLine()


        indeks = 0
        While indeks < 5
            If nbarang(indeks) = cari Then
                Console.WriteLine("Barangnya {0} ditemukan di hargaa {1}", nbarang(indeks), hbarang(indeks))
                ketemuu = True
            End If
            indeks = indeks + 1

        End While

        If ketemuu = False Then
            Console.WriteLine()
            Console.WriteLine("Barangnya tak ditemukan...")
        End If
        Console.ReadLine()

    End Sub

End Module





Berikut ini adalah output keseluruhannya :





Download versi VB
Download versi doc.

 Sekian tutorial nya semoga bermanfaat dan mohon maaf ......




Komentar

Posting Komentar