Cara Membuat Lembar Tes Pauli - Kraepelin
Kali ini saya akan menjelaskan cara membuat lembar tes Pauli - Kraepelin atau biasa disebut tes koran di Ms Word, agar pembaca dapat menggunakannya sebagai latihan tes sebelum tes pauli/kraepelin yang sebenarnya.
Berikut langkah-langkahnya pembuatan lembar tes pauli/kraepelin:
- Buka Ms Word lalu tekan Alt+F11, maka akan muncul window baru bernama Ms Visual Basic.
- Pada Ms Visual Basic, klik menu Insert dan pilih Module
- Maka akan muncul, window Modul
- Selanjutnya masukkan kode script berikut pada window Modul
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
- Kemudian klik icon Ms. Word di sebelah kiri atas, maka akan muncul window Ms. Word
- Pada window Ms. Word, tekan Alt+F8, maka akan muncul window macros
- Pada window Macros, pilih PsikoNumGenerator, lalu tekan Run, maka akan muncul window jumlah angka
- Isi jumlah angka yang dibuat, misal 2000 angka, lalu tekan OK
- Selesai, tinggal atur layout sesuai kebutuhan
Semoga artikel ini bermanfaat bagi pembaca, silahkan dicoba dan jangan lupa untuk share ke teman Anda. Terimakasih.