code vb : Menghitung nilai mahsiswa

Kemarin lai buat sistem informasi akademik cuma permasalahannya bagaimana menghitung nilai mahasiswa bedasarkan range tertentu dan data range tersebut dimasukan ke dalam database sehingga jika sewaktu-waktu mau merubah data range dan bobot bisa kapan saja tanpa harus merubah code. 

tanya -tanya ama mbag google gak ketemu dan setelah saya tanya2 di forum akhirnya saya berterima kasih pada mas "Candra Aw" yang sudah berbaik hati memberikan solusinya.

jadi situasi perhitungannya seperti ini : 

gimana cara menghitung nilai mahasiswa bedasarkan range.
contoh : nilai 0-50 = E
nilai  50 - 60 = D
nilai  61 - 70 = C
nilai  71 - 80 = B

nilai  71 - 80 = A

permasalahannya nilai range dan bobot tersebut di ambil dari database bukan masuk di script code vb. jadi jika dimasukan nilai 75 maka program akan mencari di database nilai yang termasuk dari range tersebut sehingga keluar bobot nilai "B". 

mas "Candra Aw" memberikan codenya yang sudah saya modifikasi dan lengkapi kira2 seperti ini dengan menggunakan koneksi ADODB.

sebelumnya : buat database access dengan nama db1 

filednya:

  -  Min -> number
  - Max -> number
  - grade -> text

dan isi tabel nilai seperti tabel di bawah :

nilai
min	max	grade
0	50	E
51	60	D
61	70	C
71	80	B
81	100	A

 kemudian pada visual basic buat 1 textbox dan 1 label dimana text1 name = text1, dan label1 name = text2 

lihat gambar berikut:

 setelah itu masukan kode di bawah ini:

Public dbc As ADODB.Connection

Function GetGrade(ByVal Nilai As Integer) As String

Dim ado As New ADODB.RecordSet
Set ado = New ADODB.RecordSet
Dim SQL As String
SQL = "SELECT `grade` FROM `nilai` WHERE " & Nilai & " BETWEEN `min` AND `max`"
ado.Open SQL, dbc, adOpenStatic, adLockOptimistic
If ado.RecordCount = 0 Or IsNull(ado.Fields(0).Value) = True Then
GetGrade = "Unknown"
Else
GetGrade = ado.Fields(0).Value
Text2 = GetGrade
End If
End Function

Private Sub Form_Load()

Set dbc = New ADODB.Connection
dbc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/db1.mdb"

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
GetGrade (Text1)
End If
End Sub

 '---------------------------------------------------------------------------------

demikian tutorial sederhana menghitung nilai mahasiswa bedasarkan range yang diambil dari database. semoga bisa membantu

bagi yang ingin mendownload source codenya silahkan klik link di bawah ini. akan tetapi source code yang anda download saya buat dengan meerapkan metode adodc bukan adodb jadi jika anda ingin menggunakan adodb maka lihat kode di atas tetapi jika yang versi adodc maka klik link di bawah ini. semoga bermanfaat.....

LINK DOWNLOAD : http://www.mediafire.com/?9vezv0j6pwzezms

Posted in: Visual Basic