Docstoc

format TA d3

Document Sample
format TA d3 Powered By Docstoc
					                                    BAB IV

                   PELAKSANAAN TUGAS KHUSUS



4.1      Judul Tugas Khusus

         Judul yang diambil dalam pembuatan tugas khusus ialah “Pemrograman
Pendataan Keluarga Berencana Dengan Menggunakan Program Visual Basic pada
Badan Keluarga, Pemberdayaan Perempuan dan perlindungan Anak UPTB. BKS,
PP dan PA Indrapuri”.




4.2      Latar Belakang Masalah

         Seiring dengan kemajuan teknologi, komputer merupakan produk
teknologi yang mampu memecahkan masalah, baik dalam segi perhitungan
maupun dalam kemampuannya mengolah data, menyimpan data dan memberikan
informasi. Hal ini tidak terlepas dari adanya seorang programmer yang
menciptakan berbagai aplikasi sehingga berbagai pekerjaan dapat diselesaikan
dengan       mudah melalui aplikasi-aplikasi yang diciptakannya. Seorang
programmer komputer memegang peranan yang penting dalam merancang,
menyusun dan memelihara serta mengembangkan suatu program.
         Berbagai program yang diciptakan memiliki fungsi masing-masing, seiring
dengan perkembangan teknologi pada saat ini sangat banyak sekali aplikasi-
aplikasi yang dapat dimanfaatkan berdasarkan berbagai kebutuhan, salah satu
diantaranya adalah program aplikasi Microsoft Visual Basic. Visual Basic
merupakan bahasa pemrograman yang dapat dipelajari dan digunakan dengan
mudah oleh para pemula. Dengan memanfaatkan Aplikasi Visual basic juga dapat
dihasilkan suatu sistem informasi yang canggih, oleh karena itu telah banyak
sistem informasi yang dibuat dengan menggunakan Bahasa pemrograman Visual
Basic. Dimana Sebuah sistem yang dibuat tersebut pastinya memiliki tujuan



                                       21
tertentu, salah satu tujuan dari pembuatan sistem informasi yakni untuk
mempermudah dalam proses pengolahan data.


       Namun    pada    Badan    Keluarga,   Pemberdayaan     Perempuan    dan
perlindungan Anak UPTB. BKS, PP dan PA Indrapuri Proses Pengolahan data
Peserta Kb masih dilakukan secara sederhana yakni dengan memafaatkan aplikasi
microsoft excell hal ini menyebabkan proses pengolahan data menjadi kurang
epektif. Misalnya dalam penginputan data, pencarian data, serta dalam pembuatan
laporan mengenai data peserta KB. Mengingat hal tersebut maka untuk
mempermudah proses pengolahan data peserta KB pada Kantor Badan Keluarga,
Pemberdayaan Perempuan dan perlindungan Anak UPTB. BKS, PP dan PA
Indrapuri diperlukan sebuah program, dimana program tersebut mampu
digunakan untuk mengolah data peserta KB, sehingga proses penginputan data,
pencarian data, serta dalam pembuatan laporan mengenai peserta KB dapat
dilakuan dengan lebih cepat, akurat dan sesuai dengan tuntutan semua pihak yang
membutuhkan.
Berdasarkan uraian di atas, maka dalam penulisan Laporan Kerja Praktek (LKP)
ini, penulis berminat mengambil Judul “Pemrograman Pendataan Keluarga
Berencana dengan Menggunakan Program Visual Basic pada Badan Keluarga,
Pemberdayaan Perempuan dan perlindungan Anak UPTB. BKS, PP dan PA
Indrapuri”.




4.3    Rumusan dan Batasan Masalah

       Yang menjadi batasan masalah dalam penulisan LKP ini yaitu bagaimana
membuat Pemrograman Pendataan Keluarga Berencana dengan Menggunakan
Program Visual Basic pada Badan Keluarga, Pemberdayaan Perempuan dan
perlindungan Anak UPTB. BKS, PP dan PA Indrapuri”.




                                      22
4.4      Tujuan Penelitian Tugas Khusus

         Adapun tujuan dari penelitian Praktek Kerja Lapangan (PKL) ini adalah
untuk mengetahui bagaimana Pemrograman Pendataan Keluarga Berencana
dengan     Menggunakan     Program   Visual     Basic   pada   Badan   Keluarga,
Pemberdayaan Perempuan dan perlindungan Anak UPTB. BKS, PP dan PA
Indrapuri”.


