PHP :: Download Software Absensi Siswa berbasis Web

Download Software Absensi Siswa berbasis Web

Fasilitas-fasilitas yang terdapat dalam aplikasi ini :

1. Input data absensi siswa, dengan keterangan Nama, Keterangan (Sakit, Izin, Tanpa Keterangan), dan nama guru piket. 
2. Data absen yang telah diinput, tidak bisa di-edit, tetapi hanya bisa dihapus.
3. Rekap absensi hari ini, ]nama, kelas, dan keterangannya (Sakit, Izin, Tanpa Keterangan)
4. Rekap absensi hari ini, per kelas
5. Rekap absensi bulanan, per keterangan (Sakit, Izin, Tanpa Keterangan)
6. Rekap absensi bulanan per kelas (akan memudahkan wali kelas saat mengisikan raport)
7. Lihat rekap absensi hari tertentu.

Berikut Screenshoot Aplikasi Sistem Informasi Absensi Harian Siswa : 

Untuk dapat melihat Demo Aplikasi Sistem Informasi Absensi Harian Siswa, anda dapat meng-klik tautan di bawah ini :

DEMO APLIKASI

Sementara untuk Link Download Sistem Informasi Absensi Harian Siswa, belum dapat kami publikasikan, karena saya masih saya perbaiki. Insha Alloh, dalam waktu dekat, akan segera saya upload di 4shared.com.

1. DOWNLOAD APLIKASI (08_12_2014)

2. DOWNLOAD DATABASE APLIKASI (08_12_2014)

PHP :: Source Code Program Absensi Siswa Realtime dengan PHP dan SMSGateway

Source Code Program Absensi Siswa Realtime dengan PHP dan SMSGateway ini merupakan isi dari buku dari bukulokomedia yang berjudul PROGRAM ABSENSI SISWA REALTIME DENGAN PHP DAN SMS GATEWAY.

Program Absensi Siswa digunakan untuk memantau para siswa terkait dengan tingkat kedisiplinan dalam proses belajar di sekolah, dimana tingkat kedisipilinan kehadiran siswa menjadi salah satu tolok ukur dalam proses penilaian. 

DOWNLOAD SOURCE CODE :  https://www.dropbox.com/s/u40za4cndbk0ur9/REALTIME%20PHP%20DAN%20SMS%20GATEWAY.zip?dl=0

VB.NET :: Rahasia VB.Net 2008 ( Membuat Program VB NET Berbasis Database Tanpa Sourcecode)

Membuat program vb net berbasis database, memang sangat tidak mudah bagi kita para pemula, tetapi itu bukanlah hal yang sulit bagi mereka para Ahli, nah bagi anda yang merasa sulit dalam membuat sebuah software berbasis database, disini saya akan coba memberikan solusi yang tepat dan cepat bagi anda,dan saya pastikan anda akan bisa melakukanya, jika anda mau tentunya.

Dalam kesempatan ini kita akan belajar membuat program vb net berbasis data base,yang menggunakan VB NET 2008 dan dengan data base Microsoft Acces 2007.

Mengapa saya bisa memastikan anda bisa,.?jawabanya hanya satu,karena cara ini sangat mudah dan cepat.Oke deh,mari kita mulai pembelajaran kita,.

1.Silahkan buka Microsoft Acces anda,lalu buat data base dengan nama Mahasiswa,dan table dengan nama tabelMahasiswa.untuk field table,lihat gambar di bawah

2.Kemudian silahkan buka  VB 2008,dan buat project baru dangan nama data acces,lalu klik Data Source yang terletak di atas jendelaProperties.lihat gambar di bawah.

3.kemudian Klik Add new Data Source  ,maka akan muncul kotak dialog  Data Source configuration Wizard,seperti di bawah.

4.silahkan klik Next,maka akan muncul tampilan di bawah,

5.kemudian klik New Connection,kemudian akan muncul tampilan seperti di bawah,

6.Silahkan pilih Microsoft Acces Database File,dan klik Continiue dan akan muncul tampilan di bawah ini,

7.Klik tombol Browse…dan silahkan anda cari lokasi data base yang anda buat tadi.sebagai contoh tempat penyimpanan file data base tadi pada drive C:Program FilesMahasiswa.accdb dan silahkan klik tombol OK,ke mudian klik Next,sampai  pada muncul tampilan seperti berikut ini.

