[ADS] Top Ads

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

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..
Cara Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total

3. Untuk mencari nilai terbanyak tambah 1 buah datagridview lagi, seperti gambar
Cara Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total

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 Mencari Nilai Terbanyak, Tertinggi, Terendah, Rata-rata dan Total

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..

Note
Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini dibagikan kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih..

Post a Comment

[ADS] Bottom Ads