Showing posts with label psikotes. Show all posts
Showing posts with label psikotes. Show all posts

Sunday, November 20, 2011

menguji kestabi'L'an dengan kecepatan

Sudah dua kali ikut tes seleksi pekerjaan di dua operator terbesar di Indonesia 
&

dan Alhamdulillah dua-duanya gak lolos hahaha. Setelah pikir sana pikir sini akhirnya saya menemukan dimana kekurangan saya selama ini, alhasil saya langsung mencari cara bagaimana cara saya melatih kemampuan saya dalam tes bagian ini, yang biasa di sebut TES KORAN atau PAULI. 

Tes ini digunakan untuk mengetahui kecerdasan seseorang dalam menghitung dan kestabilan dalam mengerjakan suatu hal, secara fisik memiliki kemiripan dengan TES KRAEPELIN namun berbeda cara pengerjaannya, pada tes PAULI, kita diminta untuk menjumlahkan dua buah angka yang berdekatan (atas-bawah) dan menuliskan hasilnya di samping kanan dan diantara kedua angka tersebut, sebagai contoh...


Dan begitu seterusnya,,,tantangan pada tes ini adalah (1) kamu harus CEPAT (2) kamu harus STABIL dalam pengerjaan, karena pada periode tertentu, si pemandu tes akan memeberikan perintah garis/batas/semacamnya dan garis tersebut akan menjadi tolak ukur pemberi tes dalam melakukan penilaian.

Nah, buat kamu-kamu yang belum handal atau merasa kurang pada tes kali ini, cara satu-satunya yang (menurut saya) positif adalah berlatih (^_^),,,trus bagaimana cara mendapat soal tes pauli? BUAT SAJA SENDIRI...bagaimana?

  1. Buka Ms.Word lalu tekan Alt+F11
  2. Akan terbuka Visual Basic Editor, kemudian buka menu Insert>Module
  3. Lalu ketikkan script ini pada window modul yang muncul, skripnya ada di bawah
  4. Kembali pada Ms.Word lalu tekan Alt+F8
  5. Pilih PsikoNumGenerator, lalu masukkan jumlah angka yang kamu inginkan (cth.5000)
  6. V.O.I.L.A. lembar TES PAULI kamu udah siap, silahkan diatur, ukuran font atau jenis fontnya supaya kamu nyaman dalam berlatih
===The Script===
Sub PsikoNumGenerator()
Randomize Timer
theEnd = InputBox("Jumlah angka yang akan dibuat", "Jumlah Angka")
If Not IsNumeric(theEnd) Then Exit Sub
If Int(theEnd) = 0 Then Exit Sub
For i = 1 To theEnd
theText = theText & vbTab & Int(Rnd(i) * 10)
Next
Selection.TypeText Text:=theText

End Sub
===end.of.script===
thanks to : INI

Smangat ya untuk kalian yang akan mengikuti tes apapunm semoga informasi ini berguna untuk khalayak umum...aamiin

#L.practicemakeperfect

b(^_^)d

Monday, November 14, 2011

nenek/kakek_dokter_idaman hati


Ini adalah salah satu ujian dalam hidup yang mungkin saja kita alami #dramatis
Engga ding, ini adalah salah satu pertanyaan yang ditanyakan oleh salah satu perusahaan pada salah satu tahapan tes penerimaan karyawan baru...monggo dibaca...

Anda sedang mengendarai motor ditengah malam gelap gulita dan hujan lebat di sebuah daerah yang penduduknya sedang diungsikan semuanya karena bencana banjir. Pemerintah setempat hanya bisa memberikan bantuan 1 buah bis yang saat ini juga sedang mengangkut orang-orang ke kota terdekat. Saat itu juga anda melewati sebuah perhentian Bis satu-satunya didaerah itu. Di perhentian Bis itu Anda melihat 3 orang yang merupakan orang terakhir di daerah itu yang sedang menunggu kedatangan Bis :


- Seorang nenek/kakek tua yang sekarat,
- Seorang dokter yang pernah menyelamatkan hidup Anda sebelumnya,
- Seseorang yang selama ini menjadi idaman hati Anda dan akhirnya Anda temukan.

Anda hanya bisa mengajak satu orang untuk dibonceng Anda, siapakah yang akan Anda ajak ? Dan jelaskan jawaban Anda mengapa Anda melakukan itu. Sebelum Anda menjawab, ada beberapa hal yang perlu Anda pertimbangkan: