Hanavi. Diberdayakan oleh Blogger.
RSS

Program Bel Sekolah

Hmm.. Setelah Satu Minggu gak Ngeblog rasanya belum sempurna ni..
Okelah Klo Begitu.. Sekarang saat nya saya mau share mengenai sebuah software yang telah saya ciptakan dan diberi nama Program Bel Sekolah.
tujuan adanya program bel sekolah ini adalah untuk perkembangan teknologi dari Lonceng manual menjadi bel yang otomatis, sehingga akurasi dan kedisiplinan baik itu jam masuk, jam pulang dan pergantian pelajaran serta istirahat dapat terkoordinir secara otomatis. kelebihannya yang lain Nah.. Oleh karena itu bagi yang berminat dengan program ini silahkan hubungi 0896 2012 0003 A/n Hanavi

GUI atau tampilan dari Program Bell Sekolah Ini telah saya update, adapun Demonya dapat anda download di 
http://www.4shared.com/rar/YvY3nshY/Software_Bell_Sekolah.html

Berikut saya lampirkan Form dari Program Bel Sekolah :
1. Form Halaman Utama Tampilan Bel Sekolah Untuk melakukan pemilihan Hari, dimana harinya saya bagi menjadi 3 bagian yaitu hari biasa, hari upacara dan hari Ramadhan.


2. Form Settingan Bel Sekolah, Digunakan Untuk melakukan pengaturan jam masuk, jam pulang, pergantian pelajaran dan Istiraht


3. Form Penguncian, Digunakan agar tidak ada user lain yang bisa merubah settingan jam


Selamat Melihat lihat di blog saya ini, Nantikan Program - program karya terbaru saya disini, So.. Jangan sampai Ketinggalan untuk terus membuka blog saya ini, Minimal satu hari 10 kali anda mengunjungi. terima kasih.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Perangkat Lunak Koperasi (ProKoNav)

PROGRAM / SOFTWARE KOPERASI
Programmer By Hanavi
Jika Anda Berminat Dengan Program Ini, Silahkan Hub 089620120003. A/n Hanavi-Dumai
Nb :" Silahkan Jawab Kuis Di Akhir Wacana Ini"

HARGA PROMO PROGRAM
TANGGAL 01-10 JANUARI 2013 RP 1.000.000
TANGGAL 11-17 JANUARI RP 500.000
TANGGAL 18 Januari - 20 Februari RP 265.000
TANGGAL 01 FEBRUAI-SELANJUTNYA HARGA NORMAL 2.500.000
BURUAN...!!!!!! PESAN KE 0896-2012-0003 / 0853-6479-1353

Adapun Demo Programnya dapat anda download di
http://www.4shared.com/rar/7KO5xVNe/Software_Koperasi.html
Untuk meningkatkan pelayanan masyarakat di bidang keuangan maka, perlu peningkatan pelayanan yang memadai. Salah satu contoh fasilitas pelayanan masyarakat yang sangat diperlukan baik masyarakat perkotaan maupun pedesaan adalah sistem pelayanan keuangan. Sistem pelayanan keuangan yang ada pada pelayanan koperasi, banyak dijumpai permasalahan. Permasalahan yang harus dicari jalan keluar untuk memperoleh kemudahan-kemudahan dalam memberikan pelayanan keuangan pada masyarakat. Fasilitas yang ada, merupakan salah satu hal yang penting dalam memenuhi permintaan pelayanan bagi keuangan masyarakat, yang memerlukan pelayanan keuangan dari lapisan mana saja, dengan mutu pelayanan yang baik.

Oleh karena itu saya membuat Program Koperasi yang mampu mengatasi permasalahan dalam hal penanganan Data Anggota, Simpanan, Pinjaman, Pembayaran, Hingga Tunggakan dapat anda akses dengan baik dan cepat. Program Ini saya beri Nama Software “PROKONAV” Bagi yang berminat ingin menggunakan Software ini silahkan hubungi 089620120003.

Berikut Saya lampirkan Form Pendukung Program Koperasi beserta Laporannya.

