berikut ini adalah contoh program yang telah kami buat, secara umum, program yang kami buat ini digunakan untuk meng input nilai nilai dari mahasiswa, beserta nim dan juga namanya, perhitungan rata – rata penentuan hasil akhir dan penentuan keputusan lulus atau tidaknya sudah dihitung secara otomatis di dalam program yang kami buat…

adapun komponen komponen yang digunakan adalah :

dan berikut ini adalah listing yang kami pakai …

sebelumnya, untuk para pembaca yang belum mengerti cara mengkoneksikan database access dengan vb.net dapat mencari di google untuk lebih jelasnya,

tabel – tabel di dalam database yang kami gunakan adalah sesuai dengan tabel yang kami gunakan di vb.net

pada form 1

Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Data_mahasiswaBindingSource.Filter = “NIM like ‘%” + TextBox1.Text + “%’ OR Nama Like ‘%” + TextBox1.Text + “%’ OR Keputusan like ‘%” + TextBox1.Text + “%'”
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim indeks As Integer = Nothing
If TextBox3.Text.Length 0 Then
Dim i As Integer
Dim ketemu As Boolean = False
For i = 0 To Data_mahasiswaDataGridView.RowCount – 1
If ketemu = False And Data_mahasiswaDataGridView.Item(0, i).Value = TextBox3.Text Then
ketemu = True
indeks = i
Exit For
End If
Next
If ketemu Then
MessageBox.Show(“Data Found”, “Warning !”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox4.Text = Data_mahasiswaDataGridView.Item(1, indeks).Value
TextBox5.Text = Data_mahasiswaDataGridView.Item(2, indeks).Value
TextBox6.Text = Data_mahasiswaDataGridView.Item(3, indeks).Value
TextBox7.Text = Data_mahasiswaDataGridView.Item(4, indeks).Value
TextBox8.Text = Data_mahasiswaDataGridView.Item(5, indeks).Value
TextBox2.Text = Data_mahasiswaDataGridView.Item(6, indeks).Value
TextBox9.Text = Data_mahasiswaDataGridView.Item(7, indeks).Value
TextBox10.Text = Data_mahasiswaDataGridView.Item(8, indeks).Value
Else
MessageBox.Show(“Data Not Found”, “Warning !”, MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Focus()
End If
Else
MessageBox.Show(“Masukkan NIM”)
End If
End Sub
End Class

pada form 2

Public Class Form2

Private Sub Data_mahasiswaBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles Data_mahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.Data_mahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Data_mahasiswaDataSet)

End Sub

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
‘TODO: This line of code loads data into the ‘Data_mahasiswaDataSet.data_mahasiswa’ table. You can move, or remove it, as needed.
Me.Data_mahasiswaTableAdapter.Fill(Me.Data_mahasiswaDataSet.data_mahasiswa)

End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim nilai_rata As Double
nilai_rata = Val(TextBox1.Text)
If nilai_rata >= 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata = 0 And nilai_rata = 41 And nilai_rata = 61 And nilai_rata = 71 And nilai_rata = 81 And nilai_rata <= 100 Then
TextBox3.Text = “Lulus”
End If
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
KeputusanTextBox.Text = TextBox3.Text
Nilai_AkhirTextBox.Text = TextBox2.Text
Rata___RataTextBox.Text = TextBox1.Text
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim rata As Double
Dim uts As Single
Dim uas As Single
Dim tugas As Single
Dim quis As Single

uts = Val(Nilai_UTSTextBox.Text)
uas = Val(Nilai_UASTextBox.Text)
tugas = Val(Nilai_TugasTextBox.Text)
quis = Val(Nilai_QuisTextBox.Text)

rata = (uts + uas + tugas + quis) / 4
TextBox1.Text = rata
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Form3.Show()
Me.Hide()
End Sub
End Class

pada form3

Public Class Form3

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Close()
End Sub

Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
End Sub
End Class

berikut ini adalah tampilan – tampilan dari program yang kami buat :

ini adalah tampilan awal dari program kami

merupakan tampilan pada saat mengentry data

tampilan pada saat view data

tampilan jika ingin menyortir data berdasarkan kriteria

tampilan ketika ingin meng search data dan data ditemukan

tampilan ketika data tidak ditemukan

tampilan ketika data hasil search ditemukan

flowchart dalam penggunaan program adalah sebagai berikut :

 

sekian