Etika dan Proffesionalisme TSI

Pengertian Etika dan Profesionalisme dalam TSI

Etika

Etika berasal dari bahasa Yunani, yaitu ethos yang berarti watak kesusilaan atau adat kebiasaan (custom). Etika adalah nilai-nilai, dan asas-asas moral yang dipakai sebagai pegangan umum bagi penentuan baik buruknya perilaku manusia atau benar salahnya tindakan manusia sebagai manusia (Soleh Soemirat, 2005:169). Etika mengacu pada sistem nilai dengan apa orang menentukan apa yang benar dan apa yang tidak benar, yang adil dan tidak adil, yang jujur dan tidak jujur. Etika terungkap dari perilaku moral dalam situasi tertentu. Peran etika dalam kehidupan pribadi dan praktisi sendiri juga sama pentingnya. Jadi dapat dikatakan etika adalah aturan perilaku, adat kebiasaan manusia dalam pergaulan antara sesamanya dan menegaskan mana yang benar dan mana yang buruk.

Profesi

Istilah profesi telah dimengerti oleh banyak orang bahwa suatu hal yang berkaitan dengan bidang tertentu atau jenis pekerjaan (occupation) yang sangat dipengaruhi oleh pendidikan dan keahlian, sehingga banyak orang yang bekerja tetapi belum tentu dikatakan memiliki profesi yang sesuai. Tetapi dengan keahlian saja yang diperoleh dari pendidikan kejuruan, juga belum cukup untuk menyatakan suatu pekerjaan dapat disebut profesi. Tetapi perlu penguasaan teori sistematis yang mendasari praktek pelaksaan, dan penguasaan teknik intelektual yang merupakan hubungan antara teori dan penerapan dalam praktek.

Profesionalisme

Berasal dan kata profesional yang mempunyai makna yaitu berhubungan dengan profesi dan memerlukan kepandaian khusus untuk menjalankannya, (KBBI, 1994). Sedangkan profesionalisme adalah tingkah laku, keahlian atau kualitas dan seseorang yang professional (Longman, 1987). Kode etik adalah sistem norma, nilai dan aturan profesional tertulis yang secara tegas menyatakan apa yang benar dan baik, dan apa yang tidak benar dan tidak baik bagi profesional. Kode etik menyatakan perbuatan apa yang benar atau salah, perbuatan apa yang harus dilakukan dan apa yang harus dihindari. Tujuan kode etik agar profesional memberikan jasa sebaik-baiknya kepada pemakai atau nasabahnya. Adanya kode etik akan melindungi perbuatan yang tidak profesional.

Sifat dan orientasi kode etik hendaknya:

1. Singkat;
2. Sederhana;
3. Jelas dan Konsisten;
4. Masuk Akal;
5. Dapat Diterima;
6. Praktis dan Dapat Dilaksanakan;
7. Komprehensif dan Lengkap, dan
8. Positif dalam Formulasinya.

Adapun beberapa aturan tertulis tentang etika dalam penggunaan Teknologi Sistem Informasi:

Aturan mengenai Etika:

1. Anda tidak boleh menggunakan komputer untuk menyakiti orang lain.
2. Anda tidak boleh mengganggu pekerjaan komputer orang lain.
3. Anda tidak boleh mengendus-endus berkas-berkas orang lain.
4. Anda tidak boleh menggunakan komputer untuk mencuri.
5. Anda tidak boleh menggunakan komputer untuk membuat kesaksian palsu.
6. Anda tidak boleh menggunakan atau menyalin perangkat lunak komersial yang anda tidak beli.
7. Anda tidak boleh menggunaan sumberdaya komputer orang lain tanpa otorisasi.
8. Anda tidak boleh menyediakan hasil intelektual dari orang lain.
9. Anda harus memikirkan konsekuensi-konsekuensi sosial dari program yang anda buat.
10. Anda harus menggunakan komputer dengan cara-cara yang menunjukkan konsiderasi dan kehormatan.

Mengapa Menggunakan TSI

Dalam era kini, informasi dipandang sebagai aset atau sumber yang setara dengan sumber-sumber berharga lain dan juga mempunyai kekhususan persoalan dan pengelolaannya, sehingga diperlukan suatu manajemen khusus yaitu sistem manajemen informasi dengan pengelolanya yang khusus yaitu manajer informasi. Teknologi Informasi mempunyai pengaruh yang besar dalam kehidupan manusia.