8. beri tanda centang pada cekbox Tables,kemudian klik Finish,maka pada jendela Data Source VB 2008 ,akan tampak seperti gambar di bawah.

9. Kemudian silahkan anda klik combobox yang berwarana biru(tableMahasiswa) dan drag geser ke area Form1,dan juga masing- masing field dari table mahasiswa(NIM,Nama Mahsiswa,Kelas,Jurusan dan Semester).Sampai menghasilkan gambar desain berikut pad form1

10.Kemudian coba anda tekan tombol F5,jika muncul tampilan seperti gambar di bawah,berarti program VB net berbasis database anda sudah jadi,.

11.Silahakan anda pergunakan tombol navigator berikut,untuk mengolah database anda,.

Oke deh,.Saya ucapkan selamat kepada anda ,sekarang anda sudah bisa membuat program vb net berbasis data base secepat kilat hehehe,.,.

VB6.0 :: Membuat aplikasi pendaftaran siswa baru

Kali ini penulis mencoba membuat program pendaftaran siswa baru untuk sekolah karena ada salah satu vbthok mania yang mungkin ingin membuat program tersebut tapi masih bingung. Program ini berdasarkan pengamatan penulis jadi mungkin masih ada yang kurang, untuk itu vbthok mania bisa kembangkan sendiri sesuai ide dari vbthok mania.
ada 7 form yang dibuat dari program ini yaitu :
1. form menu
2. form sekolah
3. form pendaftaran siswa baru
4. form siswa baru
5. form laporan data calon siswa baru
6. form laporan data siswa baru yang diterima
7. form laporan daftar siswa baru
berikut tampilan untuk programnya..




Dan berikut untuk script kodenya

'untuk form menu
Private Sub Mnbaru_Click()
Siswa.Show
End Sub

Private Sub mncadangan_Click()
lcadangan.Show
End Sub

Private Sub mncalon_Click()
Calon.Show
End Sub

Private Sub mncbaru_Click()
lcalon.Show
End Sub

Private Sub mnkel_Click()
Unload Me
End Sub

Private Sub mnsek_Click()
Sekolah.Show
End Sub

Private Sub mnsiswa_Click()
datas.Show
End Sub

Private Sub mnterima_Click()
lditerima.Show
End Sub

'untuk form sekolah
Public dbrayon As Database
Public rsrayon As Recordset
Private Sub hapus_Click()
rsrayon.Delete
Call bersih
End Sub
Private Sub keluar_Click()
Unload Me
End Sub

Private Sub koreksi_Click()
rsrayon.Edit
rsrayon(1) = rayo.Text
rsrayon(0) = nama.Text
rsrayon.Update
Call bersih
End Sub

Private Sub simpan_Click()
rsrayon.AddNew
rsrayon(1) = rayo.Text
rsrayon(0) = nama.Text
rsrayon.Update
Call bersih
End Sub
Private Sub bersih()
nama.Text = ""
rayo.Text = ""
nama.SetFocus
End Sub
Private Sub Form_Load()
Set dbrayon = OpenDatabase(App.Path & "\Siswa baru.mdb")
Set rsrayon = dbrayon.OpenRecordset("Rayon")
rsrayon.Index = "cari"
nama = ""
End Sub
Private Sub nama_Change()

rsrayon.Seek "=", nama.Text
If rsrayon.NoMatch Then
simpan.Enabled = True
Hapus.Enabled = False
Koreksi.Enabled = False
ElseIf Not rsrayon.NoMatch Then
rayo.Text = rsrayon(1)
simpan.Enabled = False
Hapus.Enabled = True
Koreksi.Enabled = True
End If
End Sub

'form daftar siswa baru
Public dbcalon As Database
Public rscalon As Recordset
Public dbsiswa As Database
Public rssiswa As Recordset

Private Sub daftar_Click()
rscalon.Seek "=", daftar.Text
If Not rscalon.NoMatch Then
nis.Text = ""
nama.Text = rscalon(1)
alamat.Text = rscalon(2)
Kelamin.Text = rscalon(3)
tempat.Text = rscalon(4)
tanggal.Value = rscalon(5)
daftar.Enabled = False
nama.Enabled = False
alamat.Enabled = False
Kelamin.Enabled = False
tempat.Enabled = False
tanggal.Enabled = False

