Langsung ke konten utama

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

mencari-nilai-max-arry

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
mencari-nilai-max-arry
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
mencari-nilai-max-arry

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



Komentar

Postingan populer dari blog ini

Cara Mengatasi Tidak Bisa Connect Sharing Printer Di Komputer ( No Driver Found)

Selamat pagi sahabat partazone kali ini saya akan berbagi cara mengatasi tidak bisa connect printer sharing di local network. Sedikit ane jelasin apa itu sharing, sharing kalau diartikan ke bahasa indonesia artinya berbagi jadi kalau sharing printer artinya berbagi printer dalam hal ini misal di komputer A terpasang printer maka jika printer itu disharing maka komputer B,C dan lain-lain bisa menggunakan juga atau bisa ngeprint ke printer yang ada dikomputer A. Kali ini saya tidak akan menjelaskan gimana cara sharing printer tapi saya akan menjelaskan cara mengatasi tidak bisa konek sharing printer di local network dengan error no driver found. Jadi buat kalian yang bermasalah dengan printer sharing no driver found, kalian beruntung datang ke blog ini.. :D Tidak Bisa Print : Semua Printer Hilang di Menu Device and Printer Nah berikut saya akan menjelaskan penyebab dan solusi mengatasi tidak bisa konek printer sharing no driver found : Tidak bisa install driver printer. Setelah...

Cara Mengatasi Tidak Bisa Sharing di Local Network Pada Windows 7

Sharing merupakan sebuah proses yg biasa di local network misal perkantoran..   Sharing data bertujuan untuk mempermudah berbagi data/perangkat di jaringan : misal sharing data atau perangkat misal printer.. Jadi dengan sharing smua client yg diberi hak ijin akan bisa menggunakan data yang disharing... Kali ini ane gak bahas gimana langkah2 sharing data namun akan membahas gimana cara mengatasi sharing data yang gagal diwindows 7.. mungkin dianatar kalian shabat blogger yang pernah mengalami dimana pada komputer windwos 7 tidak bisa akses data yg disharing dikomputer lain. di kalau dilihat dinetworkpun tidak ada komputer lain yang terdetek atau kedetek tapi tidak bisa dibuka file yang disharing..   Nah lalu gimana solusinya berikut ane jelasin ya.. 1. Kenapa bisa gitu? >> hal ini disebabin oleh komputer yang di windows 7 pada saat pertama kali konek ke network dipilih public network/work network sehingga dalam hal ini komputer kita akan tdak bisa mengkases data yan...

Cara mengatasi redirect link pada saat buka website

Ok gan kali ini ane bakal posting gimana cara mengatasi buka website tidak bisa selalau ke direct ke linkbucks itu lo link iklan yang dimana jika kita buka maka yang punya link iklan bakal dapat duit... Ngeselin banget jika kalian mengalami hal serupa kayak ane...hehe Gak bisa ngapain2 kalau udah kyk gitu, udah berbagai cara ane tempuh dari scan pakai antivirus handal, pakai antimalware tapi tetep gak ilang2.... terus ane coba nanya ke om google dan akhirnya ane nemu salah satu cara yang menurut ane dan udah ane coba berhasil yaitu dengan mengubah dns server dengan open dns.. Dari info yang ane dapat kenapa bisa kedirect linknya itu disebabkan oleh providernya yang lagi bermasalah.. Saat ini pakai Speedy... berikut ane share open dns google yang bisa dipakai dns 1 : 8.8.8.8 dsn2 : 8.8.4.4 tinggal ganti dns kalian dengan dns diatas dan coba lagi link yang tadinya ke direct.. Pengalaman ane bisa denganc ara diatas kalau ada yang belum bisa, tinggalkan coment aja ya ntar ane cari lagi sol...