cara membuat kraepelin

Cara membuat lembar kerja pauli test dan kraepelin test sendiri menggunakan Ms. Word 2007 ( Pauli test generator).
Karena inti test ini adalah dari banyaknya latihan, berikut cara membuat lembar kerja pauli test dan kraepelin test sendiri menggunakan Ms. Word 2007. Silahkan dicoba. Berikut langkah-langkahnya :

• Buka Microsoft Word ;
• Setelah itu tekan tombol ALT + F11 ;
• Pilih INSERT pada menu lalu selanjutnya pilih MODULE ;

Kemudian masukan kode dibawah ini (Copas Aja):

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 kembali ke Microsoft Word, tekan tombol ALT + F8 dan pilih RUN;
• Masukan jumlah angka yang kamu inginkan missal 5000 angka dan tada angka-angka tersebut akan secara otomatis di generate oleh perintah diatas.