Banyaknya aplikasi dan peningkatan penggunaan TI telah menimbulkan berbagai isu etika, yang dapat dikategorikan dalam empat jenis :
Privasi : rahasia pribadi yang sering disalahgunakan orang lain dengan memonitor e-mail, memeriksa komputer orang lain, memonitor perilaku kerja (kamera tersembunyi). Pengumpulan, penyimpanan, dan penyebaran informasi mengenai berbagai individu/pelanggan dan menjualnya kepada pihak lain untuk tujuan komersial. Privasi informasi adalah hak untuk menentukan kapan, dan sejauh mana informasi mengenai diri sendiri dapat dikomunikasikan kepada pihak lain. Hak ini berlaku untuk individu, kelompok, dan institusi.

Akurasi : autentikasi, kebenaran, dan akurasi informasi yang dikumpulkan serta diproses. Siapa yang bertanggung jawab atas berbagai kesalahan dalam informasi dan kompensasi apa yang seharusnya diberikan kepada pihak yang dirugikan?
Properti : kepemilikan dan nilai informasi (hak cipta intelektual). Hak cipta intelektual yang paling umum berkaitan dengan TI adalah perangkat lunak. Penggandaan/pembajakan perangkat lunak adalah pelanggaran hak cipta dan merupakan masalah besar bagi para vendor, termasuk juga karya intelektual lainnya seperti musik dan film.
Aksesibilitas : hak untuk mengakses infomasi dan pembayaran biaya untuk mengaksesnya. Hal ini juga menyangkut masalah keamanan sistem dan informasi.

Hal-hal inilah yang kemudian menimbulkan kesadaran bahwa penting unuk ditetapkan dan diterapkan suatu standar etika dalam bidang TI
Kapan Menggunakan TSI

TSI dapat digunakan kapan saja ketika berhubungan dengan komputer atau perangkat lainnya yang dapat memproses atau memberikan informasi. Khususnya pada bidang yang memerlukan dan memproses informasi secara terus-menerus seperti bidang perbankan dimana penggunaan TSI yang terbaru dapat mengalahkan saingan-saingannya karena pemrosesan informasi yang lebih cepat, akurat, dan efisien.

Siapa Saja yang Menggunakan TSI

TSI dapat digunakan oleh siapa saja yang menggunakan perangkat yang menghasilkan, memproses, atau menampilkan informasi baik itu komputer, tablet, maupun telepon seluler. Penggunanya pun tidak terbatas kepada pengguna yang mengerti dan memahami teknologi hingga mendalam, sehingga etika dan profesianalisme dalam menggunakan TSI pun penting untuk dipelajari oleh pengguna baik yang sudah mahir maupun yang masih awam. Karena penting sekali untuk menghormati sesama pengguna TSI dan tidak mengganggu para pengguna TSI yang lainnya dalam beraktifitas.

http://kamilfiki.blogspot.com/2011/04/etika-dan-profesionalisme-tsi.html
http://uni-ziyah.blogspot.com/2011/03/etika-profesional-tsi-tugas-1_01.html
http://fendy-studentsite.blogspot.com/2012/03/pemahaman-konsep-etika-dan.html
http://math.web.ugm.ac.id/matematika/etika_profesi/standarisasi_dan_sertifikasi.pdf
http://lutvianty.student.ung.ac.id/files/2011/06/BAB-10-IMPLIKASI-ETIS-DARI-TEKNOLOGI-INFORMASI.ppt
http://id.wikipedia.org/wiki/Etika
http://id.wikipedia.org/wiki/Moral

Shoubox migration to C-Box

From this point, this blog is using CBox instead of Shoutmix..
Thank you :D

Berbagai kata mutiara cinta

Langsung saja tanpa basa basi nih, dapet dari berbagai macam situs di web yang beredar di dunia maya..