Else
nis.Text = ""
nama.Text = ""
alamat.Text = ""
Kelamin.Text = ""
tempat.Text = ""
'tanggal.Value = ""
End If
End Sub

Private Sub koreksi_Click()
rssiswa.Edit
rssiswa(0) = nis.Text
rssiswa(1) = nama.Text
rssiswa(2) = alamat.Text
rssiswa(3) = Kelamin.Text
rssiswa(4) = tempat.Text
rssiswa(5) = tanggal.Value
rssiswa(6) = wali.Text
rssiswa.Update
Call bersih
End Sub
Private Sub hapus_Click()
rssiswa.Delete
Call bersih
End Sub
Private Sub keluar_Click()
Unload Me
End Sub

Private Sub nis_Change()
rssiswa.Seek "=", nis.Text
If rssiswa.NoMatch Then
wali = ""
simpan.Enabled = True
Hapus.Enabled = False
Koreksi.Enabled = False
ElseIf Not rssiswa.NoMatch Then
nama.Text = rssiswa(1)
alamat.Text = rssiswa(2)
Kelamin.Text = rssiswa(3)
tempat.Text = rssiswa(4)
tanggal.Value = rssiswa(5)
wali.Text = rssiswa(6)
nama.Enabled = True
Kelamin.Enabled = True
alamat.Enabled = True
tempat.Enabled = True
tanggal.Enabled = True
simpan.Enabled = False
Hapus.Enabled = True
Koreksi.Enabled = True
End If
End Sub

Private Sub simpan_Click()
rssiswa.AddNew
rssiswa(0) = nis.Text
rssiswa(1) = nama.Text
rssiswa(2) = alamat.Text
rssiswa(3) = Kelamin.Text
rssiswa(4) = tempat.Text
rssiswa(5) = tanggal.Value
rssiswa(6) = wali.Text
rssiswa.Update
Call bersih
End Sub
Private Sub bersih()
daftar.Text = ""
nis.Text = ""
nama.Text = ""
alamat.Text = ""
Kelamin.Text = ""
tempat.Text = ""
wali.Text = ""
daftar.Enabled = True
daftar.SetFocus
End Sub
Private Sub Form_Load()
Set dbcalon = OpenDatabase(App.Path & "\Siswa baru.mdb")
Set rscalon = dbcalon.OpenRecordset("calon")
rscalon.Index = "cari1"
Set dbsiswa = OpenDatabase(App.Path & "\Siswa baru.mdb")
Set rssiswa = dbsiswa.OpenRecordset("siswa")
rssiswa.Index = "cari"
rscalon.MoveFirst
While Not rscalon.EOF
daftar.AddItem (rscalon(0))
rscalon.MoveNext
Wend
End Sub

'form laporan calon siswa baru
Public dbcalon As Database
Public rscalon As Recordset
Public dblaporan As Database
Public rslaporan As Recordset

Private Sub HapusTabel()
If rslaporan.RecordCount <> 0 Then
Do While Not rslaporan.EOF
rslaporan.Delete
rslaporan.MoveNext
Loop
End If
End Sub


Private Sub cmdBatal_Click()
Unload Me
End Sub

Private Sub cmdProses_Click()
Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")
Set rslaporan = dblaporan.OpenRecordset("lap1")
HapusTabel
rscalon.MoveFirst
Do While Not rscalon.EOF
rslaporan.AddNew
rslaporan(0) = Tahun
rslaporan(1) = rscalon(0)
rslaporan(2) = rscalon(1)
rslaporan(3) = rscalon(5)
rslaporan(4) = rscalon(3)
rslaporan(5) = rscalon(6)
rslaporan(6) = rscalon(7)
rslaporan.Update
rscalon.MoveNext
Loop

dblaporan.Close
lap.ReportFileName = App.Path & "\lap1.rpt"
lap.DataFiles(0) = App.Path & "\laporan.mdb"
lap.WindowState = crptMaximized
lap.WindowTitle = "Laporan Daftar Calon Siswa"
lap.Action = 28
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set dbcalon = OpenDatabase(App.Path & "\siswa baru.mdb")
Set rscalon = dbcalon.OpenRecordset("calon")
rscalon.Index = "cari1"

