WEB :: source code program pembuatan sistem informasi posyandu menggunakan netbeans IDE 7.2 berbasis java web

Source code program ini menggunakan Netbeans 7.2 berbasis java web (JSP, JSTL, Servlet) dan menggunakan perintah SQL inner join untuk mempermudah User dalam menggunakan sistem/aplikasi ini. Bisa melakukan simpan, edit, hapus dan pencarian data, dan juga ada fasilitas Presensi Petugas. Berikut hasil screen shoot tampilan program :
1. Menu Utama

2. Menu input data Berat Badan Bayi Timbang

3. Menu input data Petugas

4. Menu input data Posyandu (inner join dengan tabel data Kelurahan)

5. Menu input data Puskesmas (inner join dengan tabel data Kecamatan)

6. Menu input data Kelurahan (inner join dengan tabel data Puskesmas)

7. Menu input data Kecamatan

8. Menu input data Ibu (inner join dengan tabel data Posyandu)

9. Menu input data Anak (inner join dengan tabel data Ibu)

10. Menu input data Ibu Hamil (inner join dengan tabel data Ibu)

11. Menu input data Layanan Anak ( inner join dengan tabel data Anak)

12. Menu Presensi Petugas (inner join dengan tabel data Posyandu dan Petugas)

13. Menu input data Wuspus (inner join dengan tabel data Ibu)

WEB :: Aplikasi Klinik Puskesmas dan Riwayat Penyakit Pasien Berbasis Web

Aplikasi Klinik Puskesmas dan Riwayat Penyakit Pasien Berbasis Web

Langsung saja Berikut tampilanya...

form login

Halaman Utama

Form Isi Riwayat

Cetak Riwayat Penyakit Pasien

Hasil Export ke excel

Jika sobat berminat hubungi lewat email atau facebook saya trimakasih !!!!!!!

VB.NET :: Menampilkan Web Camera dengan VB.NET (Pemrograman Visual Basic .NET)

Pertama buka Visual Studio 2008, kemudian Create VB.NET Project. Pada Form1 Tambahkan ListBox1 dan PictureBox1 sehingga tampak sebagai berikut :

Buka Source Code, tambahkan deklarasi berikut : (Untuk memanggil fungsi-fungsi Windows API yang dibutuhkan)

Imports System.Runtime.InteropServices


