Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Kamis, 06 Desember 2012

Contoh Program Absensi Sederhana Dengan Visual Basic 6.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم


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
  3. Sub koneksi()
  4. Set ConN = New ADODB.Connection
  5. Set RsAbsen = New ADODB.Recordset
  6. ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
  7. 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()
  2. Call koneksi
  3. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
  4. Adodc1.RecordSource = "absen"
  5. Adodc1.Refresh
  6. Set DataGrid1.DataSource = Adodc1
  7. DataGrid1.Refresh
  8. End Sub
  9. Private Sub Form_Load()
  10. Text1.Text = ""
  11. Text2.Text = ""
  12. Combo1.Text = ""
  13. Combo2.Text = ""
  14. Combo3.Text = ""
  15. Label11.Caption = 0
  16. Label12.Caption = 0
  17. Label13.Caption = 0
  18. Label14.Caption = 0
  19. Label15.Caption = 0
  20. Combo1.AddItem "Sistem Informasi"
  21. Combo1.AddItem "Teknik Informatika"
  22. Combo1.AddItem "Manajemen Informatika"
  23. Combo1.AddItem "Komputer Akuntansi"
  24. Combo2.AddItem "Pemprograman Visual I"
  25. Combo2.AddItem "Pemprograman Visual II"
  26. Combo3.AddItem "Hadir"
  27. Combo3.AddItem "Tidak Hadir"
  28. Option1.Value = False
  29. Option2.Value = False
  30. Option3.Value = False
  31. Option1.Enabled = False
  32. Option2.Enabled = False
  33. Option3.Enabled = False
  34. Text1.Enabled = False
  35. Text2.Enabled = False
  36. Combo1.Enabled = False
  37. Combo2.Enabled = False
  38. Combo3.Enabled = False
  39. 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
  5. Private Sub TampilkanData()
  6. Text2 = RsAbsen!nama
  7. Combo1.Text = RsAbsen!jurusan
  8. Combo2.Text = RsAbsen!matkul
  9. Label11.Caption = RsAbsen!masuk
  10. Label12.Caption = RsAbsen!sakit
  11. Label13.Caption = RsAbsen!izin
  12. Label14.Caption = RsAbsen!alpa
  13. Label15.Caption = RsAbsen!total
  14. End Sub
  15. Private Sub kosong()
  16. Text1.Text = ""
  17. Text2.Text = ""
  18. Combo1.Text = ""
  19. Combo2.Text = ""
  20. Combo3.Text = ""
  21. Label11.Caption = 0
  22. Label12.Caption = 0
  23. Label13.Caption = 0
  24. Label14.Caption = 0
  25. Label15.Caption = 0
  26. Option1.Value = False
  27. Option2.Value = False
  28. Option3.Value = False
  29. Option1.Enabled = False
  30. Option2.Enabled = False
  31. Option3.Enabled = False
  32. 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
  9. Private Sub Option2_Click()
  10. If Option2.Value = True Then
  11. Label13.Caption = Val(Label13.Caption) + 1
  12. Else
  13. Label13.Caption = Val(Label13.Caption) + 0
  14. End If
  15. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
  16. End Sub
  17. Private Sub Option3_Click()
  18. If Option3.Value = True Then
  19. Label14.Caption = Val(Label14.Caption) + 1
  20. Else
  21. Label14.Caption = Val(Label14.Caption) + 0
  22. End If
  23. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
  24. 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
  8. Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit
  9. If Command2.Caption = "Edit Data" Then
  10. Text1.Enabled = False
  11. Text2.Enabled = True
  12. Combo1.Enabled = True
  13. Combo2.Enabled = True
  14. Combo3.Enabled = True
  15. Command2.Caption = "Edit"
  16. Else
  17. Dim SQLAbsen As String
  18. SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
  19. ConN.Execute SQLAbsen
  20. Form_Activate
  21. Call kosong
  22. Command2.Caption = "Edit Data"
  23. End If
  24. End Sub
  25. Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen
  26. Dim SQLAbsen As String
  27. SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
  28. ConN.Execute SQLAbsen
  29. Form_Activate
  30. Call kosong
  31. End Sub
  32. Private Sub Command4_Click() 'KOde Perintah Untuk Tombol Hapus
  33. Adodc1.Recordset.Delete
  34. Adodc1.Recordset.Update
  35. DataGrid1.Refresh
  36. End Sub
  37. Private Sub Command5_Click() 'Kode Perintah Untuk Tombol Selesai
  38. pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
  39. If pesan = vbYes Then
  40. Unload Me
  41. Else
  42. End If
  43. End Sub
  44. Private Sub Command6_Click() 'Kode Perintah Untuk Tombol Isi Data
  45. Text1.Enabled = True
  46. Text2.Enabled = True
  47. Combo1.Enabled = True
  48. Combo2.Enabled = True
  49. Combo3.Enabled = True
  50. Text1.SetFocus
  51. End Sub

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

Selamat Mencoba ^_^

4 komentar:

Hazmi Fadhilah mengatakan...

broo,,kalo mau Copas artikel jgn lupa sumbernya dicantumin,,!! jgn asal copas aja..,
itu hak cipta !
liat di http://fadilcrows.blogspot.com/2012/04/contoh-program-absensi-sederhana-dengan.html
dan
http://komputerkampus.com/artikel-68/contoh-program-absensi-sederhana-dengan-visual-basic-60-/
thx..
by Hazmi Fadhilah

Anonim mengatakan...

nampooollllllll

archiles baru mengatakan...

bg aq mau tanya ne ito bikin data grid nya bagaimana aq ada tugas kampus bikin web absensi melalui vb 6.0

merak madura mengatakan...

makasih mas broooo

Poskan Komentar