1. Data Anggota Koperasi



2. Data Pekerjaan Anggota



3. Data User / Pemakai Sistem / Hak Akses Login



4. Data Jenis Simpanan Anggota Koperasi



5. Transaksi Simpanan (Tabungan) Anggota


6. Transaksi Peminjaman Uang Oleh Anggota



7. Transaksi Pembayaran Pinjaman



8. Form Untuk Mencetak Jenis Simpanan


9. Form Untuk Mencetak Data Pinjaman Per Periode (Hari,Bulan, Tahun)



10. Form Untuk Mencetak Data Simpanan Per Periode (Hari,Bulan,Tahun)



11. Form Untuk Mencetak Data Pembayaran Per Periode



12. Form Untuk Mencetak Sekaligus Sebagai Form kunci untuk mendeteksi Anggota yang masih mengalami Tunggakan dalam pembayaran


Nah.. Setelah saya menampilkan Form Proses yang telah saya buat, tentu saja harus kita sadari bahwa bagus atau tidaknya sebuah program harus dilihat dari Output yang dihasilkan atau laporan yang diperoleh. Baiklah, Berikut saya lampirkan Output dari Program Koperasi ini :

1. Laporan Data Simpanan Harian, Bulanan Dan Tahunan Anggota
                                     
                            A. Harian

                                       
                            B. Bulanan


                            C. Tahunan
                                       


                                         
2 Cetak Kartu Anggota (Sekalian Foto Tampil)



3. Cetak Laporan Data Anggota



4. Cetak laporan Per Kode Simpanan



5. Cetak Laporan Pinjaman Anggota (Harian, Bulanan, Tahunan)

                            A. Harian

                            B. Bulanan

                            C. Tahunan



6. Cetak Slip Pinjaman Anggota



7. Cetak Slip Simpanan Anggota



8. Cetak Laporan Pembayaran (Harian, Bulanan Dan Tahunan)

                            A. Harian

                            B. Bulanan

                            C. Tahunan


9. Cetak Laporan Evaluasi Tunggakan Pembayaran Anggota


10. Cetak Laporan Angsuran Pembayaran



11. Cetak Laporan Akumulasi Denda (Total Semua Denda)





Begitulah Bentuk Kasar dari Program Koperasi yang telah saya rancang, Sedangkan cara untuk menjalankan program tersebut sengaja belum saya post di blog ini. saya kira, jika para Netter semua memperhatikan baik-baik, saya yakin anda mampu menjalankan program tersebut tanpa saya beri Clue to Acces The Program.

Masih ada Puluhan Program lainnya yang akan saya Share diblog ini, Oleh karena Kunjungi Tiap Hari dan Tiap Waktu blog ini agar anda benar benar Up To Date Memperoleh Informasi.

Bagi yang Mampu Menjawab Pertanyaan saya berikut, maka akan saya kirim program secara GRATIZZ Via Email. Jawab melalui SMS dengan Format
NamaAnda Emailanda Jawaban Anda
Jika saya mempunyai 5 Buah Kue, Lalu Satu Kue terjatuh dijalan, sedangkan Dua kue lainnya saya sedekahkan pada pengemis dijalan sewaktu saya diperjalanan pulang. Lalu setiba dirumah, satu buah kue dimakan kucing seperempat bagian. Berapakah Total Kue yang saya miliki sekarang??? Jangan Lupa Tinggalkan Komentar Anda ya...

Terima Kasih Atas Partisipasi Anda.

Kunjungi Forum : http://www.facebook.com/groups/362862690466604/ 

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Cara Membuat Login / PassWord/ Hak Akses

Ingat Suatu Hal " Ilmu Tanpa Amalan Laksana Pohon Tiada Berbuah. dan Lebih baik menjadi orang yang bodoh tapi mau belajar dari pada menjadi orang pintar namun tidak mampu mengamalkan ilmunya. "

