11.13.2009

Function

1. Private Function kunci(cek As Boolean)
kd_brg.Enabled = cek
nm_brg.Enabled = cek
Harsat.Enabled = cek
stuan.Enabled = cek
End Function

2. Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
On Error Resume Next
If MsgBox("Yakin data akan di hapus?", 20, "Hapus") = vbNo Then
Cancel = True
Else
Cancel = False
Response = ac.datacontinue
End If
3.Private Sub Form_Load()
kunci (False)
End Sub
4.Private Sub kd_brg_BeforeUpdate(Cancel As Integer)
On Error GoTo cari
Dim cekkode As String
cekkode = DLookup("[kd_brg]", "[barang]", "[kd_brg],'" & "'")
If Not IsNull(cekkode) Then
MsgBox "Kd_brg" + kd_brg + "Sudah ada", 64, "Informasi"
DoCmd.CancelEvent
kunci False
End If
cari:
Exit Sub
End Sub
5. Private Sub cmd_edit_Click()
kunci (True)
kd_brg.SetFocus
End Sub
6. Private Sub cmd_tambah_Click()
On Error GoTo Err_cmd_tambah_Click
Me.AllowAdditions = True
kunci True
DoCmd.GoToRecord , , acNewRec
kd_brg.SetFocus
Exit_cmd_tambah_Click:
Exit Sub
Err_cmd_tambah_Click:
MsgBox Err.Description
Resume Exit_cmd_tambah_Click
End Sub
7. Private Sub cmd_simpan_Click()
On Error GoTo Err_cmd_simpan_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowAdditions = False
kunci False
Exit_cmd_simpan_Click:
Exit Sub
Err_cmd_simpan_Click:
MsgBox Err.Description
Resume Exit_cmd_simpan_Click
End Sub
8. Private Sub cmd_batal_Click()
On Error GoTo Err_cmd_batal_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
kunci False
Exit_cmd_batal_Click:
Exit Sub
Err_cmd_batal_Click:
MsgBox Err.Description
Resume Exit_cmd_batal_Click
End Sub
9. Private Sub cmd_find_Click()
On Error GoTo Err_cmd_find_Click
kunci True
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_cmd_find_Click:
Exit Sub
Err_cmd_find_Click:
MsgBox Err.Description
Resume Exit_cmd_find_Click
End Sub
10. Private Sub cmd_kluar_Click()
On Error GoTo Err_cmd_kluar_Click
x = MsgBox("yakin mau keluar", vbQuestion + vbYesNo, "info")
If x = vbYes Then
DoCmd.Close
End If
Exit_cmd_kluar_Click:
Exit Sub
Err_cmd_kluar_Click:
MsgBox Err.Description
Resume Exit_cmd_kluar_Click
End Sub
1. Private Function kunci(cek As Boolean)
kd_brg.Enabled = cek
nm_brg.Enabled = cek
Harsat.Enabled = cek
stuan.Enabled = cek
End Function

2. Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
On Error Resume Next
If MsgBox("Yakin data akan di hapus?", 20, "Hapus") = vbNo Then
Cancel = True
Else
Cancel = False
Response = ac.datacontinue
End If
3.Private Sub Form_Load()
kunci (False)
End Sub
4.Private Sub kd_brg_BeforeUpdate(Cancel As Integer)
On Error GoTo cari
Dim cekkode As String
cekkode = DLookup("[kd_brg]", "[barang]", "[kd_brg],'" & "'")
If Not IsNull(cekkode) Then
MsgBox "Kd_brg" + kd_brg + "Sudah ada", 64, "Informasi"
DoCmd.CancelEvent
kunci False
End If
cari:
Exit Sub
End Sub
5. Private Sub cmd_edit_Click()
kunci (True)
kd_brg.SetFocus
End Sub
6. Private Sub cmd_tambah_Click()
On Error GoTo Err_cmd_tambah_Click
Me.AllowAdditions = True
kunci True
DoCmd.GoToRecord , , acNewRec
kd_brg.SetFocus
Exit_cmd_tambah_Click:
Exit Sub
Err_cmd_tambah_Click:
MsgBox Err.Description
Resume Exit_cmd_tambah_Click
End Sub
7. Private Sub cmd_simpan_Click()
On Error GoTo Err_cmd_simpan_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowAdditions = False
kunci False
Exit_cmd_simpan_Click:
Exit Sub
Err_cmd_simpan_Click:
MsgBox Err.Description
Resume Exit_cmd_simpan_Click
End Sub
8. Private Sub cmd_batal_Click()
On Error GoTo Err_cmd_batal_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
kunci False
Exit_cmd_batal_Click:
Exit Sub
Err_cmd_batal_Click:
MsgBox Err.Description
Resume Exit_cmd_batal_Click
End Sub
9. Private Sub cmd_find_Click()
On Error GoTo Err_cmd_find_Click
kunci True
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_cmd_find_Click:
Exit Sub
Err_cmd_find_Click:
MsgBox Err.Description
Resume Exit_cmd_find_Click
End Sub
10. Private Sub cmd_kluar_Click()
On Error GoTo Err_cmd_kluar_Click
x = MsgBox("yakin mau keluar", vbQuestion + vbYesNo, "info")
If x = vbYes Then
DoCmd.Close
End If
Exit_cmd_kluar_Click:
Exit Sub
Err_cmd_kluar_Click:
MsgBox Err.Description
Resume Exit_cmd_kluar_Click
End Sub

