Cara Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total #tutorialvb.net

Cara Mencari Nilai Terbanyak, Tertinggi, Terendah Rata-rata dan Total #tutorialvb.net - priacoding. Pada postingan priacoding sebelumnya kita telah membahas bagaimana Cara Membuat Barcode dan QRcode pada VB.Net dan pada postingan kali ini kita akan membahas tentang bagaimana cara mencari nilai terbanyak, tertinggi, terendah rata-rata dan total, pada kasus ini implementasinya menggunakan Datagridview

Untuk implementasinya langsung saja ikuti langkah-langkah berikut..

1. Buat 1 buah project

Tambahkan 1 Datagridview, 1 Button dan 4 buah Textbox, seperti gambar..

Cara Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total

2. Mencari nilai Tertinggi, Terendah, Rata-rata dan Total

Double klik tombil "Proses", dan pastekan coding dibawah..

Dim tinggi, rendah, ratarata, total, banyak As Integer

        tinggi = (From row As DataGridViewRow In DataGridView1.Rows
       Where row.Cells(0).FormattedValue.ToString() <> String.Empty
                         Select Convert.ToInt32(row.Cells(0).FormattedValue)
                         ).Max().ToString()

        rendah = (From row As DataGridViewRow In DataGridView1.Rows
       Where row.Cells(0).FormattedValue.ToString() <> String.Empty
                         Select Convert.ToInt32(row.Cells(0).FormattedValue)
                         ).Min().ToString()

        ratarata = (From row As DataGridViewRow In DataGridView1.Rows
       Where row.Cells(0).FormattedValue.ToString() <> String.Empty
                         Select Convert.ToInt32(row.Cells(0).FormattedValue)
                         ).Average().ToString()


        For baris As Integer = 0 To DataGridView1.RowCount - 1
            total = total + DataGridView1.Rows(baris).Cells(0).Value
        Next

        TextBox1.Text = tinggi
        TextBox2.Text = rendah
        TextBox3.Text = ratarata
        TextBox4.Text = total

Maka akan menghasilkan..

3. Untuk mencari nilai terbanyak tambah 1 buah datagridview lagi, seperti gambar

Pada tombol "Proses" silahkan tambahkan coding dibawah..

Dim hasil = (From r As DataGridViewRow In DataGridView1.Rows
       Group r By key = r.Cells(0).Value Into Group Select id = key, jlh = Group.Count).OrderByDescending(Function(x) x.jlh)
        For Each i In hasil
            DataGridView2.Rows.Add(i.id, i.jlh)
        Next
        banyak = DataGridView2.SelectedCells.Item(0).Value()

Kira-kira coding keseluruhan, seperti dibawah..

4.Hasil Akhir

Cara kerja:
→ Isi Datagridview1 sesuai keinginan anda
→ Tekan tombol "Proses"

Keterangan:
→ Textbox1 = Untuk menampilkan nilai tertinggi
→ Textbox2 = Untuk menampilkan nilai terendah
→ Textbox3 = Untuk menampilkan nilai rata-rata
→ Textbox4 = Untuk menampilkan total
→ Datagridview2 = Untuk menampilkan nilai terbanyak dari Datagridview1
→ Textbox5 = Untuk menampilkan nilai paling atas pada Datagridview2

Unduh Sourcecode
Pass: priacoding.com

Terimakasih, semoga bermanfaat..

Pages

Cara Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total #tutorialvb.net