Nah.. berlandaskan hal tersebut.. dari pada Netter gak menentu meng Klak-klik tampilan FB, Lebih baik konsentrasi membaca catatan saya berikut.
Kegunaan Form Login ini sangatlah signifikan, karena dengan menggunakan form ini program yang anda ciptakan tidak dapat diakses oleh sembarang orang, sehingga data anda tidak akan dapat diedit oleh tangan yang tidak bertanggungjawab.
CARA MEMBUAT FORM PASSWORD/LOGIN/HAK AKSES

Dengan Asumsi Anda telah membuat Database dengan nama ADOpesanan.mdb dan Tabel dengan nama Kasir dan sebuah form menu.

Rancanglah Form seperti tampilan pada gambar dibawah :


Keterangan Gambar :
Gambar disamping ini Menggunakan Label, namenya terserah anda karena tidak mempengaruhi source kode


Selanjutnya Gambar disamping ini anda rancang Menggunakan Textbox, name nya : txtnamaksr dan txtpasswordksr (sebaiknya ikutin name ini agar mudah mengikuti source kode yang akan saya berikan, namun tidak masalah juga jika anda ingin merubah namanya asalkan di source kodenya juga anda rubah)


Setelah Tampilan anda rancang seperti pada gambar diatas lalu copylah source kode yang ada dibawah . setelah anda yakin mengkopi semua source kode dengan benar maka kembalilah ke Form dan pastekan source kode tersebut setelah anda menekan tombol F7 pada keyboard anda.

Berikut Source Kodenya :

Dim A As Byte
Dim B As Byte
Private Sub Form_Load()
TxtNamaKsr.MaxLength = 35
TxtPasswordKsr.MaxLength = 15
TxtPasswordKsr.PasswordChar = "*"
TxtPasswordKsr.Enabled = False
TxtKodeKsr.Enabled = False
End Sub

Private Sub TxtNamaKsr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
If Keyascii = 13 Then
Call BukaDB
RSKasir.Open "Select NamaKsr from Kasir where NamaKsr ='" & TxtNamaKsr & "'", Conn

If RSKasir.EOF Then
A = A + 1
If 1 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 2 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 3 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal" & Chr(13) & _
"Kesempatan habis, Ulangi dari awal"

Unload Me
End If
Else
TxtNamaKsr.Enabled = False
TxtPasswordKsr.Enabled = True
TxtPasswordKsr.SetFocus
End If
End If
End Sub

Private Sub txtpasswordksr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
Dim LoginKasir As String
Dim KodeKasir As String
Dim NamaKasir As String
If Keyascii = 13 Then

Call BukaDB
RSKasir.Open "Select * from Kasir where NamaKsr ='" & TxtNamaKsr & "' and PasswordKsr='" & TxtPasswordKsr & "'", Conn
If RSKasir.EOF Then
B = B + 1
If 1 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 2 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 3 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
'End
Unload Me
End If
Else
Unload Me
Menu.Show
End If
End If
End Sub

Jika tulisan source kode berubah menjadi warna merah berarti ada kesalahan dalam kode program. Silahkan anda perhatikan baik-baik dan sesuaikan dengan rumus diatas. Dan jika source kode tidak ada kesalahan, saatnya anda melanjutkan pekerjaan. Langkah selanjutnya adalah klik menu Project – Pilih Add Module. Lalu kopilah source kode dibawah dan pastekan pada module tersebut

Berikut source kode pada Module :
' Kegunaan source kode ini adalah untuk koneksi antara vb dengan database.. akan tetapi jika anda mempunyai cara koneksi lain tidak masalah digunakan yang terpenting diselaraskan antara nama database dan nama tabelnya. source kode yang saya berikan ini adalah source adodb, untuk pengembangan silahkan gunakan adodc.
Public Conn As New ADODB.Connection
Public RSKasir As ADODB.Recordset

Public Sub BukaDB()
Dim STR As String
Set Conn = New ADODB.Connection
Set RSKasir = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ADOPesanan.mdb"
End Sub

Selamat Mencoba !!!

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Visitors

Ternyata Ku Salah Mengenal Mu


Ternyata Salah Mengenalmu - Asbak Band Mp3
Musicaddict.com

Site Map

Daftar Isi

Pengikut