_________________________________________________________________________________
Sayang engkau bukanlah yang terbaik untuku, begitu pula denganku aku bukan yang
terbaik untukmu. Engkau adalah wanita yang paling tepat untuk mendampingiku
menjadi yang terbaik.
_________________________________________________________________________________
Kita harus sedikit menyerupai satu sama lain
untuk mengerti satu sama lain
Tetapi kita harus sedikit berbeda
Untuk mencintai satu sama lain
_________________________________________________________________________________
Cinta yang belum matang berkata:
"Aku cinta kamu karena aku butuh kamu"
Cinta yang sudah matang berkata:
"Aku butuh kamu karena aku cinta kamu"
_________________________________________________________________________________
Jika kita mencintai seseorang
Berusahalan untuk tampil apa adanya
karena Cinta sejati selalu dapat
Menerima Kelebihan dan Kekurangan
_________________________________________________________________________________
Bahagialah bagi orang yang mengerti akan arti cinta,
Karena Cinta itu akan memberikan warna bagi kehidupannya
_________________________________________________________________________________
Cinta yang teramat besar kadang dapat membuat kita
tak bisa mencintai lagi
_________________________________________________________________________________
Setetes kebencian di dalam hati
Pasti akan membuahkan penderitaan
Tapi setetes cinta di dalam relung hati
akan membuahkan kebahagiaan sejati
_________________________________________________________________________________
Kalahkan Kemarahan dengan Cinta Kasih
Kalahkan Kejahatan dengan Kebajikan
Kalahkan kekikiran dengan Kemurahan Hati
Kalahkan Kesombongan dengan Kejujuran
_________________________________________________________________________________
Nafsu hanya akan memberikan kebahagiaan sesaat
tapi cinta yang tulus dan sejati akan memberikan
kebahagiaan selamanya
_________________________________________________________________________________
Luruhnya hati bukanlah suatu dosa, Maka Jangan Pernah
Takut untuk Jatuh Cinta
_________________________________________________________________________________
Cinta Tak Harus Saling Memiliki
Kadang Kala Mereka Harus Melepaskan Cinta Tersebut
Karena Cinta yang Sejati Selalu Ingin Membahagiakan
Orang Yang dicintai
_________________________________________________________________________________
Cinta itu seperti art yg indah dan agung,
berbahagialah yg pernah mendapatkannya meskipun tidak abadi
_________________________________________________________________________________
Cinta tidak membuat dunia berputar
Cinta inilah yang membuat perjalanan tersebut berharga
_________________________________________________________________________________
Cinta tidak berupa tatapan satu sama lain,
tetapi memandang ke luar bersama ke arah yang sama.
_________________________________________________________________________________
Bel bukanlah bel sebelum engkau membunyikannya
Lagu bukanlah lagu sebelum engkau menyanyikannya
Cinta di dalam hatimu tidak diletakkan untuk tinggal di sana
_________________________________________________________________________________
Cinta bukanlah cinta sebelum engkau memberikannya
Nafsu adalah emosi
Cinta adalah pilihan
Cara untuk mencintai sesuatu adalah dengan menyadari
Bahwa sesuatu itu mungkin hilang
_________________________________________________________________________________
Cinta adalah kunci induk yang membuka Gerbang kebahagiaan
Kekasih yang bijaksana tidak menghargai hadiah dari kekasihnya
Sebesar cinta dari si pemberi
_________________________________________________________________________________
Jika anda ingin dicinta, mencintalah
dan jadilah orang yang pantas dicinta
_________________________________________________________________________________
Di antara mereka yang saya sukai atau kagumi,
saya tidak dapat menemukan suatu kesamaan
Tetapi di antara mereka yang saya kasihi,
saya dapat menemukannya: mereka semua membuat saya tertawa
_________________________________________________________________________________
Persahabatan sering berakhir dengan cinta
Tetapi cinta kadang berakhir BUKAN dengan persahabatan
_________________________________________________________________________________
Kita harus sedikit menyerupai satu sama lain
untuk mengerti satu sama lain
Tetapi kita harus sedikit berbeda
Untuk mencintai satu sama lain
_________________________________________________________________________________
Cinta yang belum matang berkata:
"Aku cinta kamu karena aku butuh kamu"
Cinta yang sudah matang berkata:
"Aku butuh kamu karena aku cinta kamu"
_________________________________________________________________________________
Cinta memasukkan kesenangan dalam kebersamaan
kesedihan dalam perpisahan harapan pada hari esok kegembiraan di dalam hati
_________________________________________________________________________________
Siapa pun yang mempunyai hati penuh cinta selalu mempunyai sesuatu untuk diberikan
Cinta sejati dimulai ketika tidak sesuatu pun diharapkan sebagai balasan
_________________________________________________________________________________
Segera sesudah kita belajar mencinta
Kita akan belajar untuk hidup
_________________________________________________________________________________
Cinta...
Jika anda memilikinya, anda tidak memerlukan sesuatu pun yang lain
Dan jika anda tidak memilikinya,apa pun yang lain yang anda miliki tidak banyak berarti
_________________________________________________________________________________
Cinta tidak dapat dipaksakan
Cinta tidak dapat dibujuk dan digoda
Cinta muncul dari Surga tanpa topeng dan tanpa dicari
_________________________________________________________________________________
Cobalah bernalar tentang cinta dan engkau pun
akan kehilangan nalarmu
terakhir kata pak patkai
"beginilah cinta, penderitaan tiada berakhir"
_________________________________________________________________________________
Love is about you not me
love is about give not ask
love is about happy never be sorrow
________________________________________________________________________________
If you feel lonely be believe
i with you always
_________________________________________________________________________________
Kita lahir hanya dengan 1 hati jauh di dalam diri kita. Mengingatkan kita pada
penghargaan dan pemberian cinta diharapkan berasal dari hati kita yang paling
dalam. Belajar untuk mencintai dan menikmati betapa kita dicintai tapi jangan
pernah mengharapkan orang lain untuk mencintai kita seperti kita mencintai dia.
_________________________________________________________________________________
Cinta datang kepada orang yang masih mempunyai harapan, walaupun mereka telah
dikecewakan. Kepada mereka yang masih percaya, walaupun mereka telah dikhianati.
Kepada mereka yang masih ingin mencintai, walaupun mereka telah disakiti
sebelumnya dan Kepada mereka yang mempunyai keberanian dan keyakinan untuk
membangunkan kembali kepercayaan.

_________________________________________________________________________________
Ada juga nih yang pake bahasa inggris:
_________________________________________________________________________________
I'm scared to fall in love, scared to fall fast,
because every time I fall in love... it never seems to last.
_________________________________________________________________________________
I'm so sad when you're gone. Come back soon. Miss you!
_________________________________________________________________________________
In my dreams and in our love for 1 another there are no impossibilities.
_________________________________________________________________________________
Love is like quicksand - the deeper you fall in it the harder it is to get out.
_________________________________________________________________________________
You're just my cup of tea.
_________________________________________________________________________________
Love is like the truth, sometimes it prevails, sometimes it hurts.
_________________________________________________________________________________
Love is not something you feel. It's something you do.
_________________________________________________________________________________
Meeting you was fate, becoming your friend was choice,
but falling in love with you was completely out of my control.
_________________________________________________________________________________
My girlfriend told me,
I should be more Affectionate,
so i got two Girlfriends.
_________________________________________________________________________________
My heart is breaking since you went away
_________________________________________________________________________________
My love belongs to you.
_________________________________________________________________________________
My love is ever in your service.
_________________________________________________________________________________
One good thing about internet dating:
you're guaranteed to click with whomever you meet.
_________________________________________________________________________________
One word frees us of all the weight and pain of life: that word is love.
_________________________________________________________________________________
To feel love gives pleasure to one; to express it gives pleasure to two.
_________________________________________________________________________________
To the world you might be one person, but to one person you might be the world
_________________________________________________________________________________
True love is like ghosts, which everybody talks about and few have seen.
_________________________________________________________________________________
True love never lives happily ever after - true love has no ending.
_________________________________________________________________________________
Trust, Love & Keep Moving (Growing)
_________________________________________________________________________________
I don’t need anyone to
take advantage of my
weaknesses or my strengths,
I need someone
who will appreciate me
for everything that I am.
_________________________________________________________________________________
“Missing you is my hobby,
caring for you is my job,
making you happy is my duty,
and loving you is my life.”

“Merindukanmu adalah hobiku,
merawatmu adalah pekerjaanku,
membuatmu bahagia adalah tugasku,
dan mencintaimu adalah hidupku”
_________________________________________________________________________________
“Woman was created from the rib of man
Not from his head to be above him
Nor his feet to be walked upon
But from his side to be equal
Near his arm to be protected
And close to his heart to be loved”
-Dale S. Hadley
_________________________________________________________________________________
“Dari pria Tuhan membentuk wanita
Bukan dari tulang kaki untuk diinjak-injak.

Bukan pula dari tulang kepala untuk memimpin.
Tetapi dari tulang rusuk.

Dekat dengan hati untuk dikasihi dan dalam rengkuhan tangan untuk di peluk.”
_________________________________________________________________________________

“It takes three seconds to say I love you.
Three hours to explain it and a lifetime to prove it.” – Anonymous
_________________________________________________________________________________
Butuh tiga detik untuk mengatakan aku cinta kamu.
Tiga jam untuk menjelaskannya dan seumur hidup untuk membuktikannya.
_________________________________________________________________________________
“I have a pair of eyes, but can’t always see you.
I have a pair of hands, but can’t always protect you.
But I have a heart, that always prays for you” –
Quote by L Square
_________________________________________________________________________________
“aku memiliki sepasang mata, tp tdk dapat selalu melihatmu.
aku memiliki sepasang tangan, tp tdk dapat selalu melindungimu.
tapi aku memiliki sebuah hati, yang selalu berdoa untukmu”

_________________________________________________________________________________
Banyak orang bilang kalo kamu jadi bunga,
mereka ingin jadi kumbang,
tapi aku ga ingin itu,
aku tetap ingin jadi manusia,
agar bisa menikmati indahmu tanpa mengambil madu-mu,
agar aku bisa merawatmu dengan siraman air cinta di setiap pagi.

