2007-03-23

Bikin Form Psikotes Penjumlahan Angka

Pernah ketemu form isian kaya gambar di bawah ini pas psikotes..??

Form di atas adalah salah satu model psikotes yang populer.. Menyebalkan emang, menjumlahkan angka dari bawah ke atas atau sebaliknya.. Angkanya banyak banget lagi..

Kadang-kadang ada baiknya kita coba-coba ngerjain psikotes kaya gini.. Tapi bikin form kaya di atas repot juga kali ya.. Nulis 3000 – 5000 angka secara acak kayanya lumayan bikin cape deh..

Sebenernya dengan Microsoft Office Word kita bisa bikin script sederhana buat bikin angka-angka kaya gitu.. Kalo cuma perlu 5000 angka doang sih kecil.. Ga sampe satu detik (tergantung CPU juga sih), 5000 angka acak udah muncul.. Penasaran gimana caranya..??

Ok, im kasih tau deh.. Pertama buka dulu Microsoft Office Word-nya.. Setelah itu buka menu Tools > Macro > Visual Basic Editor atau dengan shotkey Alt+F11..

Kalo udah kebuka Visual Basic Editor, buka menu Insert > Module..

Setelah modul barunya jadi, ketik skrip di bawah ini:

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

Kalo udah, kembali ke Microsoft Office Word dan buka menu Tools > Macro > Macros… atau pake shortkey Alt+F8..

Pilih PsikoNumGenerator, terus masukin jumlah angka yang mau kamu bikin, misalanya 5000..

Secara otomatis di dokumen ada 5000 angka acak untuk latihan psikotes.. Tinggal atur deh formatnya biar enak dikerjain, misalnya ganti jenis dan ukuran huruf, ukuran kertas, dll..

Kalo ga mau repot kamu bisa download contoh dokumennya di http://www.adiwibowo.com/psikonumgenerator.doc.. Jangan lupa ubah seting Macro Security supaya bisa jalanin script-nya ya..!!