3. Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

3. Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

Hasilnya:

Setelah di jalankan dan di simpan

Cara Membuatnya:

1. Sebelum kita maen di Visual Basic kita akan membuat sebuah dokument Ms. Access dimana kita akan menghubungkan Ms. Acceess tersebut dengan Visual Basic. Buka dokument Ms. Access Selanjut nya Create, Table dan Change nama tabel menjadi TBL_NILAI_MAHASISWA, kemudian isikan seperti di bawah ini.

2. Selanjutnya kita akan menambah Query, untuk rumus lihat dan simpat yaitu dengan cara pilih pada Menu Toolbar Create kemudian pilih Create Query

3. Ini adalah rumus yang ada pada Query

{SELECT NAMA_MAHASISWA, NIM, NILAI_HARIAN_ASLI, NILAI_HARIAN_ASLI*30/100 AS NILAI_HARIAN, NILAI_UTS_ASLI, NILAI_UTS_ASLI*30/100 AS NILAI_UTS, NILAI_UAS_ASLI, NILAI_UAS_ASLI*40/100 AS NILAI_UAS, NILAI_HARIAN+NILAI_UTS+NILAI_UAS AS NILAI_AKHIR, IIF(NILAI_AKHIR>80,'A',IIF(NILAI_AKHIR>70,'AB',IIF(NILAI_AKHIR>65,'B',IIF(NILAI_AKHIR>60,'BC',IIF(NILAI_AKHIR>55,'C',IIF(NILAI_AKHIR>41,'D',IIF(NILAI_AKHIR<40,'E'))))))) AS NILAI_HURUF, IIF(NILAI_HURUF="A","DENGAN_PUJIAN",IIF(NILAI_HURUF='AB',"SANGAT_BAIK",IIF(NILAI_HURUF='B',"BAIK",IIF(NILAI_HURUF='BC',"CUKUP_BAIK",IIF(NILAI_HURUF='C',"CUKUP",IIF(NILAI_HURUF='D',"KURANG",IIF(NILAI_HURUF='E',"KURANG_SEKALI"))))))) AS KETERANGAN

FROM TBL_NILAI_MAHASISWA;}

4. Setelah di Run, dan masukkan data sesuai keinginan apakah sudah benar atau belum.

5. Selanjutnya kita akan membuka Project Visual Basic dan menghubungkannya dan memasukkan Rumus yang ada pada Ms. Access Form Visual Basic, sebelum itu kita akan membuat tabel sesuai yang ada pada Ms. Access seperti di bawah ini.

Ket:

Simpan, Lihat Data, Bersih, Exit = Cummandbutton

6. Selanjutnya kita akan memasukkan rumus pada Textbox adapun rumusnya yaitu:

Private Sub tasli1_Change()

tpersen1.Text = Val(tasli1.Text) * (3 / 10) =  Rumus untuk mencari Nilai_Harian 30%

End Sub

Ket: tasli1 = Textbox Yang Ada Pada Nilai_Harian, Asli

Private Sub tasli2_Change()

tpersen2.Text = Val(tasli2.Text) * (3 / 10) = Rumus untuk mencari Nilai_UTS 30%

End Sub

Ket: tasli2 = Textbox Yang Ada Pada Nilai_UTS, Asli

Private Sub tasli3_Change()

tpersen3.Text = Val(tasli3.Text) * (4 / 10) = Rumus untuk mencari Nilai_UAS 40%

takhir.Text = Val(tpersen1.Text)+Val(tpersen2.Text)+Val(tpersen3.Text) = Nilai_Akhir

If nilai = Val(takhir.Text < 80 And 100) Then

tangka.Text = "A"

tketerangan.Text = "Istimewa"

ElseIf nilai = Val(takhir.Text < 71 And 80) Then

tangka.Text = "AB"

tketerangan.Text = "Baik Sekali"

ElseIf nilai = Val(takhir.Text < 66 And 70) Then

tangka.Text = "B"

tketerangan.Text = "Baik"

ElseIf nilai = Val(takhir.Text < 61 And 65) Then

tangka.Text = "BC"

tketerangan.Text = "Cukup Baik"

ElseIf nilai = Val(takhir.Text < 56 And 60) Then

tangka.Text = "C"

tketerangan.Text = "Cukup"

ElseIf nilai = Val(takhir.Text < 41 And 55) Then

tangka.Text = "D"

tketerangan.Text = "Kurang Baik"

ElseIf nilai = Val(takhir.Text < 40) Then

tangka.Text = "E"

tketerangan.Text = "Kurang Sekali"

End If

End Sub

Ket: tasli3= Textbox Yang Ada Pada Nilai_UAS, Asli

7. Rumus pada Cummondbutton Simpan

Private Sub simpan_Click()

On Error GoTo errsimpan

database.Execute "INSERT INTO TBL_NILAI_MAHASISWA (NAMA_MAHASISWA,NIM,NILAI_HARIAN_ASLI,NILAI_UTS_ASLI,NILAI_UAS_ASLI)Values('" & tnama & "','" & tnim & "','" & tasli1 & "','" & tasli2 & "','" & tasli3 & "')"

MsgBox "Data Sudah Berhasil Diproses", vbInformation, "INFO"

errsimpan:

If Err.Number <> 0 Then

   If Err.Number = -2147217900 Or Err.Number = -2147467259 Then

       MsgBox "Data Sudah Terdaftar", vbInformation, "INFORMASI"

   Else

       MsgBox CStr(Err.Number) & " " & Err.Description

   End If

End If

End Sub

8. Rumus pada Cummondbutton Lihat Data

Private Sub lihat_Click()

SQL = "Pastekan Rumus yang ada pada Ms. Access ke sini"

If recordata.State = 1 Then recordata.Close

recordata.Open SQL, Syahril, adOpenStatic, adLockReadOnly

If Not recordata.EOF Then

With DataGrid1

Set .DataSource = recordata

.MarqueeStyle = dbhighlightrowraisecell

.Refresh

End With

End If

End Sub

9. Download Modul Menghubungkan dari Ms. Accesss ke Visual Basic di sini
    
10. Selanjutnya jalankan Aplikasinya dan lihat hasilny

Hasilnya:

Setelah di jalankan dan di simpan

 
Download Modul Ini.....
Download Software Yang Sudah Jadi.....