_________________________________________________________________________________
Perjuanganku seperti Mario Bros,
harus bantai naga dan monster kura2 buat dapet Tuan Putri.
_________________________________________________________________________________
Tau Gak?! BMG : Badan Meteorologi Geofisika,
berubah nama jadi OMG setelah ngeliat paras secerah kamu.
_________________________________________________________________________________
Kalo kamu jadi senar gitar,
aku ga mau jadi gitaris ah,
abis aku ga mau mutusin kamu.
_________________________________________________________________________________
Kalo aku jadi gubernur BI,
aku bakal bikin uang yang ada foto kita berdua.
_________________________________________________________________________________
Nama kamu ga mungkin jadi jawaban quiz,
kecuali pertanyaannya “siapa wanita yang paling cantik?
_________________________________________________________________________________
Cintaku ke kamu cuman 1%, yang 99% cinta bangettt!!
_________________________________________________________________________________
Wasit sepakbola punya kartu kuning dan merah,
tapi aku punya kartu akses menuju hatimu.
_________________________________________________________________________________
Kamu itu kaya hansaplast ya,
selalu menutupi luka hatiku.
_________________________________________________________________________________
Yang kamu liat di kulkas,bukan hati sapi,
itu hatiku beku karena ditinggal kamu..
_________________________________________________________________________________
Tinta apa yang gak bisa ilang? Tinta-tu padamu.
_________________________________________________________________________________
Waktu petugas sensus ke rumahku, dia cuma menghitung4 org di keluargaku.
dia gak tau kalo sebenernya ada kamu di hatiku (jadi ada 5 deh).
_________________________________________________________________________________
Bukan titik yang menyebabkan tinta,
tapi tinta yang menyebabkan titik..
_________________________________________________________________________________
Bukan karena kamu cantik yg menyebabkan aku cinta,
tapi karena aku cinta, kamu terlihat cantik.
_________________________________________________________________________________
Gapapa deh kita beda kartu GSM,
asal nantinya nama kita ada di KARTU Keluarga yang sama.
_________________________________________________________________________________
orang yang menciptakan huruf abjad ini memang hebat
tapi dia melakukan kesalahan yang sangat besar,yaitu meletakkan I & U.
_________________________________________________________________________________
Senyuman kamu kaya server twitter,
makin liat senyum kamu makin bikin cinta aku over-capacity.
_________________________________________________________________________________
Maaf permisi,
saya warga baru ingin tinggal di hatimu lebih dari 1 x 24 jam,
perlu lapor RT/ KUA langsung ya?
_________________________________________________________________________________
Ikan hiu makan permen.
I miss you, man
_________________________________________________________________________________
Sunset di sini bagus, lho.
Tapi gag seindah kalau kamu ada di sini bersamaku
_________________________________________________________________________________
Pagi yang cerah!
Tapi hatiku gag ikut-ikutan cerah.
Habis gag ada kamu, sih
_________________________________________________________________________________
Aku yakin lho udah packing semua barang yang aku perluin.
Tapi ternyata, I miss one thing. And it’s you!
_________________________________________________________________________________
GaG tau kenapa hari ini aku ngeliat semua orang mirip sama kamu
_________________________________________________________________________________
Aku di sini, kau di sana. Kau gag ada, aku meranaa
_________________________________________________________________________________
Mau tau hobi baruku selama liburan ini? Ngangenin kamu
_________________________________________________________________________________
Jaka sembung naik ojek. Gue kangen elo, jack!
_________________________________________________________________________________
Ibu tiri makan duku. Aku pergi dan rindu kamu
_________________________________________________________________________________
Burung nuri, burung tekukur. I miss you honey, selamat tidur

Program Sederhana DSS dengan VB6

Program DSS adalah program yang membantu anda untuk membantu anda untuk menentukan sebuah keputusan, berikut ini adalah contoh program DSS sederhana untuk menentukan Imunisasi apa yang bisa diberikan untuk anak kita.

Berikut ini adalah tampilah saat membuat di VB6:

 

dan saat program dijalankan akan menjadi seperti ini:

Adapun kode nya adalah sebagai berikut:

Private Sub isi_bulan()
CmbUmur.AddItem "00"
CmbUmur.AddItem "01"
CmbUmur.AddItem "02"
CmbUmur.AddItem "03"
CmbUmur.AddItem "04"
CmbUmur.AddItem "05"
CmbUmur.AddItem "06"
CmbUmur.AddItem "07"
CmbUmur.AddItem "08"
CmbUmur.AddItem "09"
CmbUmur.AddItem "10"
CmbUmur.AddItem "11"
CmbUmur.AddItem "12"
CmbUmur.AddItem "13"
CmbUmur.AddItem "14"
CmbUmur.AddItem "15"
CmbUmur.AddItem "16"
CmbUmur.AddItem "17"
CmbUmur.AddItem "18"
CmbUmur.AddItem "19"
CmbUmur.AddItem "20"
CmbUmur.AddItem "21"
CmbUmur.AddItem "22"
CmbUmur.AddItem "23"
CmbUmur.AddItem "24"
End Sub
Private Sub isi_tahun()
CmbUmur.AddItem "03"
CmbUmur.AddItem "04"
CmbUmur.AddItem "05"
CmbUmur.AddItem "06"
CmbUmur.AddItem "07"
CmbUmur.AddItem "08"
CmbUmur.AddItem "09"
CmbUmur.AddItem "10"
CmbUmur.AddItem "11"
CmbUmur.AddItem "12"
End Sub
Private Sub isi_umur()
Combo2.AddItem "Bulan"
Combo2.AddItem "Tahun"
End Sub
Private Sub Form_Load()
Form1.Height = "3000"
CmbUmur.Enabled = False
Label2.Caption = "" _
& vbCrLf & "Imunisasi  adalah  suatu  cara  untuk  meningkatkan  kekebalan tubuh" _
& vbCrLf & "secara aktif terhadap suatu penyakit, sehingga bila kelak ia terkena" _
& vbCrLf & "penyakit tersebut, maka dampaknya akan sedikit"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call MsgBox("" _
    & vbCrLf & "tingkatkan kesadaran imunisasi masyarakat Indonesia", vbOKOnly, "Terimakasih")
End Sub
Private Sub OptBulan_Click()
CmbUmur.Enabled = True
CmbUmur.Clear
isi_bulan
Label1.Caption = "Bulan"
End Sub
Private Sub OptTahun_Click()
CmbUmur.Enabled = True
CmbUmur.Clear
isi_tahun
Label1.Caption = "Tahun"
End Sub
Private Sub vbButton1_Click()
If OptBulan.Value = False And OptTahun.Value = False Then
MsgBox "anda melum memilih umur anak anda"
Exit Sub
End If
If CmbUmur = "" Then
MsgBox "Anda belum memilih umur anak anda"
Exit Sub
End If
If Not IsNumeric(CmbUmur) Then
MsgBox "Umur anak salah"
Exit Sub
End If
If OptBulan = True And CmbUmur < 0 Then
    Call MsgBox("Umur tidak boleh kurang dari nol")
    Exit Sub
ElseIf OptBulan = True And CmbUmur > 24 Then
    Call MsgBox("Nilai maksimum dalam Bulan adalah 24")
    Exit Sub
ElseIf OptTahun = True And CmbUmur < 0 Then
    Call MsgBox("Umur tidak boleh kurang dari nol")
    Exit Sub
ElseIf OptTahun = True And CmbUmur > 18 Then
    Call MsgBox("Umur anak anda melebihi kalender Imunisasi")
    Exit Sub
End If
Form1.Height = "4000"
Frame1.Enabled = False
Frame2.Enabled = False
vbButton1.Enabled = False
End Sub
Private Sub vbButton2_Click()
Form1.Height = "3000"
Frame1.Enabled = True
Frame2.Enabled = True
vbButton1.Enabled = True
End Sub
Private Sub vbButton3_Click()
If OptPanas = True Then
Call MsgBox("Maaf anak anda sedang dalam kondisi tidak layak imunisasi" _
    & vbCrLf & "akan membahayakan bila imunisasi tetap dilakukan", vbInformation, "Peringatan")