4.5      Metode Pengumpulan Data

         Dalam pembuatan Laporan Kerja Praktek (LKP) ini penulis melakukan
beberapa metode pengumpulan data yaitu:

4.5.1    Penelitian Lapangan (Field Research)
         Dimana cara memperoleh data yaitu:
  a. Observasi, yakni penulis mengadakan pengamatan langsung pada Badan
         Keluarga, Pemberdayaan Perempuan dan perlindungan Anak UPTB. BKS,
         PP dan PA Indrapuri, yang merupakan tempat penulis melaksanakan
         Praktek Kerja Lapangan (PKL).
  b.     Wawancara, yaitu penulis berdialog langsung dengan pegawai – pegawai
         pada bagian kepegawaian dan pegawai pada bidang Keluarga Berencana
         (KB).

4.5.2    Kepustakaan (Library Research)
         Dimana penulis memperoleh data dengan cara membaca buku-buku dan
mengumpulkan data–data yang berhubungan dengan penulisan LKP ini.


4.6      Pengertian Pemrograman

         Pemrograman merupakan kegiatan yang dilakukan oleh para programmer
komputer, Menurut Sutedjo dan Michael (2004:4) “Pemrograman merupakan
proses mengimplementasikan urutan langkah untuk menyelesaikan suatu masalah
dengan menggunakan bahasa pemrograman” Sutedjo dan Michael (2004:3) juga



                                         23
menekankan beberapa istilah yang perlu dipahami dalam pemrograman
diantaranya yakni sebgai berikut :

1.    Program adalah kata, ekpresi, pernyataan atau kombinasinya yang disusun
      dan dirangkai menjadi satu kesatuan prosedur yang berupa urutan langkah
      untuk menyelesaikan masalah yang diimplementasikan dengan menggunakan
      bahasa pemrograman sehingga dapat dieksekusi oleh komputer.
2.    Bahasa Pemrograman merupakan prosedur/tata cara penulisan program. Pada
      bahasa pemrograman terdapat dua faktor penting, yaitu sintax dan semantik.
      Sintax adalah atura-aturan atau tata cara dalam penulisan kata, ekspresi dan
      pernyataan, sedangkan semantik adalah aturan-aturan untuk menyatakan
      suatu arti.
3.    Programmer yaitu Orang      yang pekerjaannya membuat program melalui
      bantuan bahasa pemrograman yang dapat digunakan untuk menyelesaikan
      permasalahan.


4.7      Pengertian Data

         Menurut Kadir (1999) “Data adalah fakta mengenai objek orang dan lain-
