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