Wednesday, August 07, 2019

3 Cara Mencari Nilai Terbesar (Max) dan Terkecil(Min) dari Array di Vb.net


Berikut saya akan memberikan tips 3 Cara mencari nilai terbesar(Max) dan terkecil(Min) dari data array di vb.net. Sebelum melangkah ke pembahasan alangkah baiknya kita mengetahui definisi dari array.


Array merupakan kumpulan nilai atau data yang mempunyai type yang sama. Dan bagian dari array disebut dengan elemen - elemen array.

Dalam proses mencari nilai terbesar dan terkecil dari suatu array disini saya akan menggunakan studi kasus di vb.net yaitu kita akan mencari nilai terbesar dan terkecil dari array yang datanya berasal dari 10 textbox yang berisi angka secara acak.

Pertama-tama buatlah sebuah project di vb.net dan designlah form tersebut seperti gambar di bawah ini
dalam form tersebut saya menambahkan 10 textbox yang akan digunakan sebegai elemen dari array dan 3 buat tombol disini karena akan memberikan 3 cara mencari nilai max dan mix dari array.

Cara pertama : Dengan mengurutkan array dari terkecil sampai terbesar
pada tombol cek 1 tambahkan code di bawah ini

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim angka(9) As Integer 'definisikan array berisi 10 element
        angka(0) = TextBox1.Text
        angka(1) = TextBox2.Text
        angka(2) = TextBox3.Text
        angka(3) = TextBox4.Text
        angka(4) = TextBox5.Text
        angka(5) = TextBox6.Text
        angka(6) = TextBox7.Text
        angka(7) = TextBox8.Text
        angka(8) = TextBox9.Text
        angka(9) = TextBox10.Text

        Array.Sort(angka) ' urutkan ke 10 element tersebut

        'setelah diurutkan otomatis element pertama adalah element terkecil dan yang terakhir adalah yang terbesar
        MsgBox("Nilai terkecil(Min) : " & angka(0) & vbNewLine & "Nilai terbesar (Max): " & angka(angka.Length - 1))
    End Sub

Cara kedua : Dengan menggunakan fungsi aggregate
Pada tombol cek 2 tambahkan kode berikut ini
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim angka(9) As Integer 'definisikan array berisi 10 element
        angka(0) = TextBox1.Text
        angka(1) = TextBox2.Text
        angka(2) = TextBox3.Text
        angka(3) = TextBox4.Text
        angka(4) = TextBox5.Text
        angka(5) = TextBox6.Text
        angka(6) = TextBox7.Text
        angka(7) = TextBox8.Text
        angka(8) = TextBox9.Text
        angka(9) = TextBox10.Text

        Dim hasil = Aggregate nilai In angka Into Min(nilai), Max(nilai)
        MsgBox("Nilai terkecil(Min) : " & hasil.Min & vbNewLine & "Nilai terbesar (Max): " & hasil.Max)

    End Sub

Cara ketiga : Menyimpan nilai textbox ke dalam list
Pada tombol cek 3 tambkan kode seperti di bawah ini
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim lst As New List(Of Integer) 'buat list untuk menampung nilai

        'loop ke smua cotrol yang jenisnya textbox
        For Each ctl As Control In Controls
            'jika jenis control adalah textbox
            If (TypeOf ctl Is TextBox) Then
                'maka tampung nilainya
                lst.Add(ctl.Text)
            End If
        Next
        MsgBox("Nilai terkecil(Min) : " & lst.Min & vbNewLine & "Nilai terbesar (Max): " & lst.Max)
    End Sub

Selanjutnya cobalah running program yang sudah kalian buat dan jika tombol 1 sampai 3 di klik akan menghasilkan msgbox berisi nilai terbesar dan terkecil dari array tersebut sperti gambar di bawah ini

Demikian 3 cara mencari nilai terbesar (Max) dan nilai terkecil (min) sebuah array di vb.net. Semoga postingan ini berguna buat kalian yang lagi membutuhkan. Terima kasih



Disqus Comments