lain”, sedangkan menurut Al-Bahra (2005), memberikan defenisi mengenai data
yakni, “data merupakan komponen dasar dari informasi yang akan diproses lebih
lanjut untuk menghasilkan informasi”, selanjutnya menurut Fathansyah ((2002),
“Data adalah refresentasi fakta dunia nyata yang mewakili suatu objek seperti
manusia (pegawai, siswa, pelanggan, pembeli), barang, hewan, peristiwa, konsep,
keadaan dan sebagainya. Pengertian data juga terdapat dalam Wikipedia
(ensiklopedia bebas) yakni data adalah catatan atas kumpulan fakta. Data
merupakan bentuk jamak dari datum, berasal dari bahasa Latin yang berarti
"sesuatu yang diberikan". Dalam penggunaan sehari-hari data berarti suatu
pernyataan yang diterima secara apa adanya. Dari beberapa pengertian tersebut
dapat diambil suatu kesimpulan bahwa data adalah fakta mengenai objek atau
orang lain, yang kemudian diproses sehingga menghasilkan suatu informasi.




                                        24
4.8      Pengertian Pendataan Keluarga

         Pendataan Keluarga adalah kegiatan pengumpulan data primer tentang
data demografi, data keluarga berencana, data tahapan keluarga sejahtera dan data
individu yang dilakukan oleh masyarakat bersama pemerintah (Pemda dan
BKkbN) secara serentak pada waktu yang telah ditentukan melalui kunjungan ke
keluarga dari rumah ke rumah, (Buku Profil Pendataan Keluarga BKkbN Pusat :
2010:6). Hal-hal yang berkaitan dengan pendataan keluarga diantaranya yaitu :
1.    Keluarga adalah unit terkecil dalam masyarakat yang terdiri dari suami-istri
      atau suami istri dan anaknya atau ayah dan anaknya atau ibu dan anaknya.
2.    Keluarga berencana adalah      pasangan suami istri yang telah mempunyai
      perencanaan yang kongkrit mengenai kapan anaknya diharapkan lahir agar
      setiap anaknya lahir disambut dengan rasa gembira dan syukur dan
      merencanakan berapa anak yang dicita-citakan, yang disesuaikan dengan
      kemampuannya dan situasi kondisi masyarakat dan negaranya. (Prof. Drs. H.
      Masjfuk Zuhdi : 1997 : 54)
3.    Peserta keluarga berencana     adalah pasangan usia subur yang pada saat
      pendataan sedang memakai atau menggunakan salah saatu alat/cara
      kontrasepsi modern.



4.9      Jenis-Jenis Data Keluarga


         Pada Badan Keluarga, Pemberdayaan Perempuan dan perlindungan Anak

UPTB. BKS, PP dan PA Indrapuri Pelaksanaan pendataan keluarga didasarkan

pada beberapa jenis data keluarga yakni:


4.9.1    Data demografi meliputi

      a. Jumlah kepala keluarga menurut status perkawinan, tingkat pendidikan,

         dan status pekerjaan;




                                         25
   b. Jumlah wanita usia subur (umur 15-49 th ) dalam keluarga;

   c. Jumlah jiwa dalam keluarga;

   d. Jumlah jiwa menurut jenis kelamin dalam keluarga serta menurut

        kelompok umur tertentu (bayi 0-<1 tahun, balita 1-<5 tahun, 5-6 tahun,

        7-15 tahun, 16-21 tahun, 22-59 tahun, dan 60 tahun ke atas);

   e. Jumlah bayi dan balita yang ikut posyandu dan yang tidak ikut posyandu;

   f. Jumlah anak usia sekolah yang bersekolah dan yang tidak bersekolah.

   g. Jumlah keluarga mendapat bantuan modal.


4.9.2   Data keluarga berencana meliputi

   a. Jumlah pasangan usia subur (PUS);

   b. Jumlah PUS yang menjadi peserta KB menurut jalur pelayanan

        (pemerintah dan swasta);

   c. Jumlah peserta KB yang implantnya dicabut tahun ini;

   d. Jumlah PUS yang sedang tidak menggunakan alat/cara kontrasepsi (hamil,

        ingin anak segera, ingin anak ditunda, dan tidak ingin anak lagi).


4.9.3   Data tahapan keluarga sejahtera meliputi

   a. Jumlah keluarga prasejahtera;

   b. Jumlah keluarga sejehtera I;

   c. Jumlah keluarga sejahtera II;

   d. Jumlah keluarga sejahtera III;

   e. Jumlah keluarga sejahtera III +.




                                         26
4.9.4   Data individu meliputi

   a. Nomor induk penduduk;

   b. Nama;

   c. Alamat;

   d. Hubungan dengan kepala keluarga;

   e. Jenis kelamin;

   f. Tanggal, bulan dan tahun kelahiran;

   g. Pendidikan terakhir;

   h. Pekerjaan;

   i. Perubahan (mutasi).



4.10    Manfaat Pendataan Keluarga Berencana


                Data yang dikumpulkan melalui Pendataan Keluarga terutama

bermanfaat untuk :


   1) Penentuan sasaran yang lebih tajam berdasarkan kondisi, potensi dan

        kebutuhan aktual dari masing-masing keluarga yang ada di setiap

        tingkatan wilayah.

   2) Pembuatan peta keluarga berdasarkan tingkat kesertaan KB, dan tingkat

        pencapaian tahapan Keluarga Sejahtera tiap keluarga di suatu wilayah

        tertentu.

   3) Penentuan bentuk program dukungan yang sesuai untuk setiap keluarga

        dan setiap wilayah tertentu di dalam Pembangunan Keluarga Sejahtera.



                                       27
   4) Sarana motivasi untuk mendorong setiap keluarga meningkatkan tahap

       kesejahteraannya serta sekaligus untuk merangsang kepedulian keluarga -

       keluarga yang sudah lebih mampu untuk bersama-sama mengangkat

       tingkat kesejahteraan keluarga-keluarga yang kurang mampu yang ada di

       lingkungannya.

   5) Kepentingan program pembangunan sektor-sektor lain, salah satu di

       antaranya   yang   sangat   penting   adalah   untuk   program-program

       pengentasan masyarakat dari kemiskinan atau dari ketertinggalannya

       dalam berbagai aspek kehidupan.