End Sub

'form calon siswa baru yang diterima
Public dbcalon As Database
Public rscalon As Recordset
Public dblaporan As Database
Public rslaporan As Recordset
Public dbrayon As Database
Public rsrayon As Recordset

Private Sub HapusTabel()
If rslaporan.RecordCount <> 0 Then
Do While Not rslaporan.EOF
rslaporan.Delete
rslaporan.MoveNext
Loop
End If
End Sub
Private Sub cmdBatal_Click()
Unload Me
End Sub

Private Sub cmdProses_Click()
Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")
Set rslaporan = dblaporan.OpenRecordset("lap2")
HapusTabel
rscalon.MoveFirst
Do While Not rscalon.EOF
If (rscalon(8) = "C" And rscalon(7) >= 33) Or (rscalon(8) <> "C" And rscalon(7) >= 43) Then
rslaporan.AddNew
rslaporan(0) = Tahun
rslaporan(1) = rscalon(0)
rslaporan(2) = rscalon(1)
rslaporan(3) = rscalon(3)
rslaporan(4) = rscalon(7)
rslaporan.Update
End If
rscalon.MoveNext
Loop

dblaporan.Close
lap.ReportFileName = App.Path & "\lap2.rpt"
lap.DataFiles(0) = App.Path & "\laporan.mdb"
lap.WindowState = crptMaximized
lap.WindowTitle = "Laporan Daftar Calon Siswa Yang Diterima"
lap.Action = 28
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set dbcalon = OpenDatabase(App.Path & "\siswa baru.mdb")
Set rscalon = dbcalon.OpenRecordset("calon")
Set dbrayon = OpenDatabase(App.Path & "\siswa baru.mdb")
Set rsrayon = dbcalon.OpenRecordset("rayon")
rscalon.Index = "cari1"
End Sub


'form laporan siswa baru
Public dbsiswa As Database
Public rssiswa As Recordset
Public dblaporan As Database
Public rslaporan As Recordset

Private Sub HapusTabel()
If rslaporan.RecordCount <> 0 Then
Do While Not rslaporan.EOF
rslaporan.Delete
rslaporan.MoveNext
Loop
End If
End Sub


Private Sub cmdBatal_Click()
Unload Me
End Sub

Private Sub cmdProses_Click()
Set dblaporan = OpenDatabase(App.Path & "\laporan.mdb")
Set rslaporan = dblaporan.OpenRecordset("lap3")
HapusTabel
rssiswa.MoveFirst
Do While Not rssiswa.EOF
rslaporan.AddNew
rslaporan(0) = Tahun
rslaporan(1) = rssiswa(0)
rslaporan(2) = rssiswa(1)
rslaporan(3) = rssiswa(4)
rslaporan(4) = rssiswa(5)
rslaporan(5) = rssiswa(3)
rslaporan(6) = rssiswa(2)
rslaporan(7) = rssiswa(6)
rslaporan.Update
rssiswa.MoveNext
Loop

dblaporan.Close
lap.ReportFileName = App.Path & "\lap4.rpt"
lap.DataFiles(0) = App.Path & "\laporan.mdb"
lap.WindowState = crptMaximized
lap.WindowTitle = "Laporan Daftar siswa Siswa"
lap.Action = 28
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set dbsiswa = OpenDatabase(App.Path & "\siswa baru.mdb")
Set rssiswa = dbsiswa.OpenRecordset("siswa")
'rssiswa.Index = "cari1"
End Sub


Untuk format laporan penulis menggunakan cristal report jadi silakan vbthok mania menginstall dulu program cristal report.Mohon maaf jika disini saya tidak menyediakan program cristal reportnya karena takut dituntut karena menyebarkan tanpa persetujuan..hehehe...
Untuk desain silakan dikembangakan sendiri karena disini penulis hanya membantu semoga vbthok mania jadi lebih kreatif. berikut source code lengkapnya yang bisa anda download disini
Terimakasih

VB :: Source Code Visual Basic: Penerimaan Siswa Baru

Penerimaan siswa baru disekolah merupakan hal yang sangat krusial, sebab sebelum penggodokan dilakukan, sekolah harus terlebih dahulu menyeleksi siswa yang akan diterima. Sebab jika dilakukan secara sembarangan ini malah akan memperburuk output dari sekolah itu sendiri.

