Tampilkan postingan dengan label android. Tampilkan semua postingan

Jumat, 05 Juli 2013

Program Absensi Sederhana menggunakan visual basic

Unknown 10.02 , , , , , , 1 komentar :
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


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. 

  2. Public RsAbsen As New ADODB.Recordset
    3. 

  3. 

  4. Sub koneksi()
    5. 

  5. Set ConN = New ADODB.Connection
    6. 

  6. Set RsAbsen = New ADODB.Recordset
    7. 

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

  8. End Sub
    9.

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form

    

  1. Private Sub Form_Activate()
    2. 

  2. 

  3. Call koneksi
    4. 

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

  5. Adodc1.RecordSource = "absen"
    6. 

  6. Adodc1.Refresh
    7. 

  7. Set DataGrid1.DataSource = Adodc1
    8. 

  8. DataGrid1.Refresh
    9. 

  9. End Sub
    10. 

  10. 

  11. Private Sub Form_Load()
    12. 

  12. Text1.Text = ""
    13. 

  13. Text2.Text = ""
    14. 

  14. Combo1.Text = ""
    15. 

  15. Combo2.Text = ""
    16. 

  16. Combo3.Text = ""
    17. 

  17. Label11.Caption = 0
    18. 

  18. Label12.Caption = 0
    19. 

  19. Label13.Caption = 0
    20. 

  20. Label14.Caption = 0
    21. 

  21. Label15.Caption = 0
    22. 

  22. Combo1.AddItem "Sistem Informasi"
    23. 

  23. Combo1.AddItem "Teknik Informatika"
    24. 

  24. Combo1.AddItem "Manajemen Informatika"
    25. 

  25. Combo1.AddItem "Komputer Akuntansi"
    26. 

  26. Combo2.AddItem "Pemprograman Visual I"
    27. 

  27. Combo2.AddItem "Pemprograman Visual II"
    28. 

  28. Combo3.AddItem "Hadir"
    29. 

  29. Combo3.AddItem "Tidak Hadir"
    30. 

  30. Option1.Value = False
    31. 

  31. Option2.Value = False
    32. 

  32. Option3.Value = False
    33. 

  33. Option1.Enabled = False
    34. 

  34. Option2.Enabled = False
    35. 

  35. Option3.Enabled = False
    36. 

  36. Text1.Enabled = False
    37. 

  37. Text2.Enabled = False
    38. 

  38. Combo1.Enabled = False
    39. 

  39. Combo2.Enabled = False
    40. 

  40. Combo3.Enabled = False
    41. 

  41. End Sub
    42.

Langganan: Postingan ( Atom )