//adsense

Friday, May 4, 2018

Cara Membuat Lembar Tes Pauli - Kraepelin

Cara Membuat Lembar Tes Pauli - Kraepelin

Cara Membuat Lembar Tes Pauli

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
Tes Kraepelin
  • Maka akan muncul, window Modul
Pandungan lengkap membuat lembar tes koran
  • 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
Tes Pauli

  • 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
Psikotes

  • Isi jumlah angka yang dibuat, misal 2000 angka, lalu tekan OK
Kraeplin
  • Selesai, tinggal atur layout sesuai kebutuhan
Membuat Tes Pauli Sendiri


Semoga artikel ini bermanfaat bagi pembaca, silahkan dicoba dan jangan lupa untuk share ke teman Anda. Terimakasih.