Penerimaan mahasiswa baru dimulai dari proses pendaftaran mahassiwa, pengisian formulir, penyimpanan ke buku besar, pelaksanaan tes, dan mengeluarkan hasil Penerimaan Siswa Baru.

Contoh program berikut mudah-mudahan bisa digunakan sebagai bahan untuk membuat aplikasi sejenis dengan penerimaan siswa baru ini, jika anda tertarik silahkan klik di Download Source Code Visual Basic: Penerimaan Siswa Baru, password: riyuniza

VB.NET :: Source code program pembayaran SPP dengan vb.net 2010

Kali ini saya akan membagikansource code program pembayaran SPP sekolah menggunakan vb.net 2010 dengan database SQL Server 2008 serta crystal report for vb.net sebagai laporannya.

Program pembayaran SPP sekolalah ini agak rumit dalam pengerjaannya, terutama logika program saat siswa belum bayar, setting tahun ajaran baru, setting harga pembayaran SPP jika harga SPP berbeda antara kelas dan tahun ajaran, setting potongan pembayaran SPP jika siswa mendapat beasiswa tertentu dari sekolah / beasiswa swasta. tapi semua itu bisa saya kerjakan berkat analisa logika pemrograman yang tepat.

Source code program pembayaran SPP sekolah ini sangat cocok bagi anda yang :

• sedang belajar pemrograman visual studio 2010 / visual basic 2010 / biasa disebut vb.net 2010 (vb dot net)
• sedang mengerjakan tugas akhir / skripsi
• bahan referensi untuk menambah pengetahuan anda

Berikut ini penjelasan alur data source code program pembayaran SPP sekolah menggunakan vb.net 2010 :

Keamanan, terdiri dari:

• Login
• Menu utama
• Data petugas
• Ganti password

Master, terdiri dari :

• Setting tahun ajaran, digunakan untuk mensetting tahun ajaran sesuai tahun ajaran baru
• Setting kelas, digunakan untuk menambah, edit, hapus data kelas yang ada pada tiap sekolahan
• Setting harga pembayaran, digunakan untuk mensetting harga pembayaran SPP sesuai kelas dan tahun ajaran yang berlaku
• Data Siswa, diguakan untuk menmbah, edit serta hapus data siswa pada sekolahan
• Penerima beasiswa, digunakan untuk menambah, edit serta menghapus data penerima beasiswa

Transaksi, terdiri dari :

• Transaksi Pembayaran SPP, digunakan untuk mencatat transaksi pembayaran SPP maupun pembayaran uang gedung, dana sosial, daftar ulang dll, bisa mencatat beberapa pembayaran dalam satu transaksi (One to many), misalkan pada bulan agustus siswa ingin membayar SPP bulan agustus, september, Oktober, serta biaya sekolah yang lain maka langsung bisa mencatat transaksi langsung dalam satu transaksi tanpa membuat transaksi baru. disediakan history transaksi pembayaran siswa, serta langsung mencetak kwitansi pembayaran siswa saat proses simpan selesai.
• Data siswa, digunakan untuk pencarian data siswa untuk mempermudah pencarian siswa.

Laporan, terdiri dari :

• Laporan data siswa, pilihan cetak semua siswa dan per kelas
• Laporan data pembayaran SPP, pilihan cetak bisa cetak per siswa, per kelas, per periode ( bisa per minggu, per bulan, bahkan per tahun / berdasarkan range tanggal yang dipilih )
• Laporan data kekurangan / tunggakan pembayaran SPP, pilihan cetak per siswa, per kelas serta tahun ajaran.

Dibawah ini screenshoot source code program pembayaran SPP sekolah menggunakan vb.net 2010 :

VB.NET :: Source Code Sistem Aplikasi Pendaftaran Siswa Baru TKQ-TPQ Menggunakan Visual Basic .Net Dan Database SQL Server 2005

1. Form Splash



2. Form Login



3. Form Menu Utama



4. Master Form Pendaftaran Siswa Baru



5. Master Form Datagidview Pendaftaran Siswa Baru



6. Report Form Sortir Siswa Baru



7. Report Sortir Siswa Baru



8. Report Data Siswa Baru