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 bawah2.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 form110.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,.,.
Getting Started with Arduino gives you lots of ideas for Arduino projects and helps you get going on them right away.
Thursday 10 September 2015
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
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 :
Saturday 29 August 2015
Cara Hemat Kuota di Windows 10
Windows 10 yang intinya tidak akan sebaik tanpa internet tentunya kata ini saja sudah bisa membuat bayangan untuk kamu bahwa windows 10 akan menghabiskan banyak kuota ( jika menggunakan kuota ) lalu bagaimana langkah untuk menghemat nya?
Jufrika ada sedikit 1 tips yang bisa kamu praktekan (TENTUNYA YANG AMAN SAJA DI SHARE :D)
1. Buka Setting
2. Pilih Update & Security
4. Advanced Options
5. Pilih Chose How update delivery
6. Klik Turn ON menjadi OFF
Emang apa yang di off kan?
itu adalah sistem dimana windows update yang kamu dapatkan itu , pihak microsoft bisa mengaksesnya dan di bagikan ke pengguna windows 10 yang lainnya , yang intinya akan memakan kuota kamu karna auto upload file ke si pengguna windows lainnya :D .
Itu tips sederhana ku bagaimana dengan kamu sobat jufrikablog?
Thursday 27 August 2015
Raspberry Pi :: Raspberry Pi sebuah Komputer Kecil $25
Raspberry Pi, komputer seharga 25 dolar yang menggunakan Linux, akhirnya diproduksi dan unit pertama akan tersedia di akhir bulan Januari ini, saya menyebutnya komputer 25 dolar karena sudah banyak yang tahu tentang Raspberry Pi.
Yang sedang diproduksi sekarang adalah Model B yang seharga 35 dolar, model A akan menyusul kemudian
Untuk anda yang tidak tahu apa itu Raspberry Pi (komputer 25 dolar), adalah komputer berukuran kartu kredit yang dibuat oleh yayasan amal bernama Raspberry Pi Foundation dimana awalnya akan menggunakan Ubuntu sebagai OS-nya. Namun dikarenakan banyaknya issue/masalah di rilis Ubuntu terbaru, Raspberry Pi akan menggunakan Debian, Fedora atau ArchLinux.
Raspberry Pi dilengkapi dengan port USB dan HDMI, jadi anda tinggal colok ke TV atau perangkat lain yang mempunyai soket HDMI, colok keyboard ke port USB dan rasakan sistem yang sudah dikonfigurasi penuh.
Spesifikasi sistemnya sbb:
CPU ARM1176JZF-S 700 MHz
Storage capacity SD Card Slot (SD or SDHC card)
Memory: 128 (Model A) or 256 MiB (Model B)
Graphics: Broadcom VideoCore IV, OpenGL ES 2.0 , 1080p30 H.264 high-profile decode
Model B dilengkapi dengan Ethernet controller, Model A tidak dilengkapi namun masih bisa konek ke jaringan menggunakan USB Ethernet atau USB Wi-Fi
Yang sedang diproduksi sekarang adalah Model B yang seharga 35 dolar, model A akan menyusul kemudian
Untuk anda yang tidak tahu apa itu Raspberry Pi (komputer 25 dolar), adalah komputer berukuran kartu kredit yang dibuat oleh yayasan amal bernama Raspberry Pi Foundation dimana awalnya akan menggunakan Ubuntu sebagai OS-nya. Namun dikarenakan banyaknya issue/masalah di rilis Ubuntu terbaru, Raspberry Pi akan menggunakan Debian, Fedora atau ArchLinux.
Raspberry Pi dilengkapi dengan port USB dan HDMI, jadi anda tinggal colok ke TV atau perangkat lain yang mempunyai soket HDMI, colok keyboard ke port USB dan rasakan sistem yang sudah dikonfigurasi penuh.
Spesifikasi sistemnya sbb:
CPU ARM1176JZF-S 700 MHz
Storage capacity SD Card Slot (SD or SDHC card)
Memory: 128 (Model A) or 256 MiB (Model B)
Graphics: Broadcom VideoCore IV, OpenGL ES 2.0 , 1080p30 H.264 high-profile decode
Model B dilengkapi dengan Ethernet controller, Model A tidak dilengkapi namun masih bisa konek ke jaringan menggunakan USB Ethernet atau USB Wi-Fi
Subscribe to:
Posts (Atom)