Exit Sub
End If
If OptBulan = True And CmbUmur = "00" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG" _
    & vbCrLf & "Imunisasi Hepatitis B (12 jam setelah lahir" _
    & vbCrLf & "Imunisasi Polio", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur = "00" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG (Jika sudah pernah maka tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Hepatitis B(Imunisasi kedua)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 2 And CmbUmur <= 3 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi BCG (Jika sudah pernah maka tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Polio(Imunisasi kedua)" _
    & vbCrLf & "Imunisasi DTP" _
    & vbCrLf & "Imunisasi pendukung Hib(Hemophilus influenzae)" _
    & vbCrLf & "dan Pneumokokus (PCV).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 4 And CmbUmur <= 5 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio(Imunisasi ketiga)" _
    & vbCrLf & "Imunisasi DTP (Imunisasi kedua)" _
    & vbCrLf & "Imunisasi pendukung Hib (kedua)" _
    & vbCrLf & "Imunisasi Pneumokokus (kedua).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 6 And CmbUmur <= 8 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Hepatitis B (kedua)" _
    & vbCrLf & "Imunisasi Polio (Imunisasi keempat)" _
    & vbCrLf & "Imunisasi DTP (Imunisasi ketiga)" _
    & vbCrLf & "Imunisasi pendukung Hib (ketiga)" _
    & vbCrLf & "Imunisasi Pneumokokus (ketiga)" _
    & vbCrLf & "Imunisasi Influenza (selanjutnya diberikan setiap tahun)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur = "09" And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 12 And CmbUmur <= 15 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Hib (keempat)" _
    & vbCrLf & "Imunisasi Pneumokokus (keempat)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi pendukung Varisela (1x seumur hidup)" _
    & vbCrLf & "Imunisasi MMR(Bila sebelumnya belum mendapat Imunisasi Campak).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 16 And CmbUmur <= 18 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio (keempat)" _
    & vbCrLf & "Imunisasi DTP (keempat)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptBulan = True And CmbUmur >= 19 And CmbUmur <= 24 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Polio (kelima)" _
    & vbCrLf & "Imunisasi DTP (kelima)" _
    & vbCrLf & "Imunisasi Campak (kedua)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "    tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua bila sebelumnya pernah Imunisasi MMR" _
    & vbCrLf & "    Imunisasi Campak, MMR tidak perlu)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 3 And CmbUmur <= 5 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak (kedua" _
    & vbCrLf & "     bila bulan lalu sudah Imunisasi Campak, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 6 And CmbUmur <= 7 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Campak (kedua" _
    & vbCrLf & "     bila bulan lalu sudah Imunisasi Campak, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 8 And CmbUmur <= 9 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
ElseIf OptTahun = True And CmbUmur >= 10 And CmbUmur <= 18 And OptSehat = True Then
Call MsgBox("Imunisasi untuk anak anda" & vbCrLf _
    & vbCrLf & "Imunisasi Influenza (bila tahun ini sudah pernah imunisasi influenza," _
    & vbCrLf & "     tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Varisela (bila sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi MMR (kedua, bila sudah Imunisasi Campak" _
    & vbCrLf & "     dan sudah melakukan Imunisasi MMR, tidak perlu Imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi Tifoid (diulang setiap 3 tahun" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu Imunisasi Lanjutan)" _
    & vbCrLf & "Imunisasi Hepatitis A (dilakukan 2kali dengan interval 6-12 bulan" _
    & vbCrLf & "     bila sebelumnya sudah pernah, tidak perlu imunisasi lanjutan)" _
    & vbCrLf & "Imunisasi HPV (sebanyak 3 kali dengan jeda 1 tahun" _
    & vbCrLf & "     bila tahun ini sudah pernah, tidak perlu imunisasi lanjutan).", vbInformation, "Imunisasi")
End If
Form1.Height = "4500"
End Sub
Private Sub vbButton4_Click()
Unload Me
End Sub

Speech Recognition

Voice recognition dibagi menjadi dua jenis, yaitu speech recognition dan speaker recognition. Speech recognition adalah proses identifikasi suara berdasarkan kata yang diucapkan. Parameter yang dibandingkan ialah tingkat penekanan suara yang kemudian akan dicocokkan dengan template database yang tersedia. Sedangkan sistem pengenalan suara berdasarkan orang yang berbicara dinamakan speaker recognition. Pada makalah ini hanya akan dibahas mengenai speech recognition karena kompleksitas algoritma yang diimplementasikan lebih sederhana daripada speaker recognition.

Biometrik, termasuk di dalamnya speech recognition, secara umum digunakan untuk identifikasi dan verifikasi. Identifikasi ialah mengenali identitas seseorang, dilakukan perbandingan kecocokan antara data biometric seseorang dalam database berisi record karakter seseorang. Sedangkan verifikasi adalah menentukan apakah seseorang sesuai dengan apa yang dikatakan terhadap dirinya.

Biometric recognition merupakan sistem pengenalan atau identifikasi seseorang berdasarkan karakteristik biologis khusus yang dimiliki oleh orang tersebut. Fungsinya selain untuk sistem keamanan dengan mengenali identitas seseorang, juga untuk identifikasi penyakit yang diderita seseorang, keperluan militer, dan lain-lain. Aplikasi biometric recognition antara lain retinal scan (identifikasi berdasarkan pola pembuluh darah pada retina mata), fingerprint recognition (identifikasi pola sidik jari unik pada setiap orang), face recognition (pengenalan seseorang berdasarkan raut dan ekspresi seseorang dengan kunci utama pada letak mata dan mulut), dan voice recognition.

Sedangkan voice recognition sendiri dibagi menjadi dua jenis, yaitu speech recognition dan speaker recognition. Berbeda dengan speaker recognition yang merupakan pengenalan identitas yang diklaim oleh seseorang dari suaranya (siri khusus dapat berupa intonasi suara, tingkat kedalaman suara, dan sebagainya), speech recognition adalah proses yang dilakukan komputer untuk mengenali kata yang diucapkan oleh seseorang tanpa mempedulikan identitas orang terkait. Implementasi speech recognition misalnya perintah suara untuk menjalankan aplikasi komputer.

Algoritma FFT (Fast fourier transform) merupakan salah satu metode untuk transformasi sinyal suara menjadi sinyal frekuensi. Artinya proses perekaman suara disimpan dalam bentuk digital berupa gelombang spektrum suara berbasis frekuensi. Sedangkan algoritma implementasi algoritma divide and conquer terletak pada pembagian objek permasalahan (data digital) menjadi upa masalah yang diselesaikan secara rekursif dan kemudian menggabungkan solusi masing-masing upa masalah sehingga membentuk solusi masalah semula pada tahap akhir.

Terdapat 4 langkah utama dalam sistem pengenalan suara :
[1] Penerimaan data input
[2] Ekstraksi, yaitu penyimpanan data masukan sekaligus pembuatan database untuk template.
[3] Pembandingan / pencocokan, yaitu tahap pencocokan data baru dengan data suara (pencocokan tata bahasa) pada template.
[4] Validasi identitas pengguna..

Secara umum, speech recognizer memproses sinyal suara yang mask dan menyimpannya dalam bentuk digital. Hasil proses tersebut kemudian dikonversi dalam bentuk spektrum suara yang kemudian dianalisa dengan membandingkannya dengan template suara pada database sistem. Sebelumnya, data suara yang masuk akan dipisah dan diproses satu persatu berdasarkan waktu masuknya. Pemisahan ini dilakukan agar proses analisis suara dapat dilakukan secara paralel.

Proses yang pertama kali dilakukan adalah memproses gelombang spektrum suara ke dalam bentuk diskrit. Langkah selanjutnya adalah proses kalkulasi yang terdiri dari dua bagian, yaitu transformasi gelombang diskrit menjadi array data, toap elemen array data akan dihitung ketinggian gelombangnya (baik frekuensi ataupun amplitudonya).

Proses Divide and Conquer :
1. Memilih sebuah angka N, N adalah bilangan bulat kelipatan 2 yang berfungsi untuk menghitung jumlah elemen transformasi FFT.
2. Membagi dua data diskrit menjadi data diskrit yang lebih kecil berukuran N = N₁.N₂ .
3. Memasukkan objek data kedalam tabel.
4. Untuk setiap elemen data, dicocokkan dengan data pada template.
5. Setiap data array dianalisis secara keseluruhan.
6. Verifikasi datta.

Terdapat beberapa aplikasi yang dapat melakukan Speech Recognition diantaranya, Microsoft Voice, dan Microsoft Dictation, dan Microsoft Speech to Text, serta Microsoft Voice Recognition.

Microsoft Speech to Text dan Microsoft Dictation adalah aplikasi yang secara default ada di windows.

Kesimpulan.

Speech Recognition adalah suatu jenis Biometric Recognition, yaitu Proses komputer mengenali apa yang diucapkan seseorang berdasarkan intonasi suara yang dikonversi ke dalam digital print.

Pengenalan pola suara adalah salah satu aplikasi yang berkembang saat ini, sistem ini memungkinkan manusia berkomunikasi (memberikan instruksi) ke komputer.

Hambatan Speech Recognition.
Speech Recognition akan menjadi terhambat apabila :

1. Suara yang disimpan dalam template berubah, misal pada saat kalibrasi suara kita dalam kondisi fit, dan sekarang dalam kondisi hidung tersumbat, maka otomatis frekuensi suara yang diterima oleh komputer akan berbeda.

2. Kondisi lingkungan yang berbeda, misalkan saat kalibrasi suara dalam keadaan hening, dan saat eksekusi dalam kondisi berisik, maka data yang seharusnya mudah dikonversi menjadi data biner akan menjadi tercampur dengan suara - suara dari lingkungan.

Keuntungan Speech Recognition.

1. Mengurangi waktu untuk memberikan instruksi - instruksi umum, misal untuk menjalankan sebuah aplikasi dan sebagainya.

2. Dapat dijadikan sebagai Biometrik untuk keamanan, frekuensi yang berbeda dari setiap manusia dapat menjadikan voice recognition untuk memberikan instruksi True dan False dalam security.

Sumber Referensi :

http://agusza.its-sby.edu/kuliah/citra/bab4_detail.html
http://www.dspguru.com/info/faqs/fftfaq.htm
http://mathworld.wolfram.com/FastFourierTransform.html
http://en.wikipedia.org/wiki/Spectrum_analyzer
http://en.wikipedia.org/wiki/Speaker_recognition
http://www.relisoft.com/Science/Physics/fft.html
http://en.wikipedia.org/wiki/Speech_recognition