Cara Mencari Nilai Terendah, Tertinggi, Total dan Nilai Rata-rata di Database VB6

Pada pertemuan beberapa hari yang lalu saya sudah membahas tentang cara mencari nilai MINIMAL, MAKSIMAL, TOTAL dan RATA-RATA  yang ada di Listbox. Bagi Anda yang belum melihat artikelnya silahkan buka  cara mencari nilai MINIMAL, MAKSIMAL, RATA-RATA dan TOTAL yang ada di Listbox 

Namun pada artikel kali ini kita akan membahas tutorial yang sama tetapi memiliki perbedaan. Perbedaannya yaitu terletak pada sumber datanya yaitu kita akan mencari Nilai Maksimal, Minimal, Rata-rata dan TOTAL  yang bersumber dari database dengan bantuan Datagrid VB6.

Pada Microsoft Excel istilah ini sering di gunakan dengan menggunakan rumus MIN, MAX, AVERAGE dan SUM

Dimana  MIN berfungsi untuk mencari nilai Minimal atau terendah sedangkan MAX di fungsikan untuk mencari nilai tertinggi begitu juga dengan AVERAGE di fungsikan untuk menari nilai rata-rata dan fungsi SUM untuk menjumlahkan total keseluruhan.

Lalu bagaimanakah cara menggunakan perhitungan diatas dengan VB6?.Tentu perhitungan ini menggunakan cara yang berbeda dengan yang ada di Excel.

Cara Mencari Nilai Terendah, Tertinggi, Total dan Nilai Rata-rata di Database VB6

Berikut adalah langkah-langkah untuk mencari Nilai Terendah, Tertinggi, Total dan Rata-rata menggunakan VB6 :

• Pastikan sudah menyiapkan tabel database yang akan anda hitung Nilainya
• Setelah anda membuat atau mempunyai Database silahkan koneksikan Database Anda dan tampilkan dalam Data Grid. Berikut adalah cara menampilkan isi Database kedalam DataGrid.
• Setelah Anda menampilkan database kedalam Datagrid tambahkan beberapa label seperti gambar dibawah ini :

Gambar 1

Gambar 2

Setelah itu ketik kode dibawah ini :

Private Sub Command1_Click()

Dim Total_Januari As Long

Dim Total_Februari As Long

Dim Total_Maret As Long

Dim maks_Januari As Long

Dim min_Januari As Long

Dim maks_Februari As Long

Dim min_Februari As Long

Dim maks_Maret

Dim min_Maret

min_Januari = 32767

min_Februari = 32767

min_Maret = 32767

'menjumlahkan DATA

Label2.Caption = Adodc1.Recordset.RecordCount & " Ittem"

'menghitung total

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Update

DataGrid1.Refresh

Do Until Adodc1.Recordset.EOF

Total_Januari = Total_Januari + Adodc1.Recordset!Januari 'menghitung total bulan januari

Total_Februari = Total_Februari + Adodc1.Recordset!februari 'menghitung total februari

Total_Maret = Total_Maret + Adodc1.Recordset!maret 'menghitung total maret

'menghitung Nilai Maksimum bulan januari

If Val(Adodc1.Recordset!Januari) > maks_Januari Then

maks_Januari = Adodc1.Recordset!Januari

Else

maks_Januari = maks_Januari

End If

'menghitung Nilai Minimum bulan januari

If Val(Adodc1.Recordset!Januari) < min_Januari Then

min_Januari = Adodc1.Recordset!Januari

Else

min_Januari = min_Januari

End If

'menghitung Nilai Maksimum bulan februari

If Val(Adodc1.Recordset!februari) > maks_Februari Then

maks_Februari = Adodc1.Recordset!februari

Else

maks_Februari = maks_Februari

End If

'menghitung Nilai Minimum bulan februari

If Val(Adodc1.Recordset!februari) < min_Februari Then

min_Februari = Adodc1.Recordset!februari

Else

min_Februari = min_Februari

End If

'menghitung Nilai Maksimum bulan maret

If Val(Adodc1.Recordset!maret) > maks_Maret Then

maks_Maret = Adodc1.Recordset!maret

Else

maks_Maret = maks_Maret

End If

'menghitung Nilai Minimum bulan februari

If Val(Adodc1.Recordset!maret) < min_Maret Then

min_Maret = Adodc1.Recordset!maret

Else

min_Maret = min_Maret

End If

Adodc1.Recordset.MoveNext

Loop

'mencetak total

Label3.Caption = Total_Januari

Label4.Caption = Total_Februari

Label5.Caption = Total_Maret

'menghitung Nilai Rata-rata

Label7.Caption = Round(Int(Total_Januari / Adodc1.Recordset.RecordCount), 2)

Label8.Caption = Round(Int(Total_Februari / Adodc1.Recordset.RecordCount), 2)

Label9.Caption = Round(Int(Total_Maret / Adodc1.Recordset.RecordCount), 2)

'mencetak maksimum dan minimum

Label11.Caption = maks_Januari

Label12.Caption = maks_Februari

Label13.Caption = maks_Maret

Label15.Caption = min_Januari

Label16.Caption = min_Februari

Label17.Caption = min_Maret

End Sub

Private Sub Form_Activate()

Command1.SetFocus

End Sub

Setelah anda mengetikan kode seperti diatas maka tampilan dari hasil perhitungan pada tabel contoh diatas seperti pada Gambar 2 diatas:

Catatan :

Nama Record disesuaikan pada tabel Anda.

Demikianlah tutorial kali ini tentang  Cara Mencari Nilai Terendah, Tertinggi, Total dan Nilai Rata-rata di Database VB6, Semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga sukses

Related Post: Database Matematika