4.11   Pemrograman Pendataan Keluarga Berencana dengan menggunakan

       Program Visual Basic.


4.11.1 Form Pengisian Password




                          Gambar 4.1 Form Password

Private Sub Command1_Click()

If Text1.Text <> "" And Text2.Text = "miswar" Then


                                      28
Me.Hide

Form2.Show

Else

MsgBox "Password anda salah", vbInformation, "Peringatan"

End If

End Sub



Private Sub Command2_Click()

End

End Sub



Private Sub Form_Activate()

Vibrate Me, 20, 1000

End Sub



Private Sub Pause(ms)

Dim secs

Dim g

secs = ms / 1000

g = Timer

Do While Timer - g < secs

DoEvents

Loop

End Sub




                                     29
Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)

Dim Lft As Long, Tp As Long

Dim i

Lft = frm.Left

Tp = frm.Top

For i = 1 To Times

frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height

Pause 20

frm.Move Lft, Tp + rScale, frm.Width, frm.Height

Next i

End Sub



4.11.2 Form Menu Utama




                 Gambar 4.2 Form Tampilan Utama / Menu Utama

    Private Sub mnucetak_Click()
    Me.Hide
    Form5.Show
    End Sub


                                      30
   Private Sub mnuinput_Click()
   Me.Hide
   Form3.Show
   End Sub

   Private Sub mnupencarian_Click()
   Me.Hide
   Form4.Show
   End Sub


4.11.3 Form Input Data




               Gambar 4.3 Tampilan Menu Entry Data Peserta




   Private Sub Command1_Click()
   Adodc1.Recordset.AddNew
   Text1.SetFocus


                                      31
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
Text7.Locked = True
Text8.Locked = True
End Sub

Private Sub Command3_Click()
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Form_Activate()
Form3.Adodc1.Refresh
End Sub

Private Sub Form_Load()
Dim lokasi As String
With Form3.Adodc1
On Error Resume Next
If Right(App.Path, 1) = "\" Then


                                   32
   lokasi = Left(App.Path, Len(App.Path) - 1)
   Else
   lokasi = App.Path
   End If
   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
   lokasi & "\BKKBN.mdb;Persist Security Info=False"
   .RecordSource = "select*from peserta"
   Text1.DataField = "nomor"
   Text2.DataField = "nama_peserta"
   Text3.DataField = "umur"
   Text4.DataField = "nama_suami"
   Text5.DataField = "alamat"
   Text6.DataField = "jenis_alkon"
   Text7.DataField = "jumlah_anak"
   Text8.DataField = "keterangan"
   End With
   End Sub


4.11.4 Form Pencarian Data




           Gambar 4.4 Tampilan Menu Pencarian Record Peserta




   Private Sub Command1_Click()
   Text1.Text ""



                                   33
Text2.Text ""
Text3.Text ""
End Sub


Private Sub Form_Activate()
Form4.Adodc1.Refresh
Form4.DataGrid1.Refresh
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim lokasi As String
With Form4.Adodc1
On Error Resume Next
If Right(App.Path, 1) = "\" Then
lokasi = Left(App.Path, Len(App.Path) - 1)
Else
lokasi = App.Path
End If
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
lokasi & "\BKKBN.mdb;Persist Security Info=False"
.RecordSource = "select*from peserta"
End With
End Sub

Private Sub Text2_Change()
On Error Resume Next
With Form4.Adodc1
.RecordSource = "select*from peserta where nama like '%" &
Form4.Text2.Text & "%'"
.Refresh
End Sub

Private Sub Text3_Change()
On Error Resume Next
With Form4.Adodc1

.RecordSource = "select*from peserta where jenis_alkon like '%" &
Form4.Text1.Text & "%'"

.Refresh
End Sub




                                  34
4.11.5 Form Cetak Data




               Gambar 4.5 Tampilan Menu Print Data Peserta



   Private Sub Command1_Click()
   If Option1.Value = True Then
     DataReport1.Show
     DataReport1.Refresh
     DataReport1.WindowState = 2
   ElseIf Option2.Value = True Then
     DataReport2.Refresh

   End If
   End Sub


4.11.4 Hasil Cetak




               Gambar 4.6 Tampilan Hasil Cetak Data Peserta



                                      35
36

				
DOCUMENT INFO
Shared By:
Categories:
Tags: amiki
Stats:
views:29
posted:7/29/2012
language:Malay
pages:16