Public Class Form1


    Const WM_CAP_START = &H400S
    Const WS_CHILD = &H40000000
    Const WS_VISIBLE = &H10000000


    Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
    Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
    Const WM_CAP_EDIT_COPY = WM_CAP_START + 30
    Const WM_CAP_SEQUENCE = WM_CAP_START + 62
    Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23


    Const WM_CAP_SET_SCALE = WM_CAP_START + 53
    Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
    Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50


    Const SWP_NOMOVE = &H2S
    Const SWP_NOSIZE = 1
    Const SWP_NOZORDER = &H4S
    Const HWND_BOTTOM = 1


    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" _
       (ByVal wDriverIndex As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean


    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
       (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
        ByVal nHeight As Short, ByVal hWnd As Integer, _
        ByVal nID As Integer) As Integer


    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, _
       <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer


    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
       (ByVal hwnd As Integer, _
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer


    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean


    Dim VideoSource As Integer
    Dim hWnd As Integer

Kemudian klik dua kali pada Form tambahkan kode program berikut ini (untuk menampilkan daftar webcam yang tersedia sehingga bisa dipilih) :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DriverName As String = Space(80)
        Dim DriverVersion As String = Space(80)
        For i As Integer = 0 To 9
            If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
                ListBox1.Items.Add(DriverName.Trim)
            End If
        Next
    End Sub

Kemudian klik dua kali pada ListBox1 tambahkan kode program berikut ini (untuk mulai menyalakan Kamera dan menampilkannya di PictureBox1) :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        SendMessage(hWnd, WM_CAP_DRIVER_DISCONNECT, VideoSource, 0)
        DestroyWindow(hWnd)


        VideoSource = ListBox1.SelectedIndex


        hWnd = capCreateCaptureWindowA(VideoSource, WS_VISIBLE Or WS_CHILD, 0, 0, 0, _
            0, PictureBox1.Handle.ToInt32, 0)
        If SendMessage(hWnd, WM_CAP_DRIVER_CONNECT, VideoSource, 0) Then


            SendMessage(hWnd, WM_CAP_SET_SCALE, True, 0)


            SendMessage(hWnd, WM_CAP_SET_PREVIEWRATE, 30, 0)


            SendMessage(hWnd, WM_CAP_SET_PREVIEW, True, 0)


            SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, _
               PictureBox1.Width, PictureBox1.Height, _
               SWP_NOMOVE Or SWP_NOZORDER)
        Else


            DestroyWindow(hWnd)
        End If
    End Sub

Source Code selengkapnya :

Imports System.Runtime.InteropServices

Public Class Form1


    Const WM_CAP_START = &H400S
    Const WS_CHILD = &H40000000
    Const WS_VISIBLE = &H10000000


    Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
    Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
    Const WM_CAP_EDIT_COPY = WM_CAP_START + 30
    Const WM_CAP_SEQUENCE = WM_CAP_START + 62
    Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23


    Const WM_CAP_SET_SCALE = WM_CAP_START + 53
    Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
    Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50


    Const SWP_NOMOVE = &H2S
    Const SWP_NOSIZE = 1
    Const SWP_NOZORDER = &H4S
    Const HWND_BOTTOM = 1


    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" _
       (ByVal wDriverIndex As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean


    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
       (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
        ByVal nHeight As Short, ByVal hWnd As Integer, _
        ByVal nID As Integer) As Integer


    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, _
       <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer


    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" _
       (ByVal hwnd As Integer, _
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer


    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean


    Dim VideoSource As Integer
    Dim hWnd As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DriverName As String = Space(80)
        Dim DriverVersion As String = Space(80)
        For i As Integer = 0 To 9
            If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
                ListBox1.Items.Add(DriverName.Trim)
            End If
        Next
    End Sub


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        SendMessage(hWnd, WM_CAP_DRIVER_DISCONNECT, VideoSource, 0)
        DestroyWindow(hWnd)


        VideoSource = ListBox1.SelectedIndex


        hWnd = capCreateCaptureWindowA(VideoSource, WS_VISIBLE Or WS_CHILD, 0, 0, 0, _
            0, PictureBox1.Handle.ToInt32, 0)
        If SendMessage(hWnd, WM_CAP_DRIVER_CONNECT, VideoSource, 0) Then


            SendMessage(hWnd, WM_CAP_SET_SCALE, True, 0)


            SendMessage(hWnd, WM_CAP_SET_PREVIEWRATE, 30, 0)


            SendMessage(hWnd, WM_CAP_SET_PREVIEW, True, 0)


            SetWindowPos(hWnd, HWND_BOTTOM, 0, 0, _
               PictureBox1.Width, PictureBox1.Height, _
               SWP_NOMOVE Or SWP_NOZORDER)
        Else


            DestroyWindow(hWnd)
        End If
    End Sub
End Class

Jika dijalankan Hasilnya :

Semoga berguna

Kode program dapat didownload disini (Setelah tampil di Google Docs, Untuk mendownload klik File-Download.)

Selanjutnya penulis akan sharing tentang aplikasi yang bisa Capture Foto dari WebCam dan berikutnya bisa Recording Video dari Kamera sehingga menjadi file Movie.

WEB :: Sistem Informasi Sekolah Berbasis Web dan SMS

Buat rekan-rekan yang lagi butuh Sistem Informasi Sekolah ini ada produk dari kami, monggo dilihat-lihat dan jika tertarik silahkan pesan,   jika nanti ingin tambahan fitur bisa kita negosiasikan, dan desain nanti bisa disesuaikan dengan keinginan.
" Bagi yang berminat silahkan hubungi kami " 

Beberapa fitur yang dimiliki :

• Multi user (siswa, pengajar, pegawai, kepala sekolah)
• Berbasis web ( PHP dan database Mysql)
• Dapat dijalankan pada sistem operasi Windows, Linux, MacOS, FreeBSD,dll
• Manajemen kelas
• Manajemen absensi siswa
• Manajemen penilaian
• Manajemen keungan siswa
• Manajemen laporan barang laboratorium
• Manajemen siswa
• Manajemen pengajar beserta penjadwalan
• Backup database
• Fitur pengiriman pesan antara siswa dan pengajar
• Sistem kalender/penjadwalan hari sekolah dan libur
• dll

Fitur Dengan Biaya Tambahan Paket Pilihan untuk paket SI Sekolah :
- Website online terintegrasi dengan SI Sekolah 
- Penerimaan Siswa Baru Secara Online dan Offline
- E-Learning standart
- Fitur SMS Gateway (cek nilai, info absensi ke wali murid, cek biaya sekolah, info pendaftaran, dll)
- Sistem Informasi Perpustakaan (manajemen peminjaman, katalog buku, penglolaan buku, cetak barcode, dlll) 

WEB :: Software Travel, Rental Mobil, dan Bus Pariwisata

Kami menjual software manajemen penjualan tiket BUS atau Travel secara offline dan online, bagi kalangan perusahaan yang mempunyai bidang usaha Tour and Travel bisa membeli software ini, karena software ini kami rancang dengan beberapa pilihan paket yang dapat disesuaikan dengan buget.

Beberapa fitur dan pilihan paket :
1. Software Tiketing untuk Offline
Software ini hanya digunakan oleh admin atau penjual tiket BUS, software ini memiliki beberapa fitur
- Penjualan dan pemesanan tiket BUS atau Travel
- Pembayaran Tiket
- Pemilihan jenis BUS, rute, jadwal serta kursi BUS
- Laporan data penumpang
- laporan pendapatan/keuangan
- manajemen user

2. Software Tiketing untuk Online
Software ini dirancang untuk online atau dapat melakukan pemesanan Tiket via website, software ini datanya terintegrasi dengan software tiketing offline, namun jika hanya ingin melakukan manajemen pembelian tiket online saja bisa dibuatkan. Beberapa fitur tiketing online :
- Profil perusahaan
- Galeri Tour and travel
- Produk atau layanan tour and travel
- pemesanan tiketing dengan melakukan pemilihan jenis BUS, jadwal, dan rute
- konfirmasi pembayaran
-Konfirmasi pemesanan ke email atau sms

3. Layanan tambahan berbasis SMS Gateway
Layanan berbasis SMS disini merupakan pilihan jika ingin dibuatkan sistem pemesanan dan pembelian tiket BUS atau travel melalui layanan yang berbasis SMS, dan dapat dikombinasikan dengan software yang offline sehingga pihak pengelola dapat melakukan SMS ke pemesan dengan mudah, dapat melakukan sms broadcast(sms masal) ke klien2 yang pernah melakukan pemesanan apabila ada promo.
dan layanan lainnya yang dapat disusesuaikan dengan permintaan.


Jika Anda mempunyai usaha sejenis dapat melakukan pemesanan ke kami, dan untuk model sistem lainnya silahkan kirim ke email sistem seperti apa yang dibutuhkan dan kami akan konfirmasi biaya dan waktu pengerjaan.

WEB :: Pendaftaran Pasien Berbasis SMS dan Berbasis Web

Bagi Anda yang membutuhkan aplikasi pendaftaran pasien untuk klinik berbasis sms monggo mampir dimari, jika berminat nanti bisa didemokan secara online.
Beberapa fitur yang dimiliki:
- Modul SMS

1. Inbox (SMS Masuk)
2. Outbox (SMS Tidak Terkirim)
3. Sentitem (SMS Terkirim)
4. Kirim SMS(send sms group atau personal)
5. SMS Terjadwal
6. Reply SMS
7. Phonebook
8. SET Format pengiriman SMS Pendaftaran
9. SMS Broadcast ke dokter, pendaftar, atau sesama anggota member terdaftar
10. SMS Autoforward sesama anggota member
11. Cek jadwal dan registrasi via SMS bagi yang terdaftar

- Modul Master

1. Data dokter, tambah, hapus, ubah data dokter
2. Data spesialis
3. Data pasien, tambah, ubah, hapus data pasien
4. Jadwal dokter
5. Pendaftaran via web
6. Report antrian

- Modul Manajemen user

WEB :: Website Organisasis, Instansi, Lembaga Pendidikan, dll

Kami memiliki solusi terpadu bagi pembangunan website Anda, mulai dari merencanakan, mendisain, pengerjaan, pemrograman sampai dengan pemeliharaan. Kami juga dapat membantu  anda dalam hosting (menyimpan website Anda di server internet) agar website/situs Anda dapat segera dinikmati oleh pengunjung website/situs di seluruh dunia. Serta di dalamnya mendaftarankan site Anda ke DNS (Domain Name System), yaitu nama yang dapat Anda pilih untuk memudahkan orang lain (pengunjung) mengingat alamat website/situs Anda di internet. Dengan solusi terpadu ini, Anda tidak perlu lagi berhubungan dengan banyak perusahaan untuk membuat website Anda.

  

Website ini dilengkapi fasilitas : download file, view pdf file, toko online penjualan produk dari organisasi seperti buku atau lainnya, fasiltias pengelolaan website mudah.

Kami akan mengerjakan seluruh proses administrasi pendaftaran nama domain Anda (jika belum), sehingga situs website Anda dapat menggunakan alamat :

• http://www.yoursite.com (international id)  atau
• http://www.PerusahaanAnda.co.id. (indonseian id)

 Kami melayani pendaftaran untuk nama domain Internasioanal:

• .com (dotcom, untuk situs komersial)
• .net (dotnet, untuk situs jaringan atau media)
• .org (dotorg, untuk organisasi)
• .info (dotinfo, untuk kebutuhan informasi)

Dan nama domain Id :

•     .co.id (untuk situs perusahaan)
•     .net.id (untuk penyelenggara jasa internet)
•     .or.id (untuk organisasi)
•     .web.id (untuk organisasi perorangan)
•     .ac.id (untuk perguruan tinggi)
•     .sch.id (untuk sekolah)
•     .go.id (untuk pemerintahan)

Fitur-fitur website :

• Halaman unlimited
• Slider artikel atau tulisan headline
• Desain template dapat disesuaikan permintaan
• Memiliki fasilitas view dokumen ke PDF
• Memiliki fasilitas view vidio 
• Memiliki fasilitas slider imaga gallery
• Search kata kunci tertentu
• Fasilitas banner untuk event atau lainnya
• Dilengkapi SEO (Search Engine Optimization)
• Didaftarkan di  search engine (google, yahoo, dll)
• Kontak form
• Yahoo messenger
• Facebook fane page
• tweeter kontak
• Didaftarkan diiklan gratisan
• Sudah termasuk domain dan hosting
• Terima beres website sudah online
• Gratis perubahan template desain 1 kali jika bosan suatu saat
• Unlimited email
• Unlimeted sub domain
• CMS/Halaman pengelolaan website yang mudah dan sederhana bukan CMS gratisan seperti wordpress,joomla, dll
• Garansi 1 tahun
• dll