martuasyah: Contoh Program Absensi Sederhana Dengan Visual Basic 6.0

Diposting oleh : Hazmi Fadhilah
Kamis, 19 April 2012 - 18:53:08 WIB - Kategori: Pemrograman - Dibaca: 27183 kali

Setelah membahas tentang program simpan, edit dan hapus, pada artikel kali ini saya akan coba membuat program absensi sederhana menggunakan visual basic 6 yang menampilkan perhitungan banyaknya kehadiran dan total tidak masuk siswa, program absensi ini bisa teman-teman kembangkan lagi sesuai dengan kebutuhan, semoga bisa membantu teman-teman yang ingin belajar visual basic.. ^_^

Daripada lama-lama dan tambah bingung, lebih baik kita mulai saja pembahasannya,, :D

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb

Nama Tabel : Absen

Field	Data Type	Size
NRP	Text	10
Nama	Text	35
Jurusan	Text	50
Matkul	Text	50
Masuk	Byte
Sakit	Byte
Izin	Byte
Alpa	Byte
Total	Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :

Componen tambahan pada Toolbox :

Adodc dan DataGrid

Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

1. Public ConN As New ADODB.Connection

2. Public RsAbsen As New ADODB.Recordset

4. Sub koneksi()

5. Set ConN = New ADODB.Connection

6. Set RsAbsen = New ADODB.Recordset

7. ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"

8. End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,

Setelah itu isikan kode berikut pada Form

1. Private Sub Form_Activate()

3. Call koneksi

4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"

5. Adodc1.RecordSource = "absen"

6. Adodc1.Refresh

7. Set DataGrid1.DataSource = Adodc1

8. DataGrid1.Refresh

9. End Sub

10.

11.Private Sub Form_Load()

12.Text1.Text = ""

13.Text2.Text = ""

14.Combo1.Text = ""

15.Combo2.Text = ""

16.Combo3.Text = ""

17.Label11.Caption = 0

18.Label12.Caption = 0

19.Label13.Caption = 0

20.Label14.Caption = 0

21.Label15.Caption = 0

22.Combo1.AddItem "Sistem Informasi"

23.Combo1.AddItem "Teknik Informatika"

24.Combo1.AddItem "Manajemen Informatika"

25.Combo1.AddItem "Komputer Akuntansi"

26.Combo2.AddItem "Pemprograman Visual I"

27.Combo2.AddItem "Pemprograman Visual II"

28.Combo3.AddItem "Hadir"

29.Combo3.AddItem "Tidak Hadir"

30.Option1.Value = False

31.Option2.Value = False

32.Option3.Value = False

33.Option1.Enabled = False

34.Option2.Enabled = False

35.Option3.Enabled = False

36.Text1.Enabled = False

37.Text2.Enabled = False

38.Combo1.Enabled = False

39.Combo2.Enabled = False

40.Combo3.Enabled = False

41.End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

1. Function CariData()

2. Call koneksi

3. RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN

4. End Function

6. Private Sub TampilkanData()

7. Text2 = RsAbsen!nama

8. Combo1.Text = RsAbsen!jurusan

9. Combo2.Text = RsAbsen!matkul

10.Label11.Caption = RsAbsen!masuk

11.Label12.Caption = RsAbsen!sakit

12.Label13.Caption = RsAbsen!izin

13.Label14.Caption = RsAbsen!alpa

14.Label15.Caption = RsAbsen!total

15.End Sub

16.

17.

18.

19.Private Sub kosong()

20.Text1.Text = ""

21.Text2.Text = ""

22.Combo1.Text = ""

23.Combo2.Text = ""

24.Combo3.Text = ""

25.Label11.Caption = 0

26.Label12.Caption = 0

27.Label13.Caption = 0

28.Label14.Caption = 0

29.Label15.Caption = 0

30.Option1.Value = False

31.Option2.Value = False

32.Option3.Value = False

33.Option1.Enabled = False

34.Option2.Enabled = False

35.Option3.Enabled = False

36.End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

1. Private Sub Text1_LostFocus()

2. On Error Resume Next

3. Call CariData

4. If Not RsAbsen.EOF Then

5. TampilkanData

6. Text1.Enabled = False

7. Text2.Enabled = False

8. Combo1.Enabled = False

9. Combo2.Enabled = False

10. MsgBox "NRP Sudah Ada"

11. Command1.Enabled = False

12. End If

13.End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

1. Private Sub Combo3_Click()

2. If Combo3.Text = "Hadir" Then

3. Option1.Enabled = False

4. Option2.Enabled = False

5. Option3.Enabled = False

6. Label11.Caption = Val(Label11.Caption) + 1

7. Else

8. Option1.Enabled = True

9. Option2.Enabled = True

10.Option3.Enabled = True

11.End If

12.End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

1. Private Sub Option1_Click()

2. If Option1.Value = True Then

3. Label12.Caption = Val(Label12.Caption) + 1

4. Else

5. Label12.Caption = Val(Label12.Caption) + 0

6. End If

7. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

8. End Sub

10.Private Sub Option2_Click()

11.If Option2.Value = True Then

12.Label13.Caption = Val(Label13.Caption) + 1

13.Else

14.Label13.Caption = Val(Label13.Caption) + 0

15.End If

16.Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

17.End Sub

18.

19.Private Sub Option3_Click()

20.If Option3.Value = True Then

21.Label14.Caption = Val(Label14.Caption) + 1

22.Else

23.Label14.Caption = Val(Label14.Caption) + 0

24.End If

25.Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

26.End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

1. Private Sub Command1_Click() 'Kode Perintah Untuk tombol Simpan

2. Dim SQLSimpan As String

3. SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"

4. ConN.Execute SQLSimpan

5. Form_Activate

6. Call kosong

7. End Sub

10.Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit

11.If Command2.Caption = "Edit Data" Then

12.Text1.Enabled = False

13. Text2.Enabled = True

14. Combo1.Enabled = True

15. Combo2.Enabled = True

16. Combo3.Enabled = True

17.Command2.Caption = "Edit"

18.Else

19.

20.Dim SQLAbsen As String

21. SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"

22. ConN.Execute SQLAbsen

23. Form_Activate

24. Call kosong

25. Command2.Caption = "Edit Data"

26. End If

27.End Sub

28.

29.Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen

30.Dim SQLAbsen As String

31. SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"

32. ConN.Execute SQLAbsen

33. Form_Activate

34. Call kosong

35.End Sub

36.

37.Private Sub Command4_Click() 'KOde Perintah Untuk Tombol Hapus

38.Adodc1.Recordset.Delete

39.Adodc1.Recordset.Update

40.DataGrid1.Refresh

41.End Sub

42.

43.Private Sub Command5_Click() 'Kode Perintah Untuk Tombol Selesai

44.pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")

45.If pesan = vbYes Then

46.Unload Me

47.Else

48.End If

49.End Sub

50.

51.Private Sub Command6_Click() 'Kode Perintah Untuk Tombol Isi Data

52.Text1.Enabled = True

53. Text2.Enabled = True

54. Combo1.Enabled = True

55. Combo2.Enabled = True

56. Combo3.Enabled = True

57. Text1.SetFocus

58.End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^

Update 4 Mei 2012

martuasyah

Senin, 10 Desember 2012

Contoh Program Absensi Sederhana Dengan Visual Basic 6.0

1 komentar: