PSIKOTEST PAULI KRAEPELIN

Buat yang udah sering jalan-jalan jauh buat ngajuin lamaran kerja,namun sering gagal pada saat psiko test,,biasanya yang paling banyak gagal adalah pada awal-awal psikotest yang ngisi angka koran yang banyaknya bejibun,,
sebenernay sih yang ane tau itu adalah untuk menguji konsentrasi, ketenangan ama konsistensi kita,,,
kalo yang sering gagal disini mungkin juga bisa belajar sendiri,,
angka nya ngarang aje dah,,,yang penting ngacak ama banyak,,
kalo males ngetik nya, ini ane bantuin,,,
caranya gini nih,,
1. Klick "star" -> "all Program" -> "microsoft Office 2010" kalo ngk ada yang 97 juga bisa,,,,"Microsoft Word"
2. Tekan "Alt + F11"
3. Cari menu "Insert" -> "Module"
4. Copy Paste aja code ini nih,,,

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





5. Kalo udah disave aje dulu,,,
6. Coba klik gambar "play" yang segitiga ijo,,,
7. Sekarang tinggal dimasukin dah mau bikin berapa angka,,mau 1000, 5242684, ato 7.500.000.000 (waduh banyak amat,,udah kayak duit korupsinya anggota DRP tuh,,)
8. Kalo mo ngeprint silakan,,kalo bisa langsung ngisi di komputer juga silakan,,pake excel aja biar cepet,,


hehehee,,,,
moga bermanfaat yak,,,
jangan lupa jempolnay,,,,