FIRST,NEXT,PREVIOUS,LAST

Private Sub cmd_first_Click()
On Error GoTo Err_cmd_first_Click
DoCmd.GoToRecord , , acFirst
MsgBox "Sudah Mentok", 64, "Bahaya"
Exit_cmd_first_Click:
Exit Sub
Err_cmd_first_Click:
Resume Exit_cmd_first_Click
End Sub

Private Sub cmd_prev_Click()
On Error GoTo Err_cmd_prev_Click
DoCmd.GoToRecord , , acPrevious
Exit_cmd_prev_Click:
Exit Sub
Err_cmd_prev_Click:
MsgBox "Sudah Mentok", 64, "Bahaya"
Resume Exit_cmd_prev_Click
End Sub
Private Sub cmd_next_Click()
On Error GoTo Err_cmd_next_Click
Me.AllowAdditions = False
DoCmd.GoToRecord , , acNext
Exit_cmd_next_Click:
Exit Sub
Err_cmd_next_Click:
MsgBox "Sudah Mentok", 64, "Bahaya"
Resume Exit_cmd_next_Click
End Sub
Private Sub cmd_last_Click()
On Error GoTo Err_cmd_last_Click
DoCmd.GoToRecord , , acLast
MsgBox "Sudah Mentok", 64, "Bahaya"
Exit_cmd_last_Click:
Exit Sub
Err_cmd_last_Click:Resume Exit_cmd_last_Click
End Sub

11.10.2009

THE USED - BLUE AND YELLOW

and it's all in how you mix the two
and it starts just where the light exists
it's a feeling that you cannot miss
and it burns a hole through everyone that feels it

well you're never gonna find it
if you're looking for it
won't come your way
well you'll never find it
if you're looking for it

should've done something but I've done it enough
by the way your hands were shaking
rather waste some time with you

and you never would have thought in the end
how amazing it feels just to live again
it's a feeling that you cannot miss
it burns a hole through everyone that feels it

well you're never gonna find it
if you're looking for it
won't come your way
well you'll never find it
if you're looking for it

should've done something but I've done it enough
by the way your hands were shaking
rather waste some time with you

should've said something but I've said it enough
by the way my words were faded
rather waste some time with you

should've done something but I've done it enough
by the way your hands were shaking
rather waste my time with you

should've said something but I've said it enough
by the way my words were faded
rather waste my time with you

should've done something but I've done it enough
by the way your hands were shaking
rather waste some time with you

waste some time with you...

Rocket Rockers - Hilang Ingatan

Menghilanglah dari kehidupanku
Enyahlah dari hati yang t'lah hancur
Kehadiran sosokmu kan menyiksaku
Biarkan disini ku menyendiri

Pergilah bersamanya disana
Dengan dia yang ada segalanya
Bersenang-senanglah sepuasnya
Biarkan disini ku menyendiri

Terlintas keinginan tuk dapat
Hilang ingatan agar semua terlupakan
Dan ku berlari sekencang-kencangnya
Tuk melupakanmu yang tlah berpaling ( Yang tlah berpaling )

Disini....Kembali....
Kau hadirkan ingatan yang seharusnya kulupakan
Dan ku hancurkan adanya
Disini....Kembali....
Kau hadirkan ingatan yang seharusnya kulupakan
Dan ku hancurkan adanya

Letih disini....
Ku ingin hilang ingatan....
Letih disini....
Ku ingin hilang ingatan....
Letih disini....
Ku ingin hilang ingatan....
Letih disini....
Ku ingin hilang ingatan....

Disini....Kembali....
Kau hadirkan ingatan yang seharusnya kulupakan
Dan ku hancurkan adanya
Disini....Kembali....
Kau hadirkan ingatan yang seharusnya kulupakan
Dan ku hancurkan adanya

Pergilah bersamanya disana
Dengan dia yang ada segalanya

Pee Wee Gaskins - Welcome To The Sophomore

gimme a P
gimme an E
gimme an E
gimme a W
gimme an E
gimme an E
go go PEE WEE go go cmon cmon!
go go PEE WEE go goooo!


making love in back seat of the car
with the ocean breeze slipping throu your hair
this is the best part of my life


far away from the classroom drama
making sure we are having a good time
these are the things that makes me smile
pick it up! pick it up! with this song tonite


get ready for a revolution
(the long recess is over)
freshmen's year has gone gotta take it away with all we've got
get ready for a revolution
(the long recess is over)
and i know everything will be alright

tu tu ru tu ru tu tu ru ru
tu tu ru tu ru makes me wanna say
tu tu ru tu ru tu ru ru ru
tu tu ru tu ru makes me wanna say


i know this weekend will be better than the last


reff:
sometimes life gets harder everyday
right now things will never be the same
stand up! with everything you've got
cus after all we're the one whos winning


making love in the backseat of the car
with the ocean breeze slipping thru your hair
this is the best part of my life

Pee Wee Gaskins - Heartbreak Can Be A Good Business

Pee Wee Gaskins
The Sophomore



See the stars unmade
Make way for the memories remain
And ignore the good ones
Watch it burn tonight
The world is never big enough for you
And i?m dying not to see you

You have a place in me, you always do
Don?t think to go back to the alley
You know it?s true
You have a place in me, you always do
Don?t think to go back to the alley
You know it?s true but not tonight

The wounds I?m healing from your goodbyes
It?s the reason I?m still here tonight
Despise, abhorrence, and detestation
In conclusion is the reason to forget 2002

You have a place in me, you always do
Don?t think to go back to the alley
You know it?s true
You have a place in me, you always do
Don?t think to go back to the alley
You know it?s true

You just adding ?I? in ?misery? and ?pain? to me
Cus letting go is so much easier than moving on

Muse - Plug In Baby

Plug In Baby

I've exposed your lies, baby
The underneath's no big surprise
Now it's time for changing
And cleansing everything
To forget your love

And my plug in baby
Crucifies my enemies
When I'm tired of giving
Wooah


And my plug in baby
In unbroken virgin realities
I'm tired of living
Ooh

Don't confuse
Baby you're gonna lose
Your own game
Change me
And replace the envying
To forget your love

And my plug in baby
Crucifies my enemies
When I'm tired of giving
Wooah

My plug in baby
In unbroken virgin realities
I'm tired of living
Ooh

And I've seen your loving
And mine is gone
And I've been in trouble
Ooh yeah

Muse - Hysteria

Hysteria

It's bugging me
Grating me
And twisting me around
Yeah I'm endlessly
Caving in
And turning inside out

'Cause I want it now
I want it now
Give me your heart and your soul
And I'm breaking out
I'm breaking out
Last chance to lose control

It's holding me, morphing me
And forcing me to strive
To be endlessly cold within
And dreaming I'm alive

'Cause I want it now
I want it now
Give me your heart and your soul
And I'm not breaking down
I'm breaking out
Last chance to lose control

And I want you now
I want you now
I'll feel my heart implode
I'm breaking out
Escaping now
Feeling my faith erode

11.08.2009

BAB 2 FAKTOR MANUSIA

Dalam merancang sebuah sistem interaksi manusia dan komputer sempurna maka perancang tidak saja harus mengetahui aspek teknis dari sistem komputer tersebut, tetapi juga harus mengerti bagaimana manusia mengolah informasi. Manusia merupakan aspek penting dalam sebuah sistem komputer, untuk membuat keseimbangan pada model sistem komputer yang telah kita kembangkan, maka kita harus memodelkan manusia dengan cara yang sama. tetapi hal ini tidak dapat dikerjakan dengan mudah karena karakteristik sesorang dapat sangat berbeda dengan orang lain.ditinjau dari keadaan manusia susah diprediksi, kurang konsisten, dan kurang deterministik dibanding dengan komputer. Manusia merasakan dunia nyata menggunakan peranti yang lazim dikenal dengan panca indra. Lewat panca indra inilah kita dapat membuat model manusia sebagai pengolah informasi
PENGLIHATAN Penglihatan atau mata, merupakan salah satu panca indra yang paling berharga. Bebarapa ahli berpendapat bahwa mata manusia terutama digunakan untuk menghasilkan persepsi yang terorganisir akan gerakan, ukuran, bentuk, jarak, posisi relatif, tekstur dan warna. Beberapa istilah dalam penglihatan dan ilmu tentang penglihatan (vision dan visual science).

Luminans Luminans adalah banyaknya cahaya yang dipantulkan oleh permukaan obyek. Semakin besar luminans dari sebuah obyek, rincian obyek yang dapat dilihat oleh mata juga akan semakin bertambah. Bertambahnya luminans sebuah obyek atau layer tampilan akan menyebabkan mata bertambah sensitive terhadap kedipan (flicker).

Kontras Kontras adalah hubungan antara cahaya yang dikeluarkan oleh suatu obyek dan cahaya dari latar belakang obyek tersebut. Kontras didefinisikan sebagai selisih antara luminans obyek dengan latar belakangnya dibagi dengan luminans latar belakang.

KecerahanKecerahan adalah tanggapan subyektif pada cahaya. Tidak ada arti khusus dari tingkat kecerahan seperti pada luminans dan kontras, tetapi luminans yang tinggi berimplikasi pada kecerahan yang tinggi pula.

Sudut dan ketajaman Penglihatan Sudut penglihatan (visual angle) didefinisikan sebagai sudut yang berhadapan oleh obyek pada mata. Ketajaman penglihatan (visual acuity) adalah sudut penglihatan minimum ketika mata masih dapat melihat sebuah obyek dengan jelas

Medan penglihatan Medan penglihatan adalah sudut yang dibentuk ketika mata bergerak ke kiri terjauh dan ke kanan terjauh, yang dapat dibagi menjadi 4 daerah: • Daerah pertama adalah tempat kedua mata mampu melihat sebuah obyek dalam keadaan yang sama • Daerah kedua adalah tempat terjauh yang dapat dilihat oleh mata kiri ketika mata kiri kita gerakkan ke sudut paling kiri • Daerah ketiga adalah tempat terjauh yang dapat dilihat oleh mata kanan ketika mata kiri kita gerakkan ke sudut paling kanan, disebut dengan penglihatan monokuler kanan • Daerah keempat adalah daerah buta, yakni daerah yang sama sekali tidak dapat dilihat oleh kedua mata. Besarnya daerah atau medan penglihatan dinyatakan dalam derajat. Medan penglihatan merupakan faktor yang sangat penting dalam menentukan ukuran layar, tampilan atau tata letak dan peranti pengontrol yang akan digunakan. Warna dapat meningkatkan interaksi di antara mereka hanya jika implementasinya mengikuti prinsip dasar dari penglihatan warna oleh manusia.

Petunjuk penggunaan waraa yang efektif Pada program-program aplikasi, terutama hasil pekerjaan mereka-mereka yang belum memahami psikologi warna, seringkali digunakan campuran warna yang membuat mata merasa tidak nyaman, karena mata harus selalu melakukan penyesuaian dengan warna tampilan yang digunakan. Pemakaian warna harus diatur sedemikian rupa sehingga mata tidak harus melakukan penyesuaian berulang kali.

PENDENGARAN Pendengaran merupakan panca indra yang paling penting setelah penglihatan dalam dunia komputer interaktif. Kebanyakan manusia dapat mendeteksi suara dalam
kisaran frekuensi 20Hz sampai 20KHz, Suara yang berkisar pada frekuensi 1000-4000Hz menyebabkan pendengaran menjadi lebih sensitive. Selain frekuensi, suara juga dapat bervariasi dalam hal kebisisngan (loudness). Jika batas kebisingan dinyatakan sebagai 0 dB (decibel), maka suara bisikan mempunyai tingkat kebisingan 20 dB, dan percakapan mempunyai tingkat kebisingan antara 50dB sampai 70dB. Kerusakan telinga akan terjadi pada kebisingan lebih dari 140dB.

SENTUHAN Sentuhan merupakan sarana interaksi yang menduduki urutan ketiga setelah penglihatan dan pendengaran. Sensitifitas sentuhan lebih dikaitkan dengan aspek ergonomic dalam sebuah sistem.

PEMODELAN SISTEM PENGOLAHAN Untuk dapat memahami cara kerja interaksi manusia dengan komputer, kita perlu membuat semacam model sistem pengolahan pada manusia dan pada komputer. Manusia juga mempunyai peranti masukan, sistem pengolah, dan peranti keluaran. Setiap siklus interaksi, peranti-peranti ini akan bekerja secara berurutan. Sistem pengolahan manusia terdiri atas pengolahan perseptual, pengolahan intelektual (kognitif), dan pengendalian motorik. Yang semuanya berinteraksi dengan memory manusia. Model ini mempunyai kesamaan dnegan model sistem komputer konvensional yang mempunyai pengolah (processor), memori, dan interaksi diantara keduanya melalui bus.

Pengolah (secara) Sadar dan Otomatis Pengolahan sadar terjadi ketika rangsangan yang datang dibawa ke bagian intelektual dan memerlukan bebarapa waktu untuk menghasilkan suatu tanggapan yang sesuai. Bentuk pengolahan ini biasanya berhubungan dengan tindakan baru atau tindakan yang jarang dilakukan, sehingga akan menghasilkan tanggapan yang lambat. Pengolahan pada diri manusia juga berlangsung secara otomatis atau di bawah sadar. Pengolahan ini berlangsung seperti reflek, dan hanya memerlukan waktu yang sangat pendek. Pengolahan otomatis berhubungan dengan tindakan yang sering dilakukan dan menjadi otomatis lewat berbagai latihan.

Register Memori Pengolahan perseptual yang menyediakan hubungan dari organ-organ sensori (seperti mata, telinga, dan sebagainya) ke otak dapat dipandang sebagai sekumpulan register penyangga temporer. Informasi yang masuk akan disimpan pada bagian ini sebelum
dilewatkan ke pengolahan persepsi, dan akan dinyatakan dalam bentuk tak terproses atau tak terkode. Register sensori penglihatan mempunyai persistensi sebesar 0,2 detik, sementara untuk register sensori pendengaran sekitar 2 detik. Persistensi pendengaran lebih sukar untuk ditunjukkan tetapi dipandang sebagai hal yang sangat penting dalam pengolahan ucapan oleh otak.

Kanal kapasitas rendah Kanal antara register sensori dan memori jangka pendek mempunyai kapasitas rendah yang secara praktis menyatakan adanya keterbatasan seseorang untuk memperhatikan semua masukan sensori secara serentak. Lewat pengontrolan secara sadar dan tak sadar kanal ini dapat diarahkan untuk berkonsentrasi pada bagian tertentu dari medan penglihatan.

Memori Jangka Pendek Memori jangka pendek merupakan penyimpan temporer, tetapi informasi yang ada disini tersimpan dalam bentuk terkodekan bukan dalam bentuk fisik. Dari beberapa sumber ,memori ini mempunyai kapasitas 7 ± 2 chunk informasi. Chunk berhubungan dengan segala sesuatu yang dapat dirasakan orang sebagai satu entitas yang berarti.
Memori Jangka Panjang Informasi dalam jangka pendek akan dikirim ke memori jangka panjang dengan suatu usaha di bawah kesadaran penuh yang disebut belajar atau lewat suatu proses bawah sadar yang berulang-ulang.memori ini berbasis semantik dan diakses secara asosiatif.

Sikap dan Kecemasan Pengguna Sikap negative pengguna ketika sedang menggunakan komputer dapat mempengaruhi unjuk kerja pengguna serta mengurangi kemampuannya untuk mempelajari sistem komputer. Kecemasan pengguna seringkali ditimbulkan oleh adanya rasa takut untuk berbuat salah, pada sistem yang belum ia kenal, kesalahan aktifitas yang menurut dugaan pengguna dapat menyebabkan kerusakan sistem, dan juga tekanan dari luar diri pengguna. Sistem komputer harus dirancang agar punya sifat yang ramah dengan pengguna. Selain itu, sistem komputer sebaiknya juga dapat memberikan semacam petunjuk ketika pengguna melakukan kesalahan sehingga pengguna dapat belajar dari kesalahan itu untuk tidak mengulanginya.

Pengendalian Motorik Responder utama pada diri manusia adalah dua buah tangan yang berisi 10 jari, dua kaki, dan satu suara.

11.04.2009

Tips dan Triks

Mau tahu tahu lebih banyak blogg Klik disini